Index: mttroot/mtt/bin/trans/mtt_header ================================================================== --- mttroot/mtt/bin/trans/mtt_header +++ mttroot/mtt/bin/trans/mtt_header @@ -10,10 +10,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.5 2000/10/14 09:12:14 peterg +## No dies arguments and output itself +## ## Revision 1.4 2000/10/14 06:49:31 peterg ## Make parameter listing representation dependent ## ## Revision 1.3 2000/10/11 08:59:15 peterg ## Added csex rep @@ -43,10 +46,11 @@ Npar=`wc -l $system\_sympar.txt | awk '{print $1}'` # Representation-specific stuff eqnargs='mttx,mttu,mttt,mttpar' +inputeqnargs='mttx,mtty,mttt,mttpar' case $rep in cse) states=yes; inputs=yes; parameters=yes; @@ -70,18 +74,24 @@ input) states=no; inputs=no; parameters=no; output=mttu - args='x,y,t,par' + args=$inputeqnargs + ;; + logic) + states=yes; + inputs=no; + parameters=yes; + output=mttu + args=$inputeqnargs ;; numpar) states=no; inputs=no; parameters=no; output='mttpar' - ;; ode) states=yes; inputs=yes; parameters=yes; @@ -129,32 +139,43 @@ # Lanuage specific stuff case $language in m) - modeline='## -*-octave-*- Put Emacs into octave-mode ##'; - ext='m'; Lc='##'; Rc=''; Lb='('; Rb=')'; function="function" declaration="$Output$1_$rep$Args;" noglobals=true; # Fudge to make mtt_m2p work start='## BEGIN Code' + finish='## END Code' + ;; + txt) + modeline='## -*-octave-*- Put Emacs into octave-mode ##'; + Lc='##'; + Rc=''; + Lb='('; + Rb=')'; + function="" + declaration="" + start='' + parameters='no' ;; *) echo Language $language not supported - sorry; exit 1 esac # Header information cat<