Mercurial > forge

changeset 9451:7ff457d1d892 octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
control-devel: save draft code
author paramaniac
date Sun, 19 Feb 2012 17:05:11 +0000
parents 11e7128a79dc
children ac1d86345d0f
files extra/control-devel/inst/@iddata/display.m
diffstat 1 files changed, 26 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/extra/control-devel/inst/@iddata/display.m	Sun Feb 19 14:10:05 2012 +0000
+++ b/extra/control-devel/inst/@iddata/display.m	Sun Feb 19 17:05:11 2012 +0000
@@ -38,11 +38,32 @@
 
   disp ("");
   disp (str);
+  
+  disp (__col2str__ (exname, "Experiment"));
+  disp (__col2str__ (outname, "Output Channel"));
+  disp (__col2str__ (inname, "Input Channel"));
+  
 %{
-  str = strvcat (exname)
-  space = (repmat ("  ", e, 1))
-  %str = [space, exname]
-  class (space)
-  class (str)
+  str = strjust (strvcat (exname), "left");
+  space = (repmat ("  ", e, 1));
+  str = [space, str];
 %}
 endfunction
+
+%{
+function str = __
+
+  space = repmat ("    ", len+2, 1);
+  str = [space, str];
+
+endfunction
+%}
+
+function str = __col2str__ (col, title)
+
+  len = rows (col);
+  str = strjust (strvcat (col), "left");
+  str = [repmat("  ", len, 1), str];
+  str = strvcat (title, str);
+
+endfunction