die "undefined environment '$env'\n" if !defined($environments->{$env});
+ # FIXME: this seems wrong (nested env?)?
return if !$environments->{$env}; # do not track
-
+
if ($not) {
my $new_env = [];
foreach my $e (@{$env_stack->[-1]}) {
} else {
push @$env_stack, [$env];
}
-
+
push @$env_name_stack, $env;
}
my ($env) = @_;
die "undefined environment '$env'\n" if !defined($environments->{$env});
-
+
return if !$environments->{$env}; # do not track
pop @$env_stack;
my $res = pop @$env_name_stack;
-
+
die "environment missmatch ($res != $env)\n" if $res ne $env;
}
foreach my $e (@$env_list) {
my $fn = $fileinfo->{blockid}->{$e}->{$blockid};
- die "blockid '$blockid' already defined in $fn"
+ die "blockid '$blockid' already defined in $fn"
if defined($fn);
$fileinfo->{blockid}->{$e}->{$blockid} = $filename;
}
my ($filename) = @_;
reset_environment_stack();
-
+
# print "SCAN $filename\n";
my $fh = IO::File->new("$filename", "r") or
die "unable to open file '$filename' - $!\n";
my $env_last_line = {};
-
+
while (defined (my $line = <$fh>)) {
if ($line =~ m/^if(n?)def::(\S+)\[(.*)\]\s*$/) {
- my ($not, $env, $text) = ($1, $2);
+ my ($not, $env, $text) = ($1, $2, $3);
die "unsuported ifdef usage - implement me" if $text;
push_environment($env, $not);
next;
$env_last_line->{$e} = $line;
chomp $env_last_line->{$e};
}
-
+
# fixme: also scan <<>>
-
+
while ($line =~ m/xref:([^\s\[\]]+)\[([^\]]*)\]/g) {
# print "$filename xref:$1 [$2]\n";
}
die "implement me" if $blockid =~m/,/;
register_blockid($filename, $blockid, $env_stack->[-1]);
}
- }
+ }
}
my $scanned_files = {};
}
}
}
-
+
return $filename;
}
print to_json($fileinfo, { pretty => 1 } );
-