comparison examples/sockets/ostream.scm @ 1:5df24c91468d

Oh my what a mess.
author samer
date Fri, 05 Apr 2019 16:26:00 +0100
parents bf79fb79ee13
children
comparison
equal deleted inserted replaced
0:bf79fb79ee13 1:5df24c91468d
1 (load "sockets.scm") 1 (load "sockets.scm")
2 2
3 ;;; get a random vector 3 ;;; get a random vector
4 (define v (VVector. "v" 8)) 4 (define v (samer.maths.VVector. "v" 8))
5 (.next (samer.maths.random.NormalisedGaussian.) (.array v)) 5 (.next (samer.maths.random.NormalisedGaussian.) (.array v))
6 6
7 ;;; write object to a file 7 ;;; write object to a file
8 (define o (oostream (ofstream "obj"))) 8 (define o (oostream (ofstream "obj")))
9 (.writeObject o v) 9 (.writeObject o (.getVec v))
10 (.close o) 10 (.close o)
11 11
12 ;;; read object back 12 ;;; read object back
13 (define i (iostream (ifstream "obj"))) 13 (define i (iostream (ifstream "obj")))
14 (define w (.readObject i)) 14 (define w (.readObject i))