Mercurial > repos > rhope

annotate testnworker.rhope @ 145:357f4ce3ca6d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add incredibly ugly implementation of Read Delim to TCP Connection
author Mike Pavone <pavone@retrodev.com>
date Sun, 21 Nov 2010 22:08:17 -0500
parents e09c2d1d6d5b
children c6ba9fe45910
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
98
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1 Import nworker_c.rhope
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 Test NWorker[:out]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
4 {
99
e09c2d1d6d5b Got dataflow graph code working in compiler (nworker_c.rhope)
Mike Pavone <pavone@retrodev.com>
parents: 98
diff changeset
5 ref+ <- Worker Ref["+","rhope",2,1,Yes]
e09c2d1d6d5b Got dataflow graph code working in compiler (nworker_c.rhope)
Mike Pavone <pavone@retrodev.com>
parents: 98
diff changeset
6 ref* <- Worker Ref["*","rhope",2,1,Yes]
98
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 ,a <- [NWorker["rhope"]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
8 ]Add Input["a", 0] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9 ,b <- [~]Add Input["b", 1] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
10 ,c <- [~]Add Input["c", 2] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
11 ,outref <- [~]Add Output["out", 0] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
12 ,call+ <- [~]Add Worker Call[ref+] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
13 ,call* <- [~]Add Worker Call[ref*] {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
14 out <- [[[[[~]Add Wire[a,0,call+,0]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
15 ]Add Wire[b,0,call+,1]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
16 ]Add Wire[call+,0,call*,0]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
17 ]Add Wire[c,0,call*,1]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
18 ]Add Wire[call*,0,outref,0]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
19 }}}}}}
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
20 }
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
21
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
22 Main[]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
23 {
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
24 Print[
99
e09c2d1d6d5b Got dataflow graph code working in compiler (nworker_c.rhope)
Mike Pavone <pavone@retrodev.com>
parents: 98
diff changeset
25 [[[[NProgram[]]Register Builtins
98
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
26 ]Bind Worker["Test", Test NWorker[]]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
27 ]Compile Program[C Program[]]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
28 ]Text
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
29 ]
a34a982ecd32 Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
30 }