Start to sketch out infrastructure for halding operations.

Author: jnthn

src/QAST/Compiler.nqp

@@ -46,7 +46,7 @@ class QAST::Compiler is HLL::Compiler {
     }
 
     our $serno;
-    INIT { 
+    INIT {
         $serno := 10; 
         Q:PIR {
             $P0 = find_lex '$?CLASS'
@@ -109,6 +109,10 @@ class QAST::Compiler is HLL::Compiler {
         $ops
     }
 
+    multi method as_post(QAST::Op $node) {
+        QAST::Operations.compile_op(self, '', $node)
+    }
+    
     multi method as_post(QAST::IVal $node) {
         self.post_new('Ops', :result(~$node.value))
     }

src/QAST/Operations.nqp

@@ -0,0 +1,36 @@
+class QAST::Operations {
+    # Maps operations to code that will handle them. Hash of code.
+    my %core_ops;
+    
+    # Maps HLL-specific operations to code that will handle them.
+    # Hash of hash of code.
+    my %hll_ops;
+    
+    # Compiles an operation to POST.
+    method compile_op($qastcomp, $hll, $op) {
+        my $name := $op.op;
+        if $hll {
+            if %hll_ops{$hll} && %hll_ops{$hll}{$name} -> $mapper {
+                return $mapper($qastcomp, $op);
+            }
+        }
+        if %core_ops{$name} -> $mapper {
+            return $mapper($qastcomp, $op);
+        }
+        pir::die("No registered operation handler for '$name'");
+    }
+    
+    # Adds a core op that maps to a PIR op.
+    method add_core_pir_mapping($op, $pirop, $sig) {
+        %core_ops{$op} := pirop_mapper($pirop, $sig);
+    }
+    
+    # Adds a HLL op that maps to a PIR op.
+    method add_hll_pir_mapping($hll, $op, $pirop, $sig) {
+        %hll_ops{$hll} := {} unless %hll_ops{$hll};
+        %hll_ops{$hll}{$op} := pirop_mapper($pirop, $sig);
+    }
+}
+
+INIT {
+}

tools/build/Makefile.in

@@ -101,6 +101,7 @@ QREGEX_SOURCES = \
   src/QAST/Stmts.nqp \
   src/QAST/Stmt.nqp \
   src/QAST/Block.nqp \
+  src/QAST/Operations.nqp \
   src/QAST/Compiler.nqp \
   src/QRegex/NFA.nqp \
   src/QRegex/Cursor.nqp \