From edb2136c619d2c59bcb6dfd431c4c7636ff8913d Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 7 Apr 2013 18:42:53 +0000 Subject: texmf -> texmf-dist: scripts git-svn-id: svn://tug.org/texlive/trunk@29719 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/tex4ht/htcopy.pl | 46 ++++++++++++++++++++++++++++++ Master/texmf-dist/scripts/tex4ht/htmove.pl | 45 +++++++++++++++++++++++++++++ 2 files changed, 91 insertions(+) create mode 100644 Master/texmf-dist/scripts/tex4ht/htcopy.pl create mode 100644 Master/texmf-dist/scripts/tex4ht/htmove.pl (limited to 'Master/texmf-dist/scripts/tex4ht') diff --git a/Master/texmf-dist/scripts/tex4ht/htcopy.pl b/Master/texmf-dist/scripts/tex4ht/htcopy.pl new file mode 100644 index 00000000000..c8d2193b21d --- /dev/null +++ b/Master/texmf-dist/scripts/tex4ht/htcopy.pl @@ -0,0 +1,46 @@ +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-dist/scripts/tex4ht/htmove.pl b/Master/texmf-dist/scripts/tex4ht/htmove.pl new file mode 100644 index 00000000000..2d52965ebf5 --- /dev/null +++ b/Master/texmf-dist/scripts/tex4ht/htmove.pl @@ -0,0 +1,45 @@ +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"; + } +} -- cgit v1.2.3