I use this on View 1.2.1 maybe could help you.
REBOL []
script: get in context
[script: func
["^/ "
File
/header
/content
/compress
/decompress
/local
script
]
[script: system/words/read File
script: load/all script? script
while [block? first script] [script: first script]
script: context
[header: second script
content: copy at script 3
]
if binary? first script/content
[script/content: load system/words/decompress first script/content]
switch/default true reduce
[header [script/header]
content [script/content]
decompress [save/header File script/content script/header]
compress
[save/header File
system/words/compress mold/only script/content script/header
]
] [script]
]
] 'script
-yos
---------------------------------
Do You Yahoo!? -- Une adresse @yahoo.fr gratuite et en fran�ais !
Testez le nouveau Yahoo! Mail
--
To unsubscribe from this list, just send an email to
[EMAIL PROTECTED] with unsubscribe as the subject.
