home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / gofer230.zip / Progs / Gofer / Scripts / goferc < prev    next >
Text File  |  1994-06-23  |  1KB  |  40 lines
  1. #!/bin/sh
  2. # 
  3. # This shell script invokes the Gofer compiler `gofc' to produce a C file,
  4. # followed by the `gcc' C compiler to produce an executable. Arguments are as
  5. # for `gofer' and `gofc'. Like `gofc', it uses the last argument to form the
  6. # program name, but ensures that this has an extension to avoid overwriting.
  7. #
  8. # Ian Holyer,  October 1993  (now uses sh, not csh)
  9.  
  10. args=$*
  11. while test $# -gt 1; do shift; done
  12. case $1 in
  13.    *.gs)      prog=`dirname $1`/`basename $1 .gs` ;;
  14.    *.gof)     prog=`dirname $1`/`basename $1 .gof` ;;
  15.    *.lgs)     prog=`dirname $1`/`basename $1 .lgs` ;;
  16.    *.gp)      prog=`dirname $1`/`basename $1 .gp` ;;
  17.    *.prj)     prog=`dirname $1`/`basename $1 .prj` ;;
  18.    *.prelude) prog=`dirname $1`/`basename $1 .prelude` ;;
  19.    *.hs)      prog=`dirname $1`/`basename $1 .hs` ;;
  20.    *.has)     prog=`dirname $1`/`basename $1 .has` ;;
  21.    *.lhs)     prog=`dirname $1`/`basename $1 .lhs` ;;
  22.    *.lit)     prog=`dirname $1`/`basename $1 .lit` ;;
  23.    *.verb)    prog=`dirname $1`/`basename $1 .verb` ;;
  24.    *)
  25.       echo The source program $1 does not have one of the standard
  26.       echo extensions for Gofer or Haskell program or project files:
  27.       echo '(.gs .gof .lgs .gp .prj .prelude .hs .has .lhs .lit or .verb)'
  28.       exit
  29.       ;;
  30. esac
  31.  
  32. GOFER=/home/staff/ian/gofer/lib/standard.prelude
  33. export GOFER
  34. /usr/local/lib/Gofer/gofc $args
  35. echo '[Compiling with gcc]'
  36. gcc -o $prog -O $prog.c /usr/local/lib/Gofer/runtime.o -lm
  37. strip $prog
  38. rm $prog.c
  39.  
  40.