--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/sltpda/isValidBlock.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,25 @@
+function res = isValidBlock(block)
+
+% ISVALIDBLOCK checks a block is in the valid block list.
+% 
+% usage: res = isValidBlock(block)
+% 
+% M Hewitson 29-03-07
+% 
+% $Id: isValidBlock.m,v 1.1 2007/03/30 08:24:36 hewitson Exp $
+% 
+
+res = 0;
+block_list = sltpda_valid_block_list();
+
+disp(sprintf('     + checking %s against list', block));
+for b = block_list
+  if strcmp(b, block)
+    res = 1;
+  end
+end
+
+if res == 0
+  disp(sprintf('### function name %s not in list of valid functions.', block));
+end
+