Mercurial > hg > octave-nkf

diff scripts/control/sysgettype.m @ 3228:dbcc24961c44

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1998-12-09 18:42:12 by jwe]
author jwe
date Wed, 09 Dec 1998 18:42:13 +0000
parents ba1c7cdc6090
children 6dd06d525de6
line wrap: on
line diff
--- a/scripts/control/sysgettype.m
+++ b/scripts/control/sysgettype.m
@@ -25,13 +25,11 @@
 #   systype: string indicating how the structure was initially 
 #            constructed:
 #      values: "ss", "zp", or "tf"
-#
-# $Log$
 
   if(!is_struct(sys))
     error("sysgettype: input sys is not a structure");
   endif
 
-  typestr = ["tf";"zp";"ss"];
-  systype = typestr(sys.sys(1) + 1, :);
+  typestr = list("tf","zp","ss");
+  systype = nth(typestr,sys.sys(1) + 1);
 endfunction