diff examples/sockets/ostream.scm @ 0:bf79fb79ee13

Initial Mercurial check in.

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/examples/sockets/ostream.scm	Tue Jan 17 17:50:20 2012 +0000
@@ -0,0 +1,16 @@
+(load "sockets.scm")
+
+;;; get a random vector
+(define v (VVector. "v" 8))
+(.next (samer.maths.random.NormalisedGaussian.) (.array v))
+
+;;; write object to a file
+(define o (oostream (ofstream "obj")))
+(.writeObject o v)
+(.close o)
+
+;;; read object back
+(define i (iostream (ifstream "obj")))
+(define w (.readObject i))
+(.close i)
+