Mercurial > hg > octave-nkf

diff scripts/strings/index.m @ 3240:2e74d8aa1a20

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1999-04-07 18:33:23 by jwe]
author jwe
date Wed, 07 Apr 1999 18:34:20 +0000
parents c9f70d39255f
children 4f40efa995c1
line wrap: on
line diff
--- a/scripts/strings/index.m
+++ b/scripts/strings/index.m
@@ -39,8 +39,12 @@
 
   if (isstr (s) && isstr (t))
 
-    l_s = length (s);
-    l_t = length (t);
+    [nr_s, l_s] = size (s);
+    [nr_t, l_t] = size (t);
+
+    if (nr_s != 1 || nr_t != 1)
+      error ("index: arguments cannot be string arrays");
+    endif
 
     if (l_t <= l_s)
       tmp = l_s - l_t + 1;