home *** CD-ROM | disk | FTP | other *** search
/ Gold Fish 2 / goldfish_vol2_cd1.bin / files / dev / lang / umbscheme / src / architecture.h < prev    next >
Encoding:
Text File  |  1993-11-30  |  3.2 KB  |  111 lines
  1. /* architecture.h -- UMB Scheme, architecture interface.
  2.  
  3. UMB Scheme Interpreter                  $Revision: 2.12 $
  4. Copyright (C) 1988, 1991 William R Campbell
  5.  
  6. This program is free software; you can redistribute it and/or modify
  7. it under the terms of the GNU General Public License as published by
  8. the Free Software Foundation; either version 1, or (at your option)
  9. any later version.
  10.  
  11. This program is distributed in the hope that it will be useful,
  12. but WITHOUT ANY WARRANTY; without even the implied warranty of
  13. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14. GNU General Public License for more details.
  15.  
  16. You should have received a copy of the GNU General Public License
  17. along with this program; if not, write to the Free Software
  18. Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  19.  
  20. UMB Scheme was written by Bill Campbell with help from Karl Berry,
  21. Barbara Dixey, Ira Gerstein, Mary Glaser, Kathy Hargreaves, Bill McCabe,
  22. Long Nguyen, Susan Quina, Jeyashree Sivasubram, Bela Sohoni and Thang Quoc Tran.
  23.  
  24. For additional information about UMB Scheme, contact the author:
  25.  
  26.     Bill Campbell
  27.     Department of Mathematics and Computer Science
  28.     University of Massachusetts at Boston
  29.     Harbor Campus
  30.     Boston, MA 02125
  31.  
  32.     Telephone: 617-287-6449        Internet: bill@cs.umb.edu
  33.  
  34. */
  35.  
  36. /* Register set. */
  37.  
  38. Import    Object    Expression_Register ;
  39. Import    Object    Value_Register ;
  40. Import    Object    Environment_Register ;
  41. Import    Object    Function_Register ;
  42. Import    Object    Arguments_Register ;
  43. Import  Object  State_Register ;
  44. Import    ELabel    PC_Register ;
  45.  
  46. /* Place for saving top level registers while in debug mode. */
  47.  
  48. Import    Object    Value_Debugged ;
  49. Import  Object  State_Debugged ;
  50.  
  51. /* Argument stack. */
  52.  
  53. #define ARG_STACK_LIMIT 50000
  54. #define    ARG_STACK_SIZE    (ARG_STACK_LIMIT+2)
  55.  
  56. Import    Object    Arg_Stack[] ;
  57. Import    Integer    Arg_Stack_Ptr ;
  58.  
  59. #define Push(x)        {Object Xxxx = (x);\
  60.              if (Arg_Stack_Ptr >= ARG_STACK_LIMIT)\
  61.                  Error( "Argument Stack Overflow." );\
  62.              else Arg_Stack[Arg_Stack_Ptr++]=Xxxx;}
  63. #define    Top(n)        (Arg_Stack[Arg_Stack_Ptr-(n)])
  64. #define    Pop(n)        Arg_Stack_Ptr-=(n)
  65. #define Replace(n,x)    Arg_Stack[Arg_Stack_Ptr-(n)]=(x)
  66. #define Reset_Stack(n)    Arg_Stack_Ptr=(n)
  67. #define    Current_Stack()    Arg_Stack_Ptr;
  68.  
  69. /* State stack. */
  70.  
  71. Import    void    Save() ;
  72. Import    void    Restore() ;
  73.  
  74. /* The environment. */
  75.  
  76. Import    void    Assign( /* Object sym, val, env */ ) ;
  77. Import    void    Define( /* Object sym, val, env */ ) ;
  78. Import    void    Extend_Environment( /* Integer frame_size */) ;
  79. Import    Object  Intern_Name( /* String name */ ) ;
  80. Import    void    Symbol_Hash_Iterate();
  81.  
  82. /* Memory management. */
  83. Import    void    Get_Heap_Size();
  84. Import    void    Get_Arg_Stack_Ptr();
  85. Import    Object    Allocate();
  86. Import    void    Freeze_Stable_Space();
  87. Import    Boolean    Allocating;
  88. Import    Boolean    Show_GC_Messages;
  89.  
  90.  
  91. Import void Initialize_Architecture();
  92.  
  93. /* The garbage collector. */
  94. Import Object Move_Object();
  95. Import void Relocate();
  96.  
  97. #if NEGATIVE_ADDRESSES
  98.     /* NEGATIVE_ADDRESSES defined in portable.h */
  99. #define Is_Forwarded(o) (((int) Get_Type(o)) > 0)
  100. #else
  101. #define Is_Forwarded(o) (((int) Get_Type(o)) < 0)
  102. #endif
  103.  
  104. #define Get_Forwarding_Address(o) ((Object) (-((int) Get_Type(o))))
  105. #define Set_Forwarding_Address(old,new) \
  106.         Get_Type(old) = (Scheme_Type) (-((int)(new)))
  107.  
  108. /* General */
  109. Import Object Copy_Object();
  110.  
  111.