home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pascal.zip / bill / bill.c next >
Encoding:
C/C++ Source or Header  |  1995-10-29  |  1.2 KB  |  71 lines
  1. //
  2. //        NOTE:  THIS IS A QUICK HACK AT A main() FOR THE BILL PROJECT!
  3. //
  4.  
  5.  
  6.  
  7. /*
  8.  *    Includes
  9.  */
  10.     #include "..\parser\parser.h"
  11.     #include "..\stackman\stackman.h"
  12.     #include <conio.h>
  13.     #include <stdio.h>
  14.     #include <stdlib.h>
  15.     #include <string.h>
  16.  
  17.  
  18.  
  19. /*
  20.  *    FUNCTION:  main
  21.  */
  22. USHORT main( )
  23. {
  24.     char InputFileStr[ 512 ];
  25.  
  26.     ERR RC = ERR_OK;
  27.  
  28.     printf( "\n\nB.I.L.L. -- Bishop's Innovative Lovely Language\n"
  29.             "PARSER & PCode generator for B.I.L.L.\n"
  30.             "Stéphane Charette, 1994April27, 1995Oct29\n"
  31.             "Compiled for OS/2 v3.0 using IBM's C++ compiler v2.1" );
  32.  
  33.     do
  34.     {
  35.         printf( "\n\nWhich file to use as input?\n" );
  36.         scanf( "%511s", InputFileStr );
  37.  
  38.         RC = InitParser( InputFileStr );
  39.         #if( _PARSER_DEBUG )
  40.         RC = InitParserDebug( FALSE, TRUE );
  41.         #endif
  42.  
  43.         BeginParser( );
  44.  
  45.         #if( _PARSER_DEBUG )
  46.         ResetParserDebug( );
  47.         #endif
  48.         ResetParser( );
  49.  
  50.         printf( "\n\nPCode generated ok.\n" );
  51.  
  52.         printf( "\nRun the interpreter?\n" );
  53.         if( strchr( "Yy", getch( ) ) )
  54.         {
  55.             printf( "yes\n\n\n\n\n" );
  56.             RunStackMachine( );
  57.         }
  58.         else
  59.         {
  60.             printf( "no\n" );
  61.         }
  62.  
  63.         printf( "\nRestart B.I.L.L.?\n" );
  64.  
  65.     } while( strchr( "Yy", getch( ) ) );
  66.  
  67.     printf( "no\n" );
  68.  
  69.     return RC;
  70. }
  71.