Mercurial > hg > octave-nkf

comparison scripts/control/system/is_signal_list.m @ 4462:3e48e60a1f8b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-07-12 03:31:41 by jwe]
author jwe
date Sat, 12 Jul 2003 03:31:41 +0000
parents 22bd65326ec1
children b8105302cfe8
comparison
equal deleted inserted replaced
4461:af308ca1a354 4462:3e48e60a1f8b
19 ## -*- texinfo -*- 19 ## -*- texinfo -*-
20 ## @deftypefn {Function File} {} is_signal_list (@var{mylist}) 20 ## @deftypefn {Function File} {} is_signal_list (@var{mylist})
21 ## Return true if @var{mylist} is a list of individual strings. 21 ## Return true if @var{mylist} is a list of individual strings.
22 ## @end deftypefn 22 ## @end deftypefn
23 23
24 function flg = is_signal_list(mylist) 24 function flg = is_signal_list (mylist)
25 25
26 flg = islist(mylist); 26 flg = islist (mylist);
27 27
28 if (flg) 28 if (flg)
29 for ii = 1:length (mylist) 29 for ii = 1:length (mylist)
30 if (! (isstr (nth (mylist,ii)) & rows (nth (mylist,ii)) == 1)) 30 if (! (isstr (nth (mylist, ii)) && rows (nth (mylist,ii)) == 1))
31 flg = 0; 31 flg = 0;
32 endif 32 endif
33 endfor 33 endfor
34 endif 34 endif
35 35