added the backend which outputs the ast as NAM

sorear · Jan 2, 2011 · 7a14f4f · 7a14f4f
1 parent 77dab6d
commit 7a14f4f
Showing 1 changed file with 15 additions and 0 deletions.
diff --git a/src/Niecza/Backend/NAM.pm b/src/Niecza/Backend/NAM.pm
@@ -0,0 +1,15 @@
+package Niecza::Backend::NAM;
+use NAMBackend;
+use Moose;
+
+#has optimizer=>(is=>'rw');
+#   $ast = $self->optimizer->run($ast);
+
+sub compile {
+    my ($self,$ast,$output) = @_;
+    my $nam = NAMBackend::run($ast);
+    open my $fh, ">", $output;
+    print $fh $nam;
+    close $fh;
+}
+1;