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

Initial Mercurial check in.

+(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)
+