home *** CD-ROM | disk | FTP | other *** search
/ APDL Public Domain 1 / APDL_PD1A.iso / program / language / icon / Source / Iconx / H / Rproto
Encoding:
Text File  |  1990-07-19  |  9.4 KB  |  267 lines
  1. /*
  2.  * rproto.h -- prototypes for run-time functions.
  3.  */
  4.  
  5.  
  6. int    bfunc        Params((noargs));
  7. int    coswitch    Params((word *old, word *new, int first));
  8.  
  9. #if !HIGHC_386
  10. int    dup2        Params((int h1, int h2));
  11. #endif                    /* !HIGHC_386 */
  12.  
  13. char    *ecvt        Params((double value, int count, int *dec, int* sign));
  14.  
  15. #if IntBits == 16
  16. novalue    llqsort        Params((char *base, int nel, int width, int (*cmp)()));
  17. #endif                    /* IntBits == 16 */
  18.  
  19. int    printable    Params((int c));
  20.  
  21. #define Fargs dptr cargp
  22.  
  23. #define FncDef(p,n) int Cat(X,p)     Params((Fargs));
  24. #define FncDefV(p) int Cat(X,p)     Params((int nargs,Fargs));
  25. #include "../h/fdefs.h"
  26. #undef FncDef
  27. #undef FncDefV
  28. #define OpDef(p,n,s) int Cat(O,p)     Params((Fargs));
  29. #include "../h/odefs.h"
  30. #undef OpDef
  31.  
  32. int    Ahgener            Params((dptr cargp));
  33.  
  34. novalue    addmem
  35.    Params((struct b_set *ps,struct b_selem *pe, union block **pl));
  36. novalue    adjust            Params((char *source,char *dest));
  37. struct    astkblk *alcactiv    Params((noargs));
  38. struct    b_coexpr *alccoexp    Params((noargs));
  39. struct    b_cset *alccset        Params((noargs));
  40. struct    b_external *alcextrnl    Params((int n));
  41. struct    b_file *alcfile        Params((FILE *fd,int status,dptr name));
  42. union    block *alchash        Params((int tcode));
  43. struct    b_list *alclist        Params((uword size));
  44. struct    b_lelem *alclstb    Params((uword nslots,uword first,uword nused));
  45. struct    b_real *alcreal        Params((double val));
  46. struct    b_record *alcrecd    Params((int nflds,union block **recptr));
  47. struct    b_refresh *alcrefresh    Params((word *entryx,int na,int nl));
  48. struct    b_slots *alcsegment    Params((word nslots));
  49. struct    b_selem *alcselem    Params((dptr mbr,uword hn));
  50. char    *alcstr            Params((char *s,word slen));
  51. struct    b_tvsubs *alcsubs    Params((word len,word pos,dptr var));
  52. struct    b_telem *alctelem    Params((noargs));
  53. struct    b_tvtbl *alctvtbl    Params((dptr tbl,dptr ref,uword hashnum));
  54. int    anycmp            Params((dptr dp1,dptr dp2));
  55. novalue    atrace            Params((dptr sptr));
  56. int    blkreq            Params((uword bytes));
  57. int    Obscan            Params((int nargs,Fargs));
  58. novalue    c_exit            Params((int i));
  59. novalue    coacttrace
  60.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  61. novalue    cofailtrace
  62.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  63. novalue    cofree            Params((noargs));
  64. novalue    collect            Params((int region));
  65. novalue    compact            Params((char *source));
  66. novalue    corettrace
  67.    Params((struct b_coexpr *ccp, struct b_coexpr *ncp));
  68. int    cplist            Params((dptr dp1,dptr dp2,word i,word j));
  69. int    cpset            Params((dptr dp1,dptr dp2,word size));
  70. int    Ocreate            Params((word *entryp,Fargs));
  71. int    csetcmp            Params((unsigned int *cs1,unsigned int *cs2));
  72. novalue    ctrace            Params((dptr sptr,int nargs,dptr arg));
  73. int    cvcset            Params((dptr dp,int * *cs,int *csbuf));
  74. int    cvint            Params((dptr dp));
  75. int    cvnum            Params((dptr dp));
  76. word    cvpos            Params((long pos,long len));
  77. int    cvreal            Params((dptr dp));
  78. int    cvstr            Params((dptr dp,char *sbuf));
  79. novalue    datainit        Params((noargs));
  80. int    defcset            Params((dptr dp,int * *cp,int *buf,int *def));
  81. int    deffile            Params((dptr dp,dptr def));
  82. int    defint            Params((dptr dp,long *lp,word def));
  83. int    defshort        Params((dptr dp,int def));
  84. int    defstr            Params((dptr dp,char *buf,dptr def));
  85. int    deref            Params((dptr dp));
  86. int    doasgn            Params((dptr dp1,dptr dp2));
  87. int    doimage            Params((int c,int q));
  88.  
  89. #ifdef DeBugIconx
  90. novalue    blkdump            Params((noargs));
  91. novalue    descr            Params((dptr dp));
  92. novalue    dumpact            Params((struct b_coexpr *cw));
  93. #endif                    /* DeBugIconx */
  94.  
  95. novalue    env_int
  96.    Params((char *name,word *variable,int non_neg, uword limit));
  97. novalue    envset            Params((noargs));
  98. int    equiv            Params((dptr dp1,dptr dp2));
  99. int    err            Params((noargs));
  100. novalue    error            Params((char *s));
  101. int    Oescan            Params((int nargs,Fargs));
  102.  
  103. #ifdef ExternalFunctions
  104. dptr    extcall            Params((dptr dargv, int argc, int *ip));
  105. #endif                    /* ExternalFunctions */
  106.  
  107. novalue    fatalerr        Params((int n,dptr v));
  108. int    Ofield            Params((int nargs,Fargs));
  109. int    findipc            Params((int line));
  110. char    *findfile        Params((word *ipc));
  111. int    findline        Params((word *ipc));
  112. novalue    fixtrap            Params((noargs));
  113. novalue    fpetrap            Params((noargs));
  114. novalue    failtrace        Params((dptr sptr));
  115. int    getimage        Params((dptr dp1, dptr dp2));
  116. int    getstrg            Params((char *buf,int maxi,FILE *fd));
  117. int    getvar            Params((char *s, dptr dp));
  118. uword    hash            Params((dptr dp));
  119. union block **hchain        Params((union block *pb,uword hn));
  120. novalue    hgrow            Params((dptr dp));
  121. union block *hmake        Params((int tcode,word nslots,word nelem));
  122. novalue    hshrink            Params((dptr dp));
  123. char    *icon_gcvt        Params((double number,int ndigit,char *buf));
  124. novalue    iconhost        Params((char *hostname));
  125. novalue    icon_init        Params((char *name));
  126. dptr    icon_call        Params((char *s, int argc, dptr dp));
  127. novalue    icon_setup        Params((int argc, char **argv, int *ip));
  128. novalue    initalloc        Params((word codesize));
  129. novalue    inttrap            Params((noargs));
  130.  
  131. int    interp            Params((int fsig,dptr cargp));
  132.  
  133. int    invoke            Params((int nargs,dptr  *cargp,int *n));
  134. long    ipow            Params((long n1,long n2));
  135. int    keyref            Params((dptr dp1, dptr dp2));
  136. int    Okeywd            Params((int nargs,Fargs));
  137. int    lexcmp            Params((dptr dp1,dptr dp2));
  138. int    Olimit            Params((int nargs,Fargs));
  139. int    Ollist            Params((int nargs,Fargs));
  140. word    longread        Params((char *s,int width,long len,FILE *fname));
  141. int    makereal        Params((double r,dptr dp));
  142. novalue    markblock        Params((dptr dp));
  143. novalue    markptr            Params((union block **));
  144. union block **memb
  145.    Params((union block *pb,dptr x,uword hn, int *res));
  146. int    Omkrec            Params((int nargs,Fargs));
  147. novalue    mksubs
  148.    Params((dptr var,dptr val,word i,word j, dptr result));
  149. novalue    mvc            Params((uword n,char *src,char *dest));
  150. int    numcmp            Params((dptr dp1,dptr dp2,dptr dp3));
  151. int    order            Params((dptr dp));
  152. novalue    outimage        Params((FILE *f,dptr dp,int restrict));
  153. struct    b_coexpr *popact    Params((struct b_coexpr *ce));
  154. novalue    postqual        Params((dptr dp));
  155. word    prescan            Params((dptr d));
  156. int    pushact
  157.    Params((struct b_coexpr *ce, struct b_coexpr *actvtr));
  158. int    putpos            Params((dptr dp,struct b_tvkywd *bp));
  159. int    putrec            Params((FILE *fd,dptr d));
  160. int    putstr            Params((FILE *f,dptr d));
  161. int    putsub            Params((dptr dp,struct b_tvkywd *bp));
  162. int    putint            Params((dptr dp,struct b_tvkywd *bp));
  163. int    qlcmp            Params((dptr  *q1,dptr  *q2));
  164. int    qtos            Params((dptr dp,char *sbuf));
  165. novalue    resolve            Params((noargs));
  166. int    rtos            Params((double n,dptr dp,char *s));
  167. novalue    rtrace            Params((dptr sptr,dptr rval));
  168. novalue    runerr            Params((int n,dptr v));
  169. novalue    scollect        Params((word extra));
  170. novalue    segvtrap        Params((noargs));
  171. novalue    stkdump            Params((int));
  172. novalue    strace            Params((dptr sptr,dptr rval));
  173. int    strprc            Params((dptr dp,word n));
  174. int    strreq            Params((uword n));
  175. novalue    sweep            Params((struct b_coexpr *ce));
  176. novalue    syserr            Params((char *s));
  177. struct    b_coexpr *topact    Params((struct b_coexpr *ce));
  178. novalue    ttrace            Params((noargs));
  179. novalue    xdisp
  180.    Params((struct pf_marker *fp,dptr dp,int count, FILE *f));
  181. novalue    xtrace
  182.    Params((struct b_proc *bp,word nargs,dptr arg, int pline,char *pfile));
  183.  
  184. #ifdef MemMon
  185.  
  186. novalue    MMInit            Params((char *name));
  187. novalue    MMShow            Params((dptr dp, char *s));
  188. novalue    MMTerm            Params((char *part1, char *part2));
  189.  
  190. novalue    MMAlc            Params((word len, int type));
  191. novalue    MMBGC            Params((int region));
  192. novalue    MMEGC            Params((noargs));
  193. novalue    MMMark            Params((char *block, int type));
  194. novalue    MMStat            Params((char *a, word n, int c));
  195. novalue    MMStr            Params((word slen));
  196. novalue    MMSMark            Params((char *saddr, word slen));
  197. #endif                    /* MemMon */
  198.  
  199.  
  200. #if !(MACINTOSH && MPW)
  201. double pow();            /* prototype problem */
  202. #endif                    /* !(MACINTOSH && MPW) */
  203.  
  204. word    add            Params((word a, word b));
  205. word    sub            Params((word a, word b));
  206. word    mul            Params((word a, word b));
  207. word    neg            Params((word a));
  208. #ifdef LargeInts
  209. struct    b_bignum *alcbignum    Params((word n));
  210. word    bigradix        Params((int sign, int r, char *s, dptr dx));
  211. double    bigtoreal        Params((dptr da));
  212. int    realtobig        Params((dptr da, dptr dx));
  213. int    bigtos            Params((dptr da, dptr dx));
  214. novalue    bigprint        Params((FILE *f, dptr da));
  215. int    cpbignum        Params((dptr da, dptr db));
  216. int    bigadd            Params((dptr da, dptr db, dptr dx));
  217. int    bigsub            Params((dptr da, dptr db, dptr dx));
  218. int    bigmul            Params((dptr da, dptr db, dptr dx));
  219. int    bigdiv            Params((dptr da, dptr db, dptr dx));
  220. int    bigmod            Params((dptr da, dptr db, dptr dx));
  221. int    bigneg            Params((dptr da, dptr dx));
  222. int    bigpow            Params((dptr da, dptr db, dptr dx));
  223. int    bigand            Params((dptr da, dptr db, dptr dx));
  224. int    bigor            Params((dptr da, dptr db, dptr dx));
  225. int    bigxor            Params((dptr da, dptr db, dptr dx));
  226. int    bigshift        Params((dptr da, dptr db, dptr dx));
  227. word    bigcmp            Params((dptr da, dptr db));
  228. int    bigrand            Params((dptr da, dptr dx));
  229. #endif                    /* LargeInts */
  230.  
  231. /*
  232.  * Temporary fix
  233.  */
  234.  
  235. #if ATARI_ST
  236. char    *sbrk            Params((int incr));
  237. #endif                                  /* ATARI_ST */
  238.  
  239. #if MACINTOSH
  240. #if MPW
  241. char    *brk            Params((char *addr));
  242. char    *sbrk            Params((int incr));
  243. novalue    free            Params((char* addr);
  244. #endif                    /* MPW */
  245. #endif                    /* MACINTOSH */
  246.  
  247. #if MVS || VM
  248. #define brk(x) sbrk(((char *)(x))-sbrk(0))
  249. char    *sbrk                   Params((int incr));
  250. novalue free                    Params((void* addr));
  251. #endif                                  /* MVS || VM */
  252.  
  253. #if UNIX || VMS
  254. char    *brk            Params((char *addr));
  255. char    *sbrk            Params((int incr));
  256. FILE    *popen            Params((char * command, char *type));
  257. #endif                                  /* UNIX || VMS */
  258.  
  259. #if ARM
  260. FILE    *popen            Params((char * command, char *type));
  261. #endif                                  /* ARM */
  262.  
  263. #ifdef EvalTrace
  264. novalue    TRInit            Params((char *name));
  265. novalue    TRShow            Params((dptr dp, char *s));
  266. #endif                    /* EvalTrace */
  267.