lang/basic/src/compile.c

   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
   6 #include "bem.h"
   7
   8 #ifndef NORSCID
   9 static char rcs_id[] = "$Id: compile.c,v 1.3 1994/06/24 11:30:37 ceriel Exp $" ;
  10 #endif
  11
  12
  13 /* compile the next program in the list */
  14 /* Here we should open the input file. (for the future) */
  15
  16 File *yyin;
  17
  18 compileprogram()
  19 {
  20         extern int basicline;
  21
  22         prologcode();
  23         prolog2(); /* Some statements are moved from prolog2 to
  24                       epilogcode in the new version of the compiler */
  25
  26         while( basicline = 0, getline())
  27                 (void) LLparse();
  28         epilogcode();
  29         sys_close(yyin);
  30 }