[REBOL] Re: Object "Serialization" (script repost)
From: rgombert::essentiel::net at: 23-Feb-2001 0:59
Sorry... a few errors in the "comments" inside the script and the lack of
indentation (due to outlook conersion of tabs to spaces), so I repost the
script:
REBOL [
Title: "Nom du script"
File: %binutils.r
Date: 22-Feb-2001
Author: "Renaud GOMBERT"
Purpose: "Save and retrieve any word/value pair as binary"
To-do: {
Make a refinement to do compressions only if needed
Allow processing of multiple word/value pairs at one time
}
Release: 0.0.1
Category: []
]
put-bin: func [ "Save word/value pair as compressed binary"
'data [any-type!] "word to process"
filename [file!] "file to write to"
/local temp
][
temp: make object! [
value: get data
name: data
]
write/binary filename compress to-binary mold temp
]
get-bin: func [ "Load word/value pair from a compressed binary"
filename [file!] "file to get word/value from"
/local temp
][
temp: do decompress read/binary filename
set temp/name temp/value
]
Renaud GOMBERT
email : [rgombert--essentiel--net]
ICQ# 2602184
