home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / lisp / interpre / xlispplu / xlisp2tc / xlproto.h < prev    next >
Encoding:
Text File  |  1988-03-25  |  8.7 KB  |  343 lines
  1. void osinit(char *banner) ;
  2. void osfinish( void ) ;
  3. void oserror(char *msg) ;
  4. int osrand(int n) ;
  5. FILE *osaopen(char *name,char *mode) ;
  6. FILE *osbopen(char *name,char *mode) ;
  7. int osclose(FILE *fp) ;
  8. int osagetc(FILE *fp) ;
  9. int osaputc(int ch,FILE *fp) ;
  10. int osbgetc(FILE *fp) ;
  11. int osbputc(int ch,FILE *fp) ;
  12. int ostgetc( void ) ;
  13. void ostputc(int ch) ;
  14. void osflush( void ) ;
  15. void oscheck( void ) ;
  16. LVAL xsystem( void ) ;
  17. LVAL xgetkey( void ) ;
  18. void ossymbols( void ) ;
  19.  
  20. LVAL xeval( void ) ;
  21. LVAL xapply( void ) ;
  22. LVAL xfuncall( void ) ;
  23. LVAL xmacroexpand( void ) ;
  24. LVAL x1macroexpand( void ) ;
  25. LVAL xatom( void ) ;
  26. LVAL xsymbolp( void ) ;
  27. LVAL xnumberp( void ) ;
  28. LVAL xintegerp( void ) ;
  29. LVAL xfloatp( void ) ;
  30. LVAL xcharp( void ) ;
  31. LVAL xstringp( void ) ;
  32. LVAL xarrayp( void ) ;
  33. LVAL xstreamp( void ) ;
  34. LVAL xobjectp( void ) ;
  35. LVAL xboundp( void ) ;
  36. LVAL xfboundp( void ) ;
  37. LVAL xnull( void ) ;
  38. LVAL xlistp( void ) ;
  39. LVAL xendp( void ) ;
  40. LVAL xconsp( void ) ;
  41. LVAL xeq( void ) ;
  42. LVAL xeql( void ) ;
  43. LVAL xequal( void ) ;
  44. LVAL xset( void ) ;
  45. LVAL xgensym( void ) ;
  46. LVAL xmakesymbol( void ) ;
  47. LVAL xintern( void ) ;
  48. LVAL xsymname( void ) ;
  49. LVAL xsymvalue( void ) ;
  50. LVAL xsymfunction( void ) ;
  51. LVAL xsymplist( void ) ;
  52. LVAL xget( void ) ;
  53. LVAL xputprop( void ) ;
  54. LVAL xremprop( void ) ;
  55. LVAL xhash( void ) ;
  56. LVAL xaref( void ) ;
  57. LVAL xmkarray( void ) ;
  58. LVAL xvector( void ) ;
  59. void xerror( void ) ;
  60. LVAL xcerror( void ) ;
  61. LVAL xbreak( void ) ;
  62. void xcleanup( void ) ;
  63. void xtoplevel( void ) ;
  64. void xcontinue( void ) ;
  65. LVAL xevalhook( void ) ;
  66. LVAL xquote( void ) ;
  67. LVAL xfunction( void ) ;
  68. LVAL xbquote( void ) ;
  69. LVAL xlambda( void ) ;
  70. LVAL xgetlambda( void ) ;
  71. LVAL xsetq( void ) ;
  72. LVAL xpsetq( void ) ;
  73. LVAL xsetf( void ) ;
  74. LVAL xdefun( void ) ;
  75. LVAL xdefmacro( void ) ;
  76. LVAL xcond( void ) ;
  77. LVAL xwhen( void ) ;
  78. LVAL xunless( void ) ;
  79. LVAL xcase( void ) ;
  80. LVAL xand( void ) ;
  81. LVAL xor( void ) ;
  82. LVAL xif( void ) ;
  83. LVAL xlet( void ) ;
  84. LVAL xletstar( void ) ;
  85. LVAL xflet( void ) ;
  86. LVAL xlabels( void ) ;
  87. LVAL xmacrolet( void ) ;
  88. LVAL xprog( void ) ;
  89. LVAL xprogstar( void ) ;
  90. void xgo( void ) ;
  91. void xreturn( void ) ;
  92. void xrtnfrom( void ) ;
  93. LVAL xprog1( void ) ;
  94. LVAL xprog2( void ) ;
  95. LVAL xprogn( void ) ;
  96. LVAL xprogv( void ) ;
  97. LVAL xloop( void ) ;
  98. LVAL xdo( void ) ;
  99. LVAL xdostar( void ) ;
  100. LVAL xdolist( void ) ;
  101. LVAL xdotimes( void ) ;
  102. LVAL xblock( void ) ;
  103. LVAL xtagbody( void ) ;
  104. LVAL xcatch( void ) ;
  105. void xthrow( void ) ;
  106. LVAL xunwindprotect( void ) ;
  107. LVAL xerrset( void ) ;
  108. LVAL xtrace( void ) ;
  109. LVAL xuntrace( void ) ;
  110.  
  111. void xlabort(char *emsg) ;
  112. void xlbreak(char *emsg,LVAL arg) ;
  113. void xlfail(char *emsg) ;
  114. void xlerror(char *emsg,LVAL arg) ;
  115. void xlcerror(char *cmsg,char *emsg,LVAL arg) ;
  116. void xlerrprint(char *hdr,char *cmsg,char *emsg,LVAL arg) ;
  117. void xlbaktrace(int n) ;
  118. void xldinit( void ) ;
  119.  
  120. LVAL cons(LVAL x,LVAL y) ;
  121. LVAL cvstring(char *str) ;
  122. LVAL newstring(int size) ;
  123. LVAL cvsymbol(char *pname) ;
  124. LVAL cvsubr(LVAL (*fcn)( void ),int type,int offset) ;
  125. LVAL cvfile(FILE *fp) ;
  126. LVAL cvfixnum(FIXTYPE n) ;
  127. LVAL cvflonum(FLOTYPE n) ;
  128. LVAL cvchar(int n) ;
  129. LVAL newustream( void ) ;
  130. LVAL newobject(LVAL cls,int size) ;
  131. LVAL newclosure(LVAL name,LVAL type,LVAL env,LVAL fenv) ;
  132. LVAL newvector(int size) ;
  133. void gc( void ) ;
  134. SEGMENT *newsegment(int n) ;
  135. LVAL xgc( void ) ;
  136. LVAL xexpand( void ) ;
  137. LVAL xalloc( void ) ;
  138. LVAL xmem( void ) ;
  139. LVAL xsave( void ) ;
  140. LVAL xrestore( void ) ;
  141. void xlminit( void ) ;
  142.  
  143. LVAL xleval(LVAL expr) ;
  144. LVAL xlxeval(LVAL expr) ;
  145. LVAL xlapply(int argc) ;
  146. LVAL xlexpandmacros(LVAL form) ;
  147. int macroexpand(LVAL fun,LVAL args,LVAL *pval) ;
  148. int pushargs(LVAL fun,LVAL args) ;
  149. LVAL makearglist(int argc,LVAL *argv) ;
  150. LVAL xlclose(LVAL name,LVAL type,LVAL fargs,LVAL body,LVAL env,LVAL fenv) ;
  151. void xlabind(LVAL fun,int argc,LVAL *argv) ;
  152. void xlunbound(LVAL sym) ;
  153. void xlfunbound(LVAL sym) ;
  154. void xlstkoverflow( void ) ;
  155. void xlargstkoverflow( void ) ;
  156.  
  157. LVAL xread( void ) ;
  158. LVAL xprint( void ) ;
  159. LVAL xprin1( void ) ;
  160. LVAL xprinc( void ) ;
  161. LVAL xterpri( void ) ;
  162. LVAL xflatsize( void ) ;
  163. LVAL xflatc( void ) ;
  164. LVAL xopen( void ) ;
  165. LVAL xclose( void ) ;
  166. LVAL xrdchar( void ) ;
  167. LVAL xrdbyte( void ) ;
  168. LVAL xpkchar( void ) ;
  169. LVAL xwrchar( void ) ;
  170. LVAL xwrbyte( void ) ;
  171. LVAL xreadline( void ) ;
  172. LVAL xmkstrinput( void ) ;
  173. LVAL xmkstroutput( void ) ;
  174. LVAL xgetstroutput( void ) ;
  175. LVAL xgetlstoutput( void ) ;
  176. LVAL xformat( void ) ;
  177.  
  178. int xlisave(char *fname) ;
  179. int xlirestore(char *fname) ;
  180.  
  181. void xlinit( void ) ;
  182. void xlsymbols( void ) ;
  183.  
  184. int xlgetc(LVAL fptr) ;
  185. void xlungetc(LVAL fptr,int ch) ;
  186. int xlpeek(LVAL fptr) ;
  187. void xlputc(LVAL fptr,int ch) ;
  188. void xlflush( void ) ;
  189. void stdprint(LVAL expr) ;
  190. void stdputstr(char *str) ;
  191. void errprint(LVAL expr) ;
  192. void errputstr(char *str) ;
  193. void dbgprint(LVAL expr) ;
  194. void dbgputstr(char *str) ;
  195. void trcprin1(LVAL expr) ;
  196. void trcputstr(char *str) ;
  197.  
  198. void xlrdsave(LVAL expr) ;
  199. void xlevsave(LVAL expr) ;
  200. void xlfatal(char *msg) ;
  201. void wrapup( void ) ;
  202.  
  203. void xlbegin(CONTEXT *cptr,int flags,LVAL expr) ;
  204. void xlend(CONTEXT *cptr) ;
  205. void xlgo(LVAL label) ;
  206. void xlreturn(LVAL name,LVAL val) ;
  207. void xlthrow(LVAL tag,LVAL val) ;
  208. void xlsignal(char *emsg,LVAL arg) ;
  209. void xltoplevel( void ) ;
  210. void xlbrklevel( void ) ;
  211. void xlcleanup( void ) ;
  212. void xlcontinue( void ) ;
  213. void xljump(CONTEXT *target,int mask,LVAL val) ;
  214.  
  215. LVAL xcar( void ) ;
  216. LVAL xcdr( void ) ;
  217. LVAL xcons( void ) ;
  218. LVAL xlist( void ) ;
  219. LVAL xappend( void ) ;
  220. LVAL xreverse( void ) ;
  221. LVAL xlast( void ) ;
  222. LVAL xmember( void ) ;
  223. LVAL xassoc( void ) ;
  224. LVAL xsubst( void ) ;
  225. LVAL xsublis( void ) ;
  226. LVAL xremove( void ) ;
  227. LVAL xremif( void ) ;
  228. LVAL xremifnot( void ) ;
  229. int dotest1(LVAL arg,LVAL fun) ;
  230. int dotest2(LVAL arg1,LVAL arg2,LVAL fun) ;
  231. LVAL xnth( void ) ;
  232. LVAL xnthcdr( void ) ;
  233. LVAL xlength( void ) ;
  234. LVAL xmapc( void ) ;
  235. LVAL xmapcar( void ) ;
  236. LVAL xmapl( void ) ;
  237. LVAL xmaplist( void ) ;
  238. LVAL xrplca( void ) ;
  239. LVAL xrplcd( void ) ;
  240. LVAL xnconc( void ) ;
  241. LVAL xdelete( void ) ;
  242. LVAL xdelif( void ) ;
  243. LVAL xdelifnot( void ) ;
  244. LVAL xsort( void ) ;
  245.  
  246. LVAL xgcd( void ) ;
  247. void checkizero(FIXTYPE iarg) ;
  248. void checkfzero(FLOTYPE farg) ;
  249. void checkfneg(FLOTYPE farg) ;
  250.  
  251. LVAL xsend( void ) ;
  252. LVAL xsendsuper( void ) ;
  253. LVAL xlclass(char *name,int vcnt) ;
  254. void xladdivar(LVAL cls,char *var) ;
  255. void xladdmsg(LVAL cls,char *msg,int offset) ;
  256. int xlobgetvalue(LVAL pair,LVAL sym,LVAL *pval) ;
  257. int xlobsetvalue(LVAL pair,LVAL sym,LVAL val) ;
  258. LVAL obisnew( void ) ;
  259. LVAL obclass( void ) ;
  260. LVAL obshow( void ) ;
  261. LVAL clnew( void ) ;
  262. LVAL clisnew( void ) ;
  263. LVAL clanswer( void ) ;
  264. void obsymbols( void ) ;
  265. void xloinit( void ) ;
  266.  
  267. LVAL xpp( void ) ;
  268.  
  269. void xlprint(LVAL fptr,LVAL vptr,int flag) ;
  270. void xlterpri(LVAL fptr) ;
  271. void xlputstr(LVAL fptr,char *str) ;
  272.  
  273. int xlload(char *fname,int vflag,int pflag) ;
  274. int xlread(LVAL fptr,LVAL *pval,int rflag) ;
  275. int readone(LVAL fptr,LVAL *pval) ;
  276. LVAL rmhash( void ) ;
  277. LVAL rmquote( void ) ;
  278. LVAL rmdquote( void ) ;
  279. LVAL rmbquote( void ) ;
  280. LVAL rmcomma( void ) ;
  281. LVAL rmlpar( void ) ;
  282. LVAL rmrpar( void ) ;
  283. LVAL rmsemi( void ) ;
  284. LVAL tentry(int ch) ;
  285. int isnumber(char *str,LVAL *pval) ;
  286. void defmacro(int ch,LVAL type,int offset) ;
  287. LVAL callmacro(LVAL fptr,int ch) ;
  288. void xlrinit( void ) ;
  289.  
  290. LVAL xstrcat( void ) ;
  291. LVAL xsubseq( void ) ;
  292. LVAL xstring( void ) ;
  293. LVAL xchar( void ) ;
  294. LVAL xcharint( void ) ;
  295. LVAL xintchar( void ) ;
  296. LVAL xuppercasep( void ) ;
  297. LVAL xlowercasep( void ) ;
  298. LVAL xbothcasep( void ) ;
  299. LVAL xdigitp( void ) ;
  300. LVAL xcharcode( void ) ;
  301. LVAL xcodechar( void ) ;
  302. LVAL xchupcase( void ) ;
  303. LVAL xchdowncase( void ) ;
  304. LVAL xdigitchar( void ) ;
  305. LVAL xalphanumericp( void ) ;
  306.  
  307. LVAL xlsubr(char *sname,int type,LVAL (*fcn)(void),int offset) ;
  308. int xlgetkeyarg(LVAL key,LVAL *pval) ;
  309. int xlgkfixnum(LVAL key,LVAL *pval) ;
  310. void xltest(LVAL *pfcn,int *ptresult) ;
  311. LVAL xlgetfile( void ) ;
  312. LVAL xlgetfname( void ) ;
  313. int needsextension(char *name) ;
  314. LVAL xlbadtype(LVAL arg) ;
  315. LVAL xltoofew( void ) ;
  316. void xltoomany( void ) ;
  317. int eq(LVAL arg1,LVAL arg2) ;
  318. int eql(LVAL arg1,LVAL arg2) ;
  319. int equal(LVAL arg1,LVAL arg2) ;
  320.  
  321. LVAL xlenter(char *name) ;
  322. LVAL xlmakesym(char *name) ;
  323. LVAL xlgetvalue(LVAL sym) ;
  324. LVAL xlxgetvalue(LVAL sym) ;
  325. void xlsetvalue(LVAL sym,LVAL val) ;
  326. LVAL xlgetfunction(LVAL sym) ;
  327. LVAL xlxgetfunction(LVAL sym) ;
  328. void xlsetfunction(LVAL sym,LVAL val) ;
  329. LVAL xlgetprop(LVAL sym,LVAL prp) ;
  330. void xlputprop(LVAL sym,LVAL val,LVAL prp) ;
  331. void xlremprop(LVAL sym,LVAL prp) ;
  332. int hash(char *str,int len) ;
  333. void xlsinit( void ) ;
  334. LVAL xload( void ) ;
  335. LVAL xtranscript( void ) ;
  336. LVAL xtype( void ) ;
  337. LVAL xbaktrace( void ) ;
  338. void xexit( void ) ;
  339. LVAL xpeek( void ) ;
  340. LVAL xpoke( void ) ;
  341. LVAL xaddrs( void ) ;
  342.  
  343.