Mercurial > octave-nkf

comparison doc/interpreter/doccheck/mk_undocumented_list @ 12254:23385f2c90b7 release-3-4-x

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
whitespace fixes
author John W. Eaton <jwe@octave.org>
date Wed, 26 Jan 2011 23:49:42 -0500
parents a34ccc8e2f8e
children 66b2c377b38e
comparison
equal deleted inserted replaced
12253:1f14586af94c 12254:23385f2c90b7
4 # Get a list from Octave of all visible functions 4 # Get a list from Octave of all visible functions
5 @octave_output = <<`_END_OCT_SCRIPT_`; 5 @octave_output = <<`_END_OCT_SCRIPT_`;
6 ../../run-octave --norc --silent --no-history --eval '\ 6 ../../run-octave --norc --silent --no-history --eval '\
7 funclist = vertcat (__list_functions__ , __builtins__) \ 7 funclist = vertcat (__list_functions__ , __builtins__) \
8 disp("#!-separator-!#") \ 8 disp("#!-separator-!#") \
9 where = cellfun (\@which, funclist, \"UniformOutput\", 0)' 9 where = cellfun (\@which, funclist, \"UniformOutput\", 0)'
10 _END_OCT_SCRIPT_ 10 _END_OCT_SCRIPT_
11 11
12 die "Unable to invoke 'run-octave'. Exiting\n" unless (@octave_output); 12 die "Unable to invoke 'run-octave'. Exiting\n" unless (@octave_output);
13 13
14 ################################################################################ 14 ################################################################################
30 { 30 {
31 next FUNC if ($where[$idx] =~ /deprecated/i); 31 next FUNC if ($where[$idx] =~ /deprecated/i);
32 next FUNC if ($where[$idx] =~ /interpreter/i); 32 next FUNC if ($where[$idx] =~ /interpreter/i);
33 next FUNC if ($where[$idx] =~ m#test/#i); 33 next FUNC if ($where[$idx] =~ m#test/#i);
34 34
35 push (@functions, $all_functions[$idx]); 35 push (@functions, $all_functions[$idx]);
36 } 36 }
37 37
38 # Remove internal functions from the list of features requiring a DOCSTRING 38 # Remove internal functions from the list of features requiring a DOCSTRING
39 @functions = grep (! /^__/, @functions); 39 @functions = grep (! /^__/, @functions);
40 40
41 # Load list of function exceptions not requiring a DOCSTRING 41 # Load list of function exceptions not requiring a DOCSTRING
42 # Exception data is stored at the bottom of this script 42 # Exception data is stored at the bottom of this script
43 map { chomp, $exceptions{$_}=1; } <DATA>; 43 map { chomp, $exceptions{$_}=1; } <DATA>;