Overview
Comment:Changed begin and end stripping to include trailing space
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 3a867e2989392b5c5f93f16fe780da17dc37729a713425408d1cec85ee920a06
User & Date: gawthrop@users.sourceforge.net on 2000-08-29 09:31:30
Other Links: branch diff | manifest | tags
Context
2000-08-29
09:57:45
Another go at removing ends nicely check-in: d383e3be7f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
09:31:30
Changed begin and end stripping to include trailing space check-in: 3a867e2989 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
2000-08-28
20:17:59
Put in Winfried Neun's bug fix
-- prevents segmentation violation using optimised gentran when matrix
comtains a number
check-in: a13084497f user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/mtt_p2m from [09a0ccbaff] to [23c6336384].

1
2
3
4
5
6

7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
#! /bin/sh

sed 's/begin//' |\
sed 's/end//' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\

sed 's/mtt\([a-z]*\)\([0-9]\)\([0-9]*\)/mtt\1(\2\3)/g' |\
awk '{
  sub(/^[\ ]*/, "", $0)
  sub(/\$$/, ";", $0)
  
  if (match($NF,"[;\#\.]$")==0){
    Previous[++i] = $0
  }
  else {
    for (j=1;j<=i;j++) printf("%s", Previous[j]);
    printf("%s\n", $0) 
    i=0;
  }
}'



|
|


>





|







|
|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
#! /bin/sh

sed 's/begin / /' |\
sed 's/end / /' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\
sed 's/\*\*/\^/g' |\
sed 's/mtt\([a-z]*\)\([0-9]\)\([0-9]*\)/mtt\1(\2\3)/g' |\
awk '{
  sub(/^[\ ]*/, "", $0)
  sub(/\$$/, ";", $0)
  
  if (match($NF,"[;\#\.\%]$")==0){
    Previous[++i] = $0
  }
  else {
    for (j=1;j<=i;j++) printf("%s", Previous[j]);
    printf("%s\n", $0) 
    i=0;
  }
}' |\
sed 's/#/%/g'


MTT: Model Transformation Tools
GitHub | SourceHut | Sourceforge | Fossil RSS ]