Author: chromatic
Date: Sun May 13 13:36:58 2007
New Revision: 18525
Modified:
trunk/languages/lisp/lisp.pir
Log:
[languages/lisp] Move PIR coda to end of file; remove trailing whitespace.
Modified: trunk/languages/lisp/lisp.pir
==============================================================================
--- trunk/languages/lisp/lisp.pir (original)
+++ trunk/languages/lisp/lisp.pir Sun May 13 13:36:58 2007
@@ -20,12 +20,6 @@
.include "cl.pir"
.include "internals.pir"
-# Local Variables:
-# mode: pir
-# fill-column: 100
-# End:
-# vim: expandtab shiftwidth=4:
-
.sub _main :main
.param pmc argv
@@ -40,22 +34,22 @@
load_bytecode "PGE.pbc" # Parrot Grammar engine
-
+
# compile a couble of regexes that are needed in validate.pir
.local pmc p6rule
p6rule = compreg "PGE::P6Regex"
.local pmc is_integer
- is_integer = p6rule( '^<[+\-]>?\d+\.?$' )
+ is_integer = p6rule( '^<[+\-]>?\d+\.?$' )
set_global 'is_integer', is_integer
.local pmc is_float
- is_float = p6rule( '^<[+\-]>?\d+\.\d+$' )
+ is_float = p6rule( '^<[+\-]>?\d+\.\d+$' )
set_global 'is_float', is_float
.local pmc is_qualified
# todo keyword, split into qualifier, package and symbol
- is_qualified = p6rule(
"^<[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]>*::<[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]>*"
)
+ is_qualified = p6rule(
"^<[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]>*::<[abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789]>*"
)
set_global 'is_qualified', is_qualified
_init_types() # Initialize all the type classes.
@@ -140,3 +134,9 @@
goto REP_LOOP
.end
+
+# Local Variables:
+# mode: pir
+# fill-column: 100
+# End:
+# vim: expandtab shiftwidth=4:
