on Solaris
REBOL/Core 2.5.0.10.1 23-Mar-2001
Copyright 2000-2001 REBOL Technologies. All rights reserved.
>> do %anton-test.r
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?
>>
> 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.)
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
