Great script Renaud! this would do till RT builds in Object serialisation
into REBOL or someone writes a module/ Library..
Regards
Sharriff Aina
"Renaud"
<rgombert@esse An: <[EMAIL PROTECTED]>
ntiel.net> Kopie:
Gesendet von: Thema: [REBOL] Re: Object "Serialization"
rebol-bounce@r
ebol.com
22.02.01 23:39
Bitte
antworten an
rebol-list
Maybe this script could be of some help. It's intended to allow to save and
retrieve a word/value pair in a file.
It is an early version i've made while learning REBOL.
An example : I put the script in the word 'file, then save this word, give
it another value then reload the initial one.
the scipt is 845 bytes long, and the disk data only 443.
Any comment welcome
Renaud
-----------------------------------------------------------------
sample session for the example:
-----------------------------------------------------------------
>> file: read %scripts/binutils.r
== {REBOL [
Title: "Nom du script"
File: %binutils.r
Date: 4-Jun-1999
Author: "Renaud GOMBERT"
Purpose: "Save...
>> put-bin file %data.bin
>> file: 456
== 456
>> file
== 456
>> get-bin %data.bin
== {REBOL [
Title: "Nom du script"
File: %binutils.r
Date: 4-Jun-1999
Author: "Renaud GOMBERT"
Purpose: "Save...
>> file
== {REBOL [
Title: "Nom du script"
File: %binutils.r
Date: 4-Jun-1999
Author: "Renaud GOMBERT"
Purpose: "Save...
>>
-----------------------------------------------------------------
The scipt itself:
-----------------------------------------------------------------
REBOL [
Title: "Nom du script"
File: %binutils.r
Date: 4-Jun-1999
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 [ "Save word/value pair as compressed binary"
filename [file!] "file to get word/value from"
/local temp
][
temp: do decompress read/binary filename
set temp/name temp/value
]
----------------------------------------------------------------------------
----
----- Original Message -----
From: "GS Jones" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Thursday, February 22, 2001 11:32 PM
Subject: [REBOL] Re: Object "Serialization"
> > > > In a separate thread, a question was asked about serialization of
> > > > objects by Sharriff Aina. I had a similar question in mind and
> was
> > > > hoping for an answer. Since the thread had gotten a bit off
> topic,
> > I'm
> > > > reposting essentially the same question in this separate thread.
> > > >
> > > > To date, when I want to save an object, I've been using 'save.
> Then
> > > > when I need the object back, I use 'read and then 'do the object.
> > > >
> > > > For example:
> > > >
> > > > data: make object! [
> > > > name: "Joe"
> > > > ]
> > > >
> > > > save %my-object.r data
> > > >
> > > > ;... later i need the object ...
> > > > data: read %my-object.r
> > > > data: do data
> > > > print data/name
> > >
> > > use 'load instead of 'read? Then you don't need to 'do the 'data ...
> > > -pekr-
> >
> > Thanks, that is a good point!
> > Scott
>
> Actually, when I tried it, simply using 'load did not re-initialize the
> object (unless I am missing some additional subtle point). I played
> with several additional variations, with the same conclusions. So I
> guess the way I've been doing it will have to be good enough. It still
> seems as though there should be a more seemless and coherent way to
> serialize the object.
>
> Thanks for your attention, pekr.
> --Scott
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
