home *** CD-ROM | disk | FTP | other *** search
/ Geek Gadgets 1 / ADE-1.bin / ade-dist / unixtex-6.1b-src.tgz / tar.out / contrib / unixtex / web2c / lib / convert < prev    next >
Text File  |  1996-09-28  |  893b  |  36 lines
  1. #!/bin/sh
  2. # Convert WEB programs not needing special treatment to C.
  3. # 
  4. # $1 is the Pascal file to be converted.
  5. # $2 is the C file to be created.
  6. # $3 is the source directory, which might not be '.'
  7. # $4, if present, is extended with .h, and #included in the C file, and
  8. # extended with .defines, and prepended along with the common
  9. # definitions.
  10.  
  11. pascalfile=$1
  12. basefile=`basename $1 .p`
  13. cfile=$2
  14. srcdir=$3
  15.  
  16. # We use cpascal.h instead of config.h because getopt.c and perhaps
  17. # other straight C routines don't need or want the Pascal definitions of
  18. # `chr' and the like.
  19. hfile=cpascal.h
  20. defnfile=
  21.  
  22. if test $# -eq 4; then
  23.   hfile=$4.h
  24.   defnfile=$4.defines
  25. fi
  26.  
  27. cat $srcdir/../lib/common.defines $defnfile $pascalfile \
  28.     | ../web2c/web2c -h$hfile -c$basefile \
  29.     | ../web2c/fixwrites $basefile > $cfile
  30.  
  31. if test $? -ne 0; then
  32.   echo "web2c conversion failed, goodbye." 1>&2
  33.   exit 1
  34. fi
  35. exit 0
  36.