home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume14 / sharedmem / part01 / src / franz / public.h < prev   
Encoding:
C/C++ Source or Header  |  1988-05-17  |  1.9 KB  |  82 lines
  1. /*                    -[Tue May 21 17:05:40 1985 by layer]-
  2.  *     public.h            $Locker:  $
  3.  *
  4.  *   definition for Public data objects which all files are permitted
  5.  *   to look at. [These are the very public data objects]
  6.  *
  7.  * $Header: public.h,v 40.5 85/05/21 17:24:04 layer Exp $
  8.  *
  9.  * 
  10.  * (c) copyright 1984, Franz Inc., Oakland California
  11.  */
  12.  
  13. #ifdef apollo
  14. extern
  15. #else
  16. Public
  17. #endif
  18. struct nament *bnp;    /* first free bindstack entry */
  19. Public struct nament *bnplim,    /* limit of bindstack */
  20.              *orgbnp;    /* base of the bindstack */
  21.  
  22.  
  23. #ifdef NPINREG
  24. Import
  25. #else
  26. #ifdef apollo
  27. extern
  28. #else
  29. Public
  30. #endif apollo
  31. #endif NPINREG
  32.     struct     argent *lbot,    /* base of arguments to function */
  33.                  *np;    /* first free namestack entry */
  34.              
  35. Public struct argent *nplim,    /* one above limit of namestack */
  36.              *orgnp;    /* first slot in the namestack */
  37.              
  38. #ifdef apollo
  39. extern
  40. #else
  41. Public
  42. #endif apollo
  43.     word retval;        /* used by each error/prog call     */
  44.                 /* retval could be an int */
  45. #ifdef apollo
  46. extern
  47. #else
  48. Public
  49. #endif apollo
  50. lispval  lispretval;    /* used by non-local go  */
  51.  
  52. Public lispval datalim;        /* limit of valid data area */
  53.  
  54. Public lispval vtemp;        /* used in a few macros as a temp */
  55. Public long sigintcnt;        /* count of interrupts since processed */
  56.                 /* sigintcnt could be an int */
  57.  
  58. Import char typetable[];        /* one byte per page */
  59.  
  60. #ifdef MVR
  61. /* Stuff having to do with Multiple Values */
  62. #ifdef apollo
  63. extern
  64. #else
  65. Public
  66. #endif apollo
  67. int nmvr;        /* # of multiple values being returned less 1 */
  68. Import int mmvr;        /* Max # of multiple values possibly returned*/
  69. #ifdef apollo
  70. extern
  71. #else
  72. Public
  73. #endif apollo
  74. lispval *mvals;        /* pointer to a static storage area for them */
  75. Public lispval *mvalsMMVR;  /* pointer to end of storage area for them */
  76. #define clrnmv() (nmvr = 0);
  77. #endif MVR
  78.  
  79. #ifdef Savelisp
  80. Public lispval relvectors;  /* for save/restorelisp */
  81. #endif Savelisp
  82.