World: r3wp

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

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.