Remove obsolete $Cambridge$ CVS revision strings.
[users/heiko/exim.git] / doc / doc-scripts / g2t
1 #! /usr/bin/perl -w
2
3 # A Perl script to turn the SGCAL source of the Exim documentation into
4 # Texinfo input, more or less...
5
6 # Supply the source file names as arguments.
7 # The output goes to the standard output.
8
9
10 ##################################################
11 #         Ensure unique node name                #
12 ##################################################
13
14 # Node names must be unique. Occasionally in the Exim spec there are duplicate
15 # section names, and it's become too much of a hassle to keep them distinct
16 # manually. So it is now automated.
17
18 ########### Never really got this working. Abandoned ###############
19
20 sub unique {
21 my($node) = $_[0];
22 if (defined $node_names{$node})
23   {
24   $node_names{$node} += 1; 
25   $node = "$node ($node_names{$node})"; 
26   
27 print STDERR "+++ $node\n";
28  
29   }
30 else
31   {
32   $node_names{$node} = 0;
33   }
34 $node;
35 }  
36
37
38
39 ##################################################
40 #         De-comma a node name                   #
41 ##################################################
42
43 # Commas, colons, and apostrophes are not permitted in Texinfo
44 # node names. I find this incredible, but it is clearly documented.
45 # The Exim manual has been re-organized not to have colons or
46 # apostrophes in any chapter or section titles, but I can't manage
47 # without commas. This function turns "," into " and", which is
48 # the best that can be done; we can use some clever Perlery to
49 # just take out commas before "and".
50
51 # Sigh. The Sendmail option -p<rval>:<sval> now means that there's a colon
52 # in the node name for that option. Turn the colon into <colon>. This is also
53 # done for menus.
54
55 # Another thing that causes problems in node names in some versions of
56 # Texinfo is the use of @sc{xxx} for small caps. Just turn these all into
57 # real caps. This is also done for menus.
58
59 sub decomma {
60 $_[0] =~ s/,(?!\sand)/ and/g;
61 $_[0] =~ s/,//g;
62 $_[0] =~ s/\@sc\{([^}]*)\}/\U$1/g;
63 $_[0] =~ s/:/<colon>/g;
64 $_[0];
65 }
66
67
68
69 ##################################################
70 #           De-quote a string                    #
71 ##################################################
72
73 # @x is turned into x, except when x=@, or when asis is set,
74 # in which case single @ must turn into @@. A single substitute
75 # doesn't work in the non-asis case, because of the problems of
76 # handling things like @@@$, so we do it the hard way.
77
78 sub dequote {
79 if ($asis) { $_[0] =~ s/@/@@/g; } else
80   {
81   $_[0] =~ s/@@/&at&/g;
82   $_[0] =~ s/@([^@])/$1/g;
83   $_[0] =~ s/&at&/@@/g;
84   }
85 $_[0];
86 }
87
88
89 ##################################################
90 #           Get next line                        #
91 ##################################################
92
93 # Called from handle_directive, to get the next source line
94 # into $_.
95
96 sub get_next_line {
97 if ($processing_subsection)
98   { return $_ = shift @SUBBUFFER; }
99 else
100   { return $_ = <>; }
101 }
102
103
104
105 ##################################################
106 #           Handle text lines                    #
107 ##################################################
108
109 # This function is handed whole paragraphs, and we assume that
110 # SGCAL font changing markup is always complete within a paragraph.
111 # We have to replace escaped versions of significant characters with
112 # some magic before performing general transformations, and then
113 # put them back afterwards. The character & is not common in the text,
114 # and && is unknown, so we use that.
115
116 sub handle_text {
117 $_ = $_[0];
118
119 if ($asis)
120   {
121   $_ = dequote($_);
122   s/(\{|\})/\@$1/g;
123   return $_;
124   }
125
126 while (/~~/)
127   {
128   $left = $`;
129   ($name) = $' =~ /^(\w+)/;
130   $right = $';
131
132   $value = $references{$name};
133   $value = "" if !defined($value);
134
135   if ($value =~ /\*\*\*\*/)
136     {
137     $value = ($` eq $current_chapter)? "\"$'\"" :
138       "\"$'\" in chapter \"$`\"";
139     $value = "" if $value eq "\"\"";
140     }
141   elsif ($value !~ /^[0-9]+\.[0-9]+$/)   # quote unless version number
142     {                                                
143     $value = "\"$value\"";                          
144     }
145
146   $_ = "${left}${value}${right}";
147   }
148
149 s/\@\@/&&a/g;         # @@
150 s/\@\\/&&b/g;         # @\
151 s/\@</&&l/g;          # @<
152 s/\@>/&&g/g;          # @>
153 s/\@\{/&&c/g;         # @{
154 s/\@\}/&&d/g;         # @}
155 s/\@#/&&s/g;          # @#
156
157 # Now remove all other @'s
158
159 $_ = dequote($_);
160
161 # Convert SGCAL markup
162
163 s/#/ /g;                            # turn #   into a space
164 s/\$~//g;                           # turn $~  into nothing
165 s/__/_/g;                           # turn __  into _
166 s/\$sm\{//g;                        # turn $sm{     into nothing
167 s/\$sc\{([^\}]*?)\}/$1/g;           # turn $sc{xxx} into xxx
168 s/\$st\{([^\}]*?)\}/$1/g;           # turn $st{xxx} into xxx
169 s/\$si\{([^\}]*?)\}/$1/g;           # turn $si{xxx} into xxx
170 s/\$tt\{([^\}]*?)\}/$1/g;           # turn $tt{xxx} into xxx
171
172 s/\$it\{([^\}]*?)\}/$1/g;           # turn $it{xxx} into xxx
173
174 s/\$bf\{([^\}]*?)\}/$1/g;           # turn $bf{xxx} into xxx
175 s/\$rm\{([^\}]*?)\}/$1/g;           # turn $rm{xxx} into xxx
176 s/\$cb\{([^\}]*?)\}/$1/g;           # turn $cb{xxx} into xxx
177
178 # This is a fudge for some specific usages of $<; can't just do a global
179 # is it occurs in things like $<variable name> as well.
180
181 s/\[\$<\]/[]/g;                     # turn [$<]     into []
182 s/&&b\$<\./&&b./g;                  # turn \$<.     into \.  (\ == &&b by now)
183 s/(\d)\$<-/$1-/g;                   # turn 0$<-     into 0-
184
185 # There is one case where the terminating } of an escape sequence is
186 # in another paragraph - this follows $sm{ - it can be fixed by
187 # removing any stray } in a paragraph that contains no { chars.
188
189 s/\}//g if !/\{/;
190
191 # Any remaining {} must be escaped to prevent Texinfo from complaining
192
193 s/(\{|\})/\@$1/g;
194
195 # Now to conversions that put {} into the file.
196 # Change <<..>> from @var to just <...> as the caps that Texinfo
197 # uses look far too shouty.
198
199 s/\\\\([^\\]*?)\\\\/\@sc\{\L$1\}/g; # turn \\xxx\\  into @sc{xxx}
200 s/\\\(([^)]*?)\)\\/\@file\{$1\}/g;  # turn \(xxx)\  into @file{xxx}
201 s/\\\"([^\"]*?)\"\\/\@file\{$1\}/g; # turn \"xxx"\  into @file{xxx}
202
203 s/\\\?([^?]*?)\?\\/$1/g;            # turn \?URL?\    into URL
204 s/<<([^>]*?)>>/<$1>/g;              # turn <<xxx>>    into <xxx>
205 s/\\\$([^\$]*?)\$\\/\$$1/g;         # turn \$xxx$\    into $xxx
206 s/\\\-([^-]*?)\-\\/\-$1/g;          # turn \-xxx-\    into -xxx
207 s/\\\*\*([^*]*?)\*\*\\/$1/g;        # turn \**xxx**\  into xxx
208 s/\[\(([\w\/]*)\)\]//g;             # remove inline HTML
209
210 s/\\\*([^*]*?)\*\\/\@dfn\{$1\}/g;     # turn \*xxx*\    into @dfn{xxx}
211 s/\\%([^*]*?)%\\/\@dfn\{$1\}/g;       # turn \%xxx%\    into @dfn{xxx}
212 s/:::([^:]*?)::/\@dfn\{:$1:\}/g;      # turn :::xxx::   into @dfn{:xxx:}
213 s/::([^:]*?)::/\@dfn\{$1:\}/g;        # turn ::xxx::    into @dfn{xxx:}
214 s/\\([^\\]*?)\\/\@dfn\{$1\}/g;        # turn \xxx\      into @dfn{xxx}
215 s/\$\*\$/\*/g;                        # turn $*$        into *
216
217 # Put back escaped SGCAL specials
218
219 s/&&a/\@\@/g;
220 s/&&b/\\/g;
221 s/&&l/</g;
222 s/&&g/>/g;
223 s/&&c/\@{/g;
224 s/&&rc/{/g;
225 s/&&rd/}/g;
226 s/&&d/\@}/g;
227 s/&&s/#/g;
228
229 # Remove any null flags ($$)
230
231 s/\$\$//g;
232
233 # If the paragraph starts with $c\b, change this into @center. Assume
234 # we don't ever get two of these in a row.
235
236 s/^\$c\b/\@center /;
237
238 # If the paragraph starts with $e\b, stuff some tabs in there, as
239 # Texinfo can't do this on its own (as far as I can see). They must
240 # tabs; Texinfo treats them as different to spaces. Sigh.
241
242 s/^\$e\b/\t\t\t\t\t\t\t/;
243
244 # Handle $t. The Exim spec only ever has one tab per line. Er, not
245 # quite true, but a good enough assumption. $t is always followed
246 # by a non-word character.
247
248 # The .tabs directive has stashed the value in the $tab variable.
249 # Don't count Texinfo font chars.
250
251 while (/(^|.+?\n)(.+?)\$t(\W.*\n)/)
252   {
253   $before = $` . $1;
254   $after = $';
255   $left = $2;
256   $right = $3;
257
258   $left =~ s/\s$//;
259   $right =~ s/^\s+//;
260
261   $plainleft = $left;
262   $plainleft =~ s/\@[a-z]+\{([^}]+?)\}/$1/g;
263   $plainleft =~ s/\@//g;
264
265   $_ = $before . $left . (" " x ($tab - length($plainleft))) . $right . $after;
266
267   # Fudge for the one case where there are two tabs
268
269   if ($tab2 != 0)
270     {
271     $temp = $tab;
272     $tab = $tab2;
273     $tab2 = $temp;
274     }
275   }
276
277 # Return the new line (paragraph)
278
279 $_;
280 }
281
282
283
284 ##################################################
285 #           Handle directive lines               #
286 ##################################################
287
288 # Use get_next_line() instead of <> because this is called to process
289 # stacked up subsection lines
290
291 sub handle_directive {
292
293 my($new_lastwasitem) = 0;
294
295 # Chapter directives just require . => @; however, dequoting the
296 # line thereafter will remove the first @, so just force it back
297 # afterwards. If the chapter is is one describing a driver, set
298 # the driver name.
299
300 if (/\.chapter/)
301   {
302   tr/./@/;
303   push(@ONESECTION, "@" . &dequote("$_\n"));
304   $driver_name = (/The\s+(\S+)\s+(director|router|transport|authenticator)/)? $1 :
305     (/Generic options common to both directors and routers/)?
306       "director or router" :
307     (/[Gg]eneric\s+options for (\S+)s/)? $1 : "";
308   $driver_name = &dequote($driver_name);
309   }
310
311 # Section directives just require . => @; however, dequoting the
312 # line thereafter will remove the first @, so just force it back
313 # afterwards. Remove any colons in section titles as they cause
314 # Texinfo trouble. Also remove any \\ (small caps) markup, which
315 # appears in a couple of cases.
316
317 elsif (/\.section/)
318   {
319   tr/./@/;
320   s/://;
321   s"\\\\""g;
322   push(@ONESECTION, "@" . &dequote("$_\n"));
323
324   # Horrible magic fudge to cope with the fact that exim_lock has
325   # -v and -q options, just like the main program.
326
327   $driver_name = "exim_lock" if /Mailbox maintenance/;
328   
329   # Similar magic for exiqgrep, which also duplicates options
330   
331   $driver_name = "exiqgrep" if /Selective queue listing/;  
332   }
333
334 # .newline must put @* on the end of the previous line, if any, except
335 # inside a display, where it causes trouble.
336
337 elsif (/\.newline/)
338   {
339   if (@ONESECTION > 0 && ! $indisplay)
340     {
341     $_ = pop(@ONESECTION);
342     s/(\n*)$/\@*$1/;
343     push(@ONESECTION, $_);
344     }
345   }
346
347 # .blank turns into @sp, adding 1 if no argument
348
349 elsif (/\.blank/)
350   {
351   s/\.blank\s+(\d+)/\@sp $1/;
352   s/\.blank/\@sp 1/;
353   push(@ONESECTION, $_);
354   }
355
356 # .rule turns into a line of hyphens
357
358 elsif (/\.rule/)
359   {
360   push(@ONESECTION, ("-" x ($in_itemize? 68 : 73)) . "\@*\n");
361   }
362
363 # There's one explicit .tabset setting for two tab stops
364
365 elsif (/\.tabset\s*/)
366   {
367   $rest = $';
368   ($first,$second) = $rest =~ /(\d+)em\s+(\d+)em/;
369   $tab = ($first * 7)/6;
370   $tab2 = $tab + ($second * 7)/6;
371   }
372
373 # .tabs remembers the first (and only) tab setting
374
375 elsif (/\.tabs\s*/)
376   {
377   $tab = ($' * 7)/6;
378   $tab2 = 0;
379   }
380
381 # .tempindent is used only to align some of the expansion stuff nicely;
382 # just ignore it. It is used in conjunction with .push/.pop.
383
384 elsif (/\.(tempindent|push|pop)\s*/)
385   {
386   }
387
388 # There are some instances of .if ~~sys.fancy in the source. Some of these
389 # are two-part things, in which case we just keep the non-fancy. For diagrams,
390 # however, they are in three parts:
391 #
392 # .if ~~sys.fancy
393 # <aspic drawing stuff>
394 # .elif ~~nothtml
395 # <ascii art for txt and Texinfo>
396 # .else
397 # <HTML instructions for including a gif>
398 # .fi
399
400 elsif (/\.if \~\~sys\.fancy/)
401   {
402   while (&get_next_line())
403     { last if /\.else\b/ || /\.elif\s+\~\~nothtml/ || /\.fi\b/; }
404
405   if (/\.elif/)
406     {
407     $skip_else = 1;
408     }
409   }
410
411 # There are occasional requirements to do things differently for
412 # Texinfo/HTML and the PS/txt versions, and there are also some
413 # HTML-specific things.
414
415 elsif (/\.if\s+~~sgcal/ || /\.if\s+~~html/)
416   {
417   while (&get_next_line()) { last if /\.else\b/ || /\.fi\b/; }
418   }
419
420 # We may also have Texinfo-specific bits
421
422 elsif (/^\.if\s+~~texinfo/)
423   {
424   $skip_else = 1;
425   }
426
427 # Ignore any other .if directives
428
429 elsif (/\.if/) {}
430
431 # Skip else part if flag set
432
433 elsif (/\.else/ && $skip_else)
434   {
435   while (&get_next_line()) { last if /\.fi\b/; }
436   $skip_else = 0;
437   }
438
439 # Ignore other .fi and .else as any .if directives are handled specially
440
441 elsif (/\.fi/ || /\.else/) {}
442
443 # Ignore .indent
444
445 elsif (/\.indent/) {}
446
447 # Plain .index goes to @cindex - the "concept" index. Also, there
448 # are some calls to vindex and findex in the SGCAL source - treated
449 # as synonymous with .index - which are split into the equivalent
450 # indexes here.
451
452 elsif (/\.(.?)index/)
453   {
454   $rest = $';
455   $letter = ($1 eq "")? "c" : $1;
456   tr/./@/;                           # .index -> @index
457   
458   $rest =~ s/\\\(//g;                # Remove markup
459   $rest =~ s/\)\\//g; 
460   $rest =~ s/\\%//g;
461   $rest =~ s/%\\//g;
462   $rest =~ s/\\\*//g;
463   $rest =~ s/\*\\//g;    
464   $rest =~ s/\\"//g;
465   $rest =~ s/"\\//g;
466   $rest =~ s/:://g;
467   $rest =~ s/\\-/-/g;
468   $rest =~ s/-\\//g;
469   $rest =~ s/~~//g;     
470  
471   $rest =~ tr/\\//d;                 # Remove \
472    
473   $rest =~ s/\@\$/\$/g;              # @$  -> $
474   $rest =~ s/\@_/_/g;                # @_  -> _
475   $rest =~ s/\@\+/+/g;               # @+  -> +
476   $rest =~ s/\$\*\$/\*/g;            # $*$ -> *
477   $rest =~ s/\$([^\$]+)\$/\$$1/g;    # $x$ -> $x
478    
479   $rest =~ s/^\s+//;                 # Remove leading spaces
480   $rest =~ s/\s+$//;                 # Remove trailing spaces
481   $rest =~ s/\|\|/:/;                # || -> : 
482   push(@ONESECTION, "\@${letter}index $rest\n");
483
484   # Duplicate entries for things that were listed as "x see y"
485
486   if (defined $indirections{$rest})
487     {
488     push(@ONESECTION, "\@${letter}index $indirections{$rest}\n");
489     }
490   }
491
492 # Various flavours of numberpars map to itemize and enumerate.
493 # Haven't found a way of having a blank space 'bullet' yet, so
494 # currently using minus.
495
496 elsif (/\.numberpars/)
497   {
498   $rest = $';
499   $type = "enumerate";
500   $flag = "";
501
502   if    ($rest =~ /\$\./)  { $flag = " \@bullet"; $type = "itemize" }
503   elsif ($rest =~ /\" \"/) { $flag = " \@minus";  $type = "itemize"; }
504   elsif ($rest =~ /roman/) { $flag = " a"; $type = "enumerate"; }
505
506   push(@ONESECTION, "\n\@$type$flag\n\n\@item\n");
507   push(@ENDLIST, $type);
508   $in_itemize++;
509   }
510
511 elsif (/\.nextp/)
512   {
513   push(@ONESECTION, "\n\@item\n");
514   }
515
516 elsif (/\.endp/)
517   {
518   $endname = pop(@ENDLIST);
519   push(@ONESECTION, "\@end $endname\n\n");
520   $in_itemize--;
521   }
522
523 # The normal .display (typewriter font) => @example, while the rm
524 # form goes to @display (no change of font). For Texinfo we need a
525 # blank line after @display.
526
527 elsif (/\.display/)
528   {
529   $type = /rm/? "display" : "example";
530   $asis = 1 if /asis/;
531   $indisplay = 1;
532   push(@ONESECTION, "\@$type\n\n");
533   push(@ENDLIST, $type);
534   }
535
536 elsif (/\.endd/)
537   {
538   $asis = 0;
539   $indisplay = 0;
540   $endname = pop(@ENDLIST);
541   push(@ONESECTION, "\@end $endname\n\n");
542   }
543
544 elsif (/\.conf/)
545   {
546   ($option, $type, $default) =
547     /\.conf\s+(\S+)\s+("(?:[^"]|"")+"|\S+)\s+("(?:[^"]|"")+"|.*)/;
548
549   $option = &dequote($option);
550
551   # If $type ends with $**$ (turned into a dagger for PS version),
552   # replace with ", expanded". Remove any surrounding quotes.
553
554   $type =~ s/^"([^"]+)"/$1/;
555   $type =~ s/\$\*\*\$/, expanded/;
556
557   # Default may be quoted, and it may also have quotes that are required,
558   # if it is a string.
559
560   $default =~ s/^"(.*)"$/$1/;
561   $default =~ s/""/"/g;
562   $default = &handle_text($default);
563
564   push(@ONESECTION, "\nType: $type\@*\nDefault: $default\n\n");
565   }
566
567 # Handle .startitems, .enditems, and .item
568
569 elsif (/\.startitem/ || /\.enditem/) {}
570
571 elsif (/\.item/)
572   {
573   $arg = $';
574   $arg =~ s/^\s*"//;
575   $arg =~ s/"\s*$//;
576   $arg = &dequote($arg);
577   $arg = &handle_text("\\**$arg**\\");
578
579   # If there are two .items in a row, we don't want to put in the
580   # separator line.
581
582 #  push(@ONESECTION, "\n\@example\n");
583   push(@ONESECTION, "\n");
584   if (! $lastwasitem)
585     {
586     push(@ONESECTION, "_" x 75, "\n\n");
587     }
588 #  push(@ONESECTION, "$arg\n\@end example\n\n");
589   push(@ONESECTION, "$arg\n\n");
590   $new_lastwasitem = 1;
591   }
592
593 elsif (/\.option/)
594   {
595   chomp($arg = $');
596   $arg =~ s/^\s*//;
597   $arg = &dequote("-$arg");
598   $arg = &handle_text($arg);
599   }
600
601 # Texinfo has no facility for emphasis bars.
602
603 elsif (/\.em/) {}
604 elsif (/\.nem/) {}
605
606 # Just ignore any .(r)set directives pro tem (or maybe always!)
607
608 elsif (/\.r?set/) {}
609
610 # Ignore .space, .linelength, and .justify
611
612 elsif (/\.space/ || /\.justify/ || /\.linelength/) {}
613
614 # Found an SGCAL directive that isn't dealt with. Oh dear.
615 # Turn the embarrassing characters into question marks and
616 # output it in an emphasized way.
617
618 else
619   {
620   tr/@{}/???/;
621   push(@ONESECTION, "\n\>>>>>>> $_\n") if ! /^\.( |$)/;
622   }
623
624 $lastwasitem = $new_lastwasitem;
625 }
626
627
628
629 ##################################################
630 #             Flush a section                    #
631 ##################################################
632
633 # $section_name is the name of the next section.
634 # $current_section is the name of the one we have buffered up.
635 # If it is unset, we are at the first section of a chapter.
636 # $previous_node is the section we last flushed if it was a node.
637
638 sub flush_section {
639
640 # If there is no text in the section, omit it entirely. However, it
641 # will have had a pointer set up at the start of the previous section.
642 # Remember what to replace this with when the chapter gets flushed.
643
644 my($skip) = 1;
645 foreach $s (@ONESECTION)
646   {
647   if ($s !~ /^(\@cindex|\@section|\s*$)/) { $skip = 0; last }
648   }
649
650 if ($skip)
651   {
652   pop @section_list;
653   $rewrite{$current_section} = $section_name;
654   @ONESECTION = ();
655   return;
656   }
657
658 # There is data in the section: write it out to the chapter file
659
660 if ($current_section)
661   {
662   printf ONECHAPTER ("\@node %s, %s, %s, %s\n",
663     &decomma($current_section), &decomma($section_name),
664     &decomma($previous_node), &decomma($current_up));
665   $previous_node = $current_section;
666   while(scalar(@ONESECTION))
667     { print ONECHAPTER shift(@ONESECTION); }
668   }
669 else
670   {
671   while(scalar(@ONESECTION))
672     { push(@TOPSECTION, shift(@ONESECTION)); }
673   }
674 }
675
676
677
678 ##################################################
679 #          Handle a "subsection"                 #
680 ##################################################
681
682 # A "subsection" is a set of options that must have their own
683 # local menu. Do two passes; the first just collects the names
684 # for the menu. This is called for .conf and .option items.
685
686 sub handle_subsection{
687 my($type) = $_[0];
688 my($save_up) = $current_up;
689
690 $current_up = $current_section? $current_section : $current_chapter;
691
692 @sublist = ();
693 @SUBBUFFER = ();
694
695 while (<>)
696   {
697   last if /^\.end$type/;
698   push(@SUBBUFFER, $_);
699
700   # .conf takes the first non-space string as the name, but as there are
701   # duplicate confs in various parts of the spec, use the driver name to
702   # de-duplicate; .option takes the entire rest of arg as the name, but
703   # removes any sequence of ... because this disturbs TexInfo. Also, it
704   # turns @- into -.
705
706   if (/^\.$type\s+(\S+)(.*)/)
707     {
708     if ($type eq "conf")
709       {
710       $name = &handle_text($1);
711       $name .= " ($driver_name)" if ($driver_name ne "");
712       }
713     else
714       {
715       chomp($name = &handle_text("-$1$2"));
716       $name =~ s/\s*\.\.\.//g;
717
718       $name .= " ($driver_name)" if ($driver_name ne "");
719
720       # There seems to be a major problem in texinfo with the string "--".
721       # In the text it gets turned into a single hyphen. This happens if it
722       # is used as a menu item, but *not* as a node name. Exim has a command
723       # line option "--". With no special action, this appears in the menu
724       # as "-", but then the info software complains there is no node called
725       # "-". If we triple it in the menu it gets displayed OK, but building
726       # software complains about non-existent cross references etc.
727
728       # I have gone for the horrid kludge of turning it into "-<hyhen>"
729       # in the menus and nodes.
730
731       # Exim 4 has added --help, which has the same problem.
732
733       $name = "-<hyphen>" if ($name eq "--");
734       $name = "-<hyphen>help" if ($name eq "--help");
735       }
736     push(@sublist, $name);
737     }
738   }
739
740 push (@ONESECTION, "\n\@sp 2\n\@menu\n");
741 for ($i = 0; $i < scalar(@sublist); $i++)
742   {
743   $mitem = $sublist[$i];
744   $mitem =~ s/\@sc\{([^}]*)\}/\U$1/g;       # Get rid of small caps
745   $mitem =~ s/:/<colon>/g;                  # Get rid of colons
746   push (@ONESECTION, "* ${mitem}::\n");
747   }
748 push (@ONESECTION, "\@end menu\n\n");
749
750 $prevsub = $current_up;
751 $processing_subsection = 1;
752 while ($_ = shift(@SUBBUFFER))
753   {
754   if (/^\.$type\s+(\S+)/)
755     {
756     $name = shift @sublist;
757     $next = (scalar(@sublist))? $sublist[0] : "";
758     push @ONESECTION, sprintf("\@node %s, %s, %s, %s\n",
759       &decomma($name), &decomma($next), &decomma($prevsub),
760       &decomma($current_up));
761
762     if ($name eq "-<hyphen>")    # Fudge for Texinfo
763       {
764       push(@ONESECTION,
765            "\@findex $name\n",
766            "\@unnumberedsubsec --- option\n");
767       push(@ONESECTION,
768            "This option consists of two consecutive hyphens. It appears in\n",
769            "the menu as \"-<hyphen>\" because otherwise Texinfo gets\n",
770            "confused with its cross-referencing.\n");
771       }
772     elsif ($name eq "-<hyphen>help")    # Fudge for Texinfo
773       {
774       push(@ONESECTION,
775            "\@findex $name\n",
776            "\@unnumberedsubsec ---help option\n");
777       push(@ONESECTION,
778            "This option consists of \"help\" preceded by two consecutive\n" .
779            "hyphens. It appears in the menu as \"-<hyphen>help\" because\n" .
780            "otherwise Texinfo gets confused with its cross-referencing.\n");
781       }
782     else
783       {
784       push(@ONESECTION,
785            "\@findex $name\n",
786            "\@unnumberedsubsec $name option\n");
787       }
788
789     $prevsub = $name;
790     }
791
792   # Then handle as text or directive
793
794   if (substr($_, 0, 1) eq ".")
795     { handle_directive(); }
796   else
797     {
798     while($nextline = shift(@SUBBUFFER))
799       {
800       last if $nextline =~ /^(\.|\s*$)/;
801       $_ .= $nextline;
802       }
803     push(@ONESECTION, handle_text($_));
804     $_ = $nextline;
805     last if !defined($_);
806     redo;
807     }
808   }
809
810 $processing_subsection = 0;
811 $section_pending = 1;
812 $current_up = $save_up;
813 }
814
815
816
817
818 ##################################################
819 #            Handle a single chapter             #
820 ##################################################
821
822 sub handle_chapter{
823 chop;
824 ($current_chapter) = /^\.chapter (.*)/;
825 $current_chapter = &dequote($current_chapter);
826
827 $current_chapter = $current_chapter;
828
829 my($tmp) = $current_chapter;
830 $tmp =~ s/\[\[\[\]\]\]/./;
831 print STDERR "processing chapter: $tmp\n";
832
833 # Remember the chapter name for the top-level menu
834
835 push(@chapter_list, $current_chapter);
836
837 # Open a temporary file to hold the chapter's text while collecting
838 # all its sections for a chapter-level menu.
839
840 $ONECHAPTER = "/tmp/ONECHAPTER.$$";
841 open(ONECHAPTER, ">$ONECHAPTER") || die "Can't open $ONECHAPTER for writing";
842
843 # Initialize for handling sections
844
845 @section_list = ();
846 %rewrite = ();
847 @ONESECTION = ();
848 @TOPSECTION = ();
849 undef $current_section;
850 undef $next_node;
851
852 $processing_subsection = 0;
853
854 $previous_node = $current_up = $current_chapter;
855 $section_pending = 0;
856
857 # Handle the .chapter directive as the first text of a section without
858 # a section title.
859
860 handle_directive();
861
862 # Loop, handling each section. Assume they are sufficiently short that
863 # we can buffer the text in store, in an array called ONESECTION, instead
864 # of thrashing yet another file.
865
866 while (<>)
867   {
868   last if /^\.chapter /;
869
870   # Handle a new section, preserving $_ (handle_text flattens it).
871   # It seems we cannot get a fullstop into a Texinfo node name; use a magic
872   # character string that gets turned back into a dot by the post-processing.
873
874   if (/^\.section\s+/)
875     {
876     $save = $_;
877     $section_name = $';
878     $section_name =~ s/(\s|\n)+$//;
879     $section_name =~ s/://;
880     $section_name = &handle_text($section_name);
881     flush_section();
882     push(@section_list, $section_name);
883     $current_section = $section_name;
884     $next_node = $section_name if !$next_node;
885     $section_pending = 0;
886     $_ = $save;
887     }
888
889   # The .startconf macro introduces a set of .conf's which must have
890   # their own local set of menus. Suspend processing the section while
891   # we sort out the menu and copy their data. This is all done in a
892   # subroutine that is shared with options.
893
894   elsif (/^\.startconf\s+(.*)/)
895     {
896     $confuse = $1; 
897     $confuse = &dequote($confuse); 
898     handle_subsection("conf");
899     next;
900     }
901
902   elsif (/^\.startoption/)
903     {
904     handle_subsection("option");
905     next;
906     }
907
908   # Deal with the actual data lines; if there's a section pending
909   # start a new section on hitting some text. We hope this happens
910   # only once per chapter...
911
912   if (substr($_, 0, 1) eq ".")
913     {
914     handle_directive();
915     }
916   else
917     {
918     while($nextline = <>)
919       {
920       last if $nextline =~ /^(\.|\s*$)/;
921       $_ .= $nextline;
922       }
923     if ($section_pending && !/^\s*$/)
924       {
925       $section_name = (defined $current_section)?
926         "$current_section (continued)" :
927         "$current_chapter (continued)" ;
928       flush_section();
929       push(@section_list, $section_name);
930       $current_section = $section_name;
931       $next_node = $section_name if !$next_node;
932       $section_pending = 0;
933       }
934
935     push(@ONESECTION, handle_text($_));
936     $_ = $nextline;
937     last if !defined($_);
938     redo;
939     }
940   }
941
942 # Flush any pending text, making its next field null.
943 # and fudging section_name for the final section of the previous.
944
945 $section_name = "";
946 flush_section();
947
948 # Set up section name as the start of the next chapter
949
950 $section_name = "Concept Index" if (!$doing_filter);
951
952 if (defined $_ && /^\.chapter (.*)/)
953   {
954   $section_name = $1;
955   $section_name = &dequote($section_name);
956   }
957 $next_node = $section_name;
958
959 # Write out the chapter to the CHAPTERS file, sticking the chapter
960 # menu after the text that came before the first section heading. This
961 # will always at least contain the chapter title.
962
963 printf CHAPTERS ("\@node %s, %s, %s, Top\n",
964   &decomma($current_chapter), &decomma($next_node),
965   &decomma($previous_chapter));
966
967 # The pre-section stuff; if we hit an @end menu line, it is the menu of
968 # a "subsection" before the first section. In that case, we need to put
969 # the chapter's menu one the end of it, and then resume with the rest of
970 # the TOPSECTION data afterwards. We also need to thread together this
971 # "subsection"s nodes because they are all at the same level under the
972 # chapter.
973
974 $in_menu = 0;
975 while(scalar(@TOPSECTION))
976   {
977   $s = shift(@TOPSECTION);
978   if ($s =~ /^\@end menu/)
979     {
980     $in_menu = 1;
981     last;
982     }
983   print CHAPTERS $s;
984   }
985
986 # Menu for sections
987
988 undef $next_actual_section;
989 undef $point_back;
990
991 if (scalar(@section_list))
992   {
993   print CHAPTERS "\n\@sp 2\n\@menu\n" if ! $in_menu;
994   $next_actual_section = $section_list[0];
995   for ($i = 0; $i < scalar(@section_list); $i++)
996     {
997     $section_name = $section_list[$i];
998     $section_name =~ s/\@sc\{([^}]*)\}/\U$1/g;
999     print CHAPTERS "* ${section_name}::\n";
1000     }
1001   $in_menu = 1;
1002   }
1003 print CHAPTERS "\@end menu\n\n" if $in_menu;
1004
1005 # Remainder of topsection; we must arrange that the final @node in
1006 # it (which will have a blank "next" field) actually points on to
1007 # the next section, if any. If this happens, then the next section
1008 # must point back to the final @node.
1009
1010 while(scalar(@TOPSECTION))
1011   {
1012   $s = shift(@TOPSECTION);
1013   if ($next_actual_section && $s =~
1014          /^\@node\s+([^,]+),\s*,\s*([^,]*),\s*(.*)/)
1015     {
1016     my($t1, $t2, $t3) = ($1, $2, $3);    # So can be decomma'd
1017     printf CHAPTERS ("\@node %s, %s, %s, %s\n", &decomma($t1),
1018       &decomma($next_actual_section), &decomma($t2), &decomma($t3));
1019     $point_back = $1;
1020     }
1021   else { print CHAPTERS $s; }
1022   }
1023
1024 close(ONECHAPTER);
1025 open(ONECHAPTER, "$ONECHAPTER") || die "Can't open $ONECHAPTER for reading";
1026
1027 # While copying the chapter data, check for node references to empty
1028 # sections that got omitted and correct them, and correct the prev pointer
1029 # in the first node if necessary.
1030
1031 while ($buff = <ONECHAPTER>)
1032   {
1033   foreach $key (keys %rewrite)
1034     {
1035     $buff =~ s/$key/$rewrite{$key}/;
1036     }
1037   if ($point_back && $buff =~ /^\@node\s+([^,]+),\s*([^,]*),\s*([^,]*),\s*(.*)/)
1038     {
1039     my($t1, $t2, $t4) = ($1, $2, $4);   # so can be decomma'd
1040     printf CHAPTERS ("\@node %s, %s, %s, %s\n", &decomma($t1),
1041       &decomma($t2), &decomma($point_back), &decomma($t4));
1042     undef $point_back;
1043     }
1044   else { print CHAPTERS $buff; }
1045   }
1046
1047 $previous_chapter = $current_chapter;
1048
1049 close(ONECHAPTER);
1050 unlink($ONECHAPTER);
1051 }
1052
1053
1054
1055 ##################################################
1056 #                Main Program                    #
1057 ##################################################
1058
1059 # This is a two-pass algorithm. The first pass goes through and gets the
1060 # variable names for cross references. The second pass does the real work,
1061 # but we can't just read through doing the translation in one pass. We need
1062 # to know the list of chapters in order to build a top-level menu, and for
1063 # each chapter we need to know the sections in order to build a section
1064 # menu. Consequently, make use of temporary files to buffer things.
1065
1066 # This script is used for the filter document and the overview as well;
1067 # flags tell it if it is doing one of them.
1068
1069 $doing_filter = 0;
1070 $skip_else = 0;
1071 $in_itemize = 0;
1072 $lastwasitem = 0;
1073 $confuse = "";
1074
1075 $chapter_number = 0;
1076 $section_number = 0;
1077
1078 if ($#ARGV >= 0 && $ARGV[0] eq "-filter")
1079   {
1080   $doing_filter = 1;
1081   shift @ARGV;
1082   }
1083
1084 # First pass: Just fish out variable settings. Save the arguments so that
1085 # they can be reinstated for a second pass.
1086
1087 print STDERR "Scanning for references\n";
1088 @save_argv = @ARGV;
1089
1090 # Pick up any .set directives right at the very start
1091
1092 while (<>)
1093   {
1094   last if ! /^\.set\s+(\S+)\s+(.+)$/;
1095   $name = $1;
1096   $value = $2;
1097   $value =~ s/^\"?(.*?)\"?\s*$/$1/;
1098   $references{$name} = $value;
1099   }
1100
1101 # Now skip everything before the first .chapter except for
1102 # .index lines that set up indirections. Save these so that
1103 # the relevant index entries can be duplicated.
1104
1105 while (<>)
1106   {
1107   if (/^\.chapter\s+(.+)$/)
1108     {
1109     $chapter_number++;
1110     $section_number = 0;
1111     $current_chapter = $1;
1112     $current_chapter = $current_chapter;
1113     $current_section = "";
1114     last;
1115     }
1116
1117   if (/^\.index\s+([^\$]+)\s+\$it\{see\s+([^}]+)\}\s*$/)
1118     {
1119     $indirections{"$2"} = $1;
1120     }
1121   }
1122
1123 # Do the business
1124
1125 while (<>)
1126   {
1127   if (/^\.chapter\s+(.+)$/)
1128     {
1129     $current_chapter = $1;
1130     $current_chapter = &dequote($current_chapter);
1131     $current_section = "";
1132     }
1133   elsif (/^\.section\s+(.+)$/)
1134     {
1135     $current_section = $1;
1136     $current_section = &dequote($current_section);
1137     $current_section =~ s/://;
1138     }
1139   elsif (/^\.r?set\s+(\S+)\s+(.+)$/ && $1 ne "runningfoot")
1140     {
1141     $name = $1;
1142     $value = $2;
1143
1144     # Only set the first time. This handles a few special cases in part2
1145     # which is included in the filter text as well.
1146
1147     if (!exists($references{$name}))
1148       {
1149       $value =~ s/^\"?(.*?)\"?\s*$/$1/;
1150       $value =~ s/~~chapter\./~~chapter****/;
1151       $value =~ s/~~chapter/$current_chapter/;
1152       $value =~ s/~~section/$current_section/;
1153       $references{$name} = $value;
1154       }
1155     }
1156   }
1157
1158 $final_chapter = defined($current_chapter)? $current_chapter : "";
1159
1160 # Reinstate ARGV with the list of files and proceed to the main pass
1161
1162 @ARGV = @save_argv;
1163
1164 # $asis is set true when processing .display asis blocks, to stop
1165 # characters getting interpreted.
1166
1167 $asis = 0;
1168
1169 # $indisplay is set true while processing .display blocks, to stop
1170 # .newlines being handled therein (adding @* wrecks alignment)
1171
1172 $indisplay = 0;
1173
1174 # $tab is set to the value of the tab stop - only one stop is ever used
1175 # in the Exim source.
1176
1177 $tab = 0;
1178
1179 # Current driver name, for disambiguating nodes
1180
1181 $driver_name = "";
1182
1183 # $section_pending is set if a new section is to be started on hitting
1184 # any data lines.
1185
1186 $section_pending = 0;
1187
1188 # Open a file to buffer up the entire set of chapters
1189
1190 $CHAPTERS = "/tmp/CHAPTERS.$$";
1191 open(CHAPTERS, ">$CHAPTERS") || die "Can't open $CHAPTERS for writing";
1192
1193 # Skip everything before the first .chapter
1194
1195 while (<>) { last if /^\.chapter /; }
1196
1197 # Loop, handling each chapter
1198
1199 $current_up = "";
1200 $previous_chapter = "Top";
1201 $previous_node = "Top";
1202
1203 $chapter_number = 0;
1204 $section_number = 0;
1205
1206 while (defined ($_) && /^\.chapter /)
1207   {
1208   handle_chapter();
1209   }
1210
1211 # Output the stuff at the start of the file
1212
1213 print "\\input texinfo\n";
1214
1215 print "\@set{wmYear} 2003\n";
1216 print "\@set{wmAuthor} Philip Hazel\n";
1217 print "\@set{wmAuthor_email} <ph10\@\@cus.cam.ac.uk>\n";
1218 print "\@set{COPYRIGHT1} Copyright \@copyright{} \@value{wmYear} University of Cambridge\n";
1219
1220 print "\@c %**start of header\n";
1221
1222 if (!$doing_filter)
1223   {
1224   print "\@setfilename spec.info\n";
1225   print "\@settitle Exim Specification\n";
1226   }
1227 else
1228   {
1229   print "\@setfilename filter.info\n";
1230   print "\@settitle Exim Filter Specification\n";
1231   }
1232
1233 print "\@paragraphindent 0\n";
1234 print "\@c %**end of header\n\n";
1235
1236
1237 print "\@titlepage\n";
1238 print "\@title The Exim Mail Transfer Agent\n";
1239 print "\@author \@value{wmAuthor}\n";
1240
1241 print "\@page\n";
1242 print "\@vskip 0pt plus 1filll\n";
1243
1244 print "Permission is granted to make and distribute verbatim copies of this manual provided the\n";
1245 print "copyright notice and this permission notice are preserved on all copies.\n";
1246
1247 print "\@sp2\n";
1248 print "\@value{COPYRIGHT1}\@*\n";
1249
1250 print "\@end titlepage\n\n";
1251
1252 # Output the top-level node and its introductory blurb
1253
1254 print "\@node       Top,       $chapter_list[0], (dir), (dir)\n";
1255 print "\@top\n";
1256
1257 if (!$doing_filter)
1258 {
1259 print <<End;
1260 The Exim Mail Transfer Agent\@*
1261 ****************************
1262
1263 The specification of the Exim Mail Transfer Agent is converted mechanically
1264 into Texinfo format from its original marked-up source. Some typographic
1265 representations are changed, chapters and sections cannot be numbered, and
1266 Texinfo lacks the ability to mark updated parts of the specification with
1267 change bars.
1268
1269 Because the chapters and sections are unnumbered, cross references are set to
1270 their names. This makes the English a bit odd, with phrases like \`see chapter
1271 \"Retry configuration\"\' but it seemed very cumbersome to change this to \`see
1272 the chapter entitled \"Retry configuration\"\' each time.
1273
1274 Each chapter, section, and configuration option has been placed in a separate
1275 Texinfo node. Texinfo doesn\'t allow commas, colons, or apostrophes in node
1276 names, which is a rather nasty restriction. I have arranged not to use colons
1277 or apostrophes in section titles, but cannot bring myself to omit them from
1278 titles such as \"The foo, bar and baz commands\". For the corresponding node
1279 names I have just used multiple occurrences of \"and\", though it looks very
1280 ugly.
1281
1282 If a chapter or section continues after a list of configuration options that is
1283 not in a new section, a new node is started, using the chapter\'s or section\'s
1284 name plus \`(continued)\'. The \`Up\' operation from a section or configuration
1285 option returns to the start of the current chapter; the \`Up\' operation at a
1286 chapter start returns to the top of the document; the \`Up\' in a list of
1287 configuration options within a section returns to the top of that section.
1288
1289 A number of drivers have options with the same name, so they have been
1290 disambiguated by adding the name of the driver to its option names in order to
1291 create node names. Thus, for example, the specification of the \`command\'
1292 options of the \`lmtp\' and \`pipe\' transports are in nodes called \`command
1293 (lmtp)\' and \`command (pipe)\', respectively.
1294
1295 End
1296 }
1297
1298 else
1299 {
1300 print <<End;
1301 Filtering with the Exim Mail Transfer Agent\@*
1302 *******************************************
1303
1304 The specifications of the Exim Mail Transfer Agent\'s filtering facility is
1305 converted mechanically into Texinfo format from its original marked-up source.
1306 Some typographic representations are changed, chapters and sections cannot be
1307 numbered, and Texinfo lacks the ability to mark updated parts of the
1308 specification with change bars.
1309
1310 Because the chapters and sections are unnumbered, cross references are set to
1311 their names. This makes the English a bit odd, with phrases like \`see section
1312 \"Multiple personal mailboxes\"\' but it seemed very cumbersome to change this to
1313 \`see the section entitled \"Multiple personal mailboxes\"\' each time.
1314
1315 End
1316 }
1317
1318 # Output the top-level menu
1319
1320 print "\@menu\n";
1321
1322 while (scalar(@chapter_list))
1323   {
1324   $name = &decomma(shift(@chapter_list));
1325   print "* ${name}::\n";
1326   }
1327 print "* Concept Index::\n" if (!$doing_filter);
1328 print "\@end menu\n\n";
1329
1330 # Copy the chapters, then delete the temporary file
1331
1332 close(CHAPTERS);
1333 open(CHAPTERS, "$CHAPTERS") || die "Can't open $CHAPTERS for reading";
1334 print $buff while($buff = <CHAPTERS>);
1335 close(CHAPTERS);
1336 unlink($CHAPTERS);
1337
1338 # Output the finishing off stuff
1339
1340 if (!$doing_filter)
1341   {
1342   print "\@node Concept Index, , $final_chapter, Top\n";
1343   print "\@chapter Concept Index\n\@printindex cp\n";
1344   print "\@chapter Function Index\n\@printindex fn\n";
1345   }
1346 print "\@contents\n";
1347 print "\@bye\n";
1348
1349 # End