/[papo]/papo/neb/neb.pl
ViewVC logotype

Diff of /papo/neb/neb.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6 by jlenton, Thu Apr 17 19:59:30 2003 UTC revision 1.7 by jlenton, Thu Apr 17 21:15:43 2003 UTC
# Line 11  BEGIN { our $DEBUG = 0; } Line 11  BEGIN { our $DEBUG = 0; }
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;
# Line 31  GetOptions('exec!' => \$exec, Line 37  GetOptions('exec!' => \$exec,
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    

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26