File mttroot/mtt/bin/trans/mtt_p2m artifact 1a32a9e3a2 part of check-in a49daaeeff
#! /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]*\)\([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'