World: r3wp

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 [...]

That works only in single-user

but, nevermind, I found a work-around

so, in 2.7.7 this one does work for me:

touch: func [
    {touch the given FILE}
    file [file!]
] [
    file: open file
    append file ""
    close file
]

So, this one looks "universal":

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

Universal except that is corrupts binary files and will be very slow 
for large files. I don't know if you can be universal, but you can 
get close:

touch: func [
    {touch the given FILE}
    file [file!]
] [
    file: open/seek/binary file
    append file ""
    clear tail file
    close file
]

You just need to remove /binary for R3.

call "touch.exe"

Not standard on Windows.

Though with the above you can't specify a given timestamp, which 
is important for general use.

IIRC there are touch-like functions in the winAPi...

I think if you want a particular timestamp you would have to use 
set-modes.

No direct API I know of Max, but I'd rather stay portable as well.

SetFileTime is as close as you get.

Universal except that is corrupts binary files
 - did you find any corruption?

Though with the above you can't specify a given timestamp
 - that is exactly what is needed

What's the safest way to check if a string ends in a "/" or not?

all [ not empty? series #'/" = last series ]  seems painful

Is this any better? 
     if "/" = back tail series [print true]

or:
>> s: "" s/(length? s)
== none
>> s: "/" s/(length? s)
== #"/"

what's the most efficient ?  :)

perhaps we need a new function : rear: func [ series ][ back tail 
series ]

or 'end or 'hind ..

Actually I like 'endof ...

so i can do

remove endof series