Mercurial > hg > octave-nkf

diff scripts/control/util/__outlist__.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 cef48c4b902d
children 4c8a2e4e0717
line wrap: on
line diff
--- a/scripts/control/util/__outlist__.m
+++ b/scripts/control/util/__outlist__.m
@@ -55,20 +55,25 @@
     endif
 
     m = length(name_list);
-    if(nargin < 4)           ilist = 1:m;          endif
+    if(nargin < 4)
+      ilist = 1:m;
+    endif
     if(nargin ==1)
       tabchar = "";
     endif
 
-    if(nargin < 3)             yd = zeros(1,m);
-    elseif(isempty(yd))        yd = zeros(1,m);          endif
+    if(nargin < 3)
+      yd = zeros(1,m);
+    elseif(isempty(yd))
+      yd = zeros(1,m);
+    endif
 
     str_val = "";
-    dstr = list(""," (discrete)");
-    if((m >= 1) && (islist(name_list)))
+    dstr = {""," (discrete)"};
+    if((m >= 1) && (iscell(name_list)))
       for ii=1:m
 	str_val = sprintf("%s%s%d: %s%s\n",str_val,tabchar, ilist(ii), ...
-			  nth(name_list,ii),nth(dstr,yd(ii)+1));
+			  name_list{ii},dstr{yd(ii)+1});
       endfor
     else
       str_val = sprintf("%sNone",tabchar);