home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / huprolog / Source / C / MEMORY < prev    next >
Encoding:
Text File  |  1990-06-10  |  2.5 KB  |  90 lines
  1. /***************************************************
  2. ****************************************************
  3. **                                                **
  4. **  HU-Prolog     Portable Interpreter System     **
  5. **                                                **
  6. **  Release 1.62   January  1990                  **
  7. **                                                **
  8. **  Authors:      C.Horn, M.Dziadzka, M.Horn      **
  9. **                                                **
  10. **  (C) 1989      Humboldt-University             **
  11. **                Department of Mathematics       **
  12. **                GDR 1086 Berlin, P.O.Box 1297   **
  13. **                                                **
  14. ****************************************************
  15. ***************************************************/
  16.  
  17. #include "systems.h"
  18. #include "manager.h"
  19. #include "types.h"
  20.  
  21. #if BYTEOFFSET | WORDOFFSET
  22.  
  23. /* TERMENTRY TERMTAB[MAX_TERMS]; */
  24. fardeclare(ATOM,tNAME,MAX_TERMS);
  25. fardeclare(card,tNODECASE,MAX_TERMS);
  26.  
  27. /* ATOMENTRY ATOMTAB[MAX_ATOMS]; */
  28. fardeclare(STRING,a_IDENT,MAX_ATOMS);
  29. fardeclare(ATOM,a_NEXTATOM,MAX_ATOMS);
  30. fardeclare(ATOM,a_CHAINATOM,MAX_ATOMS);
  31. declare(CLAUSE,a_CLAUSE,MAX_ATOMS);
  32. declare(ARITY_TYPE,a_ARITY,MAX_ATOMS);
  33. fardeclare(PREC_TYPE,a_PREC,MAX_ATOMS);
  34. fardeclare(INFO_TYPE,a_INFO,MAX_ATOMS);
  35. #if HACKY
  36. fardeclare(card,a_NROFCALLS,MAX_ATOMS);
  37. #endif
  38.  
  39. /* TRAILENTRY TRAILTAB[MAX_TRAILER] */
  40. fardeclare(TERM,TRAILTAB,MAX_TRAILER);
  41.  
  42. /* ENVENTRY ENVTAB[MAX_ENVS]; */
  43. declare(TERM,e_FCALL,MAX_ENVS);
  44. declare(TERM,e_FBASE,MAX_ENVS);
  45. declare(ENV,e_FENV,MAX_ENVS);
  46. declare(ENV,e_FCHOICE,MAX_ENVS);
  47. fardeclare(ATOM,e_FATOM,MAX_ENVS);
  48. fardeclare(CLAUSE,e_FCLAUSE,MAX_ENVS);
  49. fardeclare(TRAIL,e_FTRAIL,MAX_ENVS);
  50. fardeclare(card,e_FKIND,MAX_ENVS);
  51.  
  52. /* char STRINGTAB[MAX_STRINGS]; */
  53. fardeclare(char,STRINGTAB,MAX_STRINGS);
  54.  
  55. #endif
  56.  
  57. #if POINTEROFFSET
  58.  
  59. TERMNODE TERMAREA[MAX_TERMS];
  60.  
  61. /* ATOMENTRY ATOMTAB[MAX_ATOMS]; */
  62. declare(ARITY_TYPE,a_ARITY,MAX_ATOMS);
  63. fardeclare(STRING,a_IDENT,MAX_ATOMS);
  64. fardeclare(ATOM,a_NEXTATOM,MAX_ATOMS);
  65. fardeclare(ATOM,a_CHAINATOM,MAX_ATOMS);
  66. declare(CLAUSE,a_CLAUSE,MAX_ATOMS);
  67. fardeclare(PREC_TYPE,a_PREC,MAX_ATOMS);
  68. fardeclare(INFO_TYPE,a_INFO,MAX_ATOMS);
  69. #if HACKY
  70. fardeclare(card,a_NROFCALLS,MAX_ATOMS);
  71. #endif
  72.  
  73. volatile TERM TRAILTAB[MAX_TRAILER];
  74.  
  75. /* ENVENTRY ENVTAB[MAX_ENVS]; */
  76. declare(TERM,e_FCALL,MAX_ENVS);
  77. declare(TERM,e_FBASE,MAX_ENVS);
  78. declare(ENV,e_FENV,MAX_ENVS);
  79. declare(ENV,e_FCHOICE,MAX_ENVS);
  80. fardeclare(ATOM,e_FATOM,MAX_ENVS);
  81. fardeclare(CLAUSE,e_FCLAUSE,MAX_ENVS);
  82. fardeclare(TRAIL,e_FTRAIL,MAX_ENVS);
  83.  
  84. char STRINGTAB[MAX_STRINGS];
  85.  
  86. #endif
  87.  
  88.  
  89.  
  90.