diff options
author | Karl Berry <karl@freefriends.org> | 2013-04-07 18:42:53 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2013-04-07 18:42:53 +0000 |
commit | edb2136c619d2c59bcb6dfd431c4c7636ff8913d (patch) | |
tree | 8aa04dd27bee1b2f2f9b3fd45dab41cf7771f82e /Master/texmf/scripts/tex4ht | |
parent | b3efa3bb4509e7bd53d737fb729d0d92a76f1f98 (diff) |
texmf -> texmf-dist: scripts
git-svn-id: svn://tug.org/texlive/trunk@29719 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf/scripts/tex4ht')
-rw-r--r-- | Master/texmf/scripts/tex4ht/htcopy.pl | 46 | ||||
-rw-r--r-- | Master/texmf/scripts/tex4ht/htmove.pl | 45 |
2 files changed, 0 insertions, 91 deletions
diff --git a/Master/texmf/scripts/tex4ht/htcopy.pl b/Master/texmf/scripts/tex4ht/htcopy.pl deleted file mode 100644 index c8d2193b21d..00000000000 --- a/Master/texmf/scripts/tex4ht/htcopy.pl +++ /dev/null @@ -1,46 +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[0]); - my $dst = &canonicalize($ARGV[1]); - - if (&is_absolute($src)) { - if (-d $dst) { - $dst = $dst . "\\" . &basename($src); - } - } - else { - if (-d $dst) { - $dst = "$dst\\$src"; - &mkpath(&dirname($dst)); - } - } - - if ($0 =~ m/htmove\.pl$/) { - &move($src, $dst); - } - elsif ($0 =~ m/htcopy\.pl$/) { - ©($src, $dst); - } - else { - print STDERR "$0: bad verb $ARGV[0]\n"; - } -} - diff --git a/Master/texmf/scripts/tex4ht/htmove.pl b/Master/texmf/scripts/tex4ht/htmove.pl deleted file mode 100644 index 2d52965ebf5..00000000000 --- a/Master/texmf/scripts/tex4ht/htmove.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[0]); - my $dst = &canonicalize($ARGV[1]); - - if (&is_absolute($src)) { - if (-d $dst) { - $dst = $dst . "\\" . &basename($src); - } - } - else { - if (-d $dst) { - $dst = "$dst\\$src"; - &mkpath(&dirname($dst)); - } - } - - if ($0 =~ m/htmove\.pl$/) { - &move($src, $dst); - } - elsif ($0 =~ m/htcopy\.pl$/) { - ©($src, $dst); - } - else { - print STDERR "$0: bad verb $ARGV[0]\n"; - } -} |