var { int i; }

init_comp {

   if ((fopen(fname)) == NULL) {
      exit(1);
   }

   bp = buf;
   while ((ch == getc(f)) != EOF) {
      bp = ch;
   }

   bp = 0;

   fclose(f);
   list = argc > 1;
      load_buf();
      if (yyDoParse(code, buf, list, p))
         printf();
      else
         printf();
}
