Overview
Comment:More on concatenating lines - keeps going until ; or $ found.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | origin/master | trunk
Files: files | file ages | folders
SHA3-256: 87b97b367a243d2142428b47296fe1670c499377e06d128467ff02ccbf5cce65
User & Date: gawthrop@users.sourceforge.net on 1998-08-12 15:53:38
Other Links: branch diff | manifest | tags
Context
1998-08-13
08:35:40
extended end of line regexp to include . and # check-in: 98b92713ca user: gawthrop@users.sourceforge.net tags: origin/master, trunk
1998-08-12
15:53:38
More on concatenating lines - keeps going until ; or $ found. check-in: 87b97b367a user: gawthrop@users.sourceforge.net tags: origin/master, trunk
15:21:12
Added type definition for the SVD procedures check-in: c7dffab088 user: gawthrop@users.sourceforge.net tags: origin/master, trunk
Changes

Modified mttroot/mtt/bin/trans/mtt_p2m from [d954652ab3] to [8d7d4ebd6d].

1
2
3
4
5
6
7
8

9
10
11
12
13

14
15
16
17
18
19
#! /bin/sh

sed 's/begin//' |\
sed 's/end//' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\
awk '{
  sub(/^[\ ]*/, "", $0)

  
  if ((match($0,"=")>0)&&(match($NF,"[\#;]")==0)){
    Previous = $0
  }
  else {

    print Previous $0
    Previous = ""
  }
}'
sed 's/\([^\.;\#]\)$/\1\\/'









>

|
|


>
|
|


<

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

20
#! /bin/sh

sed 's/begin//' |\
sed 's/end//' |\
sed 's/\[\([0-9,]*\)\]/(\1)/g' |\
sed 's/:=/ = /' |\
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;
  }
}'



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