Mercurial > octave-nkf

comparison scripts/plot/private/__add_datasource__.m @ 10549:95c3e38098bf

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Untabify .m scripts
author Rik <code@nomad.inbox5.com>
date Fri, 23 Apr 2010 11:28:50 -0700
parents 2929c453af8f
children d1978e7364ad
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
38 i = 0; 38 i = 0;
39 newargs = {}; 39 newargs = {};
40 while (i < numel (varargin)) 40 while (i < numel (varargin))
41 arg = varargin{++i}; 41 arg = varargin{++i};
42 if (i != numel(varargin) && ischar (arg) 42 if (i != numel(varargin) && ischar (arg)
43 && length (arg) > 9 && strcmpi (arg(end-9:end), "datasource")) 43 && length (arg) > 9 && strcmpi (arg(end-9:end), "datasource"))
44 arg = tolower (arg); 44 arg = tolower (arg);
45 val = varargin{++i}; 45 val = varargin{++i};
46 if (ischar (val)) 46 if (ischar (val))
47 set (h, arg, val); 47 set (h, arg, val);
48 else 48 else
49 error ("%s: expecting data source to be a string", fcn); 49 error ("%s: expecting data source to be a string", fcn);
50 endif 50 endif
51 else 51 else
52 newargs{end + 1} = arg; 52 newargs{end + 1} = arg;
53 endif 53 endif
54 endwhile 54 endwhile