Overview
| Comment: | *** empty log message *** |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
0582eef974fdf6967a1b91530a132d1b |
| User & Date: | gawthrop@users.sourceforge.net on 2000-08-24 08:30:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2000-08-24
| ||
| 08:53:35 | New makesubs to create a .subs.r file with output switches to simplify output. check-in: 128979d078 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
| 08:30:45 | *** empty log message *** check-in: 0582eef974 user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
|
2000-08-17
| ||
| 12:43:31 | Modified for Levenberg-Marquardt opt. check-in: d3ce11830e user: gawthrop@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_m2p from [e0d8e66925] to [accd586500].
| ︙ | ︙ | |||
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.50 2000/05/19 17:46:41 peterg ## New version of state with par argument ## ## Revision 1.49 2000/05/18 09:45:45 peterg ## Fixed missing ; ## ## Revision 1.48 2000/05/18 09:39:38 peterg | > > > | 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.51 2000/08/01 12:25:24 peterg ## Some changes to include files ## ## Revision 1.50 2000/05/19 17:46:41 peterg ## New version of state with par argument ## ## Revision 1.49 2000/05/18 09:45:45 peterg ## Fixed missing ; ## ## Revision 1.48 2000/05/18 09:39:38 peterg |
| ︙ | ︙ | |||
475 476 477 478 479 480 481 |
if ($1=="if") {
sub(/==/, "=", $0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s THEN BEGIN\n", $0)
}
else {
| | | < > | 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 |
if ($1=="if") {
sub(/==/, "=", $0)
gsub(/&&/," AND ",$0)
gsub(/\|\|/," OR ",$0)
printf("%s THEN BEGIN\n", $0)
}
else {
#if ((match($1,"mtt_write")>0)&&(length(Stdin)>0)) {
# sub(/mtt_write/, "if NOT eof THEN mtt_write");
#}
if ($1=="for"){
if (($2=="it")&&(length(Stdin)>0)){
printf("WHILE NOT eof DO BEGIN {Integration loop}\n")
}
else {
sub(/:/," TO ",$0)
sub(/=/,":=",$0)
|
| ︙ | ︙ |