home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / MSDOS / WATTCP / DELFT / SAGE.TAR / sage / scheme / scheme.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-26  |  6.8 KB  |  149 lines
  1. /**********************************************************************
  2. ** MODULE INFORMATION*
  3. **********************
  4. **      FILE     NAME:       SCHEME.H
  5. **      SYSTEM   NAME:       SCHEME
  6. **      ORIGINAL AUTHOR(S):  Alfred Kayser
  7. **      VERSION  NUMBER:     1.5.5
  8. **      CREATION DATE:       88/11/9
  9. **
  10. ** DESCRIPTION: Header file for the scheme librairy. It contains
  11. **              all the definitions needed to call the scheme
  12. **              functions.
  13. ***********************************************************************
  14. ** CHANGES INFORMATION **
  15. *************************
  16. ** REVISION:    $Revision:   1.0  $
  17. ** CHANGER:     $Author:   JAN  $
  18. ** WORKFILE:    $Workfile:   scheme.h  $
  19. ** LOGFILE:     $Logfile:   C:/CPROG/SCHEME/VCS/SCHEME.H_V  $
  20. ** LOGINFO:     $Log:   C:/CPROG/SCHEME/VCS/SCHEME.H_V  $
  21. **              
  22. **                 Rev 1.0   12 Oct 1989 11:38:04   JAN
  23. **              Initial revision.
  24. **********************************************************************/
  25.  
  26. #define  S_INPORT      1
  27. #define  S_OUTPORT     2
  28. #define  S_STDIN       3
  29. #define  S_STDOUT      4
  30. #define  S_NUMCEL      5
  31. #define  S_HASHSIZE    6
  32. #define  S_PROMPT      7
  33. #define  S_NUMPORT     8
  34. #define  S_STRING      9
  35. #define  S_STACK      10
  36. #define  S_BUFFERS    11
  37. #define  S_BIGBUF     12
  38. #define  S_VERBOSE    13
  39. #define  S_CTRLC      14 
  40. #define  S_ERRPORT    15
  41. #define  S_STDERR     16
  42. #define  S_ERRFUN     17
  43.  
  44. #define  S_OKAY    0
  45. #define  S_ARGERR  1
  46. #define  S_ERROR   2
  47. #define  S_NOINIT  3
  48. #define  S_END     4
  49. #define  S_START   5
  50.  
  51.  
  52. /*----------------------------------------------------------------------------*/
  53. /*  Defined errors reported by the SCHEME system                              */
  54. /*----------------------------------------------------------------------------*/
  55. #define NOERROR   0   /* End of DScheme                                       */
  56. #define ERRMEM    1   /* Memory allocation                                    */
  57. #define ERRINT    2   /* Internal error (should not happen)                   */
  58. #define ERRXIT    3   /* Not an error, just an exit.                          */
  59. #define ERRNIL    4   /* Nil pointer                                          */
  60. #define ERRHASH   5   /* Hashtable allready initialized!                      */
  61. #define ERRUNT    6   /* Internal: Unknown cell type                          */
  62. #define ERRNOT    7   /* EVAL: Not implemented                                */
  63. #define ERRARC    8   /* EVAL: Wrong argument count                           */
  64. #define ERRART    9   /* EVAL: Wrong argument type                            */
  65. #define ERRCAR    10  /* EVAL: Tried to take the CAR of an atom.              */
  66. #define ERRCDR    11  /* EVAL: Tried to take the CDR of an atom               */
  67. #define ERRVAL    12  /* EVAL: Evaluating 'define' as a atom.                 */
  68. #define ERRPRC    13  /* EVAL: Symbol is not a procedure                      */
  69. #define ERRSYM    14  /* EVAL: Unknown symbol                                 */
  70. #define ERRSTK    15  /* EVAL: Stack error                                    */
  71. #define ERRBREAK  16  /* EVAL: Abort evaluation command                       */
  72. #define ERROUT    17  /* IO: Outbuf error (string buffer full)                */
  73. #define ERRIOW    18  /* IO: Write error (file is readonly)                   */
  74. #define ERRIOR    19  /* IO: Read error (file is writonly)                    */
  75. #define ERRPRT    20  /* IO: Out of port space                                */
  76. #define ERRCLO    21  /* IO: Port is closed!                                  */
  77. #define ERRPORT   22  /* IO: Port table allready initialized!                 */
  78. #define ERRPORTF  23  /* IO: Port table full                                  */
  79. #define ERRNOF    24  /* IO: File not found                                   */
  80. #define ERRIOU    25  /* IO: unput buffer overflow                            */
  81. #define ERRDOT    26  /* PARSER: Dot in wrong place                           */
  82. #define ERRSYN    27  /* PARSER: Syntax error                                 */
  83. #define ERREOF    28  /* PARSER: Premature EOF                                */
  84. #define ERRPARS   29  /* PARSER: Too many ')'s                                */
  85. #define ERRBASE   30  /* PARSER: Real number don't support #o,#b,#x           */
  86. #define ERRNUM    31  /* PARSER: Number expected after -,+                    */
  87. #define ERRQUO    32  /* PARSER: Quote argument missing                       */
  88. #define ERRSTR    33  /* PARSER: String too long                              */
  89. #define ERRPINT   34  /* PARSER: Internal error                               */
  90. #define ERRCHAR   35  /* PARSER: Illegal character encountered                */
  91. #define ERRCHARH  36  /* PARSER: Illegal character after '#'                  */
  92. #define ERRCHARN  37  /* PARSER: Illegal character in number                  */
  93. #define ERRNUMF   38  /* PARSER: Illegal floating point format                */
  94. #define ERROID    39  /* PARSER: Only integers may follow '#!'                */
  95. #define ERRTIM    40  /* Timestamp: out of range error                        */
  96. #define ERRTIMSYN 41  /* Timestamp: Syntax error                              */
  97. #define ERRTIMYR  42  /* Timestamp: error in year                             */
  98. #define ERRTIMMON 43  /* Timestamp: error in month                            */
  99. #define ERRTIMDAY 44  /* Timestamp: error in day                              */
  100. #define ERRTIMHR  45  /* Timestamp: error in hours                            */
  101. #define ERRTIMMIN 46  /* Timestamp: error in minutes                          */
  102. #define ERRTIMSEC 47  /* Timestamp: error in seconds                          */
  103. #define ERRBIGBIG 48  /* Math: Bignumber too big (more than 2000 digits!)     */
  104. #define ERRDIV0   49  /* Math: Divide by zero                                 */
  105. #define ERROVRFLW 40  /* Math: Overflow                                       */
  106. #define ERRNOBIG  51  /* Math: Bignumber math not present                     */
  107. #define ERRFLOAT  52  /* Math: Floating point error (general)                 */
  108. #define ERROCTAL  53  /* Parser: 3 octal digits expected                      */
  109. #define ERRUSER1  54  /* User: User defined warning                           */
  110. #define ERRUSER2  55  /* User: User defined error                             */
  111. #define ERRUSER3  56  /* User: User defined serious error                     */
  112.                       /*------------------------------------------------------*/
  113.  
  114. #define IOCLOSE 0
  115. #define IOFLUSH 1
  116.  
  117. #define GCstart 0
  118. #define GCstop  1
  119. #define GCrun   2
  120.  
  121. #ifdef CMS
  122. # define SYSTEEM "CMS on IBM-9370"
  123. #endif
  124. #ifdef OS2
  125. # define SYSTEEM "OS/2"
  126. #endif
  127. #ifdef MSDOS
  128. # define SYSTEEM "MS-DOS"
  129. #endif
  130. #ifdef UNIX
  131. # define SYSTEEM "UNIX"
  132. #endif
  133. #ifdef SUN
  134. # define SYSTEEM "SUNOS"
  135. #endif
  136. #ifndef SYSTEEM
  137. #define SYSTEEM "OS"
  138. #endif
  139.  
  140. #ifndef TRUE
  141. # define TRUE 1
  142. # define FALSE 0
  143. #endif
  144.  
  145. #define NIL  NULL
  146.  
  147.  
  148.  
  149.