Mercurial > hg > ltpda

diff m-toolbox/sltpda/sltpda_reduceVarName.m @ 0:f0afece42f48

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import.
author Daniele Nicolodi <nicolodi@science.unitn.it>
date Wed, 23 Nov 2011 19:22:13 +0100
parents
children
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/m-toolbox/sltpda/sltpda_reduceVarName.m	Wed Nov 23 19:22:13 2011 +0100
@@ -0,0 +1,18 @@
+function nout = sltpda_reduceVarName(nin)
+
+% SLTPDA_REDUCEVARNAME reduces a variable name to a sensible length. The
+% output name is algorithmically based on the input name and so we should
+% get unique variable names in the sLTPDA parser.
+% 
+% M Hewitson 01-05-07
+% 
+% $Id: sltpda_reduceVarName.m,v 1.1 2007/05/01 08:29:22 hewitson Exp $
+% 
+
+if length(nin) > 20e6
+  nout = [nin(1:10)   '_' num2str(length(nin)) '_' nin(end-10:end)];
+else
+  nout = nin;
+end
+
+% END
\ No newline at end of file