summaryrefslogtreecommitdiff
path: root/Build/source/mswin32/fix-rman.pl
blob: 29bb0179e32af1e3bf17a41c54b67a3cf2557027 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
#
# 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>(.*)/ ;
  }
}