Differences From Artifact [2ad4e8ad5c]:

• Executable file mttroot/mtt/bin/trans/mtt_p2m — part of check-in [e62995de26] at 2002-04-19 09:13:11 on branch origin/master — \. \# \% all gave \ removed to avoid warning in new gawk (user: gawthrop@users.sourceforge.net, size: 542) [annotate] [blame] [check-ins using] [more...]

To Artifact [a6fa5071b9]:

• Executable file mtt/bin/trans/mtt_p2m — part of check-in [af3953deae] at 2021-03-01 11:39:42 on branch master — Cleanup repository after cvs2git conversion. (user: jeff@gridfinity.com, size: 543) [annotate] [blame] [check-ins using] [more...]
• Executable file mttroot/mtt/bin/trans/mtt_p2m — part of check-in [66bb5feadf] at 2002-04-28 18:41:27 on branch origin/master — Fixed [ 549658 ] awk should be gawk.
  Replaced calls to awk with call to gawk. (user: geraint@users.sourceforge.net, size: 543) [annotate] [blame] [check-ins using]

1
2
3
4
5
6
7
8
9
10
11
12

13
14
15
16
17
18
19

1
2
3
4
5
6
7
8
9
10
11

12
13
14
15
16
17
18
19

-
+

#! /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 '{
gawk '{
  sub(/^[\ ]*/, "", $0)
  sub(/\$$/, ";", $0)
  
  if (match($NF,"[;#.%]$")==0){
    Previous[++i] = $0
  }
  else {