Permalink
Browse files

add missing file

  • Loading branch information...
pmurias committed Jan 5, 2011
1 parent 0f63e1b commit ee1c32e25114b7711eea0685fb23ba0ee7f920e8
Showing with 16 additions and 0 deletions.
  1. +16 −0 src/NAMWriter.pm
View
@@ -0,0 +1,16 @@
use v5.10;
use strict;
use warnings;
use Niecza::Simple;
use File::Slurp qw(slurp);
sub compile {
my %args = @_;
my $filename = "lib/$args{name}.setting";
my $source = slurp($filename);
my $compiler = Niecza::Simple::create_compiler(backend=>"nam",lang=>$args{lang},UNITNAME=>$args{name});
$compiler->compile(source=>$source,filename=>$filename,output=>"obj/$args{name}.nam");
}
1;

0 comments on commit ee1c32e

Please sign in to comment.