Mercurial > hg > octave-nkf
diff scripts/io/textread.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 | 3c6e8aaa9555 |
children | f38cf6224452 |
line wrap: on
line diff
--- a/scripts/io/textread.m +++ b/scripts/io/textread.m @@ -40,7 +40,7 @@ if (nargin < 1) print_usage (); endif - + if (!ischar (filename) || !ischar (format)) error ("textread: first and second input arguments must be strings"); endif @@ -57,10 +57,10 @@ fskipl (fid, headerlines); varargin(headerlines:headerlines+1) = []; endif - + str = fread (fid, "char=>char").'; fclose (fid); - + ## Call strread to make it do the real work [varargout{1:max (nargout, 1)}] = strread (str, format, varargin {:});