compile.c 635 B

123456789101112131415161718192021222324252627282930
  1. /*
  2. * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
  3. * See the copyright notice in the ACK home directory, in the file "Copyright".
  4. */
  5. #include "bem.h"
  6. #ifndef NORSCID
  7. static char rcs_id[] = "$Id$" ;
  8. #endif
  9. /* compile the next program in the list */
  10. /* Here we should open the input file. (for the future) */
  11. File *yyin;
  12. compileprogram()
  13. {
  14. extern int basicline;
  15. prologcode();
  16. prolog2(); /* Some statements are moved from prolog2 to
  17. epilogcode in the new version of the compiler */
  18. while( basicline = 0, getline())
  19. (void) LLparse();
  20. epilogcode();
  21. sys_close(yyin);
  22. }