World: r3wp

Funny, that's what Anton just said in the RebGUI group. ;)

rest: [1 + 2 button 3 + 4] 
out: copy [] 
while [not tail? rest] [
    either find [button] first rest [
        append out first rest 
        rest: next rest
    ] [
        set [res rest] do/next rest 
        append/only out res
    ]
] 
?? out 
comment "or parse" 
rest: head rest 
out: copy [] 
parse rest [
    any [
        set word ['button] (append out :word) 
        | rest: skip (
            set [res rest] do/next rest 
            append/only out :res
        ) :rest
    ]
]

That trick should help with rebgui too.

Ashley, the idea is that in parse, when you get to something you 
want to evaluate, you set a marker and use do/next. like in volker's 
example. my compile-rules provided  a way to do this automatically 
:)

If you can convince Carl to take that feature please :)

the problem is that it "breaks" the parse logic, because you cannot 
backtrack a do/next (side effects)

Volker/Gabriele: thanks, got it now.

I would left that to the user.

It has its purposes without side-effects. And you can have side-effects 
in the parens too, eg a do/next ;)

Is there any script for ftp upload of large files?

srcp: open/direct/read src
trgp: open/direct/new/write trg
while [not none? buf: copy/part srcp 1000][
	prin "#"
	insert trgp buf
]
insert trgp crlf
close trgp
close srcp

Does that work for FTP ?

yes:-))) the insert trgp crlf is not needed

the trick is, thet there must be the /new switch in the ftp port 
(as at least my ftp server do not support append)

Hm, but now how to make directory thru FTP:(

ah it's easy as well, just using make-dir... I'm reboling so many 
years and still am so suprised how simple it can be:-)

Just be aware that make-dir/deep usually doesn't work with FTP

anton has a fix for that

I found that make-dir/deep doesn't work, so I patched FTP OPEN so 
that it creates deep paths as necessary.

This means you no longer have to worry about creating the directory, 
you only need to WRITE your file.

Though you may want to worry about the set-modes for the automatically 
created folders.

http://home.wilddsl.net.au/anton/rebol/patch/ftp-open-new-patch.r

set-modes ? what do you mean ?

You can also use the above patch to only create the path like this:

If you don't explicitly set the file permissions (under UNIX-deriviatives 
mainly) to precisely what you mean them to be, then they *may* be 
set to something other than what you wanted. That applies to all 
files and folders.
http://www.rebol.com/docs/words/wset-modes.html

I'm not suggesting your patch does something wrong.....Just that 
it may not do what someone expects.

port: make port! ftp-spec

port/state/flags: port/state/flags or system/standard/port-flags/open-new
port/handler/open port

Sunanda, good point indeed.

can anybody provide a simple example to explain copy and copy/deep 
behaviour ? thanks

a: 1
b: [2]
c: copy []
append c a
append/only c b
probe c

d1: copy c
d2: copy/deep c
append b 99999
probe d1
probe d2
======
d1 ends up with it's second entry the same as b
d2 ends up with it's second entry a c opy of b's original values

Other explainations here:

http://www.rebol.org/cgi-bin/cgiwrap/rebol/ml-topic-index.r?i=copy

thanks, good examples

Anton, yout ftp patch was not working, but I solved the issue with 
missing directories using this code:
while [

 error? set/any 'err try [trgp: open/direct/new/write rejoin [ftp-url 
 trg-dir trg-file]]
][
	err: disarm err
	if all [
		err/code = 800
		parse err/arg1 [thru "tcp 550 " copy missingdir to ":" to end]
	][
		print ["Making directory:" join ftp-url missingdir]
		if error? try [make-dir join ftp-url missingdir][
			trgp: none
			break
		]
	]
]

Oldes, what FTP server did you try it with ?

the code above is not working either:-(

It works only for one directory level:-)

How badly was my ftp patch not working ? :-)

it's not making missing dirs

Did you get this net-error "Cannot open a dir port in direct mode" 
 ?

** User Error: Server error: tcp 550 httpdocs/test/1/2/: No such 
file or directory

Are you sure the patch was applied correctly ? (uncomment the   ;print 
"patch"   line.)  Perhaps your FTP scheme is already patched ?

and this one as well: ** User Error: Cannot open a dir port in direct 
mode

if I use /direct

Ah that's right.

Ok, I recommend to use open and close the port *not* in direct mode, 
just to create the directory.
Then, try opening your port in direct mode to do the write.

Sorry, that wasn't very clear..  Use my code snippet above just to 
create the path.
	port: make port! ftp-spec  ; only path, no target

 port/state/flags: port/state/flags or system/standard/port-flags/open-new
	port/handler/open port
	close port
; now try to open/direct ... etc..

There is some debug info available with:
	trace/net on

I found the problem, you have this:

{Server error: tcp 550 Can't change directory to} thru {:} {No such 
file or directory}
but my ftp server's response is only:

Server error: tcp 550 httpdocs/test/1/2/: No such file or directory

Aha..! yes, very good. I knew that piece of code was possibly brittle. 
(Thankyou FTP, thankyou.)

Maybe I should just look for "tcp 550" what do you think ?

or   parse response [thru "error" thru " tcp " thru " 550 "]