diff options
Diffstat (limited to 'Build/source/texk/tex4htk/htperl.pl')
-rw-r--r-- | Build/source/texk/tex4htk/htperl.pl | 45 |
1 files changed, 0 insertions, 45 deletions
diff --git a/Build/source/texk/tex4htk/htperl.pl b/Build/source/texk/tex4htk/htperl.pl deleted file mode 100644 index 347663e0bb6..00000000000 --- a/Build/source/texk/tex4htk/htperl.pl +++ /dev/null @@ -1,45 +0,0 @@ -use File::Copy; -use File::Path; -use File::Basename; - -&main ; - -0; - -sub is_absolute { - my ($f) = @_; - return $f =~ m@^([a-zA-Z]:)?[\\/]@ ; -} - -sub canonicalize { - my ($f) = @_; - $f =~ s@/@\\@g; - return $f; -} - -sub main { - my $src = &canonicalize($ARGV[1]); - my $dst = &canonicalize($ARGV[2]); - - if (&is_absolute($src)) { - if (-d $dst) { - $dst = $dst . "\\" . &basename($src); - } - } - else { - if (-d $dst) { - $dst = "$dst\\$src"; - &mkpath(&dirname($dst)); - } - } - - if ($ARGV[0] eq 'move') { - &move($src, $dst); - } - elsif ($ARGV[0] eq 'copy') { - ©($src, $dst); - } - else { - print STDERR "$0: bad verb $ARGV[0]\n"; - } -} |