Listing of doc/example-scripts/rosetta-serialization.tcl
Rosetta Example: Object serialization
For details see http://rosettacode.org/wiki/Object_serialization
package req nx package req nx::serializer nx::Class create Being { :property {alive:boolean true} } nx::Class create Animal -superclass Being { :property name :public method print {} { puts "i am ${:name} alive ${:alive}" } }
Demonstrating the behavior in a shell:
Create a few animals
% Animal new -name "Fido" % Animal new -name "Lupo" % Animal new -name "Kiki" -alive false
Print the created animals
% foreach i [Animal info instances] { $i print }
The loop prints:
i am Kiki alive false
i am Lupo alive true
i am Fido alive true
Serialize the animals to a file
% set fpath [::nsf::tmpdir]/dump % set f [open $fpath w] % foreach i [Animal info instances] { puts $f [$i serialize] } % close $f
Destroy all animal instances:
% foreach i [Animal info instances] { $i destroy } % puts ===========
Print the existing animals (will print nothing)
% foreach i [Animal info instances] { $i print } % puts ===========
Load the animals again …
% source $fpath
and print it. The print output is the same as above
% foreach i [Animal info instances] { $i print }