Overview
| Comment: | Give other procedures local i,j vars. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
874ad25f7094fcaae0a205f2b3d79ebb |
| User & Date: | gawthrop@users.sourceforge.net on 1998-07-25 16:59:40 |
| Other Links: | branch diff | manifest | tags |
Context
|
1998-07-25
| ||
| 18:18:23 | Added switches check-in: 37d2b01af3 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 16:59:40 | Give other procedures local i,j vars. check-in: 874ad25f70 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 16:35:43 | Sorted out log files etc check-in: 9cb3ac5c88 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [b81642ff5a] to [b39af5938d].
| ︙ | ︙ | |||
11 12 13 14 15 16 17 18 19 20 21 22 23 24 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.4 1998/07/25 15:05:54 peterg ## DD ## ## Revision 1.3 1998/07/25 14:03:30 peterg ## Added () to [] conversion when the variable is i j k or an integer or ## combination ## | > > > | 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 | # Copyright (c) P.J.Gawthrop 1998 ############################################################### ## Version control history ############################################################### ## $Id$ ## $Log$ ## Revision 1.5 1998/07/25 15:06:17 peterg ## Added DDT VAR ## ## Revision 1.4 1998/07/25 15:05:54 peterg ## DD ## ## Revision 1.3 1998/07/25 14:03:30 peterg ## Added () to [] conversion when the variable is i j k or an integer or ## combination ## |
| ︙ | ︙ | |||
89 90 91 92 93 94 95 96 97 98 99 100 101 102 |
echo " mttx,mttdx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " i,j,it,iLast,STEPFACTOR : INTEGER;"
echo " METHOD : STRING;"
;;
*) echo "PROCEDURE $Sys_rep;"
;;
esac) > $Filename
cat<<EOF >> $Filename
{*** System $Sys, rep $rep, language Pascal, file $Filename ***}
{*** Translated by MTT from $Sys_rep.m on `date` ***}
| > > | 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 |
echo " mttx,mttdx : StateVector;"
echo " mttu : InputVector;"
echo " mtty : OutputVector;"
echo " i,j,it,iLast,STEPFACTOR : INTEGER;"
echo " METHOD : STRING;"
;;
*) echo "PROCEDURE $Sys_rep;"
echo "VAR"
echo " i,j : INTEGER;"
;;
esac) > $Filename
cat<<EOF >> $Filename
{*** System $Sys, rep $rep, language Pascal, file $Filename ***}
{*** Translated by MTT from $Sys_rep.m on `date` ***}
|
| ︙ | ︙ |