summaryrefslogtreecommitdiff
path: root/Build/source/mswin32/fix-rman.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/mswin32/fix-rman.pl')
-rw-r--r--Build/source/mswin32/fix-rman.pl32
1 files changed, 0 insertions, 32 deletions
diff --git a/Build/source/mswin32/fix-rman.pl b/Build/source/mswin32/fix-rman.pl
deleted file mode 100644
index 29bb0179e32..00000000000
--- a/Build/source/mswin32/fix-rman.pl
+++ /dev/null
@@ -1,32 +0,0 @@
-#
-# Purpose: create cross references through pages translated
-# by Polyglottman.
-# Author: F. Popineau
-# Date : 10/10/98
-# Time-stamp: <03/05/16 00:28:07 popineau>
-#
-# Usage:
-# rman -f HTML -n file.man file.man | perl fix-rman.pl > file.html
-#
-
-require "newgetopt.pl";
-
-&main;
-
-exit 0;
-
-sub main {
-
- unless (&NGetOpt ("title=s")) {
- print STDERR "Usage: $0 --title=name\n";
- exit 1;
- }
-
- while (<>) {
- # lines to match : <B><A HREF="rman.c.rman.c">mktexmf</B>(1)</A>
- $_ =~ s/<TITLE>..man.c\(..man.c\) manual page<\/TITLE>/<TITLE>$opt_title manual page<\/TITLE>/ ;
- $_ =~ s/(.*)<A HREF="rman.c.rman.c">([A-z_0-9-]+)<\/B>\(1\)<\/A>(.*)/$1<A HREF="$2.html">$2<\/B>\(1\)<\/A>$3/ ;
- print $_;
- # $_ =~ s/(.*)<A HREF="rman.c.rman.c">([A-z_0-9-]+)<\/B>\(1\)<\/A>(.*)/ ;
- }
-}