Mercurial > hg > octave-lyh
diff scripts/miscellaneous/what.m @ 11587:c792872f8942
all script files: untabify and strip trailing whitespace
author | John W. Eaton <jwe@octave.org> |
---|---|
date | Thu, 20 Jan 2011 17:35:29 -0500 |
parents | fd0a3ac60b0e |
children | b0084095098e |
line wrap: on
line diff
--- a/scripts/miscellaneous/what.m +++ b/scripts/miscellaneous/what.m @@ -17,12 +17,12 @@ ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Command} {} what +## @deftypefn {Command} {} what ## @deftypefnx {Command} {} what @var{dir} ## @deftypefnx {Function File} {w =} what (@var{dir}) ## List the Octave specific files in a directory. If the variable @var{dir} ## is given then check that directory rather than the current directory. If -## a return argument is requested, the files found are returned in the +## a return argument is requested, the files found are returned in the ## structure @var{w}. ## @seealso{which} ## @end deftypefn @@ -63,13 +63,13 @@ ## Ignore mdl and p files [dummy, f, e] = fileparts (n); if (strcmp (e, ".m")) - w.m{end+1} = n; + w.m{end+1} = n; elseif (strcmp (e, mexext ())) - w.mex{end+1} = n; + w.mex{end+1} = n; elseif (strcmp (e, ".oct")) w.oct{end+1} = n; elseif (strcmp (e, ".mat")) - w.mat{end+1} = n; + w.mat{end+1} = n; elseif(strcmp (n(1), "@")) w.classes{end+1} = n; endif @@ -90,7 +90,7 @@ function __display_filenames__ (msg, p, f) if (length (f) > 0) printf ("%s %s:\n\n", msg, p) - + maxlen = max (cellfun (@length, f)); ncols = max (1, floor (terminal_size()(2) / (maxlen + 3))); fmt = ""; @@ -99,7 +99,7 @@ endfor fmt = [fmt, "\n"]; - nrows = ceil (length (f) / ncols); + nrows = ceil (length (f) / ncols); for i = 1 : nrows args = f(i:nrows:end); if (length (args) < ncols)