Mercurial > hg > jslab
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)) |