World: r3wp

Huh? that's not the error I get:
>> reduce/only [now then]

** Script Error: reduce expected words argument of type: block none
** Near: reduce/only [now then]

Ah but maybe that's still your point - not what Ashley asked for.

Docu is wrong. it does not reduce words in the /only block. But it 
also rejects functions. so
>> reduce/only[then][then]
== [then]
but it also rejects functions, here unfortunally:
>> reduce/only[now][]
** Script Error: Invalid argument: now
because of security-reasons (draw-blocks from untrusted code).

but reduce/only doesn't perform according to your  initial spec
 True, on two counts:

1) It doesn't evaluate expressions (even if parenthesized)

2) You have to predetermine what words to ignore (less of an issue 
for dialects)

I still can't see a simple way of doing the following:

>> reduce [b: button red form now/date]
** Script Error: button has no value
** Near: b: button red form now/date
>> reduce/only [b: button red form now/date] [button]
** Script Error: Invalid argument: form
** Near: form now/date
>> reduce/only [b: button red (form now/date)] [button]
== [b: button 255.0.0 (form now/date)]


although at least the last case gets most of the way there. What 
I'd really like is:

>> reduce/ignore [b: button red form now/date]
== [b: button 255.0.0 "25-May-2006"]

I am using my BUILD dialect http://www.fm.tul.cz/~ladislav/rebol/build.r
to do it as follows:

>> build [b: button ins red ins form now/date]
== [b: button 255.0.0 "25-May-2006"]

or, another alternative:


>> build/with [b: button red form now/date] [red: system/words/red 
form: get in system/words 'form]
== [b: button 255.0.0 "25-May-2006"]

Use do/next in the parse rule. (that's the reason I suggested the 
DO command for parse some time ago...)

Not sure I understand, a small example would help. ;)

Or was your comment intended for Ladislav?

Ashley: reduce /only -- Only evaluate words and paths, not functions
So the results you are getting above seems logicalto me.

I understand what reduce/only is doing, it's just not doing 100% 
of what I want! ;)

Ah got it ;-)

I think VID like parser is the way then.

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" 
 ?