view 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)