11 |
#BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } } |
#BEGIN { $SIG{'__WARN__'} = sub { cluck @_; } } |
12 |
#BEGIN { $SIG{'__DIE__'} = sub { confess @_; } } |
#BEGIN { $SIG{'__DIE__'} = sub { confess @_; } } |
13 |
|
|
14 |
my $usage = "$0 [options] <sourcefile> |
my $usage = "$PROGRAM_NAME [options] <sourcefile> |
15 |
Options: |
Options: |
16 |
-E ???? |
-E alias for --noexec --code |
17 |
--tree ???? |
--tree dump the XML before nebulizing |
18 |
--code ???? |
--code dump the calculated program before executing |
19 |
--debug increase debug output |
--noexec do not execute calculated program |
20 |
--include-path=<path> search for included files in colon-separated <path> |
--include-path=<path> search for included files in colon-separated <path>. |
21 |
|
Overrides NEB_PATH environment variable. |
22 |
|
--debug increase debug output: |
23 |
|
0 no debug output (default) |
24 |
|
1 place comments in code to mark beginnings and endings of tagses |
25 |
|
2 1 + --code (but clearly separated from result) |
26 |
|
3 2 + dump of parse tree (clearly separated from 2) |
27 |
"; |
"; |
28 |
|
|
29 |
my $exec = 1; |
my $exec = 1; |
37 |
'code' => \$code, |
'code' => \$code, |
38 |
'debug+' => \$DEBUG, |
'debug+' => \$DEBUG, |
39 |
'include-path=s' => \$include_path |
'include-path=s' => \$include_path |
40 |
) or die $usage; |
) and @ARGV or die $usage; |
41 |
|
|
42 |
$ENV{'NEB_PATH'} = $include_path if defined($include_path); |
$ENV{'NEB_PATH'} = $include_path if defined($include_path); |
43 |
|
|