Mercurial > octave-nkf

comparison scripts/deprecated/cellidx.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 7f4939e76684
children fd0a3ac60b0e
comparison
equal deleted inserted replaced
10548:479536c5bb10 10549:95c3e38098bf
86 nsigs = length(listvar); 86 nsigs = length(listvar);
87 for idx = 1:length(strlist) 87 for idx = 1:length(strlist)
88 signame = strlist{idx}; 88 signame = strlist{idx};
89 for jdx = 1:nsigs 89 for jdx = 1:nsigs
90 if (strcmp (signame, listvar{jdx})) 90 if (strcmp (signame, listvar{jdx}))
91 if (idxvec(idx) != 0) 91 if (idxvec(idx) != 0)
92 warning ("Duplicate signal name %s (%d,%d)\n", 92 warning ("Duplicate signal name %s (%d,%d)\n",
93 listvar{jdx}, jdx, idxvec(idx)); 93 listvar{jdx}, jdx, idxvec(idx));
94 else 94 else
95 idxvec(idx) = jdx; 95 idxvec(idx) = jdx;
96 endif 96 endif
97 endif 97 endif
98 endfor 98 endfor
99 if (idxvec(idx) == 0) 99 if (idxvec(idx) == 0)
100 errmsg = sprintf ("Did not find %s", signame); 100 errmsg = sprintf ("Did not find %s", signame);
101 if (nargout == 1) 101 if (nargout == 1)
102 error (errmsg); 102 error (errmsg);
103 else 103 else
104 break; 104 break;
105 endif 105 endif
106 endif 106 endif
107 endfor 107 endfor
108 108
109 endfunction 109 endfunction