Mailing List Archive: Re: File-modes on different platforms

[REBOL] Re: File-modes on different platforms

From: al:bri:xtra at: 24-May-2002 18:39


Windows XP Home with Rebol/Core

>> print reform [join "REBOL/" system/product system/version
[    system/build/date]
REBOL/Core 2.5.0.3.1 23-Mar-2001
>> 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
[        ]
[    ]
date creation-date none
date access-date none
date modification-date none
logic owner-write none
logic archived none
logic hidden none
logic system none
file full-path
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
]
>> delete file ; clean up

Andrew Martin
ICQ: 26227169 http://valley.150m.com/