summaryrefslogtreecommitdiff
path: root/Build/source/texk/tex4htk/htperl.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/tex4htk/htperl.pl')
-rw-r--r--Build/source/texk/tex4htk/htperl.pl45
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') {
- &copy($src, $dst);
- }
- else {
- print STDERR "$0: bad verb $ARGV[0]\n";
- }
-}