manual/tools/texexpand


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40

#!/usr/local/bin/perl
# Expand \input commands

@path = split(/:/, $ENV{'TEXINPUTS'});

while(<>) {
  if (/^\\input\s*([^\s]*)/) {
    do expand($1);
  } else {
    print $_;
  }
}

sub expand {
  local ($filename) = @_;
  local (*INPUT);
  $filename =~ s/\.tex$//;
  $filename = do find_in_path($filename);
  open(INPUT, $filename) || (warn("cannot find $filename"), return);
  print "%%% $filename\n";
  while(<INPUT>) {
    if (/^\\input\s*([^\s]*)/) {
      do expand($1);
    } else {
      print $_;
    }
  }
  close(INPUT);
}

sub find_in_path {
    local ($name) = @_;
    local ($dir);
    foreach $dir (@path) {
        return "$dir/$name.htex" if (-f "$dir/$name.htex");
        return "$dir/$name.tex" if (-f "$dir/$name.tex");
    }
    return $name;
}