Mercurial > octave-nkf

diff scripts/control/system/listidx.m @ 4771:b8105302cfe8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2004-02-16 17:45:50 by jwe]
author jwe
date Mon, 16 Feb 2004 17:45:50 +0000
parents a892190f4977
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/control/system/listidx.m	Mon Feb 16 16:22:43 2004 +0000
+++ b/scripts/control/system/listidx.m	Mon Feb 16 17:45:50 2004 +0000
@@ -34,6 +34,7 @@
 ## @end deftypefn
 
 function [idxvec,errmsg]  = listidx(listvar,strlist)
+  error("listidx: don't use this anymore, ok?\n");
 
 if(nargin != 2)
   usage("idxvec = listidx(listvar,strlist)");
@@ -73,12 +74,12 @@
 
 nsigs = length(listvar);
 for idx = 1:length(strlist)
-  signame = nth(strlist,idx);
+  signame = strlist{idx};
   for jdx = 1:nsigs
-    if( strcmp(signame,nth(listvar,jdx)) )
+    if( strcmp(signame,listvar{jdx}) )
       if(idxvec(idx) != 0)
         warning("Duplicate signal name %s (%d,%d)\n", ...
-          nth(listvar,jdx),jdx,idxvec(idx));
+          listvar{jdx},jdx,idxvec(idx));
       else
         idxvec(idx) = jdx;
       endif