view examples/sockets/ostream.scm @ 8:5e3cbbf173aa tip

Reorganise some more

(load "sockets.scm")

;;; get a random vector
(define v (samer.maths.VVector. "v" 8))
(.next (samer.maths.random.NormalisedGaussian.) (.array v))

;;; write object to a file
(define o (oostream (ofstream "obj")))
(.writeObject o (.getVec v))
(.close o)

;;; read object back
(define i (iostream (ifstream "obj")))
(define w (.readObject i))
(.close i)