Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Use Configure.pir instead of Configure.pl.
- Loading branch information
1 parent
4076342
commit 89010cc
Showing
4 changed files
with
71 additions
and
9 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,57 @@ | ||
#! /usr/local/bin/parrot | ||
|
||
.include 'sysinfo.pasm' | ||
.include 'iglobals.pasm' | ||
|
||
.sub 'main' :main | ||
load_bytecode 'Configure.pbc' | ||
|
||
# Wave to the friendly users | ||
print "Hello, I'm Configure. My job is to poke and prod\n" | ||
print "your system to figure out how to build HQ9plus.\n" | ||
|
||
.local pmc config | ||
$P0 = getinterp | ||
config = $P0[.IGLOBALS_CONFIG_HASH] | ||
.local string OS | ||
OS = sysinfo .SYSINFO_PARROT_OS | ||
|
||
# Here, do the job | ||
push_eh _handler | ||
genfile('Makefile.in', 'Makefile', config) | ||
# genfile('src/ops/Makefile.in', 'src/ops/Makefile', config) | ||
# genfile('src/pmc/Makefile.in', 'src/pmc/Makefile', config) | ||
pop_eh | ||
|
||
# Give the user a hint of next action | ||
.local string make | ||
make = config['make'] | ||
print "Configure completed for platform '" | ||
print OS | ||
print "'.\n" | ||
print "You can now type '" | ||
print make | ||
print "' to build hq9plus.\n" | ||
print "You may also type '" | ||
print make | ||
print " test' to run the hq9plus test suite.\n" | ||
print "\nHappy Hacking.\n" | ||
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: | ||
|
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1 @@ | ||
42797 |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,6 +1,10 @@ | ||
# $Id$ | ||
|
||
See 'perldoc unl.pir' for documentation. | ||
|
||
$perl Configure.pl | ||
$make test | ||
Unlambda is a functional programming language. | ||
See http://en.wikipedia.org/wiki/Unlambda for details. | ||
|
||
$ parrot Configure.pir | ||
$ make | ||
$ make test | ||
|
||
unlambda is hosted at http://github.com/bschmalhofer/unlambda. |