Index: mttroot/mtt/bin/trans/mtt_fix_integers ================================================================== --- mttroot/mtt/bin/trans/mtt_fix_integers +++ mttroot/mtt/bin/trans/mtt_fix_integers @@ -1,11 +1,11 @@ #! /bin/sh mttmatrix='\(mtt[A-Za-z][A-Za-z]*\)' integer='\([0-9][0-9]*\)' -exec gawk -v RS=${1:-"$"} -v ORS=${2:-"$\n"} ' { +mtt_join_lines | gawk -v RS=${1:-"$"} -v ORS=${2:-"$\n"} ' { str = $0; str1 = gensub ( /([^A-Za-z_0-9\.\+])([0-9]+)([^\.0-9])/ , "\\1\\2.0\\3" , "g", str ); str2 = gensub ( /([^e]\+)([0-9]+)([^\.0-9])/ , "\\1\\2.0\\3" , "g", str1 ); str3 = gensub ( /([^A-Za-z_0-9\.\+])([0-9]+)e([0-9]+).0([^\.0-9])/ , "\\1\\2\\3\\4" , "g" , str2) printf "%s$\n", str3 ; ADDED mttroot/mtt/bin/trans/mtt_join_lines Index: mttroot/mtt/bin/trans/mtt_join_lines ================================================================== --- /dev/null +++ mttroot/mtt/bin/trans/mtt_join_lines @@ -0,0 +1,5 @@ +#! /bin/sh + +gawk '{ printf ( "%s" , $0 ) }' |\ + gawk -v RS="$" '{ printf "%s$\n", $0 }' |\ + gawk -v RS=";" '{ printf "%s;\n", $0 }'