Mercurial > octave-nkf

comparison scripts/control/system/is_signal_list.m @ 7125:f084ba47812b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-11-08 02:29:23 by jwe]
author jwe
date Thu, 08 Nov 2007 02:29:24 +0000
parents a1dbe9d80eee
children aeeb646f6538
comparison
equal deleted inserted replaced
7124:d07cb867891b 7125:f084ba47812b
22 ## Return true if @var{mylist} is a list of individual strings. 22 ## Return true if @var{mylist} is a list of individual strings.
23 ## @end deftypefn 23 ## @end deftypefn
24 24
25 function flg = is_signal_list (mylist) 25 function flg = is_signal_list (mylist)
26 26
27 if (nargin != 1)
28 print_usage ();
29 endif
30
27 flg = iscell (mylist); 31 flg = iscell (mylist);
28 if(flg) 32 if (flg)
29 flg = (rows(mylist) == 1 | columns(mylist) == 1); 33 flg = (rows (mylist) == 1 || columns (mylist) == 1);
30 end 34 end
31 if (flg) 35 if (flg)
32 for ii = 1:length (mylist) 36 for ii = 1:length (mylist)
33 if (! (ischar (mylist{ii}) && rows (mylist{ii}) == 1)) 37 if (! (ischar (mylist{ii}) && rows (mylist{ii}) == 1))
34 flg = 0; 38 flg = 0;