Mercurial > octave-nkf

comparison scripts/miscellaneous/unpack.m @ 18891:7bbe3658c5ef

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
maint: Use "FIXME:" coding convention in m-files. * flipdim.m, prepad.m, rotdim.m, doc.m, strread.m, textread.m, krylov.m, colon.m, dump_prefs.m, fileattrib.m, getappdata.m, __xzip__.m, unpack.m, fsolve.m, axis.m, meshc.m, print.m, __ghostscript__.m, __go_draw_axes__.m, __print_parse_opts__.m, struct2hdl.m, unique.m, spstats.m, treeplot.m, test.m, datestr.m: Use "FIXME:" coding convention in m-files.
author Rik <rik@octave.org>
date Wed, 25 Jun 2014 13:45:41 -0700
parents d63878346099
children 0ded8964c13a
comparison
equal deleted inserted replaced
18890:de8c67ba7ac4 18891:7bbe3658c5ef
82 endif 82 endif
83 endif 83 endif
84 84
85 ## If the file is a URL, download it and then work with that file. 85 ## If the file is a URL, download it and then work with that file.
86 if (! isempty (strfind (file, "://"))) 86 if (! isempty (strfind (file, "://")))
87 ## FIXME -- the above is not a perfect test for a URL 87 ## FIXME: The above is not a perfect test for a URL
88 urlfile = file; 88 urlfile = file;
89 ## FIXME -- should we name the file that we download with the 89 ## FIXME: Should we name the file that we download with the
90 ## same file name as the URL requests? 90 ## same file name as the URL requests?
91 tmpfile = [tmpnam() ext]; 91 tmpfile = [tmpnam() ext];
92 [file, success, msg] = urlwrite (urlfile, tmpfile); 92 [file, success, msg] = urlwrite (urlfile, tmpfile);
93 if (! success) 93 if (! success)
94 error ('unpack: could not get "%s": %s', urlfile, msg); 94 error ('unpack: could not get "%s": %s', urlfile, msg);
95 endif 95 endif
192 status, output); 192 status, output);
193 endif 193 endif
194 194
195 if (nargout > 0 || needmove) 195 if (nargout > 0 || needmove)
196 ## Trim the last CR if needed. 196 ## Trim the last CR if needed.
197 ## FIXME -- will this need to change to a check for "\r\n" for windows? 197 ## FIXME: Will this need to change to a check for "\r\n" for windows?
198 if (output(end) == "\n") 198 if (output(end) == "\n")
199 output(end) = []; 199 output(end) = [];
200 endif 200 endif
201 files = parser (ostrsplit (output, "\n"))'; 201 files = parser (ostrsplit (output, "\n"))';
202 202