public/nixpkgs
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

* Support references to parent directories, e.g., \input{../../macros.ltx}.

Browse Source 
svn path=/nixpkgs/trunk/; revision=3748
This commit is contained in:
Eelco Dolstra 2005-08-30 13:10:30 +00:00
parent c27109efa0
commit 860e14cd3d
2 changed files with 28 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
pkgs/misc/tex/nix/copy-includes.pl
View File

@ -5,11 +5,32 @@ sub createDirs;
sub createDirs { sub createDirs {
my $path = shift; my $path = shift;
return unless $path =~ /^(.*)\/([^\/]*)$/; return unless $path =~ /^(.*)\/([^\/]*)$/;
return if -d $1; my $dir = $1;
createDirs $1; return if -d $dir;
mkdir $1 or die "cannot create directory `$1'"; return if -e $dir;
createDirs $dir;
mkdir $dir or die "cannot create directory `$dir'";
} }
my $maxParents = 0;
for (my $n = 0; $n < @ARGV; $n += 2) {
my $fullPath = $ARGV[$n];
my $relPath = $ARGV[$n + 1];
my $parents = 0;
foreach my $comp (split /\//, $relPath) {
$parents++ if ($comp eq "..")
}
$maxParents = $parents if $parents > $maxParents;
}
my $startDir = "./";
for (my $n = 0; $n < $maxParents; $n++) {
$startDir .= "dotdot/";
mkdir "$startDir" or die "cannot create directory `$startDir': $!";
}
chdir $startDir or die;
for (my $n = 0; $n < @ARGV; $n += 2) { for (my $n = 0; $n < @ARGV; $n += 2) {
my $fullPath = $ARGV[$n]; my $fullPath = $ARGV[$n];
my $relPath = $ARGV[$n + 1]; my $relPath = $ARGV[$n + 1];
@ -18,3 +39,5 @@ for (my $n = 0; $n < @ARGV; $n += 2) {
symlink $fullPath, $relPath or die "cannot create symlink `$relPath'"; symlink $fullPath, $relPath or die "cannot create symlink `$relPath'";
} }
print "$startDir\n";

3
pkgs/misc/tex/nix/run-latex.sh
View File

@ -2,7 +2,8 @@
ensureDir $out ensureDir $out
perl $copyIncludes $includes startDir=$(perl $copyIncludes $includes)
cd $startDir
for i in $extraFiles; do for i in $extraFiles; do
if test -d $i; then if test -d $i; then