/packages/xforms/scripts/doc2p

https://github.com/slibre/freepascal · C Shell · 11 lines · 3 code · 5 blank · 3 comment · 0 complexity · 1282179d3d1b39e14d11f2a0cc0ace0d MD5 · raw file 

    

  1. #!/bin/csh
    2. 

  2. # Simple script to do some VERY basic c->pascal conversions.
    3. 

  3. # 
    4. 

  4. foreach f ( $1 )
    5. 

  5. sed s/\\\"/\\\'/g <$f | sed s/\\\/\\\*/\{/g |sed s/\\\*\\\//\}/g |\
    6. 

  6. sed s/\ =\ /\ :=\ /g | sed s/-\>/\\^\\\./g >`basename $f .c`.pp
    7.