#!/bin/ksh

if test -z "$1" -o -z "$2"
then
echo "Usage: $0 <src file> <dest file>"
exit 1
fi

unalias rm
rm -f tmp.1 tmp.2 tmp.3 tmp.4

cp $1 tmp.1

sed "s#\([pcmxrs]\)(\([0-9]*\),\([0-9]*\),\([0-9]*\))#\1_\2_\3_\4#g" tmp.1 > tmp.2
sed "s#k(\([0-9]*\),\([0-9]*\))#k_\1_\2#g" tmp.2 > tmp.3
sed "s#v\([a-zA-Z]*\)(\([0-9]*\),\([0-9]*\))#v\1_\2_\3#g" tmp.3 > tmp.4

cp tmp.4 $2

rm -f tmp.1 tmp.2 tmp.3 tmp.4
