diff options
author | Karl Berry <karl@freefriends.org> | 2008-05-10 00:31:48 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-05-10 00:31:48 +0000 |
commit | 3affd633834494c279f96078e95831935ea51ca7 (patch) | |
tree | d18cbef6ade390df34099bff78c593f00e9d7971 /Build/source/texk/tex4htk/htperl.pl | |
parent | 78d169458ffb8d121d56a1345471b5dbe3f17a2a (diff) |
tex4ht-1.0.2008_05_07_2048
git-svn-id: svn://tug.org/texlive/trunk@8000 c570f23f-e606-0410-a88d-b1316a301751
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"; - } -} |