--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/sltpda/getVarBlockCommands.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,38 @@
+function cmds = getVarBlockCommands(blocks)
+
+% GETVARBLOCKCOMMANDS get a set of commands from a set of sLTPDA variable blocks.
+%
+% M Hewitson 27-03-07
+%
+
+
+disp('   + compiling variable block list');
+
+cmds = [];
+
+for j=1:length(blocks)
+  b         = blocks(j);
+  blocktype = get(b, 'BlockType');
+  name      = get(b, 'Name');
+  if strcmp(name, 'variable')
+    parent    = get(b, 'Parent');
+    name = [parent '_' name];
+    name = sltpda_reduceVarName(name);
+
+    vname = get(b, 'vname');
+    vval  = sltpda_getvar(b, 'vval');
+    % store info
+    info.fcn      = '';
+    info.params   = '';
+    info.plist    = plist();
+    info.ins      = cellstr(vval);
+    info.outs     = cellstr(vname);
+    info.outsUsed = [];
+    info.cmd      = ['global ' vname '; ' vname ' = [' vval '];']
+    info.name     = get(b, 'Name');
+    info.handle   = get(b, 'Handle');
+    info.ranges   = [];
+
+    cmds = [cmds info];
+  end
+end