alioth/nixpkgs
3
0
Fork 0
forked from mirrors/nixpkgs
Code Releases Activity

* Support \pgfdeclareimage.

Browse source 
svn path=/nixpkgs/trunk/; revision=3771
This commit is contained in:
Eelco Dolstra 2005-09-02 15:50:55 +00:00
parent 9abe0fa366
commit 7fccd83384
1 changed files with 12 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

18
pkgs/misc/tex/nix/find-includes.pl
View file

@ -25,12 +25,9 @@ while (scalar @workset > 0) {
next if (defined $doneset{$fn});
$doneset{$fn} = 1;
if (!open FILE, "< $fn") {
# print STDERR "(cannot open $fn, ignoring)\n";
next;
};
next unless -e "$fn";
# Print out the full path *and* its relative path to $root.
@ -40,7 +37,10 @@ while (scalar @workset > 0) {
print OUT "$fn \"$relFN\"\n";
# Recursively find include in $fn.
# If this is a TeX file, recursively find include in $fn.
next unless $fn =~ /.tex$/ or $fn =~ /.ltx$/;
open FILE, "< $fn" or die;
while (<FILE>) {
if (/\\input\{(.*)\}/) {
my $fn2 = $1;
@ -62,6 +62,12 @@ while (scalar @workset > 0) {
push @workset, $path . "/" . $fn2 . ".pdf";
push @workset, $path . "/" . $fn2 . ".png";
push @workset, $path . "/" . $fn2 . ".ps";
} elsif (/\\pgfdeclareimage(\[.*\])?\{.*\}\{(.*)\}/) {
my $fn2 = $2;
die "absolute path! $fn2" if substr($fn2, 0, 1) eq "/";
push @workset, $path . "/" . $fn2 . ".pdf";
push @workset, $path . "/" . $fn2 . ".png";
push @workset, $path . "/" . $fn2 . ".jpg";
}
# !!! also support \usepackage
}