Mercurial > hg > jslab
annotate examples/sockets/recv.scm @ 8:5e3cbbf173aa tip
Reorganise some more
| author | samer |
|---|---|
| date | Fri, 05 Apr 2019 22:41:58 +0100 |
| parents | 5df24c91468d |
| children |
| rev | line source |
|---|---|
| samer@1 | 1 (load "sockets.scm") |
| samer@1 | 2 (load "filelist.scm") |
| samer@1 | 3 (load "models.scm") |
| samer@1 | 4 (load "audio.scm") |
| samer@1 | 5 |
| samer@1 | 6 (define S (make-server)) |
| samer@1 | 7 (define x (norm (linein (filesource) 512 256))) |
| samer@1 | 8 (define s (VVector. "s" 512)) |
| samer@1 | 9 (expose) |
| samer@1 | 10 (define sk (accept S)) |
| samer@1 | 11 (addtask (send-vec sk x)) |
| samer@1 | 12 |
| samer@1 | 13 (define th2 (RThread.)) |
| samer@1 | 14 (.addTask th2 (recv-vec sk s)) |
| samer@1 | 15 |