Mercurial > hg > octave-nkf
annotate scripts/help/__makeinfo__.m @ 13773:59e5f8e1d516
Fix block comment Texinfo not appearing in documentation
* help.cc: Rephrase docstring for block comment operators.
* __makeinfo__.m: Use greedy regexp to parse all of @seealso macro
even when it contains a closing curly brace.
author | Rik <octave@nomad.inbox5.com> |
---|---|
date | Sun, 30 Oct 2011 16:57:03 -0700 |
parents | 8c7caa009a1e |
children | 990762e784fe |
rev | line source |
---|---|
11523 | 1 ## Copyright (C) 2009-2011 S�ren Hauberg |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
2 ## |
11104 | 3 ## This file is part of Octave. |
4 ## | |
5 ## Octave is free software; you can redistribute it and/or modify it | |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
6 ## under the terms of the GNU General Public License as published by |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
7 ## the Free Software Foundation; either version 3 of the License, or (at |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
8 ## your option) any later version. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
9 ## |
11104 | 10 ## Octave is distributed in the hope that it will be useful, but |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
11 ## WITHOUT ANY WARRANTY; without even the implied warranty of |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
13 ## General Public License for more details. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
14 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
15 ## You should have received a copy of the GNU General Public License |
11104 | 16 ## along with Octave; see the file COPYING. If not, see |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
17 ## <http://www.gnu.org/licenses/>. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
18 |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
19 ## -*- texinfo -*- |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
20 ## @deftypefn {Function File} {[@var{retval}, @var{status}] =} __makeinfo__ (@var{text}, @var{output_type}) |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
21 ## @deftypefnx {Function File} {[@var{retval}, @var{status}] =} __makeinfo__ (@var{text}, @var{output_type}, @var{see_also}) |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
22 ## Undocumented internal function. |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
23 ## @end deftypefn |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
24 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
25 ## Run @code{makeinfo} on a given text. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
26 ## |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
27 ## The string @var{text} is run through the @code{__makeinfo__} program |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
28 ## to generate output in various formats. This string must contain valid |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
29 ## Texinfo formatted text. |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
30 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
31 ## The @var{output_type} selects the format of the output. This can be either |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
32 ## @t{"html"}, @t{"texinfo"}, or @t{"plain text"}. By default this is |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
33 ## @t{"plain text"}. If @var{output_type} is @t{"texinfo"}, the @t{@@seealso} |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
34 ## macro is expanded, but otherwise the text is unaltered. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
35 ## |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
36 ## If the optional argument @var{see_also} is present, it is used to expand the |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
37 ## Octave specific @t{@@seealso} macro. This argument must be a function handle, |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
38 ## that accepts a cell array of strings as input argument (each elements of the |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
39 ## array corresponds to the arguments to the @t{@@seealso} macro), and return |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
40 ## the expanded string. If this argument is not given, the @t{@@seealso} macro |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
41 ## will be expanded to the text |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
42 ## |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
43 ## @example |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
44 ## See also: arg1, arg2@, ... |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
45 ## @end example |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
46 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
47 ## @noindent |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
48 ## for @t{"plain text"} output, and |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
49 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
50 ## @example |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
51 ## See also: @@ref@{arg1@}, @@ref@{arg2@}, ... |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
52 ## @end example |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
53 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
54 ## @noindent |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
55 ## otherwise. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
56 ## |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
57 ## The optional output argument @var{status} contains the exit status of the |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
58 ## @code{makeinfo} program as returned by @code{system}. |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
59 |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
60 function [retval, status] = __makeinfo__ (text, output_type = "plain text", fsee_also) |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
61 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
62 ## Check input |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
63 if (nargin < 1 || nargin > 3) |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
64 print_usage (); |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
65 endif |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
66 |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
67 if (! ischar (text)) |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
68 error ("__makeinfo__: first input argument must be a string"); |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
69 endif |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
70 |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
71 if (! ischar (output_type)) |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
72 error ("__makeinfo__: second input argument must be a string"); |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
73 endif |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
74 |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13122
diff
changeset
|
75 if (nargin < 3) |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
76 if (strcmpi (output_type, "plain text")) |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
77 fsee_also = @(T) strcat ... |
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
78 ("\nSee also:", sprintf (" %s,", T{:})(1:end-1), "\n"); |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13122
diff
changeset
|
79 else |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
80 fsee_also = @(T) strcat ... |
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
81 ("\nSee also:", sprintf (" @ref{%s},", T{:})(1:end-1), "\n"); |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
82 endif |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
83 endif |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
84 |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
85 if (! isa (fsee_also, "function_handle")) |
13157
8c7caa009a1e
__makeinfo__.m: Correct error string for third argument.
Rik <octave@nomad.inbox5.com>
parents:
13141
diff
changeset
|
86 error ("__makeinfo__: third input argument must be a function handle"); |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
87 endif |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13122
diff
changeset
|
88 |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
89 |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
90 ## It seems like makeinfo sometimes gets angry if the first character |
10803
75780a2b0417
__makeinfo__.m: Add support to process @nopsell macro.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
91 ## on a line is a space, so we remove these. |
13141
e81ddf9cacd5
maint: untabify and remove trailing whitespace from source files
John W. Eaton <jwe@octave.org>
parents:
13122
diff
changeset
|
92 text = strrep (text, "\n ", "\n"); |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
93 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
94 ## Handle @seealso macro |
13773
59e5f8e1d516
Fix block comment Texinfo not appearing in documentation
Rik <octave@nomad.inbox5.com>
parents:
13157
diff
changeset
|
95 see_also_pat = '@seealso *\{(.*)\}'; |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
96 args = regexp (text, see_also_pat, 'tokens'); |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
97 for ii = 1:numel (args) |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
98 expanded = fsee_also (strtrim (strsplit (args{ii}{:}, ',', true))); |
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
99 text = regexprep (text, see_also_pat, expanded, 'once'); |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
100 endfor |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
101 |
10803
75780a2b0417
__makeinfo__.m: Add support to process @nopsell macro.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
102 ## Handle @nospell macro |
12606
3047363c376d
__makeinfo__.m: Simplify function by using regular expressions.
Rik <octave@nomad.inbox5.com>
parents:
11587
diff
changeset
|
103 text = regexprep (text, '@nospell *\{([^}]*)\}', "$1"); |
10803
75780a2b0417
__makeinfo__.m: Add support to process @nopsell macro.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
104 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
105 if (strcmpi (output_type, "texinfo")) |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
106 status = 0; |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
107 retval = text; |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
108 return; |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
109 endif |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
110 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
111 ## Create the final TeXinfo input string |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
112 text = sprintf ("\\input texinfo\n\n%s\n\n@bye\n", text); |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
113 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
114 unwind_protect |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
115 ## Write Texinfo to tmp file |
9983 | 116 template = "octave-help-XXXXXX"; |
13122
f80273b38cc4
more fixes to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13121
diff
changeset
|
117 [fid, name] = mkstemp (fullfile (P_tmpdir, template), true); |
9982
7cef030b8069
let __makeinfo__ create temporary file in P_tmpdir
Jaroslav Hajek <highegg@gmail.com>
parents:
9263
diff
changeset
|
118 if (fid < 0) |
7cef030b8069
let __makeinfo__ create temporary file in P_tmpdir
Jaroslav Hajek <highegg@gmail.com>
parents:
9263
diff
changeset
|
119 error ("__makeinfo__: could not create temporary file"); |
7cef030b8069
let __makeinfo__ create temporary file in P_tmpdir
Jaroslav Hajek <highegg@gmail.com>
parents:
9263
diff
changeset
|
120 endif |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
121 fwrite (fid, text); |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
122 fclose (fid); |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
123 |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
124 ## Take action depending on output type |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
125 switch (lower (output_type)) |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
126 case "plain text" |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
127 cmd = sprintf ("%s --no-headers --no-warn --force --no-validate %s", |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
128 makeinfo_program (), name); |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
129 case "html" |
13121
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
130 cmd = sprintf ("%s --no-headers --html --no-warn --no-validate --force %s", |
390add500107
Add back the third input parameter to __makeinfo__
Carlo de Falco <kingcrimson@tiscali.it>
parents:
13120
diff
changeset
|
131 makeinfo_program (), name); |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
132 otherwise |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
133 error ("__makeinfo__: unsupported output type: '%s'", output_type); |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
134 endswitch |
11587
c792872f8942
all script files: untabify and strip trailing whitespace
John W. Eaton <jwe@octave.org>
parents:
11523
diff
changeset
|
135 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
136 ## Call makeinfo |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
137 [status, retval] = system (cmd); |
10803
75780a2b0417
__makeinfo__.m: Add support to process @nopsell macro.
Rik <octave@nomad.inbox5.com>
parents:
10793
diff
changeset
|
138 |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
139 unwind_protect_cleanup |
8768
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
140 if (exist (name, "file")) |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
141 delete (name); |
e0fbf17a17bb
__makeinfo__.m: rename from makeinfo.m
John W. Eaton <jwe@octave.org>
parents:
8717
diff
changeset
|
142 endif |
8575
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
143 end_unwind_protect |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
144 endfunction |
f134925a1cfa
m-file implementation of help system
Soren Hauberg <soren@hauberg.org>
parents:
diff
changeset
|
145 |
13044
a04e32272ecb
codesprint: Turn off test warning for various internal helper functions
Rik <octave@nomad.inbox5.com>
parents:
12606
diff
changeset
|
146 ## No test needed for internal helper function. |
a04e32272ecb
codesprint: Turn off test warning for various internal helper functions
Rik <octave@nomad.inbox5.com>
parents:
12606
diff
changeset
|
147 %!assert (1) |
a04e32272ecb
codesprint: Turn off test warning for various internal helper functions
Rik <octave@nomad.inbox5.com>
parents:
12606
diff
changeset
|
148 |