File-modes on different platforms (Result for HP-UX)

Here are the result for HP-UX 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----- Fr=E5n: Anton [mailto:[anton--lexicon--net]] Skickat: den 17 maj 2002 09:39 Till: [rebol-list--rebol--com] =C4mne: [REBOL] File-modes on different platforms Hello, I am interested to see the different file modes available on different platforms. I have tested on Windows2k and NT4. I need Linux, Amiga, Mac and any others. I would like you out there who have one of the above platforms to try the following code and report back with the result. 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) ] ][probe disarm err] ] ] delete file ; clean up The code just prints out the datatype of each mode, the mode word, and reports if there was an error setting that mode. (I want to see which modes cannot be modified, if any.) Thank you very much, and thanks to Ammon for your response on this matter on 20 April. Anton.

Here are the result for HP-UX 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.