File tree Expand file tree Collapse file tree 2 files changed +19
-0
lines changed Expand file tree Collapse file tree 2 files changed +19
-0
lines changed Original file line number Diff line number Diff line change
1
+ class QAST::CompUnit is QAST ::Node {
2
+ # The serialization context for the compilation unit.
3
+ has $ ! sc ;
4
+
5
+ # The HLL name.
6
+ has $ ! hll ;
7
+
8
+ # What to run at the point the compilation unit is loaded.
9
+ has $ ! load ;
10
+
11
+ # What to run if this is the main entry point.
12
+ has $ ! main ;
13
+
14
+ method sc (* @ value ) { $ ! sc := @ value [0 ] if @ value ; $ ! sc }
15
+ method hll (* @ value ) { $ ! hll := @ value [0 ] if @ value ; $ ! hll }
16
+ method load (* @ value ) { $ ! load := @ value [0 ] if @ value ; $ ! load }
17
+ method main (* @ value ) { $ ! main := @ value [0 ] if @ value ; $ ! main }
18
+ }
Original file line number Diff line number Diff line change @@ -83,6 +83,7 @@ QAST_SOURCES = \
83
83
src/QAST/Stmts.nqp \
84
84
src/QAST/Stmt.nqp \
85
85
src/QAST/Block.nqp \
86
+ src/QAST/CompUnit.nqp \
86
87
src/QAST/Operations.nqp \
87
88
src/QAST/Compiler.nqp \
88
89
You can’t perform that action at this time.
0 commit comments