Overview
| Comment: | Prevent match of zero occurences of a letter between "mtt" and a digit. Fixes bug #116426. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | origin/master | trunk |
| Files: | files | file ages | folders |
| SHA3-256: |
ae5f2291e7d03e736d4e12b64e1ea9ad |
| User & Date: | geraint@users.sourceforge.net on 2001-02-05 04:16:06 |
| Other Links: | branch diff | manifest | tags |
Context
|
2001-02-05
| ||
| 04:23:09 | Simplified. check-in: 89f987075f user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 04:16:06 |
Prevent match of zero occurences of a letter between "mtt" and a digit. Fixes bug #116426. check-in: ae5f2291e7 user: geraint@users.sourceforge.net tags: origin/master, trunk | |
| 04:11:26 | Added _logic.txt check-in: d14aabb42d user: geraint@users.sourceforge.net tags: origin/master, trunk | |
Changes
Modified mttroot/mtt/bin/trans/mtt_p2m from [1a32a9e3a2] to [2649f1483b].
1 2 3 4 5 6 7 8 9 10 | #! /bin/sh ## Chages the Pascal output from gentran to octave form # Copyright (C) 2000 by Peter J. Gawthrop sed 's/begin$//' |\ sed 's/end$//' |\ sed 's/end;$/;/' |\ sed 's/\[\([0-9,]*\)\]/(\1)/g' |\ sed 's/:=/ = /' |\ sed 's/\*\*/\^/g' |\ | | | 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 |
#! /bin/sh
## Chages the Pascal output from gentran to octave form
# Copyright (C) 2000 by Peter J. Gawthrop
sed 's/begin$//' |\
sed 's/end$//' |\
sed 's/end;$/;/' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\
sed 's/\*\*/\^/g' |\
sed 's/mtt\([a-z]\)\([a-z]*\)\([0-9]\)\([0-9]*\)/mtt\1\2(\3\4)/g' |\
awk '{
sub(/^[\ ]*/, "", $0)
sub(/\$$/, ";", $0)
if (match($NF,"[;\#\.\%]$")==0){
Previous[++i] = $0
}
|
| ︙ | ︙ |