Mercurial > hg > jslab
annotate examples/sockets/ostream.scm @ 2:74cc9e431818
Revert change to MidiSynth
| author | samer |
|---|---|
| date | Fri, 05 Apr 2019 16:43:56 +0100 |
| parents | 5df24c91468d |
| children |
| rev | line source |
|---|---|
| samer@0 | 1 (load "sockets.scm") |
| samer@0 | 2 |
| samer@0 | 3 ;;; get a random vector |
| samer@1 | 4 (define v (samer.maths.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@1 | 9 (.writeObject o (.getVec 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 |