[decnum-dynpmcs] r189 committed - Give Configure.pir a --help option and make it verbose to let the user...

[codesite...@google.com]

Revision: 189
Author: arbelo
Date: Thu Oct 15 23:00:54 2009
Log: Give Configure.pir a --help option and make it verbose to let the user
know what's going on.

http://code.google.com/p/decnum-dynpmcs/source/detail?r=189

Modified:
/trunk/Configure.pir

=======================================
--- /trunk/Configure.pir Thu Oct 15 17:55:26 2009
+++ /trunk/Configure.pir Thu Oct 15 23:00:54 2009
@@ -3,15 +3,42 @@

.sub 'main' :main
.param pmc argv
+
load_bytecode "Getopt/Obj.pbc"
- .local pmc getopts
+
+ .local pmc getopts, opts
getopts = new 'Getopt::Obj'
push getopts, "dectest"
-
+ push getopts, "help"
+
+ opts = getopts.'get_options'(argv)
+
+ .local int help
+ help = defined opts["help"]
+ unless help goto NO_HELP
+
+ say <<"HELPMSG"
+Configure.pir - Configure decnum-dynpmcs for your platform.
+
+General Options:
+ --help Show this text
+Developer Options:
+ --dectest Also configure the 'decTest' tool.
+HELPMSG
+ exit 0
+
+NO_HELP:
.local pmc conf
load_bytecode "config.pbc"
conf = _config()

+ say <<"MESSAGE"
+Hello, I'm Configure. My job is to inspect your parrot configuration
+to figure out how to properly build decnum-dynpmcs.
+
+Reading configuration information...
+MESSAGE
+
.local string perl, libdir, verdir, cmd
perl = conf['perl']
libdir = conf['libdir']
@@ -21,21 +48,26 @@
cmd .= verdir
cmd .= '/tools/dev/gen_makefile.pl '

+ say "Generating main Makefile..."
.local string runcmd
runcmd = cmd . "cfg/Makefile.in Makefile"
$I0 = spawnw runcmd
say runcmd

- .local pmc opts
- opts = getopts.'get_options'(argv)
-
.local int dectest
dectest = defined opts["dectest"]
-
+ say "\nGenerating decTest Makefile..."
unless dectest goto END
- runcmd = cmd . "cfg/src/pmc/Makefile.in src/pmc/Makefile"
+ runcmd = cmd . "aux/decTest/cfg/Makefile.in aux/decTest/Makefile"
$I0 = spawnw runcmd
say runcmd

END:
+ say <<"ENDMSG"
+
+Configuration completed.
+You can now type 'make' to build decnum-dynpmcs, 'make test' to run
+the test suite or 'make help' to get information on additional make
+targets.
+ENDMSG
.end