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 |
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 |
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 |
} |
} |
|
|
|