World: r3wp

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

yes, that's working now

Cool. Does it work even in direct mode ?

I think you can just open the port once now.

no

YES, it's working even in direct mode. But must use the file name 
as well

Yes, that's right, you would have got the "Cannot open a dir port 
in direct mode" error ?

Congratulations. You successfully used my patch. :-)

and I think, this should be enough: thru "tcp 550" to end

lines 81 and 107

Could be. Thanks for your report.

Thanks you for the patch:-))

Most welcome, Oldes.

What's your FTP server, by the way ?

(I mean, what's the name and version of the FTP server ?)

ProFTPD 1.2.10 Server (ProFTPD)

Thankyou.

Ok uploaded new version to the same location.

Hello;
  I'm getting an
   "Internal Error: No more global variable space
     Where: to-word
** Near: to word! :value"


 when i run a program that after reading a file into memory, it then 
 does a character by character parse of the file and writes any words 
 that it finds to a new file.  The code that seems to be causing a 
 problem is this:

    Write/Append OutFileNameFull reduce [to-word WordStr newline]   


It gets through about 1.5 MB before it "runs out of global variable 
space".


Why is it running out of global variable space when there is only 
the one variable (to-word WordStr)?

you reached Rebol's limit - you have declared too many global variables 
with the command to-word WordStr. Do you really need it?

Why you convert it to word anyway?

Write/Append OutFileNameFull join WordStr newline

Nut if I understand it well, you need content of variable which is 
stored in the wordStr

(nut = but)

>> w: "someWord"
== "someWord"
>> reduce [to-word w]
== [someWord]
>> find first system/words 'someWord
== [someWord]

but this is interesting:
>> length? first system/words
== 2600
>> newword
** Script Error: newword has no value
** Near: newword
>> length? first system/words
== 2601