/[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.8 by mhepp, Fri Apr 25 18:34:30 2003 UTC revision 1.9 by jlenton, Wed Apr 30 21:24:42 2003 UTC
# Line 15  BEGIN { our $DEBUG = 0; } Line 15  BEGIN { our $DEBUG = 0; }
15  my $usage = "$PROGRAM_NAME [options] <sourcefile>  my $usage = "$PROGRAM_NAME [options] <sourcefile>
16  Options:  Options:
17    -E                    alias for --noexec --code    -E                    alias for --noexec --code
18      -M                    alias for --noexec --deps
19      -MM                   alias for --noexec --deps --nosysdeps
20      --deps                output a rule suitable for make for the neb
21      --nosysdeps           don't include stuff that starts with /usr/ in --deps
22    --tree                dump the XML before nebulizing    --tree                dump the XML before nebulizing
23    --code                dump the calculated program before executing    --code                dump the calculated program before executing
24    --noexec              do not execute calculated program    --noexec              do not execute calculated program
# Line 30  Options: Line 34  Options:
34  my $exec = 1;  my $exec = 1;
35  my $tree = 0;  my $tree = 0;
36  my $code = 0;  my $code = 0;
37    my $deps = 0;
38    my $sysdeps = 1;
39  our $DEBUG = 0;  our $DEBUG = 0;
40    
41    our @SUBS = ();
42    
43  my $include_path = undef;  my $include_path = undef;
44  GetOptions('exec!' => \$exec,  GetOptions('exec!' => \$exec,
45             'E' => sub { $exec = 0; $code = 1 },             'E' => sub { $exec = 0; $code = 1 },
46               'M' => sub { $exec = 0; $deps = 1 },
47               'MM' => sub { $exec = 0; $deps = 1; $sysdeps = 0; },
48             'tree' => \$tree,             'tree' => \$tree,
49               'sysdeps' => \$sysdeps,
50               'deps' => \$deps,
51             'code' => \$code,             'code' => \$code,
52             'debug+' => \$DEBUG,             'debug+' => \$DEBUG,
53             'include-path=s' => \$include_path             'include-path=s' => \$include_path
# Line 73  foreach my $file (@ARGV) Line 86  foreach my $file (@ARGV)
86      {      {
87          print $neb->code;          print $neb->code;
88      }      }
89    
90        if ($deps)
91        {
92            my @h = sort values %INC;
93    
94            @h = grep !/^\/usr/, @h
95                unless $sysdeps;
96            
97            print join(" \\\n", ("$file:", @SUBS, $0, @h)), "\n";
98        }
99  }  }
       

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

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