Mercurial > repos > rhope
annotate testnworker.rhope @ 98:a34a982ecd32
Broken port of nworker to compiler
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Tue, 03 Aug 2010 23:51:39 -0400 |
parents | |
children | e09c2d1d6d5b |
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 { |
a34a982ecd32
Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
5 ref+ <- Worker Ref["+","rhope",2,1] |
a34a982ecd32
Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
6 ref* <- Worker Ref["*","rhope",2,1] |
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[ |
a34a982ecd32
Broken port of nworker to compiler
Mike Pavone <pavone@retrodev.com>
parents:
diff
changeset
|
25 [[[[NProgram]Register Builtins |
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 } |