Overview
| Comment: | More fixes to avoid interpering variables as funs - basicly all functions now have at least () |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
bc0878db6c39f0258d87f213847f6fbc |
| User & Date: | gawthrop@users.sourceforge.net on 2000-11-10 14:46:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-11-12
| ||
| 16:45:57 |
Close ese file before recursive call of cbg2ese -- reopen when finished. THis prevents a new file being opened for each subsystem which fails when > 1K files opened check-in: 042a906bec user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-11-10
| ||
| 14:46:53 |
More fixes to avoid interpering variables as funs - basicly all functions now have at least () check-in: bc0878db6c user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 14:45:16 | Finished up changes to incorporate Geraint's cc stuff check-in: 49256f0717 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [d8f6703ed9] to [cc1cc6d2c9].
| ︙ | ︙ | |||
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.59 2000/11/10 09:29:31 peterg ## Changed the name regexp to be at least 3 characters long ## - avoids problem translating som state files - but needs more work ## ## Revision 1.58 2000/10/17 09:54:29 peterg ## replaced switchopen by logic ## | > > > | 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.60 2000/11/10 09:38:30 peterg ## Got rid of sys_name functions with no () ## ## Revision 1.59 2000/11/10 09:29:31 peterg ## Changed the name regexp to be at least 3 characters long ## - avoids problem translating som state files - but needs more work ## ## Revision 1.58 2000/10/17 09:54:29 peterg ## replaced switchopen by logic ## |
| ︙ | ︙ | |||
255 256 257 258 259 260 261 |
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttx : StateVector;"
echo " mtty : OutputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
;;
logic)
| | | 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 |
echo "PROCEDURE $Sys_rep(VAR mttu : InputVector;"
echo " mttx : StateVector;"
echo " mtty : OutputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
;;
logic)
echo "PROCEDURE $Sys_rep(VAR mttopen : StateVector;"
echo " mttx : StateVector;"
echo " mttu : InputVector;"
echo " mttt : REAL;"
echo " mttpar : ParameterVector);"
;;
ode)
echo "PROCEDURE $Sys_rep(VAR mttdx: StateVector;"
|
| ︙ | ︙ | |||
401 402 403 404 405 406 407 408 409 410 411 412 413 414 |
printf("\n")
}' |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)/\2(\1)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\(zeros\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\($non_space\)$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\
awk '
function printvar(Name,N) {
if (N<1) return;
width = 10;
kk = 0;
for (k=1;k<=N;k++) {
printf("mtt%s%i", Name, k);
| > | 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 |
printf("\n")
}' |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\($mttfun_name\)/\2(\1)/" |\
sed "s/$space\[\($non_space\)\]$spaces=$spaces\(zeros\)(\($args\))/\2(\1,\3)/" |\
sed "s/$space\($non_space\)$spaces=$spaces\($fun_name\)(\($args\))/\2(\1,\3)/" |\
sed "s/,)/)/" |\
awk '
function printvar(Name,N) {
if (N<1) return;
width = 10;
kk = 0;
for (k=1;k<=N;k++) {
printf("mtt%s%i", Name, k);
|
| ︙ | ︙ |