Adds Wyrd generic instruction compilers.

4 files changed, 194 insertions, 1 deletions

diff --git a/src/core/src/tonkadur/wyrd/v1/Base.java b/src/core/src/tonkadur/wyrd/v1/Base.java
index 739cf3a..c111ef2 100644
--- a/src/core/src/tonkadur/wyrd/v1/Base.java
+++ b/src/core/src/tonkadur/wyrd/v1/Base.java
@@ -3,6 +3,7 @@ package tonkadur.wyrd.v1;
 import tonkadur.TonkadurPlugin;
 
 import tonkadur.wyrd.v1.compiler.fate.v1.computation.GenericComputationCompiler;
+import tonkadur.wyrd.v1.compiler.fate.v1.instruction.GenericInstructionCompiler;
 
 public class Base
 {
@@ -12,5 +13,10 @@ public class Base
       (
          GenericComputationCompiler.class
       );
+
+      TonkadurPlugin.register_as_loadable_superclass
+      (
+         GenericInstructionCompiler.class
+      );
    }
 }
diff --git a/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/InstructionCompiler.java b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/InstructionCompiler.java
index 97b212a..80f0e29 100644
--- a/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/InstructionCompiler.java
+++ b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/InstructionCompiler.java
@@ -72,6 +72,8 @@ import tonkadur.wyrd.v1.compiler.util.Sort;
 import tonkadur.wyrd.v1.compiler.util.SubList;
 import tonkadur.wyrd.v1.compiler.util.While;
 
+import tonkadur.wyrd.v1.compiler.fate.v1.instruction.GenericInstructionCompiler;
+
 public class InstructionCompiler
 implements tonkadur.fate.v1.lang.meta.InstructionVisitor
 {
@@ -3942,6 +3944,10 @@ implements tonkadur.fate.v1.lang.meta.InstructionVisitor
    )
    throws Throwable
    {
-      // TODO: implement.
+      final InstructionCompiler ic;
+
+      ic = GenericInstructionCompiler.handle(compiler, n);
+
+      this.result.addAll(ic.result);
    }
 }
diff --git a/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/GenericInstructionCompiler.java b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/GenericInstructionCompiler.java
new file mode 100644
index 0000000..936a83a
--- /dev/null
+++ b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/GenericInstructionCompiler.java
@@ -0,0 +1,106 @@
+package tonkadur.wyrd.v1.compiler.fate.v1.instruction;
+
+import java.util.Map;
+import java.util.HashMap;
+
+import tonkadur.wyrd.v1.compiler.fate.v1.Compiler;
+import tonkadur.wyrd.v1.compiler.fate.v1.InstructionCompiler;
+
+public abstract class GenericInstructionCompiler extends InstructionCompiler
+{
+   protected static final Map<Class, Class> COMPILERS;
+
+   static
+   {
+      COMPILERS = new HashMap<Class, Class>();
+   }
+
+   public static void register (final Class c)
+   {
+      try
+      {
+         COMPILERS.put
+         (
+            (Class) c.getDeclaredMethod("get_target_class").invoke
+            (
+               /* object  = */ null
+            ),
+            c
+         );
+      }
+      catch (final Throwable t)
+      {
+         System.err.println
+         (
+            "[F] Could not get target class for Wyrd Generic Instruction"
+            + " Compiler '"
+            + c.getName()
+            + "':"
+         );
+
+         t.printStackTrace();
+      }
+   }
+
+   public static InstructionCompiler handle
+   (
+      final Compiler compiler,
+      final tonkadur.fate.v1.lang.instruction.GenericInstruction instruction
+   )
+   throws Throwable
+   {
+      final Class registered_class;
+      final GenericInstructionCompiler gic;
+
+      registered_class = COMPILERS.get(instruction.getClass());
+
+      if (registered_class == null)
+      {
+         System.err.println
+         (
+            "[F] No Wyrd compilation process registered for generic Fate"
+            + " instruction \""
+            + instruction.getClass().getName()
+            + "\"."
+         );
+
+         System.err.println("Registered compilers:");
+
+         for (final Class c: COMPILERS.keySet())
+         {
+            System.err.println
+            (
+               "- "
+               + COMPILERS.get(c).getName()
+               + " for "
+               + c.getName()
+               + "."
+            );
+         }
+
+         System.exit(-1);
+      }
+
+      gic =
+         (GenericInstructionCompiler)
+         registered_class.getDeclaredConstructor(Compiler.class).newInstance
+         (
+            compiler
+         );
+
+      gic.compile(instruction);
+
+      return gic;
+   }
+
+   protected abstract void compile
+   (
+      final tonkadur.fate.v1.lang.instruction.GenericInstruction instruction
+   )
+   throws Throwable;
+
+   protected GenericInstructionCompiler (final Compiler compiler)
+   {
+      super(compiler);
+   }
+}
diff --git a/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/generic/AllocateCompiler.java b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/generic/AllocateCompiler.java
new file mode 100644
index 0000000..dbf4a98
--- /dev/null
+++ b/src/core/src/tonkadur/wyrd/v1/compiler/fate/v1/instruction/generic/AllocateCompiler.java
@@ -0,0 +1,75 @@
+package tonkadur.wyrd.v1.compiler.fate.v1.instruction.generic;
+
+import tonkadur.fate.v1.lang.instruction.generic.Allocate;
+
+import tonkadur.wyrd.v1.lang.computation.Address;
+import tonkadur.wyrd.v1.lang.computation.New;
+
+import tonkadur.wyrd.v1.lang.instruction.SetValue;
+
+import tonkadur.wyrd.v1.compiler.fate.v1.Compiler;
+import tonkadur.wyrd.v1.compiler.fate.v1.TypeCompiler;
+import tonkadur.wyrd.v1.compiler.fate.v1.ComputationCompiler;
+
+import tonkadur.wyrd.v1.compiler.fate.v1.instruction.GenericInstructionCompiler;
+
+
+public class AllocateCompiler extends GenericInstructionCompiler
+{
+   public static Class get_target_class ()
+   {
+      return Allocate.class;
+   }
+
+   public AllocateCompiler (final Compiler compiler)
+   {
+      super(compiler);
+   }
+
+   public void compile
+   (
+      final tonkadur.fate.v1.lang.instruction.GenericInstruction instruction
+   )
+   throws Throwable
+   {
+      final Allocate source;
+      final ComputationCompiler cc;
+      final Address target;
+
+      source = (Allocate) instruction;
+
+      cc = new ComputationCompiler(compiler);
+
+      source.get_target().get_visited_by(cc);
+
+      if (cc.has_init())
+      {
+         result.add(cc.get_init());
+      }
+
+      target = cc.get_address();
+
+      if (target == null)
+      {
+         System.err.println
+         (
+            "[P] Argument in (allocate "
+            + source.get_target()
+            + ") did not compile to a address."
+         );
+
+         System.exit(-1);
+      }
+
+      result.add
+      (
+         new SetValue
+         (
+            target,
+            new New(TypeCompiler.compile(compiler, source.get_allocated_type()))
+         )
+      );
+
+      cc.release_registers(result);
+   }
+}