[REBOL] Re: File-modes on different platforms (result for SunSola ris/Sparc)

From: micael::gullmes::telenor::se at: 18-May-2002 20:03

Here are the result for SunSolaris (Sparc)
Brgds/Micael

make object! [
    code: 305
    type: 'script
    id: 'invalid-arg
    arg1: 'status-change-date
    arg2: none
    arg3: none
    near: [set-modes file compose [
            (to-set-word mode) (get-modes file mode)
        ]]
    where: none
]
date status-change-date ?object?
date modification-date none
date access-date none
string owner-name none
string group-name none
integer owner-id none
integer group-id none
logic owner-read none
logic owner-write none
logic owner-execute none
logic group-read none
logic group-write none
logic group-execute none
logic world-read none
logic world-write none
logic world-execute none
logic set-user-id none
logic set-group-id none

make object! [
    code: 305
    type: 'script
    id: 'invalid-arg
    arg1: 'full-path
    arg2: none
    arg3: none
    near: [set-modes file compose [
            (to-set-word mode) (get-modes file mode)
        ]]
    where: none
]
file full-path ?object?

-----Ursprungligt meddelande-----
Fran: Anton [mailto:[anton--lexicon--net]]
Skickat: den 18 maj 2002 13:30
Till: [rebol-list--rebol--com]
Amne: [REBOL] Re: File-modes on different platforms

Thanks to all of you.
Ok, I have:
	- Windows 2000
	- Linux
Ok, anyone who wants to help me on:
	- Amiga, Mac, BSD or any other platform
than Windows 2000 or Linux, run this script and report the results:

print reform [join "REBOL/" system/product system/version system/build/date]
save file: %anton-filemode-test "" ; create a file to experiment on
foreach mode get-modes %dummy 'file-modes [
	print [
		type? get-modes file mode
		mode
		if error? set/any 'err try [
			set-modes file compose [
				(to-set-word mode) (get-modes file mode)
			]
		][mold disarm err] ; <- mold instead of probe
	]
]
delete file ; clean up

Anton.

[1] · 2 · See whole thread