Call notquite ACL for synprot-error limit. Bug 3092
[exim.git] / doc / doc-scripts / DoConts
1 #! /usr/bin/perl -w
2
3 $style = (@ARGV > 0)? $ARGV[0] : "a4ps";
4
5 open(IN, "z-rawindex")   || die "Can't open z-rawindex\n";
6 open(OUT, ">z-contents") || die "Can't open z-contents\n";
7
8 print OUT <<'EOF';
9 .if ~~sys.fancy
10 .linelength ~~sys.linelength + 0.2in
11 .pagedepth ~~sys.pagedepth - 0.2in
12 .linedepth 12.24
13 .fi
14 .include "markup.sg"
15 .set chapter -1
16 .set p 0
17 .format p roman
18 .tabset 2em 2em
19 .
20 .foot
21 .set p ~~sys.pagenumber
22 $c [~~p]
23 .endfoot
24 .
25 .chapter Contents
26 .disable filling
27 .justify left
28 EOF
29
30 while(<IN>)
31   {
32   if (/\$e/)
33     {
34     s/\$e\s*$//;                      # "see also" lines have no line number
35     s/--\s*\d+$//;                    # remove "extra" number for index page 
36
37     s/\n$//;                          # trailing newline
38     
39     if (!/^\$/)
40       {
41       print OUT ".blank\n";
42       print OUT ".if ~~sys.leftonpage < 2*~~sys.linedepth\n";
43       print OUT ".newpage\n";
44       print OUT ".fi\n";  
45       print OUT "\$shead\{$_\}\n"; 
46       print OUT ".blank\n";
47       }  
48     else
49       { 
50       print OUT "$_\n";
51       } 
52     }  
53   } 
54
55 close(IN);
56 close(OUT);
57
58 system("sgcal z-contents -to zc-gcode -style $style -index /dev/null");
59 if ($style eq "a4ps")
60   {
61   system("sgtops zc-gcode -to zc-ps");
62   print "PostScript in zc-ps\n";
63   }
64 else
65   {
66   system("mv -f zc-gcode zc-txt");
67   print "Text in zc-txt\n";       
68   }
69
70 # End