World: r3wp

right

(I just do not know on which machine the file is)

a related problem: how to remove the last character from a file in 
R3?

In my file replication tool I hit a snag ... when replicating directories 
I was not able to set the file date :(

ie. get-modes can't set directory dates

I suppose you mean Set-modes?

yes

Now that I think about it .. my NAS box has that problem .. I copy 
files to it, and the file dates are in the future because the box's 
time runs fast :(

how to remove the last character from a file in R3?


I don't know, if it will be done differently in R3, but using R2 
I would do something like:

sz: length? p: open/binary %file
write/binary %newfile copy/part p sz - 1
close p

hmm, ugly

in R2 it can be simpler, but probably not in R3

yeah! :-)

Is this better with your definition of 'ugly'?


write/binary %file copy/part read/binary %file (get in info? %file 
'size) - 1

- that is the same for me, I would like to just remove one character, 
not to copy the whole file

Is that possible?

in R2 it is, as it looks

I mean, is it possible in R2?

Could you show me?

port: open %file
remove back tail file
close port

Neat! :)

remove back tail port is what I meant

yes

And it doesn't work in R3 for some reason?

...at least not for me...

:-(

Here (under windows) a unix format text file is changed to dos format, 
if I do, what you just suggested. So it become longer.

Doing open/binary and it works.

Using R3, I get:
** Script error: cannot use remove on port! value
Probably the same, you see.

Using R3, 

	>> clear back tail port

works for me.

aha, fine

thanks

amazing!

That was just by luck.

Hmm, I thought, that OPEN does not create the file when it does not 
exist?

(in R2)

in R2, you use open/new for such purpose (to create a file if it 
does not exist)

But, I need the exact opposite, to open touch a file only if it exists, 
which looks like not supported...

>> port: open/read %test

** Access Error: Cannot open /c/program files (x86)/rebol/view/test
** Near: port: open/read %test

isn't suited for your purpose, I guess.

Since if it exists, you'll have do do a second OPEN, the file may 
vanish in the meantime.

that is a problem, I need to touch the file, i.e. change the date, 
but, nevermind, I can make a work-around

*do do = to do

On recreating touch:  Doesn't writing nothing work?  Seems to here...

write/append %Filename {}

checking...

hmm, does not do help here...

Odd... oh well

I use get/set-modes for my TOUCH, but it was only for local use.

this looks like working, in R2 as well as in R3, can you confirm?

touch: func [
    {touch the given FILE}
    file [file!]
] [
    file: open file
    clear tail file
    close file
]

The only problem I am having with it is, that it creates the given 
FILE, if it does not exist, while I would prefer the function to 
do nothing in that case

aha, looks like this does not work in 2.7.7 :-(

Nothing if file does not exist: add 
   if exists? file [...]