Index: mttroot/mtt/bin/trans/mtt_m2p ================================================================== --- mttroot/mtt/bin/trans/mtt_m2p +++ mttroot/mtt/bin/trans/mtt_m2p @@ -13,10 +13,13 @@ ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ +## Revision 1.57 2000/10/15 10:35:35 peterg +## Fixed _input.p header +## ## Revision 1.56 2000/10/14 09:14:24 peterg ## *** empty log message *** ## ## Revision 1.55 2000/10/11 09:06:17 peterg ## New csex rep (uses scope optimisation) @@ -246,10 +249,17 @@ echo " mttx : StateVector;" echo " mtty : OutputVector;" echo " mttt : REAL;" echo " mttpar : ParameterVector);" ;; + logic) + echo "PROCEDURE $Sys_rep(VAR open : StateVector;" + echo " mttx : StateVector;" + echo " mttu : InputVector;" + echo " mttt : REAL;" + echo " mttpar : ParameterVector);" + ;; ode) echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;" echo " mttx : StateVector;" echo " mttu : InputVector;" echo " mttt : REAL;" @@ -342,15 +352,15 @@ echo " numparfile, statefile, simparfile : TEXT;" echo "" mtt_txt2declare $Sys sympar p mtt_txt2declare $Sys struc p ;; - switchopen) - echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);" - echo "VAR" - echo " MTTi,MTTj : INTEGER;" - ;; +# switchopen) +# echo "PROCEDURE $Sys_rep(VAR open : StateVector; mttx : StateVector);" +# echo "VAR" +# echo " MTTi,MTTj : INTEGER;" +# ;; *) echo "PROCEDURE $Sys_rep;" echo "VAR" echo " MTTi,MTTj : INTEGER;" ;; esac) > $Filename @@ -452,11 +462,11 @@ printf("{%s %s_csex.p}\n",inc,Sys) printf("{%s %s_cseo.p}\n",inc,Sys) printf("\n{%s %s_smxa.p}\n",inc,Sys); printf("\n{%s %s_smxax.p}\n",inc,Sys); } - printf("{%s %s_switchopen.p}\n\n",inc,Sys) + printf("{%s %s_logic.p}\n\n",inc,Sys) for (k=1;k<=j;k++) printf("%s\n", comment[k]) printf("\n") printf("\nBEGIN{%s}\n", Sys_rep) printf(" open(statefile,\"%s_state.dat\");\n", Sys)