Mercurial > hg > octave-nkf

comparison scripts/io/textscan.m @ 11472:1740012184f9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Use uppercase for variable names in error() strings to match Info documentation. Only m-files done.
author Rik <octave@nomad.inbox5.com>
date Sun, 09 Jan 2011 21:33:04 -0800
parents 994e2a93a8e2
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
11471:994e2a93a8e2 11472:1740012184f9
75 75
76 if (isa (fid, "double") && fid > 0 || ischar (fid)) 76 if (isa (fid, "double") && fid > 0 || ischar (fid))
77 if (ischar (format)) 77 if (ischar (format))
78 if (ischar (fid)) 78 if (ischar (fid))
79 if (nargout == 2) 79 if (nargout == 2)
80 error ("textscan: cannot provide postion information for character input") 80 error ("textscan: cannot provide position information for character input")
81 endif 81 endif
82 str = fid; 82 str = fid;
83 else 83 else
84 ## Maybe skip header lines 84 ## Maybe skip header lines
85 headerlines = find (strcmpi (args, "headerlines"), 1); 85 headerlines = find (strcmpi (args, "headerlines"), 1);
112 if (nargout == 2) 112 if (nargout == 2)
113 p = ftell (fid); 113 p = ftell (fid);
114 endif 114 endif
115 115
116 else 116 else
117 error ("textscan: second input must be a format specification"); 117 error ("textscan: FORMAT must be a valid specification");
118 endif 118 endif
119 else 119 else
120 error ("textscan: expecting first argument to be a file id or character string"); 120 error ("textscan: first argument must be a file id or character string");
121 endif 121 endif
122 122
123 endfunction 123 endfunction
124 124
125 %!test 125 %!test