Mercurial > repos > rhope

annotate parse.rhope @ 131:0a4682be2db2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Modify lexer and new parser to work in compiler
author Mike Pavone <pavone@retrodev.com>
date Fri, 05 Nov 2010 02:43:34 +0000
parents a4d2d633a356
children 1f238280047f
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
1
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
2 Blueprint Error
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
3 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
4 Message
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
5 Line
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
6 Column
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
7 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
8
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
9 Error[msg,text:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
10 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
11 out <- [[[Build[Error()]]Message <<[msg]]Line << [ [[text]Line >>]+[1] ]]Column << [ [[text]Column >>]+[1] ]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
12 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
13
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
14 String@Error[error:out]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
15 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
16 out <- [[[[[error]Message >>]Append[" on line "]]Append[String[[error]Line >>]]]Append[" at column "]]Append[String[[error]Column >>]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
17 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
18
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
19 Blueprint PImport Node
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
20 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
21 File
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
22 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
23
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
24 PImport Node[file:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
25 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
26 out <- [Build[PImport Node()]]File <<[file]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
27 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
28
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
29 String@PImport Node[node:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
30 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
31 out <- ["Import: "]Append[[node]File >>]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
32 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
33
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
34 Blueprint Worker Node
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
35 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
36 Name
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
37 Blueprint
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
38 Inputs
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
39 Outputs
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
40 Tree
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
41 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
42
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
43 Add Node Input@Worker Node[node,input:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
44 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
45 Print["Add Node Input"]
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
46 Print[["Input: "]Append[String[input]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
47 out <- [node]Inputs <<[[[node]Inputs >>]Append[input]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
48 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
49
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
50 Add Node Output@Worker Node[node,output:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
51 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
52 out <- [node]Outputs <<[[[node]Outputs >>]Append[output]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
53 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
54
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
55 String@Worker Node[node:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
56 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
57 out <- [[[[["Worker: "]Append[[node]Name >>]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
58 ]Append[ ["\n\tBlueprint:\t"]Append[String[[node]Blueprint >>]] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
59 ]Append[ ["\n\tInputs: \t"]Append[[[node]Inputs >>]Join[", "]] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
60 ]Append[ ["\n\tOutputs:\t"]Append[[[node]Outputs >>]Join[", "]] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
61 ]Append[ ["\n\tTree: \t"]Append[ [[String[[node]Tree >>]]Split["\n"]]Join["\n\t"] ] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
62 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
63
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
64 Blueprint Statement
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
65 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
66 Expression
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
67 Assignments
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
68 Blocks
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
69 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
70
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
71 Statement[expression,assignments:out]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
72 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
73 out <- [[[Build[Statement()]]Expression <<[expression]]Assignments <<[assignments]]Blocks <<[()]
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
74 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
75
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
76 Add Block@Statement[statement,block:out]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
77 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
78 out <- [statement]Blocks <<[ [[statement]Blocks >>]Append[block] ]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
79 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
80
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
81 String@Statement[statement:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
82 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
83 out <- [[["Statement\n\tExpression:\t"
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
84 ]Append[ [[String[[statement]Expression >>]]Split["\n"]]Join["\n\t"] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
85 ]Append[ ["\n\tAssignments:\t"]Append[[[statement]Assignments >>]Join[", "]] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
86 ]Append[ ["\n\tBlocks:\t"]Append[ [[String[[statement]Blocks >>]]Split["\n"]]Join["\n\t"] ] ]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
87 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
88
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
89 Blueprint Worker Expression
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
90 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
91 Worker
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
92 Blueprint
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
93 Arguments
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
94 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
95
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
96 String@Worker Expression[exp:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
97 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
98 out <- ["Worker Expression\n\tWorker:\t"]Append[[exp]Worker >>]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
99 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
100
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
101 Blueprint Global Expression
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
102 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
103 Store
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
104 Variable
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
105 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
106
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
107 Blueprint Pipe Expression
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
108 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
109 Name
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
110 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
111
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
112 Pipe Expression[name:out]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
113 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
114 out <- [Build[Pipe Expression()]]Name <<[name]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
115 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
116
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
117 String@Pipe Expression[pipe:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
118 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
119 out <- ["Pipe Expression\n\tName:\t"]Append[[pipe]Name >>]
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
120 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
121
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
122 Blueprint Block
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
123 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
124 Tree
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
125 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
126
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
127 Block[:out]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
128 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
129 out <- [Build[Block()]]Tree <<[()]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
130 }
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
132 String@Block[block:out]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
133 {
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
134 out <- Fold[_String Seq[?], "Block", [block]Tree >>]
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
135 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
136
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
137 Blueprint Field Expression
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
138 {
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
139 Name
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
140 Set?
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
141 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
142
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
143 Field Expression[name,set?:out]
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
144 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
145 out <- [[Build[Field Expression()]]Name <<[name]]Set? <<[set?]
5
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
146 }
a4d2d633a356 Groundwork for parsing expressions in new parser
Mike Pavone <pavone@retrodev.com>
parents: 4
diff changeset
147
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
148 Body[node,tokens,current,depth:out,out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
149 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
150 Print[["Body: Depth="]Append[String[depth]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
151 If[[depth] > [0]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
152 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
153 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
154 [token]Type Match["Block Begin"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
155 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
156 ,end stream <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
157 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
158 out,out index, done <- Body[node,tokens,~,[depth]+[1]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
159 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
160 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
161 [token]Type Match["Block End"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
162 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
163 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
164 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
165 out,out index, done <- Body[node,tokens,~,[depth]-[1]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
166 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
167 ,end stream <- If[[depth] = [1]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
168 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
169 Print["done"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
170 out <- Val[node]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
171 done <- Yes
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
172 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
173 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
174 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
175 ,end stream <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
176 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
177 out,out index, done <- Body[node,tokens,~,depth]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
178 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
179 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
180 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
181 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
182 out <- node
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
183 out index <- current
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
184 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
185 Val[end stream]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
186 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
187 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
188 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
189 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
190
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
191 Before Body[node,tokens,current:out,out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
192 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
193 Print["Before body"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
194 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
195 next,end stream <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
196 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
197 [token]Type Match["Block Begin"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
198 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
199 out,out index, done <- Body[node,tokens,next,1]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
200 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
201 out,out index, done <- Before Body[node,tokens,next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
202 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
203 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
204 Val[end stream]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
205 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
206 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
207 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
208 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
209
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
210 Outputs[node,tokens,current:out,out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
211 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
212 Print["outputs"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
213 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
214 next,end stream <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
215 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
216 [token]Type Match["Symbol"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
217 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
218 out,out index, done <- Outputs[[node]Add Node Output[[token]Text >>], tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
219 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
220 [token]Type Match["Args End"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
221 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
222 out,out index, done <- Before Body[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
223 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
224 [token]Type Match[("List Separator","Block Comment","Line Comment","Newline")]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
225 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
226 out,out index, done <- Outputs[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
227 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
228 Print[String[Error[["Unexpected token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
229 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
230 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
231 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
232 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
233 Val[end stream]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
234 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
235 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
236 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
237 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
238
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
239 Inputs[node,tokens,current:out,out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
240 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
241 Print["Inputs"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
242 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
243 next,end stream <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
244 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
245 [token]Type Match["Symbol"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
246 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
247
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
248 out,out index, done <- Inputs[[node]Add Node Input[[token]Text >>], tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
249 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
250 [token]Type Match["Name Separator"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
251 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
252 Print["in out sep"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
253 out,out index, done <- Outputs[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
254 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
255 [token]Type Match["Args End"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
256 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
257 out,out index, done <- Before Body[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
258 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
259 [token]Type Match[("List Separator","Block Comment","Line Comment","Newline")]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
260 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
261 out,out index,done <- Inputs[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
262 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
263 Print[String[Error[["Unexpected token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
264 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
265 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
266 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
267 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
268 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
269 Val[end stream]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
270 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
271 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
272 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
273 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
274
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
275 Method[node,tokens,current:out,out index,done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
276 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
277 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
278 next <- [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
279 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
280 [token]Type Match["Symbol"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
281 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
282 out,out index,done <- Before Inputs[[node]Blueprint <<[[token]Text >>], tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
283 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
284 [token]Type Match[("List Separator","Block Comment","Line Comment","Newline")]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
285 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
286 out,out index,done <- Method[node, tokens, next]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
287 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
288 Print[String[Error[["Unexpected token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
289 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
290 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
291 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
292 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
293 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
294 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
295
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
296 //TODO: support method declarations
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
297 Before Inputs[node, tokens, current:out, out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
298 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
299 Print["Before Inputs"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
300 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
301 [token]Type Match["Args Begin"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
302 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
303 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
304 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
305 out,out index, done <- Inputs[node, tokens, ~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
306 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
307 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
308 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
309 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
310 [token]Type Match["Method Separator"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
311 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
312 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
313 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
314 out,out index,done <- Method[node, tokens, ~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
315 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
316 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
317 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
318 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
319 [token]Type Match[("Line Comment","Block Comment","Newline")]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
320 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
321 continue <- Yes
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
322 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
323 Print[String[Error[["Unexpected token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
324 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
325 Val[continue]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
326 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
327 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
328 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
329 out,out index, done <- Before Inputs[node, tokens, ~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
330 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
331 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
332 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
333 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
334 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
335 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
336 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
337
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
338 Worker Node[name, tokens, current:out,out index, done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
339 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
340 Print[["Worker: "]Append[String[name]]]
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
341 out,out index, done <- Before Inputs[[[[[[Build[Worker Node()]]Name <<[name]]Inputs <<[()]]Outputs <<[()]]Blueprint <<[No]]Tree <<[()], tokens, current]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
342 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
343
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
344 Skip Nodes[toskip, stop, tokens, current:out]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
345 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
346 token <- [tokens]Index[current]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
347 next <- [tokens]Next[current]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
348 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
349 [token]Type Match[stop]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
350 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
351 out <- Val[next]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
352 }{
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
353 [token]Type Match[toskip]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
354 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
355 out <- Skip Nodes[toskip, stop, tokens, next]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
356 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
357 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
358 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
359 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
360 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
361 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
362 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
363 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
364
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
365 Blueprint PBlueprint Node
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
366 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
367 Name
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
368 Fields
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
369 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
370
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
371 Fields[node,tokens,current:out,out index,done]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
372 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
373 token <- [tokens]Index[current]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
374 next <- [tokens]Next[current]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
375 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
376 [token]Type Match["Symbol"]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
377 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
378 out,out index,done <- Fields[[node]Add BField[[token]Text >>], tokens, next]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
379 }{
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
380 [token]Type Match["Block End"]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
381 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
382 out <- Val[node]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
383 out index <- Val[next]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
384 }{
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
385 [token]Type Match[("Newline","Line Comment","Block Comment")]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
386 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
387 out,out index,done <- Fields[node, tokens, next]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
388 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
389 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
390 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
391 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
392 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
393 }{
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
394 [token]Type Match["Block End"]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
395 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
396 out <- Val[node]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
397 done <- Yes
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
398 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
399 Print[String[Error[["Unexpected end of stream after token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
400 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
401 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
402 }
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
403
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
404 PBlueprint Node[name, tokens, current:out,out index,done]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
405 {
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
406 node <- [[Build[PBlueprint Node()]]Name <<[name]]Fields <<[()]
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
407 next <- Skip Nodes[("Newline","Block Comment","Comment"), "Block Begin", tokens, current]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
408 out,out index,done <- Fields[node, tokens, next]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
409 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
410
4
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
411 Add BField@PBlueprint Node[node,field:out]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
412 {
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
413 out <- [node]Fields <<[[[node]Fields >>]Append[field]]
0c5f24b4f69d Handle blueprints in new parser
Mike Pavone <pavone@retrodev.com>
parents: 2
diff changeset
414 }
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
415
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
416 Top Level[tokens, current, nodes:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
417 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
418 token <- [tokens]Index[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
419 Print[[token]Type >>]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
420 [token]Type Match["Symbol"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
421 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
422 [[token]Text >>]After["Import "]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
423 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
424 next nodes <- [nodes]Append[PImport Node[~]]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
425 next index <- Val[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
426 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
427 blueprint name,worker name <- [~]After["Blueprint "]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
428 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
429 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
430 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
431 , next index <- PBlueprint Node[blueprint name, tokens, ~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
432 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
433 next nodes <- [nodes]Append[~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
434 } {} {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
435 Print["done!"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
436 out <- Val[next nodes]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
437 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
438 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
439 Print[String[Error[["Unexpected end of stream after symbol "]Append[[token]Text >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
440 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
441 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
442 [tokens]Next[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
443 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
444 , next index <- Worker Node[worker name, tokens, ~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
445 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
446 next nodes <- [nodes]Append[~]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
447 } {} {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
448 Print["done!"]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
449 out <- Val[next nodes]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
450 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
451 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
452 Print[String[Error[["Unexpected end of stream after symbol "]Append[[token]Text >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
453 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
454 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
455 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
456
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
457 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
458 [token]Type Match[("Newline","Block Comment","Line Comment")]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
459 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
460 next nodes <- Val[nodes]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
461 next index <- Val[current]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
462 }{
131
0a4682be2db2 Modify lexer and new parser to work in compiler
Mike Pavone <pavone@retrodev.com>
parents: 5
diff changeset
463 Print[String[Error[["Unexpected token of type "]Append[[token]Type >>], [token]Raw Text >>]]]
2
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
464 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
465 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
466 [tokens]Next[next index]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
467 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
468 out <- Top Level[tokens, ~, next nodes]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
469 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
470 out <- Val[next nodes]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
471 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
472 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
473
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
474 Parse[tokens:out]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
475 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
476 [tokens]First
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
477 {
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
478 out <- Top Level[tokens, ~, ()]
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
479 }{
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
480 out <- ()
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
481 }
73e978d590c7 Adding WIP compiler code
Mike Pavone <pavone@retrodev.com>
parents:
diff changeset
482 }