Artifact a6fa5071b981830177bc513cb07639de5999ad39df5bb514c4991d5d76cd48a3:

• 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]

#! /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' |\
gawk '{
  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'