Stub in use. Will eventually be where GLOBAL merging and stuff gets done.

Author: jnthn

src/HLL/SerializationContextBuilder.pm

@@ -169,6 +169,22 @@ class HLL::Compiler::SerializationContextBuilder {
         }
     }
 
+    # Loads a module immediately, and also makes sure we load it
+    # during the deserialization.
+    method load_module($module_name) {
+        # Immediate loading.
+        my $*LOAD_UNIT;
+        my $path := pir::join('/', pir::split('::', $module_name)) ~ '.pbc';
+        pir::load_bytecode($path);
+        
+        # Make sure we do the loading during deserialization.
+        self.add_event(:deserialize_past(
+            PAST::Op.new( :pirop('load_bytecode vs'), $path )));
+        
+        # Return UNIT of the loaded module.
+        $*LOAD_UNIT
+    }
+    
     # Installs a symbol into the package. Does so immediately, and
     # makes sure this happens on deserialization also.
     method install_package_symbol(@sym, $obj) {

src/NQP/Actions.pm

@@ -185,6 +185,11 @@ method you_are_here($/) {
 
 ## Statement control
 
+method statement_control:sym<use>($/) {
+    $*SC.load_module(~$<name>);
+    make PAST::Stmts.new();
+}
+
 method statement_control:sym<if>($/) {
     my $count := +$<xblock> - 1;
     my $past := xblock_immediate( $<xblock>[$count].ast );

src/NQP/Grammar.pm

@@ -185,6 +185,10 @@ token terminator:sym<}> { <?[}]> }
 
 proto token statement_control { <...> }
 
+token statement_control:sym<use> {
+    <sym> \s :s <name>
+}
+
 token statement_control:sym<if> {
     <sym> \s :s
     <xblock>