home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / pascal.zip / pcode / pcode.hi < prev    next >
Encoding:
Text File  |  1995-10-29  |  1.2 KB  |  75 lines
  1. /*
  2.  *        C . A . P .   P C O D E   G E N E R A T O R
  3.  *
  4.  *        I N T E R N A L   I N C L U D E   F I L E
  5.  *
  6.  *        Stéphane Charette @ C.A.P. Services
  7.  *
  8.  *        Last modified:  Stéphane Charette, 1995 October 29
  9.  *
  10.  *****************************************************************************
  11.  *
  12.  *        Project:    BILL
  13.  *        Group:    pcode
  14.  *        File:        pcode\pcode.hi
  15.  *
  16.  *        This file contains all of the internal definitions used with
  17.  *        the pcode generator of the interpreter BILL.
  18.  */
  19.  
  20.  
  21.  
  22. #ifndef _PCODE_H_INTERNAL
  23.  
  24.     #define _PCODE_H_INTERNAL
  25.  
  26.     /*
  27.      *        Includes
  28.      */
  29.         #include <stdio.h>                // file i/o
  30.         #include <stdlib.h>                // exit
  31.         #include "..\pcode\pcode.h"
  32.  
  33.  
  34.  
  35.     /*
  36.      *        Defines
  37.      */
  38.  
  39.  
  40.  
  41.     /*
  42.      *        Types & structures
  43.      */
  44.         struct PCODE_STATES_STRUCT
  45.         {
  46.             USHORT    CurrentIndex;        // current pcode index into generated code buffer
  47.         };
  48.         typedef struct PCODE_STATES_STRUCT PCODE_STATES;
  49.  
  50.  
  51.  
  52.     /*
  53.      *        Macros
  54.      */
  55.  
  56.  
  57.  
  58.     /*
  59.      *        Local (internal) variables
  60.      */
  61.         SHORT    PCodeBuffer[PCODE_MAX_LEN];    // buffer of generated pcode
  62.         PCODE_STATES    PCode_State;
  63.  
  64.  
  65.  
  66.     /*
  67.      *        Local (internal) prototyping
  68.      */
  69.         void PCodeError( void );
  70.  
  71.  
  72.  
  73. #endif
  74.  
  75.