开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 操作系统开发 > 查看源码
interp.h
资源名称：DOS系统的源代码.rar　[点击查看]
上传用户：xiaoan1112
上传日期：2013-04-11
资源大小：19621k
文件大小：7k
源码类别：

操作系统开发

开发平台：

Visual C++

interp.h：源码内容
  1. /*** 
  2. *interp.h - Data Dictionary for the BASIC 3.0 Interpreter
  3. *
  4. * Copyright <C> 1985, 1986, 1987 Microsoft Corporation
  5. *
  6. *******************************************************************************/
  7. /*                             
  8. /*  Standard Major Qualifiers  
  9. /*                             
  10. /* pX        - a pointer to an X
  11. /* szX        - pointer to 1st byte of a zero terminated string
  12. /* tX        - table; A contiguous list of X's
  13. /* iX        - 0 relative index of item within a table of X's
  14. /* oX        - 0 relative byte offset of an item from a known base
  15. /* fX        - flag; bit field to signal binary types
  16. /* bX        - byte
  17. /* cX        - count of occurrances of X
  18. /* cbX        - count of bytes in an X
  19. /* cwX        - count of words in an X
  20. /* mpXY        - An array which maps X's to Y's
  21. /* opX        - 16-bit value of BASIC Virtual Machine Opcode X
  22. /* opStX       - value of opcode for statement keyword X. i.e. opStResume
  23. /* opFnX       - value of opcode for intrinsic keyword X. i.e. opFnDate
  24. /* exX        - Function which emulates BASIC Virtual Machine Opcode opX
  25. /*                             
  26. /*  Standard Minor Qualifiers  
  27. /*                             
  28. /* xFirst      - first element of a list or sequence
  29. /* xNext       - next element of a list or sequence
  30. /* xLast       - last element of a list or sequence
  31. /* xSrc        - Source
  32. /* xDst        - Destination
  33. /* xMax        - Strict upper limit, i.e. char tbXXX[XXXMAX]
  34. /* xCur        - "Current value of" as opposed to xMax or xFirst
  35. /* xT        - Temporary
  36. /*
  37. /* In general, when a variable is of a type defined by a typedef the first
  38. /* characters of the variable name are the type name.  For example, sdX is
  39. /* an occurrence of a string descriptor.
  40. /*
  41. /*
  42. ***************************************************************************/
  44. #define INTERP_H -1  /* remember that interp.h has been included */
  46. /* ALL DECLARATIONS and other entities not allowed in DEF files must be under */
  47. /* NO_DECL (#ifndef) switch so DEF files may use version.h and the C       */
  48. /* preprocessor        */
  50. #ifndef NO_DECL
  51. #define TRUE 1
  52. #define FALSE 0
  54. #ifndef NULL  /* to preclude duplicate definition warnings */
  55. #define NULL 0  /* System NULL for pointers */
  56. #endif
  58. #define UNDEFINED (ushort)65535  /* System NULL for offsets */
  59. #define MAX_LN (ushort)65529     /* maximum legal line number */
  60. #define CB_IDNAM_MAX 40          /* [1] max number of bytes in an id. name */
  62. /* Variable/Literal Explicit Type Enumerations (predefined oTyp values) */
  63. /* be sure to add all new types to the global number definitions */
  65. #define  ET_IMP      0     /* Implicitly typed variable */
  66. #define  ET_I2      1     /* 16 bit signed integer */
  67. #define  ET_I4      2     /* 32 bit signed integer */
  69. #define  ET_R4      3     /* 32 bit real */
  70. #define  ET_R8      4     /* 64 bit real */
  72. #define  ET_MaxNum   ET_R8     /* [6] */
  74. #define  ET_SD      (ET_MaxNum+1)  /* [6] String descriptor */
  76. #define  ET_FS      (ET_SD+1)     /* [6] */
  77. #define  ET_MaxStr   ET_FS     /* [10][6] */
  79. #define  ET_MAX      ET_MaxStr     /* [10] */
  81. /* WARNING: be sure to make equivalent types in interp.h */
  82. /* global et type numbers.  all new types should be appended to the end.*/
  83. /* added for [13] */
  85. /* the next 5 types MUST be in the same order as the et types in QB 4.0 */
  87. #define     GLBL_IMP     0 /* Implicitly typed variable */
  88. #define     GLBL_I2     1 /* 16 bit signed integer */
  89. #define     GLBL_I4     2 /* 32 bit signed integer */
  90. #define     GLBL_R4     3 /* 32 bit real */
  91. #define     GLBL_R8     4 /* 64 bit real */
  92. #define     GLBL_SD     5 /* String descriptor */
  94. #define     GLBL_CY     6
  95. #define     GLBL_TX     7 /* Text descriptor */
  96. #define     GLBL_FS     8 /* Fixed length string */
  97. #define     GLBL_FT     9 /* Fixed length text */
  98. #define     GLBL_FIELD     10
  99. #define     GLBL_FORM     11
  100. #define     GLBL_MENU     12
  102. #define     GLBL_ET_MAX     12 /* number of global et types defined */
  105. #define STARTOTX 0  /* [11] */
  107. #define     opLitI2Max     10 // Maximum literal with own executor
  109. /*************************************************************************
  110. * C specific definitions
  111. *************************************************************************/
  112. #define REG1 register /* The 8086 has only 2 register variables */
  113. #define REG2 register
  114. #define REG3
  115. #define REG4
  116. #define REG5
  117. #define REG6
  118. #define REG7
  119. #define REG8
  120. #define REG9
  122. #define VOID void  /* EB_API */ /* For functions that return no value */
  123. #define NEAR near  /* EB_API */
  124. #define FAR far   /* EB_API */
  125. #define PLM pascal  /* EB_API */
  126. #define CDECL cdecl  /* EB_API */
  128. typedef unsigned char uchar;  /* EB_API */
  129. typedef unsigned short ushort;  /* EB_API */
  130. typedef unsigned long ulong;  /* EB_API */
  131. typedef ushort boolean;   /* EB_API */ /* -1 = TRUE, 0=FALSE  */
  132. typedef ushort word;  /* EB_API */
  133. typedef ulong  dword;  /* EB_API */
  134. typedef uchar  byte;  /* EB_API */
  135. typedef uchar  bool;
  137. /* String Descriptor definition */
  138. typedef struct sd {
  139. ushort cb; /* Count of data bytes in string */
  140. char * pb; /* Address of string data  */
  141. } sd;
  143. /* This structure is handy for computing the size of an odd-size structure
  144. regardless of whether -Zp is specified in the compile line or not */
  145. typedef struct oneChar {
  146. char singleChar;
  147. } oneChar;
  149. /*************************************************************************
  150. * Global Variables
  151. *************************************************************************/
  153. /* Only one module has DEFINE_VARIABLES set, so the variables
  154. are not external in only this module. */
  156. #if DEFINE_VARIABLES
  157. #define EXTERNAL
  158. #define INIT(x) = x
  159. #else
  160. #define EXTERNAL extern
  161. #define INIT(x)
  162. #endif
  164. /*************************************************************************
  165. * DEBUG Aids 
  166. *************************************************************************/
  167. /* RELEASE versions can't have DEBUG code. */
  169. #if !DEBUG_H
  170. #include "debug.h"
  171. #endif
  173. /*************************************************************************
  174. * MATH for C source
  175. *************************************************************************/
  178. /* The type of the floating point variables depends on the math pack.  When 
  179. using other than the C math pack, one cannot use the "double" or "float" 
  180. types because their definition alone causes C-math pack invocation */
  182. typedef struct DOUBLE {ulong high; ulong low;} DOUBLE;
  183. typedef struct FLOAT {ulong value;} FLOAT;
  184. #define double ERROR
  185. #define float ERROR
  186. #endif