Mercurial > repos > rhope
annotate testnworker.rhope @ 189:d0e3a13c1bd9 default tip
Remove old calculator example
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Fri, 07 Oct 2011 00:24:04 -0700 |
parents | c6ba9fe45910 |
children |
rev | line source |
---|---|
184
c6ba9fe45910
Strip _c from filenames of current compiler
Mike Pavone <pavone@retrodev.com>
parents:
99
diff
changeset
|
1 Import nworker.rhope |
98
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 } |