Return to doc2texi.pl CVS log

Up to [local] / OpenXM_contrib / gnuplot / docs

Annotation of OpenXM_contrib/gnuplot/docs/doc2texi.pl, Revision 1.1.1.1

1.1       maekawa     1: #!/usr/local/bin/perl
                      2: #
                      3: # $Id: doc2texi.pl,v 1.5 1996/12/08 12:29:25 drd Exp $
                      4: #
                      5: # doc2texi.pl : Converts Gnuplot .doc files to Texinfo format.
                      6: #
                      7: # George Ferguson, ferguson@cs.rochester.edu, 11 Feb 1991.
                      8: #
                      9: # Usage:
                     10: #      % doc2texi.pl gnuplot.doc >gnuplot.texinfo
                     11: #      % makeinfo --fill-column 80 gnuplot.texinfo
                     12: # Creates files "gnuplot.info" and "gnuplot.info-[123]".
                     13: #
                     14:
                     15: $currentBook = $currentChapter = $currentSection = $currentSubsection = 0;
                     16: $verbatim = $table = 0;
                     17:
                     18: while (<>) {
                     19:     if (/^([1-4]) (.*)$/) {    # section heading
                     20:        $table = 0;
                     21:        &endVerbatim;
                     22:        $numNodes += 1;
                     23:        $nodeLevel[$numNodes] = $1;
                     24:        $nodeTitle[$numNodes] = $2;
                     25:        $nodeText[$numNodes] = "";
                     26:        if ($1 == 1) {
                     27:            $currentBook = $numNodes;
                     28:        } elsif ($1 == 2) {
                     29:            $currentChapter = $numNodes;
                     30:            $nodeMenu[$currentBook] .= "* $2::\n";
                     31:        } elsif ($1 == 3) {
                     32:            $currentSection = $numNodes;
                     33:            if ($nodeTitle[$currentChapter] eq "set-show") {
                     34:                $nodeTitle[$numNodes] = "set $2";       # override
                     35:                $nodeMenu[$currentChapter] .= "* set $2::\n";
                     36:            } else {
                     37:                $nodeMenu[$currentChapter] .= "* $2::\n";
                     38:            }
                     39:        } elsif ($1 == 4) {
                     40:            $currentSubsection = $numNodes;
                     41:            $nodeMenu[$currentSection] .= "* $2::\n";
                     42:        }
                     43:     } elsif (/^\?(.*)$/) {                             # index entry
                     44:        if ($1 ne "") {
                     45:            $nodeText[$numNodes] .= "\@cindex $1\n";
                     46:        }
                     47:     } elsif (/^\@start table/) {                               # start table
                     48:        &startVerbatim;
                     49:        $table = 1;
                     50:     } elsif (/^\@end table/) {                         # end table
                     51:        $table = 0;
                     52:        &endVerbatim;
                     53:     } elsif (/^#/ || /^%/) {                           # table entry
                     54:        next;
                     55:     } elsif (/^ ( ?)(.*)$/) {                          # text
                     56:        if ($1 eq " ") {
                     57:            &startVerbatim;
                     58:        } else {
                     59:            &endVerbatim;
                     60:        }
                     61:        $text = $2;
                     62:        $text =~ s/@/@@/g;
                     63:        $text =~ s/{/\@{/g;
                     64:        $text =~ s/}/\@}/g;
                     65:        $text =~ s/\`([^`]*)\`/\@code{$1}/g;
                     66:        $nodeText[$numNodes] .= "$text\n";
                     67:     } elsif (/^$/) {                                   # blank line
                     68:        &endVerbatim;
                     69:        $nodeText[$numNodes] .= "\n";
                     70:     }
                     71: }
                     72:
                     73: # Print texinfo header
                     74: print "\\input texinfo\n";
                     75: print "\@setfilename gnuplot.info\n";
                     76: print "\@settitle Gnuplot: An Interactive Plotting Program\n";
                     77: print "\n";
                     78: print "\@node Top\n";
                     79: print "\@top Gnuplot";
                     80: print "\n";
                     81: print "$nodeText[1]";
                     82: print "\@menu\n";
                     83: print "$nodeMenu[1]";
                     84: print "* General Index::\n";
                     85: print "\@end menu\n";
                     86: print "\n";
                     87:
                     88: # Now output all the nodes
                     89: for ($i=2; $i <= $numNodes; $i++) {
                     90:     print "\@node $nodeTitle[$i]\n";
                     91:     if ($nodeLevel[$i] == 2) {
                     92:        print "\@chapter $nodeTitle[$i]\n";
                     93:     } elsif ($nodeLevel[$i] == 3) {
                     94:        print "\@section $nodeTitle[$i]\n";
                     95:     } elsif ($nodeLevel[$i] == 4) {
                     96:        print "\@subsection $nodeTitle[$i]\n";
                     97:     }
                     98:     print "$nodeText[$i]";
                     99:     if ($nodeMenu[$i] ne "") {
                    100:        print "\@menu\n";
                    101:        print $nodeMenu[$i];
                    102:        print "\@end menu\n";
                    103:     }
                    104:     print "\n";
                    105: }
                    106: # Print texinfo trailer
                    107: print "\n";
                    108: print "\@node General Index\n";
                    109: print "\@appendix General Index\n";
                    110: print "\n";
                    111: print "\@printindex cp\n";
                    112: print "\n";
                    113: print "\@bye\n";
                    114:
                    115: #######################
                    116:
                    117: sub startVerbatim {
                    118:     if (!$verbatim) {
                    119:        $nodeText[$numNodes] .= "\@example\n";
                    120:        $verbatim = 1;
                    121:     }
                    122: }
                    123:
                    124: sub endVerbatim {
                    125:     if ($verbatim && !$table) {
                    126:        $nodeText[$numNodes] .= "\@end example\n";
                    127:        $verbatim = 0;
                    128:     }
                    129: }