home *** CD-ROM | disk | FTP | other *** search
/ Super Net 1 / SUPERNET_1.iso / PC / OTROS / MSDOS / WATTCP / DELFT / SAGE.TAR / sage / scheme / schdcl.h < prev    next >
Encoding:
C/C++ Source or Header  |  1991-04-26  |  8.6 KB  |  218 lines
  1. /**********************************************************************
  2. ** MODULE INFORMATION*
  3. **********************
  4. **      FILE     NAME:       SCHDCL.H
  5. **      SYSTEM   NAME:       SCHEME
  6. **      ORIGINAL AUTHOR(S):  Alfred Kayser
  7. **      VERSION  NUMBER:     1.5.5
  8. **      CREATION DATE:       88/10/17
  9. **
  10. ** DESCRIPTION: Prototype header for the Scheme system
  11. ***********************************************************************
  12. ** CHANGES INFORMATION **
  13. *************************
  14. ** REVISION:    $Revision: $
  15. ** CHANGER:     $Author: $
  16. ** WORKFILE:    $Workfile: $
  17. ** LOGFILE:     $Logfile: $
  18. ** LOGINFO:     $Log: $
  19. **********************************************************************/
  20. #ifndef STATIC
  21. #define STATIC
  22. #endif
  23.  
  24. /***************** Prototype(s) for SCHEME.C **************************/
  25. int    CDECL   DSinit        __((GLOBAL **, ...));
  26. int    PASCAL  DScheme       __((GLOBAL *));
  27. int    PASCAL  DSextdef      __((GLOBAL *, EXTDEF *));
  28. int    PASCAL  DSmultidef    __((GLOBAL *, EXTDEF *));
  29. int    PASCAL  DSeval        __((GLOBAL *, CELP, CELP *));
  30. int    PASCAL  DSread        __((GLOBAL *, PORT *, CELP *));
  31. int    PASCAL  DSinitport    __((GLOBAL *, PORT **, int, UNTYPE *, INP_FUN, OUT_FUN, CTL_FUN));
  32. int    PASCAL  DS_fopen      __((GLOBAL *, PORT **, CONST char *, int));
  33. int    PASCAL  DSclose       __((GLOBAL **));
  34.  
  35. int    CDECL   DsWaiter      __((void));
  36. void   PASCAL  DsFuncDef     __((EXTDEF *));
  37.  
  38. #ifndef MSC
  39. char * strupr __((char *p));
  40. int stricmp __((char *s1, char *s2));
  41. #endif
  42.  
  43. /***************** Prototype(s) for SCHPRC.C **************************/
  44.  
  45. CELP   PASCAL  DsCompare     __((CELP a1, CELP a2));
  46. CELP   PASCAL  DsEqv         __((CELP a1, CELP a2));
  47. CELP   PASCAL  DsEqual       __((CELP a1, CELP a2));
  48. CELP   PASCAL  DsCmpChar     __((CELP a1, CELP a2, int t));
  49. CELP   PASCAL  DsCmpTime     __((CELP a1, CELP a2, int t));
  50. CELP   PASCAL  DsAssQ        __((CELP key, CELP list));
  51. CELP   PASCAL  DsAssV        __((CELP key, CELP list));
  52. CELP   PASCAL  DsAssoc       __((CELP key, CELP list));
  53. CELP   PASCAL  DsMemQ        __((CELP key, CELP list));
  54. CELP   PASCAL  DsMemV        __((CELP key, CELP list));
  55. CELP   PASCAL  DsMember      __((CELP key, CELP list));
  56. CELP   PASCAL  Ds_math1      __((int opcode, CELP arg));
  57. CELP   CDECL   Ds_load       __((CELP name));
  58. LONG   PASCAL  DsLength      __((CELP l));
  59.                                        
  60. /***************** Prototype(s) for SCHCEL.C **************************/
  61. CELP   PASCAL  DsGetCell     __((int typ));
  62. CELP   PASCAL  DsCons        __((CELP a, CELP b));
  63. CELP   PASCAL  DsCons1       __((CELP a));
  64. CELP   PASCAL  DsFltCell     __((REAL v));
  65. CELP   PASCAL  DsIntCell     __((LONG l));
  66. CELP   PASCAL  DsPrtCell     __((PORT *prt));
  67. CELP   PASCAL  DsChrCell     __((int l));
  68. CELP   PASCAL  DsSymbol      __((CONST char *symbol));
  69. CELP   PASCAL  DsInsExt      __((CONST char *name));
  70. CELP   PASCAL  DsStrTime     __((CONST char *str));
  71. void   PASCAL  DsMark        __((CELP p));
  72. void   PASCAL  DsFreeCell    __((CELP temp));
  73. char * PASCAL  DsTimeStr     __((CELP elem));
  74. CELP   PASCAL  DsInsKey      __((CELP key));
  75. CELP   PASCAL  DsTimeReal    __((CELP p));
  76. CELP   PASCAL  DsRealTime    __((CELP p));
  77. CELP   CDECL   DsCar         __((CELP l));
  78. CELP   CDECL   DsCdr         __((CELP l));
  79. CELP   CDECL   DsCaar        __((CELP l));
  80. CELP   CDECL   DsCadr        __((CELP l));
  81. CELP   CDECL   DsCdar        __((CELP l));
  82. CELP   CDECL   DsCddr        __((CELP l));
  83. CELP   CDECL   DsCaaar       __((CELP l));
  84. CELP   CDECL   DsCaadr       __((CELP l));
  85. CELP   CDECL   DsCadar       __((CELP l));
  86. CELP   CDECL   DsCaddr       __((CELP l));
  87. CELP   CDECL   DsCdaar       __((CELP l));
  88. CELP   CDECL   DsCdadr       __((CELP l));
  89. CELP   CDECL   DsCddar       __((CELP l));
  90. CELP   CDECL   DsCdddr       __((CELP l));
  91. void   PASCAL  DsIniCells    __((DWORD numcels));
  92. void   PASCAL  DsAllocCells  __((int blocksize));
  93. void   PASCAL  DsRelease     __((CELP p));
  94. void   PASCAL  DsProtect     __((CELP p));
  95. DWORD  PASCAL  DsGarbageCollect  __((CELP cels));
  96. void   PASCAL  DsCollect     __((void));
  97. void FAR * PASCAL  DsFarMalloc   __((int size));
  98.  
  99. /***************** Prototype(s) for SCHTIM.C **************************/
  100.       
  101. WORD   PASCAL  DsGetDays     __((int day, int month, int year));
  102. void   PASCAL  DsSetDays     __((int julian, int *day, int *month, int *year));
  103. int    PASCAL  DsDayOfWeek   __((int julian));
  104. CELP   PASCAL  DsMakeTime    __((time_t t));
  105.       
  106. /***************** Prototype(s) for SCHRDR.C **************************/
  107.  
  108. void   PASCAL  DsIniParser   __((void));
  109. CELP   PASCAL  DsRead        __((PORT *));
  110. CELP   PASCAL  DsStrNumber   __((char *s, int base));
  111. CELP   PASCAL  DsStrReal     __((char *s));
  112. char * PASCAL  ltostr        __((long num, int base));
  113.  
  114. /****************** Prototype(s) for SCHIO.C **************************/
  115.  
  116. void   PASCAL  DsIniIO       __((void));
  117. void   PASCAL  DsIniPorts    __((int,int,int,int));
  118. int    PASCAL  DsInput       __((PORT *));
  119. void   PASCAL  DsUnput       __((PORT *, int));
  120. int    PASCAL  DsPeek        __((PORT *));
  121. void   PASCAL  DsOuts        __((PORT *, CONST char *));
  122. void   CDECL   DsOutf        __((PORT *, CONST char *, ...));
  123. void   PASCAL  DsOutc        __((PORT *, CELP, int));
  124. PORT * PASCAL  DsInitPort    __((int, UNTYPE*, INP_FUN, OUT_FUN, CTL_FUN));
  125. PORT * PASCAL  DsFOpen       __((CONST char *, int));
  126. void   PASCAL  DsClosePort   __((PORT *));
  127. void   PASCAL  DsFlushPort   __((PORT *));
  128. void   PASCAL  DsStdPorts    __((void));
  129. int    PASCAL  DsEInput      __((UNTYPE *stream));
  130. void   PASCAL  DsEOutput     __((int c, UNTYPE *stream));
  131.  
  132. /***************** Prototype(s) for SCHNUM.C **************************/
  133.  
  134. int    PASCAL  DSmath        __((GLOBAL *));
  135. CELP   PASCAL  DsCmpNumber   __((CELP, CELP, int));
  136. USHORT PASCAL  DsGetNTag     __((CELP));
  137.  
  138. /***************** Prototype(s) for SCHERR.C **************************/
  139.  
  140. void   PASCAL  DsNoInitError __((CONST char *));
  141. int    PASCAL  DsRetCode     __((void));
  142. int    PASCAL  DsErrorLevel  __((int));
  143. int    PASCAL  DsHandleError __((void));
  144. int    CDECL   DsRepError    __((GLOBAL *, int, CELP));
  145. void   PASCAL  DsClearError  __((void));
  146. void   PASCAL  DsMemError    __((CONST char *));
  147. void   PASCAL  DsStkError    __((void));
  148. void   PASCAL  DsVError      __((int));
  149. void   PASCAL  DsTypError    __((CELP));
  150. void   PASCAL  DsError       __((int, CELP));
  151. void   PASCAL  DsPError      __((int, PORT *));
  152. char * PASCAL  DsErrMsg      __((int));
  153. void   PASCAL  DsStrError    __((int, CONST char *));
  154.  
  155. /***************** Prototype(s) for SCHEXT.C **************************/
  156.  
  157. int    PASCAL  DSextend      __((GLOBAL *));
  158. CELP   CDECL   Ds_globals    __((void));
  159.  
  160. /***************** Prototype(s) for SCHTRA.C **************************/
  161.  
  162. void   PASCAL  DsTraceInit   __((void));
  163.  
  164. /***************** Prototype(s) for SCHEVA.C **************************/
  165.  
  166. CELP   PASCAL  DsEval         __((CELP));
  167. void   PASCAL  DsDefVar       __((CELP));
  168.  
  169. /***************** Prototype(s) for SCHSTR.C **************************/
  170.  
  171. void   PASCAL  DsIniBuf      __((int));
  172. void   PASCAL  DsFreeBuf     __((char *));
  173. void   PASCAL  DsBufDefrag   __((void));
  174. int    PASCAL  DsFragmented  __((void));
  175. CELP   PASCAL  DsStrCell     __((CONST char *));
  176. CELP   CDECL   Ds_lstvec     __((CELP l));
  177. CELP   PASCAL  DsGetStr      __((int n));
  178. CELP   PASCAL  DsCmpVector   __((CELP a1,CELP a2));
  179.  
  180. /***************** Prototype(s) for SCHBI2.C **************************/
  181.  
  182. CELP    PASCAL DsStrBig  __((char *));
  183. char  * PASCAL DsBigStr  __((CELP));
  184. CELP    PASCAL big_cpy   __((CELP));
  185. CELP    PASCAL big_add   __((CELP, CELP));
  186. CELP    PASCAL big_sub   __((CELP, CELP));
  187. CELP    PASCAL big_mul   __((CELP, CELP));
  188. CELP    PASCAL big_div   __((CELP, CELP, CELP *));
  189. CELP    PASCAL big_muli  __((ULONG, CELP));
  190. void    PASCAL big_free  __((CELP));
  191. int     PASCAL big_len   __((CELP));
  192. CELP    PASCAL big_mul10 __((int, CELP));
  193. int     PASCAL big_cmp   __((CELP, CELP));
  194. CELP    PASCAL big_adds  __((CELP, CELP));
  195. CELP    PASCAL big_subs  __((CELP, CELP));
  196. CELP    PASCAL big_muls  __((CELP, CELP));
  197. CELP    PASCAL big_divs  __((CELP, CELP, CELP *));
  198. CELP    PASCAL int2big   __((CELP));
  199. CELP    PASCAL real2big  __((CELP));
  200. CELP    PASCAL big2int   __((CELP));
  201. REAL    PASCAL big2real  __((CELP));
  202. CELP    PASCAL makebig   __((CELP));
  203. REAL    PASCAL makeflo   __((CELP));
  204. REAL    PASCAL makeflo2  __((CELP, int));
  205.  
  206. /***************** Prototype(s) for SCHUTL.C **************************/
  207.  
  208. int    CDECL   DSutinit      __((GLOBAL *));
  209.  
  210. /***************** Prototype(s) for SCHTST.C **************************/
  211.  
  212. void   CDECL   main          __((int, char **));
  213. void   PASCAL  DSGCmessage   __((int));
  214.  
  215. /***************** Prototype(s) for SCHINFO.C *************************/
  216.  
  217. void   PASCAL  info          __((void));
  218.