fpc/packages/xforms/scripts/doc2p

#!/bin/csh
# Simple script to do some VERY basic c->pascal conversions.
# 
foreach f ( $1 )
sed s/\\\"/\\\'/g <$f | sed s/\\\/\\\*/\{/g |sed s/\\\*\\\//\}/g |\
sed s/\ =\ /\ :=\ /g | sed s/-\>/\\^\\\./g >`basename $f .c`.pp