convert Configure in PIR (from Perl)

fperrad · Nov 6, 2009 · 3868bf1 · 3868bf1
1 parent 66df44d
commit 3868bf1
Show file tree

Hide file tree

Showing 3 changed files with 36 additions and 87 deletions.
diff --git a/Configure.pir b/Configure.pir
@@ -0,0 +1,35 @@
+#! /usr/local/bin/parrot
+# Copyright (C) 2009, Parrot Foundation.
+
+.include 'iglobals.pasm'
+
+.sub 'main' :main
+    load_bytecode 'Configure.pbc'
+
+    .local pmc config
+    $P0 = getinterp
+    config = $P0[.IGLOBALS_CONFIG_HASH]
+
+    # Here, do the job
+    push_eh _handler
+    genfile('build/Makefile.in', 'Makefile', config)
+    pop_eh
+    end
+
+  _handler:
+    .local pmc e
+    .local string msg
+    .get_results (e)
+    printerr "\n"
+    msg = e
+    printerr msg
+    printerr "\n"
+    end
+.end
+
+# Local Variables:
+#   mode: pir
+#   fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4 ft=pir:
+
diff --git a/Configure.pl b/Configure.pl
diff --git a/build/Makefile.in b/build/Makefile.in
@@ -96,7 +96,7 @@ handler/xmlwriter/gen_builtins.pir: $(HANDLER_XMLWRITER_BUILTINS_PIR)
 	$(CAT) $(HANDLER_XMLWRITER_BUILTINS_PIR) > handler/xmlwriter/gen_builtins.pir
 
 Makefile: build/Makefile.in
-	$(PERL) Configure.pl
+	$(PARROT) Configure.pir
 
 # This is a listing of all targets, that are meant to be called by users
 help: