10 chop; # strip record separator
11 @Fld = split(' ', $_, 9999);
16 for (my $i=3; $i <= $#Fld; $i++) {
17 $str .= " " . $Fld[$i];
19 $str = &htmlify($str);
20 printf("<title>%s : %s</title><h1>%s : %s</h1>\n",
21 $Fld[1], $str, $Fld[1], $str);
26 # $i = $_ =~ "\"" && ($RLENGTH = length($&), $RSTART = length($`)+1);
27 # $str = substr($_, $i + 1, length($_) - $i - 1);
29 $str = &htmlify($str);
30 printf "<samp>[##:##] </samp><KBD>%s</KBD><p>\n", $str;
36 printf "<br><samp>[##:##] </samp><kbd>%s</kbd><p>\n", &htmlify($str);
41 @a = split('[: ",.]+');
42 $str = &anchor($a[2]);
43 $str = ("$str $a[3]") if defined $a[3];
44 printf("<br>%s\n", $str);
48 if (/^\.s3/) { printf (("<p>\n")); next line; }
49 if (/^\.s1/) {printf (("<hr> \n")); next line; }
50 if (/^\.br/) { printf "<br>\n"; next line; }
52 if (/^\.(FI|fi)/) { printf (("</pre><p>\n")); $dome = 0; next line; }
53 if (/^\.(NF|nf)/) { printf (("<p><pre>\n")); $dome = 1; next line; }
56 @a = split('[: ",.]+');
58 for (my $i = 1; $i <= $#a ; ($i)++) {
59 printf("%s",&anchor($a[$i]));
60 for (my $j = 0; $j < 20 - length($a[$i]); $j++) {
66 chop; # strip record separator
67 @a = split('[: ,.]+');
68 @Fld = split(' ', $_, 9999);
69 if (/^\./) { goto procline; }
70 for (my $i = 1; $i <= $#a ; ($i)++) {
71 printf("%s",&anchor($a[$i]));
72 for (my $j = 0; $j < 20 - length($a[$i]); $j++) {
82 @a = split('[: ",.]+');
84 printf("See also : %s\n",&anchor($a[2]) );
85 for (my $i = 3; $i <= $#a ; ($i)++) {
86 printf(", %s\n",&anchor($a[$i]));
90 chop; # strip record separator
91 @a = split('[: ,.]+');
92 @Fld = split(' ', $_, 9999);
93 if (/^\./) { goto procline; }
94 for (my $i = 0; $i <= $#a ; ($i)++) {
95 printf(", %s\n",&anchor($a[$i]));
102 if (/^\./) { next line; }
104 if (/^(See also|See Also|see also)/) {
105 @a = split('[: ,.]+');
107 printf("See also : %s\n",&anchor($a[2]) );
108 for (my $i = 3; $i <= $#a ; ($i)++) {
109 printf(", %s\n",&anchor($a[$i]));
113 chop; # strip record separator
114 @a = split('[: ,.]+');
115 @Fld = split(' ', $_, 9999);
116 if (/^\./) { goto procline; }
117 for (my $i = 0; $i <= $#a ; ($i)++) {
118 printf(", %s\n",&anchor($a[$i]));
125 printf "%s\n", &htmlify($_);
132 # return ("<a href=" . $_ . ".html" . ">" . $_ . "</a>");
134 # return ( " " . $_ . " ");
144 $file =~ s/.t$/.html/;
145 return ("<a href=\"$file\">$_</a>");
149 warn "Expanding $_ to $file[0]\n";
150 $file[0] =~ s/.t$/.html/;
151 return ("<a href=\"$file[0]\">$_</a>");
153 warn "Unable to link $_\n";
154 return ( "<em>$_</em>");
160 # Translate HTML special characters into escape sequences
164 s/\\&//g; # a nothing character
168 while (@a = /(\\\*Q)([A-Za-z0-9\-\.]+)(\\\*U)/) {
169 /(\\\*Q)([A-Za-z\-]+)(\\\*U)/;
170 $_ = $` . &anchor($a[1]) . $';
172 while (@a = /(\\\*Q)(\"info )([A-Za-z0-9\-\.]+)(\\\*U)/) {
173 /(\\\*Q)(\"info )([\w\-\.]+)(\\\*U)/;
174 $_ = $` . "\"info " . &anchor($a[2]) . $';
176 while (@a = /(\"info )([A-Za-z0-9\-\.]+)/) {
177 /(\"info )([\w\-\.]+)/;
178 $_ = $` . "\"info " . &anchor($a[1]) . $';
183 s/\\fR/<\/em><\/em>/g;
185 s/\\fP/<\/strong><\/em>/g;
186 s/\\\*\(bF/<strong>/g; # bold font
187 s/\\\*\(pF/<\/strong><\/em>/g; # pica font
188 s/\\\*\(nF/<\/strong><\/em>/g; # normal font
189 s/\\\*\(iF/<em>/g; # italic font
190 s/\\\(mu/x/g; # multiply symbol
191 s/\\ / /g; # should be non breaking space