[svn:parrot] r33492 - trunk/compilers/ncigen

[tewk]

Author: tewk
Date: Thu Dec  4 13:41:21 2008
New Revision: 33492

Removed:
   trunk/compilers/ncigen/compreg.pir
Modified:
   trunk/compilers/ncigen/sqlite_interface_generator.pl

Log:
[ncigen] uses inline pir in perl6


Modified: trunk/compilers/ncigen/sqlite_interface_generator.pl
==============================================================================
--- trunk/compilers/ncigen/sqlite_interface_generator.pl        (original)
+++ trunk/compilers/ncigen/sqlite_interface_generator.pl        Thu Dec  4 
13:41:21 2008
@@ -6,7 +6,6 @@
 use v6;
 
 evalfile('./ncigen.pbc', lang => 'Parrot');
-evalfile('./compreg.pir', lang => 'Parrot');
 
 my $fn = @*ARGS[0];
 my $pp_fn = mktempfile('ptemp');
@@ -20,7 +19,10 @@
   say $x;
 }
 
-
+sub compreg {
+  my $a = q:PIR { %r = compreg 'NCIGEN' };
+  return $a;
+}
 
 sub mktempfile($prefix) {
   sub nonce() { ".{$*PID}." ~ int 1000.rand }