Mercurial > hg > jslab
annotate examples/sockets/ostream.scm @ 0:bf79fb79ee13
Initial Mercurial check in.
| author | samer |
|---|---|
| date | Tue, 17 Jan 2012 17:50:20 +0000 |
| parents | |
| children | 5df24c91468d |
| rev | line source |
|---|---|
| samer@0 | 1 (load "sockets.scm") |
| samer@0 | 2 |
| samer@0 | 3 ;;; get a random vector |
| samer@0 | 4 (define v (VVector. "v" 8)) |
| samer@0 | 5 (.next (samer.maths.random.NormalisedGaussian.) (.array v)) |
| samer@0 | 6 |
| samer@0 | 7 ;;; write object to a file |
| samer@0 | 8 (define o (oostream (ofstream "obj"))) |
| samer@0 | 9 (.writeObject o v) |
| samer@0 | 10 (.close o) |
| samer@0 | 11 |
| samer@0 | 12 ;;; read object back |
| samer@0 | 13 (define i (iostream (ifstream "obj"))) |
| samer@0 | 14 (define w (.readObject i)) |
| samer@0 | 15 (.close i) |
| samer@0 | 16 |