Author: particle
Date: Mon Mar 20 10:29:03 2006
New Revision: 11950
Modified:
trunk/compilers/pge/rulec.pir
Log:
pge: rule compiler now uses Getopt::Obj
~ added --help and --compiler=COMPILER flags
~ --help is busted, fix coming soon
Modified: trunk/compilers/pge/rulec.pir
==============================================================================
--- trunk/compilers/pge/rulec.pir (original)
+++ trunk/compilers/pge/rulec.pir Mon Mar 20 10:29:03 2006
@@ -2,55 +2,174 @@
rulec.pir - The PGE rules compiler
-=head2 Description
+=head1 SYNOPSIS
-This program takes a set of rules and/or a grammar written
-in Perl 6 rules format, and compiles it into the pir code
-needed to executes those rules. This pir code is then suitable
-for inclusion or compilation into other larger programs.
+ > ./parrot compilers/pge/rulec.pir [OPTIONS] --compiler=COMPILER FILE
+
+=head2 DESCRIPTION
+
+This program takes a set of rules and/or a grammar, specified in B<FILE>,
+and compiles it using B<COMPILER> into the PIR code needed to execute
+that grammar. This PIR code is then suitable for inclusion or compilation
+into other larger programs.
+
+=head2 COMPILERS
+
+Choose the compiler from one of the registered PGE front-ends.
+
+=over 4
+
+=item p6rules -- Perl 6 Rules
+
+=item p5regexp -- Perl 5 Regular Expression *TODO*
+
+=item bnf -- Backus-Naur Form *TODO*
+
+=back
+
+=head2 OPTIONS
+
+...
=cut
+
.sub "main" :main
.param pmc args
- .local string arg0
- .local string filename
- .local string opt
- .local string source
- .local pmc fh
- .local string pir, onload
+ .local string prog
+ .local string file
+
+ prog = shift args
+
+ $I0 = args
+ unless $I0 >= 2 goto ERR_TOO_FEW_ARGS
+
+ file = pop args
load_bytecode "PGE.pbc"
load_bytecode "PGE/Text.pir"
load_bytecode "PGE/Util.pir"
+ load_bytecode "Getopt/Obj.pir"
- $I0 = args
- if $I0 != 2 goto usage
+ .local pmc getopts
+ getopts = new "Getopt::Obj"
+ getopts."notOptStop"(1)
+
+ .local pmc compilers
+ compilers = register_compilers()
+
+ push getopts, "compiler|c=s"
+ push getopts, "help|h"
+
+ .local pmc opts
+ opts = getopts."get_options"( args )
- arg0 = shift args
- filename = shift args
- fh = open filename, "<"
- unless fh goto err_no_file
+ .local string help
+ help = opts['help']
+ if help goto USAGE
+
+ .local string compiler
+ compiler = opts['compiler']
+ unless compiler goto ERR_NO_COMPILER
+
+ .local string comp_module
+ comp_module = compilers[compiler]
+ unless comp_module goto ERR_COMPILER_NOT_REGISTERED
+
+ .local pmc fh
+ fh = open file, "<"
+ unless fh goto ERR_NO_FILE
+
+ .local string source
source = read fh, 65535
close fh
- $P0 = compreg "PGE::P6Grammar"
+ .local string pir, onload
+ $P0 = compreg comp_module
(pir, onload) = $P0(source)
print onload
print pir
- goto end
+ goto END
- usage:
+ USAGE:
print "usage: "
- print arg0
- print " file.pge\n"
- goto end
-
- err_no_file:
- print arg0
- print ": unable to open "
- print filename
+ print prog
+ print " [OPTIONS] --compiler=COMPILER FILE\n"
+
+ .local pmc it_comp
+ .local string comp
+ it_comp = new .Iterator, compilers
+
+ print " Registered Compilers:\n"
+ IT_NEXT:
+
+ unless it_comp goto IT_DONE
+ shift comp, it_comp
+ print " - "
+ print comp
print "\n"
+ branch IT_NEXT
+
+ IT_DONE:
+ goto END
+
+ ERR_TOO_FEW_ARGS:
+ print "Error: too few arguments\n\n"
+ branch USAGE
+
+ ERR_NO_COMPILER:
+ print "Error: no compiler specified\n\n"
+ branch USAGE
+
+ ERR_COMPILER_NOT_REGISTERED:
+ print "Error: not a registered compiler: "
+ print compiler
+ print "\n\n"
+ branch USAGE
+
+ ERR_NO_FILE:
+ print "Error: file not found: "
+ print file
+ print "\n\n"
+ branch USAGE
+
+ END:
+.end
+
+
+.sub 'register_compilers'
+ .local pmc compilers
+ compilers = new .Hash
+
+ compilers['p6rules'] = 'PGE::P6Grammar'
+ compilers['p5regexp'] = 'PGE::P5Regexp'
+ compilers['bnf'] = 'PGE::BNFGrammar'
- end:
+ .return( compilers )
.end
+
+
+.sub 'configure_getopts_compilers'
+ .param pmc getopts
+ .param pmc opt_hash
+
+ .local pmc it_opts
+ .local string key
+ it_opts = new .Iterator, opt_hash
+
+IT_NEXT:
+ unless it_opts goto DONE
+ key = shift it_opts
+
+ ## each compiler option takes a string (the input file)
+ concat key, '=s'
+
+ push getopts, key
+ branch IT_NEXT
+
+DONE:
+ .return( getopts )
+.end
+
+
+.include 'hllmacros.pir'
