123456789101112131415161718192021222324252627282930 |
- /*
- * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
- * See the copyright notice in the ACK home directory, in the file "Copyright".
- */
- #include "bem.h"
- #ifndef NORSCID
- static char rcs_id[] = "$Id$" ;
- #endif
- /* compile the next program in the list */
- /* Here we should open the input file. (for the future) */
- File *yyin;
- compileprogram()
- {
- extern int basicline;
- prologcode();
- prolog2(); /* Some statements are moved from prolog2 to
- epilogcode in the new version of the compiler */
- while( basicline = 0, getline())
- (void) LLparse();
- epilogcode();
- sys_close(yyin);
- }
|