]>
Dogcows Code - chaz/tar/blob - doc/convtexi.pl
1 #!/usr/local/bin/perl -- # -*-Perl-*-
2 eval "exec /usr/local/bin/perl -S $0 $*"
5 # Copy a Texinfo file, replacing @value's, @FIXME's and other gooddies.
6 # Copyright © 1996 Free Software Foundation, Inc.
7 # François Pinard <pinard@iro.umontreal.ca>, 1996.
12 if (/^\@c()$/ || /^\@c (.*)/ || /^\@(include .*)/)
17 print "\@strong{\@\@c} $1\n";
21 print "\@strong{\@\@c} $1\n";
24 print "\@end format\n";
28 $delay .= "\@format\n";
29 $delay .= "\@strong{\@\@c} $1\n";
33 $delay .= "\@strong{\@\@c} $1\n";
36 $delay .= "\@end format\n";
49 $_ = <> while ($_ && ! /^\@end macro/);
52 elsif (/^\@set ([^ ]+) (.*)/)
57 elsif (/^\@UNREVISED/)
59 print "\@quotation\n";
60 print "\@emph{(This message will disappear, once this node is revised.)}\n";
61 print "\@end quotation\n";
66 while (/\@value{([^\}]*)}/)
74 $_ = "$`\@strong{<UNDEFINED>}$1\@strong{</UNDEFINED>}$'";
77 while (/\@FIXME-?([a-z]*)\{/)
79 $tag = $1 eq '' ? 'fixme' : $1;
81 print "$`\@strong{<$tag>}";
103 print "$`\@strong{</$tag>}";
This page took 0.037365 seconds and 4 git commands to generate.