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
33
34
35
36
37
38
39
40
41
42
43
44
|
--- sgmlfmt/sgmlfmt.pl.orig 1998-09-15 23:05:47.000000000 +0200
+++ sgmlfmt/sgmlfmt.pl 2013-10-22 12:52:49.000000000 +0200
@@ -32,7 +32,7 @@
# project.
-require 'newgetopt.pl';
+use Getopt::Long;
#
# Where to find DTDs and related files
@@ -151,19 +151,15 @@
open (outfile, ">$fileroot.trf");
&sgmlparse(infile, "roff");
while (<infile>) {
+ s,\\\(ru,_,g if /^\.GET[HP]N/;
+ s,tmac\.m,m\.tmac,g;
print outfile;
}
close(infile);
close(outfile);
+ system("groff -z -rRef=1 -T ${driver} -t ${fileroot}.trf 2>&1 | egrep '^\\.' > ${fileroot}.qrf");
system("groff -T ${driver} -t ${fileroot}.trf ${postproc} > ${fileroot}.${driver}");
-
- # If foo.tmp has been created, then there are cross references
- # in the file and we need a second pass to resolve them correctly.
-
- if (stat("${fileroot}.tmp")) {
- system("groff -T ${driver} -t ${fileroot}.trf ${postproc} > ${fileroot}.${driver}");
- unlink("${fileroot}.qrf");
- }
+ unlink("${fileroot}.qrf");
unlink("${fileroot}.trf");
}
@@ -655,7 +651,7 @@
sub main {
# Check arguments
- if (!&NGetOpt('d=s', 'f=s', 'links', 'i:s@', 'hdr=s', 'ftr=s', 'e=s')) {
+ if (!GetOptions('d=s', 'f=s', 'links', 'i:s@', 'hdr=s', 'ftr=s', 'e=s')) {
&usage;
exit 1;
}
|
