return;
}
+our %deps = ();
+
+sub add_depend($) {
+ $deps{$_[0]} = 1;
+}
+
sub get_nested($$$) {
my ($r,$left,$right) = @_;
pos $$r = pos($$r)-1;
} elsif ($t =~ /\G\@#[^\n]*\n/cgs) {
# a comment, which is ignored
} elsif ($t =~ /\G\@\@/cgs) {
- out "\@";
+ out "\@" if $cond[0] > 0;
} elsif ($t =~ /\G\@{/cgs) {
my $x = get_nested(\$t, "{", "}");
out eval_if_ok($x);
sub parse_file($) {
my ($name) = @_;
+ add_depend($name);
my $fh = new IO::File $name;
die "Unable to open $name: $!" unless defined $fh;
my $text;
parse_string($text);
}
-sub start($)
+sub start(;$)
{
$arguments = $_[0];
@cond = (1);
sub load {
my $f = shift @_;
(!defined($f) || @_) and die "\@load requires only one argument";
+ UCW::Temple::add_depend($f);
require $f;
return;
}