summaryrefslogtreecommitdiff
path: root/Master/texmf/scripts/tex4ht
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-04-07 18:42:53 +0000
committerKarl Berry <karl@freefriends.org>2013-04-07 18:42:53 +0000
commitedb2136c619d2c59bcb6dfd431c4c7636ff8913d (patch)
tree8aa04dd27bee1b2f2f9b3fd45dab41cf7771f82e /Master/texmf/scripts/tex4ht
parentb3efa3bb4509e7bd53d737fb729d0d92a76f1f98 (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.pl46
-rw-r--r--Master/texmf/scripts/tex4ht/htmove.pl45
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$/) {
- &copy($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$/) {
- &copy($src, $dst);
- }
- else {
- print STDERR "$0: bad verb $ARGV[0]\n";
- }
-}