Add some more SC-related bits to QAST::CompUnit.

Author: jnthn

src/QAST/CompUnit.nqp

@@ -2,6 +2,17 @@ class QAST::CompUnit is QAST::Node {
     # The serialization context for the compilation unit.
     has $!sc;
 
+    # Are we in compilation mode?
+    has int $!compilation_mode;
+    
+    # Tasks we should run prior to deserialization (or, in the non-precompiled
+    # case, just before everything else in this compilation unit).
+    has @!pre_deserialize;
+
+    # Taks we should run after deserialization (or, in the non-precompiled
+    # csae, right after the pre-deserialize tasks).
+    has @!post_deserialize;
+    
     # The HLL name.
     has $!hll;
 
@@ -15,4 +26,14 @@ class QAST::CompUnit is QAST::Node {
     method hll(*@value)      { $!hll := @value[0] if @value; $!hll }
     method load(*@value)     { $!load := @value[0] if @value; $!load }
     method main(*@value)     { $!main := @value[0] if @value; $!main }
+    
+    method compilation_mode(*@value) {
+        $!compilation_mode := @value[0] if @value; $!compilation_mode
+    }
+    method pre_deserialize(*@value) {
+        @!pre_deserialize := @value[0] if @value; @!pre_deserialize
+    }
+    method post_deserialize(*@value) {
+        @!post_deserialize := @value[0] if @value; @!post_deserialize
+    }
 }