It is up to external modules to read the list of dependencies
and process it somehow.
+our %deps = ();
+
+sub add_depend($) {
+ $deps{$_[0]} = 1;
+}
+
sub get_nested($$$) {
my ($r,$left,$right) = @_;
pos $$r = pos($$r)-1;
sub get_nested($$$) {
my ($r,$left,$right) = @_;
pos $$r = pos($$r)-1;
sub parse_file($) {
my ($name) = @_;
sub parse_file($) {
my ($name) = @_;
my $fh = new IO::File $name;
die "Unable to open $name: $!" unless defined $fh;
my $text;
my $fh = new IO::File $name;
die "Unable to open $name: $!" unless defined $fh;
my $text;
sub load {
my $f = shift @_;
(!defined($f) || @_) and die "\@load requires only one argument";
sub load {
my $f = shift @_;
(!defined($f) || @_) and die "\@load requires only one argument";
+ UCW::Temple::add_depend($f);