Mercurial > hg > octave-lyh

comparison scripts/help/print_usage.m @ 9535:936734e15a4d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
print_usage: make it work again if an argument is given
author John W. Eaton <jwe@octave.org>
date Mon, 17 Aug 2009 14:53:48 -0400
parents f3df413338c5
children 30817aa3889a
comparison
equal deleted inserted replaced
9534:baeecd69fd44 9535:936734e15a4d
31 if (numel (x) > 1) 31 if (numel (x) > 1)
32 name = x (2).name; 32 name = x (2).name;
33 else 33 else
34 error ("print_usage: invalid function\n"); 34 error ("print_usage: invalid function\n");
35 endif 35 endif
36 path = evalin ("caller", "mfilename (""fullpath"")"); 36 fullpath = evalin ("caller", "mfilename (""fullpath"")");
37 if (strcmp (path(end-length(name)+1:end), name)) 37 if (strcmp (fullpath(end-length(name)+1:end), name))
38 path = [path, ".m"]; 38 fullname = [fullpath, ".m"];
39 else
40 path = name;
41 endif 39 endif
42 elseif (!ischar (name)) 40 elseif (!ischar (name))
43 error ("print_usage: input argument must be a string"); 41 error ("print_usage: input argument must be a string");
42 else
43 fullname = name;
44 endif 44 endif
45 45
46 ## Do the actual work 46 ## Do the actual work
47 [text, format] = get_help_text (path); 47 [text, format] = get_help_text (fullname);
48 max_len = 80; 48 max_len = 80;
49 switch (lower (format)) 49 switch (lower (format))
50 case "plain text" 50 case "plain text"
51 [usage_string, status] = get_usage_plain_text (text, max_len); 51 [usage_string, status] = get_usage_plain_text (text, max_len);
52 case "texinfo" 52 case "texinfo"