Mercurial > hg > octave-nkf

diff scripts/strings/strcmp.m @ 321:2d04965c32fb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-02-01 02:09:52 by jwe]
author jwe
date Tue, 01 Feb 1994 02:09:52 +0000
parents 16a24e76d6e0
children 3470f1e25a79
line wrap: on
line diff
--- a/scripts/strings/strcmp.m
+++ b/scripts/strings/strcmp.m
@@ -1,4 +1,4 @@
-# Copyright (C) 1993 John W. Eaton
+# Copyright (C) 1993, 1994 John W. Eaton
 # 
 # This file is part of Octave.
 # 
@@ -31,11 +31,19 @@
   endif
 
   status = 0;
-  if (isstr (s1) && isstr(s2) && length (s1) == length (s2))
-    tmp = implicit_str_to_num_ok;
-    implicit_str_to_num_ok = "true";
-    status = all (s1 == s2);
-    implicit_str_to_num_ok = tmp;
+  if (isstr (s1) && isstr(s2))
+    len_s1 = columns (s1);
+    len_s2 = columns (s2);
+    if (len_s1 == len_s2)
+      if (len_s1 == 0)
+        status = 1;
+      else
+        tmp = implicit_str_to_num_ok;
+        implicit_str_to_num_ok = "true";
+        status = all (s1 == s2);
+        implicit_str_to_num_ok = tmp;
+      endif
+    endif
   endif
 
 endfunction