Mercurial > octave-nkf
annotate doc/interpreter/munge-texi.pl @ 14611:f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
* munge-texi.pl: New Perl file to generate .texi files from .txi files.
* munge-texi.cc: Remove C++ file for generating .texi files.
* Makefile.am: Change build system to use munge-texi.pl
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Tue, 08 May 2012 21:03:42 -0700 |
parents | |
children | a52b03df22cb |
rev | line source |
---|---|
14611
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
1 #!/usr/bin/perl -w |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
2 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
3 # Validate program call |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
4 die "usage: munge-texi TOP-SRCDIR DOCSTRING-FILE < file" if (@ARGV < 2); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
5 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
6 $top_srcdir = shift (@ARGV); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
7 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
8 # Constant patterns |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
9 $doc_delim = qr/^\c_/; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
10 $tex_delim = qr/\Q-*- texinfo -*-\E/; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
11 $comment_line = qr/^\s*(?:$|#)/; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
12 # Pre-declare hash size for efficiency |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
13 keys(%help_text) = 1800; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
14 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
15 ################################################################################ |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
16 # Load DOCSTRINGS into memory while expanding @seealso references |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
17 foreach $DOCSTRING_file (@ARGV) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
18 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
19 open (DOCFH, $DOCSTRING_file) or die "Unable to open $DOCSTRING_file\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
20 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
21 # Skip comments |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
22 while (defined ($_ = <DOCFH>) and /$comment_line/o) {;} |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
23 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
24 # Validate DOCSTRING file format |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
25 die "invalid doc file format\n" if (! /$doc_delim/o); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
26 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
27 do |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
28 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
29 chomp; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
30 $symbol = substr ($_,1); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
31 $docstring = extract_docstring (); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
32 if ($help_text{$symbol}) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
33 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
34 warn "ignoring duplicate entry for $symbol\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
35 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
36 else |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
37 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
38 $help_text{$symbol} = $docstring; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
39 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
40 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
41 } while (! eof); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
42 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
43 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
44 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
45 ################################################################################ |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
46 # Process .txi to .texi by expanding @DOCSTRING, @EXAMPLEFILE macros |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
47 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
48 # Add warning header |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
49 print '@c DO NOT EDIT! Generated automatically by munge-texi.',"\n\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
50 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
51 TXI_LINE: while (<STDIN>) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
52 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
53 if (/^\s*\@DOCSTRING\((\S+)\)/) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
54 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
55 $func = $1; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
56 $docstring = $help_text{$func}; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
57 if (! $docstring) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
58 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
59 warn "no docstring entry for $func\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
60 next TXI_LINE; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
61 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
62 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
63 $func =~ s/^@/@@/; # Texinfo uses @@ to produce '@' |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
64 $docstring =~ s/^$tex_delim$/\@anchor{doc-$func}/m; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
65 print $docstring,"\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
66 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
67 next TXI_LINE; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
68 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
69 if (/^\s*\@EXAMPLEFILE\((\S+)\)/) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
70 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
71 $fname = "$top_srcdir/examples/$1"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
72 print '@verbatim',"\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
73 open (EXAMPFH, $fname) or die "unable to open example file $fname\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
74 while (<EXAMPFH>) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
75 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
76 print $_; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
77 print "\n" if (eof and substr ($_, -1) ne "\n"); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
78 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
79 close (EXAMPFH); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
80 print '@end verbatim',"\n\n"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
81 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
82 next TXI_LINE; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
83 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
84 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
85 # pass ordinary lines straight through to output |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
86 print $_; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
87 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
88 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
89 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
90 ################################################################################ |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
91 # Subroutines |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
92 ################################################################################ |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
93 sub extract_docstring |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
94 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
95 my ($docstring, $arg_list, $func_list, $repl, $rest_of_line); |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
96 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
97 while (defined ($_ = <DOCFH>) and ! /$doc_delim/o) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
98 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
99 # expand any @seealso references |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
100 if (m'^@seealso{') |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
101 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
102 # Join multiple lines until full macro body found |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
103 while (! /}/m) { $_ .= <DOCFH>; } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
104 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
105 ($arg_list, $rest_of_line) = m'^@seealso{(.*)}(.*)?'s; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
106 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
107 $func_list = $arg_list; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
108 $func_list =~ s/\s+//gs; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
109 $repl = ""; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
110 foreach $func (split (/,/, $func_list)) |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
111 { |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
112 $func =~ s/^@/@@/; # Texinfo uses @@ to produce '@' |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
113 $repl .= "\@ref{doc-$func,,$func}, "; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
114 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
115 substr($repl,-2) = ""; # Remove last ', ' |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
116 $_ = "\@seealso{$repl}$rest_of_line"; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
117 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
118 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
119 $docstring .= $_; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
120 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
121 |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
122 return $docstring; |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
123 } |
f2ed09ae8d3f
doc: Produce .texi from .txi files using Perl rather than C++.
Rik <octave@nomad.inbox5.com>
parents:
diff
changeset
|
124 |