eus_proto.h
Go to the documentation of this file.
00001 #ifdef __cplusplus
00002 extern "C" {
00003 #endif
00004 /* arith.c */
00005 extern pointer NUMEQUAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00006 extern pointer GREATERP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00007 extern pointer LESSP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00008 extern pointer GREQP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00009 extern pointer LSEQP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00010 extern pointer MOD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00011 extern pointer SUB1(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00012 extern pointer ADD1(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00013 extern pointer ratio_plus(pointer /*x*/, pointer /*y*/);
00014 extern pointer ratio_minus(pointer /*x*/, pointer /*y*/);
00015 extern pointer ratio_times(pointer /*x*/, pointer /*y*/);
00016 extern pointer ratio_divide(pointer /*x*/, pointer /*y*/);
00017 extern pointer int2ratio(eusinteger_t /*i*/);
00018 extern eusfloat_t ratio2flt(pointer /*r*/);
00019 extern pointer return_ratio(pointer /*r*/);
00020 extern pointer PLUS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00021 extern pointer MINUS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00022 extern pointer TIMES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00023 extern pointer QUOTIENT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00024 extern pointer SIN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00025 extern pointer COS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00026 extern pointer TAN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00027 extern pointer ATAN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00028 extern pointer TANH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00029 extern pointer ATANH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00030 extern pointer SINH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00031 extern pointer ASINH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00032 extern pointer COSH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00033 extern pointer ACOSH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00034 extern pointer SQRT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00035 extern pointer LOG(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00036 extern pointer EXP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00037 extern pointer ABS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00038 extern pointer ROUND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00039 extern pointer FLOOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00040 extern pointer CEILING(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00041 extern pointer TRUNCATE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00042 extern pointer EUSFLOAT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00043 extern pointer DECFLOAT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00044 extern pointer MAX(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00045 extern pointer MIN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00046 extern pointer LOGAND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00047 extern pointer LOGIOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00048 extern pointer LOGXOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00049 extern pointer LOGEQV(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00050 extern pointer LOGNAND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00051 extern pointer LOGNOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00052 extern pointer LOGNOT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00053 extern pointer LOGTEST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00054 extern pointer LOGBITP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00055 extern pointer ASH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00056 extern pointer LDB(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00057 extern pointer DPB(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00058 extern pointer MAKERANDOMSTATE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00059 extern pointer RANDOM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00060 extern void arith(context */*ctx*/, pointer /*mod*/);
00061 extern pointer FREXP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00062 /* big.c */
00063 #if Solaris2 && sun4
00064 extern void extended_mul(unsigned int /*d*/, unsigned int /*q*/, unsigned int /*r*/, unsigned int */*hp*/, unsigned int */*lp*/);
00065 extern void extended_div(unsigned int /*d*/, unsigned int /*h*/, long int /*l*/, unsigned int */*qp*/, unsigned int */*rp*/);
00066 #else
00067 extern void extended_mul(eusinteger_t /*d*/, eusinteger_t /*q*/, eusinteger_t /*r*/, eusinteger_t */*hp*/, eusinteger_t */*lp*/);
00068 extern void extended_div(eusinteger_t /*d*/, eusinteger_t /*h*/, eusinteger_t /*l*/, eusinteger_t */*qp*/, eusinteger_t */*rp*/);
00069 #endif
00070 extern pointer stretch_big(pointer /*x*/, eusinteger_t /*i*/);
00071 extern pointer copy_big(pointer /*x*/);
00072 extern eusinteger_t big_zerop(pointer /*x*/);
00073 extern eusinteger_t big_sign(pointer /*x*/);
00074 extern int big_compare(pointer /*x*/, pointer /*y*/);
00075 extern void complement_big(pointer /*x*/);
00076 extern pointer big_minus(pointer /*x*/);
00077 extern void add_int_big(eusinteger_t /*c*/, pointer /*x*/);
00078 extern void sub_int_big(eusinteger_t /*c*/, pointer /*x*/);
00079 extern void mul_int_big(eusinteger_t /*c*/, pointer /*x*/);
00080 extern eusinteger_t div_int_big(eusinteger_t /*c*/, pointer /*x*/);
00081 extern pointer big_plus(pointer /*x*/, pointer /*y*/);
00082 extern pointer big_times(pointer /*x*/, pointer /*y*/);
00083 extern void sub_int_big_big(eusinteger_t /*c*/, pointer /*x*/, pointer /*y*/);
00084 extern eusinteger_t get_standardizing_factor_and_normalize(pointer /*x*/);
00085 extern eusinteger_t div_big_big(pointer /*x*/, pointer /*y*/);
00086 extern pointer big_quotient_remainder_auxiliary(pointer /*x*/, pointer /*y*/, int /*i*/);
00087 extern void big_quotient_remainder(pointer /*x0*/, pointer /*y0*/, pointer */*qp*/, pointer */*rp*/);
00088 extern int big_length(pointer /*x*/);
00089 extern pointer normalize_big(pointer /*x*/);
00090 extern pointer normalize_bignum(pointer /*x*/);
00091 extern eusfloat_t big_to_float(pointer /*x*/);
00092 /* big2.c */
00093 /* calleus.c */
00094 #if (defined(x86_64) || defined(aarch64))
00095 extern eusinteger_t calleus(pointer /*fsym*/, eusinteger_t /*cargv*/*);
00096 #else
00097 extern eusinteger_t calleus(pointer /*fsym*/, eusinteger_t /*cargv*/*, int /*a2*/, int /*a3*/, int /*a4*/, int /*a5*/, int /*a6*/, int /*a7*/, int /*a8*/);
00098 #endif
00099 extern void foreign(context */*ctx*/, pointer /*mod*/);
00100 /* charstring.c */
00101 extern pointer EUSCHAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00102 extern pointer SETCHAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00103 extern pointer UPCASEP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00104 extern pointer LOWCASEP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00105 extern pointer ALPHAP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00106 extern pointer DIGITP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00107 extern pointer ALNUMP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00108 extern pointer CHUPCASE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00109 extern pointer CHDOWNCASE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00110 extern pointer STRINGEQ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00111 extern pointer STRINGEQUAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00112 extern pointer STR_LT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00113 extern pointer STR_LE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00114 extern pointer STR_EQ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00115 extern pointer STR_GT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00116 extern pointer STR_GE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00117 extern void charstring(context */*ctx*/, pointer /*mod*/);
00118 /* compsub.c */
00119 extern int maerror(void);
00120 extern pointer loadglobal(pointer /*s*/);
00121 extern pointer storeglobal(pointer /*s*/, pointer /*v*/);
00122 extern pointer xcar(pointer /*p*/);
00123 extern pointer xcdr(pointer /*p*/);
00124 extern pointer xcadr(pointer /*p*/);
00125 extern pointer minilist(context */*ctx*/, pointer */*p*/, int /*n*/);
00126 extern pointer restorecatch(context */*ctx*/);
00127 /* eus.c */
00128 extern void unwind(context */*ctx*/, pointer */*p*/);
00129 #if 0
00130 extern pointer error(enum errorcode /*ec*/, pointer /*msg*/, ... );
00131 #endif
00132 #ifdef USE_STDARG
00133 extern pointer error(enum errorcode /*ec*/, ...);
00134 #else
00135 extern pointer error(long /*va_alist*/);
00136 #endif
00137 #ifdef USE_STDARG
00138 extern pointer basicclass(char */*name*/, ...);
00139 #else
00140 extern pointer basicclass(long /*va_alist*/);
00141 #endif
00142 extern void eusint(int /*s*/, int /*code*/, int /*x*/, eusinteger_t /*addr*/);
00143 extern void sigbreak(void);
00144 extern unsigned int thr_self(void);
00145 extern void mainthread(context */*ctx*/);
00146 extern int main(int /*argc*/, char */*argv*/*);
00147 /* eusioctl.c */
00148 extern pointer IOCTL_TCGETA(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00149 extern pointer IOCTL_TCSETA(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00150 extern pointer IOCTL_TCSETAF(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00151 extern pointer IOCTL_TCSETAW(int /*n*/, pointer /*argv*/*);
00152 extern pointer TCGETATTR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00153 extern pointer TCSETATTR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00154 extern pointer IOCTL_TCGETS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00155 extern pointer IOCTL_TCSETS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00156 extern pointer IOCTL_TCSETSW(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00157 extern pointer IOCTL_TCSETSF(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00158 extern void eusioctl(context */*ctx*/, pointer /*mod*/);
00159 /* eusstart.dmy.c */
00160 extern void eusstart(context */*ctx*/);
00161 /* eusstream.c */
00162 extern pointer openfile(context */*ctx*/, char */*fname*/, int /*dir*/, int /*acsmode*/, int /*size*/);
00163 extern int closestream(pointer /*s*/);
00164 extern int readch(pointer /*s*/);
00165 extern int unreadch(pointer /*s*/, int /*ch*/);
00166 extern int flushstream(pointer /*s*/);
00167 extern int writech(pointer /*s*/, int /*ch*/);
00168 extern int writestr(pointer /*s*/, byte */*mes*/, int /*len*/);
00169 /* eval.c */
00170 extern pointer *getobjv(pointer /*sym*/, pointer /*varvec*/, pointer /*obj*/);
00171 extern pointer getval(context */*ctx*/, pointer /*sym*/);
00172 extern pointer setval(context */*ctx*/, pointer /*sym*/, pointer /*val*/);
00173 extern pointer getfunc(context */*ctx*/, pointer /*f*/);
00174 extern pointer get_sym_func(pointer /*s*/);
00175 extern void setfunc(pointer /*sym*/, pointer /*func*/);
00176 extern pointer *ovafptr(pointer /*o*/, pointer /*v*/);
00177 extern void bindspecial(context */*ctx*/, pointer /*sym*/, pointer /*newval*/);
00178 extern void unbindx(context */*ctx*/, int /*count*/);
00179 extern void unbindspecial(context */*ctx*/, struct specialbindframe */*limit*/);
00180 extern struct bindframe *fastbind(context */*ctx*/, pointer /*var*/, pointer /*val*/, struct bindframe */*lex*/);
00181 extern struct bindframe *vbind(context */*ctx*/, pointer /*var*/, pointer /*val*/, struct bindframe */*lex*/, struct bindframe */*declscope*/);
00182 extern struct bindframe *declare(context */*ctx*/, pointer /*decllist*/, struct bindframe */*env*/);
00183 extern int parsekeyparams(pointer /*keyvec*/, pointer */*actuals*/, int /*noarg*/, pointer */*results*/, int /*allowotherkeys*/);
00184 extern struct bindframe *bindkeyparams(context */*ctx*/, pointer /*formal*/, pointer */*argp*/, int /*noarg*/, struct bindframe */*env*/, struct bindframe */*bf*/);
00185 extern pointer funlambda(context */*ctx*/, pointer /*fn*/, pointer /*formal*/, pointer /*body*/, pointer */*argp*/, struct bindframe */*env*/, int /*noarg*/);
00186 extern pointer call_foreign(eusinteger_t (*/*ifunc*/)(), pointer /*code*/, int /*n*/, pointer /*args*/*);
00187 extern pointer funcode(context */*ctx*/, pointer /*func*/, pointer /*args*/, int /*noarg*/);
00188 extern pointer ufuncall(context */*ctx*/, pointer /*form*/, pointer /*fn*/, pointer /*args*/, struct bindframe */*env*/, int /*noarg*/);
00189 extern pointer eval(context */*ctx*/, pointer /*form*/);
00190 extern pointer eval2(context */*ctx*/, pointer /*form*/, pointer /*env*/);
00191 extern pointer progn(context */*ctx*/, pointer /*forms*/);
00192 #ifdef USE_STDARG
00193 extern pointer csend(context */*ctx*/, ...);
00194 #else
00195 extern pointer csend();
00196 #endif
00197 /* fcall.c */
00198 /* intern.c */
00199 extern int rehash(pointer /*str*/);
00200 extern pointer findsymbol(byte */*id*/, int /*l*/, pointer /*symvec*/, int */*hashval*/);
00201 extern pointer export(pointer /*sym*/, pointer /*pkg*/);
00202 extern pointer intern(context */*ctx*/, char */*id*/, int /*l*/, pointer /*pkg*/);
00203 /* leo.c */
00204 extern pointer GETCLASS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00205 extern pointer CLASSP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00206 extern pointer SUBCLASSP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00207 extern pointer DERIVEDP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00208 extern pointer ENTERCLASS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00209 extern void addmethod(context */*ctx*/, pointer /*meth*/, pointer /*class*/, pointer /*doc*/);
00210 extern void addcmethod(context */*ctx*/, pointer /*mod*/, pointer (*/*cfunc*/)(), pointer /*sel*/, pointer /*class*/, pointer /*doc*/);
00211 extern pointer DEFMETHOD(context */*ctx*/, pointer /*arg*/);
00212 extern pointer INSTANTIATE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00213 extern pointer findmethod(context */*ctx*/, pointer /*sel*/, pointer /*search*/, pointer */*curclass*/);
00214 extern pointer findforward(context */*ctx*/, pointer /*selector*/, pointer /*klass*/, pointer /*obj*/, pointer */*component*/, pointer */*classfound*/);
00215 extern pointer SEND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00216 extern pointer SEND_IF_FOUND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00217 extern pointer SENDMESSAGE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00218 extern pointer CLONE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00219 extern pointer METHCACHE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00220 extern pointer FINDMETHOD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00221 extern int getslotindex(pointer /*obj*/, pointer /*klass*/, pointer /*varid*/);
00222 extern pointer SLOT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00223 extern pointer SETSLOT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00224 extern pointer CONSCAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00225 extern pointer CONSCDR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00226 extern pointer copyobj(context */*ctx*/, pointer /*org*/);
00227 extern void copyunmark(pointer /*obj*/);
00228 extern pointer COPYOBJ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00229 extern pointer BECOME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00230 extern pointer REPLACEOBJECT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00231 extern void leo(context */*ctx*/, pointer /*mod*/);
00232 /* lispio.c */
00233 extern pointer OPENFILE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00234 extern pointer CLOSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00235 extern pointer getoutstream(context */*ctx*/, int /*n*/, pointer /*strm*/);
00236 extern pointer getinstream(context */*ctx*/, int /*n*/, pointer /*strm*/);
00237 extern pointer PRINT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00238 extern pointer PRIN1(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00239 extern pointer PRINC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00240 extern pointer TERPRI(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00241 extern void prntsize(pointer /*s*/, int /*lim*/);
00242 extern pointer PRNTSIZE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00243 extern pointer READ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00244 extern pointer READ_DELIMITED_LIST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00245 extern pointer READLINE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00246 extern pointer READCH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00247 extern pointer UNREADCH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00248 extern pointer PEEKCH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00249 extern pointer FINOUT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00250 extern pointer WRTBYTE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00251 extern pointer WRTWORD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00252 extern pointer WRTLONG(context */*ctx*/, int /*n*/, pointer */*argv*/);
00253 extern pointer SETMACROCH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00254 extern pointer GETMACROCH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00255 extern pointer SETDISPMACRO(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00256 extern pointer GETDISPMACRO(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00257 extern pointer RESETREADTABLE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00258 extern pointer XFORMAT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00259 extern pointer SIGERROR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00260 extern pointer INSTALL_ERRHANDLER(context */*ctx*/, int /*n*/, pointer */*argv*/);
00261 extern void lispio(context */*ctx*/, pointer /*mod*/);
00262 /* lists.c */
00263 extern pointer CAR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00264 extern pointer CDR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00265 extern pointer CADR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00266 extern pointer CDDR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00267 extern pointer CDAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00268 extern pointer CAAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00269 extern pointer CADDR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00270 extern pointer NTH(context */*ctx*/, int /*n*/, pointer */*argv*/);
00271 extern pointer NTHCDR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00272 extern pointer CONS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00273 extern pointer RPLACA(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00274 extern pointer RPLACA2(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00275 extern pointer RPLACD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00276 extern pointer RPLACD2(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00277 extern pointer LIST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00278 extern pointer LIST_STAR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00279 extern pointer APPEND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00280 extern pointer NCONC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00281 extern pointer subst(context */*ctx*/, pointer /*x*/, pointer /*y*/, pointer /*z*/);
00282 extern pointer SUBST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00283 extern pointer nsubst(pointer /*x*/, pointer /*y*/, pointer */*z*/);
00284 extern pointer NSUBST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00285 extern pointer memq(pointer /*item*/, pointer /*list*/);
00286 extern pointer MEMQ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00287 extern pointer MEMBER(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00288 extern pointer SUPERMEMBER(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00289 extern pointer assq(pointer /*item*/, pointer /*alist*/);
00290 extern pointer ASSQ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00291 extern pointer ASSOC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00292 extern pointer SUPERASSOC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00293 extern pointer BUTLAST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00294 extern pointer NBUTLAST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00295 extern void lists(context */*ctx*/, pointer /*mod*/);
00296 /* loadelf.c */
00297 extern pointer SRCLOAD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00298 extern void add_module_initializer(char */*name*/, pointer (*/*entry*/)());
00299 extern void exec_module_initializers(context */*ctx*/);
00300 extern pointer list_module_initializers(context */*ctx*/, pointer /*initnames*/);
00301 extern pointer list_module_initializers2(context */*ctx*/, int /*n*/, pointer */*argv*/);
00302 extern pointer build_quote_vector(context */*ctx*/, int /*size*/, char */*strings*/*);
00303 extern pointer eval_c_strings(context */*ctx*/, int /*size*/, const char */*strings*/*);
00304 extern pointer FIND_ENTRY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00305 extern pointer FIND_ENTRY2(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00306 extern pointer SYSMOD(void);
00307 extern pointer UNBINLOAD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00308 extern pointer BINLOAD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00309 extern pointer SAVE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00310 extern void loadsave(context */*ctx*/, pointer /*mod*/);
00311 /* makedate.c */
00312 /* makes.c */
00313 extern pointer Getstring(pointer /*s*/);
00314 extern byte *get_string(pointer /*s*/);
00315 extern pointer rawcons(context */*ctx*/, pointer /*a*/, pointer /*d*/);
00316 extern pointer cons(context */*ctx*/, pointer /*a*/, pointer /*d*/);
00317 extern pointer stackrawlist(context */*ctx*/, int /*n*/);
00318 extern pointer stacknlist(context */*ctx*/, int /*n*/);
00319 extern pointer makebuffer(int /*size*/);
00320 extern pointer makestring(char */*s*/, int /*l*/);
00321 extern pointer make_foreign_string(eusinteger_t /*addr*/, int /*size*/);
00322 extern pointer makesymbol(context */*ctx*/, char */*str*/, int /*leng*/, pointer /*home*/);
00323 extern pointer searchpkg(byte */*token*/, int /*leng*/);
00324 extern pointer findpkg(pointer /*pkgname*/);
00325 extern pointer makepkg(context */*ctx*/, pointer /*namestr*/, pointer /*nicks*/, pointer /*uses*/);
00326 extern pointer mkstream(context */*ctx*/, pointer /*dir*/, pointer /*string*/);
00327 extern pointer mkfilestream(context */*ctx*/, pointer /*dir*/, pointer /*string*/, int /*fno*/, pointer /*fname*/);
00328 extern pointer mkiostream(context */*ctx*/, pointer /*in*/, pointer /*out*/);
00329 extern pointer makecode(pointer /*mod*/, pointer (*/*f*/)(), pointer /*ftype*/);
00330 extern void bumpcix(int /*m*/, int /*n*/);
00331 extern void recixobj(int /*newcix*/);
00332 extern void resetcix(pointer /*class*/, cixpair */*p*/);
00333 extern void enterclass(pointer /*classobj*/);
00334 extern pointer makeclass(context */*ctx*/, pointer /*name*/, pointer /*superobj*/, pointer /*vars*/, pointer /*types*/, pointer /*forwards*/, int /*tag*/, pointer /*metaclass*/);
00335 extern pointer makeobject(pointer /*class*/);
00336 extern pointer makevector(pointer /*vclass*/, int /*size*/);
00337 extern pointer makefvector(int /*s*/);
00338 extern pointer defvector(context */*ctx*/, char */*name*/, pointer /*super*/, int /*elm*/, int /*size*/);
00339 extern pointer makematrix(context */*ctx*/, int /*row*/, int /*column*/);
00340 extern pointer makemodule(context */*ctx*/, int /*size*/);
00341 extern pointer makeclosure(pointer /*code*/, pointer /*quote*/, pointer (*/*f*/)(), pointer /*e0*/, pointer */*e1*/, pointer */*e2*/);
00342 extern pointer makereadtable(context */*ctx*/);
00343 extern pointer makelabref(pointer /*n*/, pointer /*v*/, pointer /*nxt*/);
00344 extern pointer makeratio(int /*num*/, int /*denom*/);
00345 extern pointer makebig(int /*n*/);
00346 extern pointer makebig1(long /*x*/);
00347 extern pointer makebig2(long /*hi*/, long /*lo*/);
00348 extern pointer defun(context */*ctx*/, char */*name*/, pointer /*mod*/, pointer (*/*f*/)(), char * /*doc*/);
00349 extern pointer defunpkg(context */*ctx*/, char */*name*/, pointer /*mod*/, pointer (*/*f*/)(), pointer /*pkg*/);
00350 extern pointer defmacro(context */*ctx*/, char */*name*/, pointer /*mod*/, pointer (*/*f*/)());
00351 extern int special_index(void);
00352 extern pointer defspecial(context */*ctx*/, char */*name*/, pointer /*mod*/, pointer (*/*f*/)());
00353 extern pointer defconst(context */*ctx*/, char */*name*/, pointer /*val*/, pointer /*pkg*/);
00354 extern pointer defvar(context */*ctx*/, char */*name*/, pointer /*val*/, pointer /*pkg*/);
00355 extern pointer deflocal(context */*ctx*/, char */*name*/, pointer /*val*/, pointer /*pkg*/);
00356 extern pointer defkeyword(context */*ctx*/, char */*name*/);
00357 extern pointer compfun(context */*ctx*/, pointer /*sym*/, pointer /*mod*/, pointer (*/*entry*/)(), pointer /*doc*/);
00358 extern pointer compmacro(context */*ctx*/, pointer /*sym*/, pointer /*mod*/, pointer (*/*entry*/)(), pointer /*doc*/);
00359 extern struct blockframe *makeblock(context */*ctx*/, pointer /*kind*/, pointer /*name*/, jmp_buf */*jbuf*/, struct blockframe */*link*/);
00360 extern struct fletframe *makeflet(context */*ctx*/, pointer /*nm*/, pointer /*def*/, struct fletframe */*scp*/, struct fletframe */*link*/);
00361 extern void mkcatchframe(context */*ctx*/, pointer /*lab*/, jmp_buf */*jbuf*/);extern void allocate_stack(context */*ctx*/, int /*n*/);
00362 extern context *makelispcontext(int /*bs_size*/);
00363 extern void deletecontext(int /*id*/, context */*ctx*/);
00364 
00365 /* matrix.c */
00366 extern pointer VPLUS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00367 extern pointer VPLUSPLUS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00368 extern pointer VMINUS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00369 extern pointer VMINUS_ABS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00370 extern pointer VINNERPRODUCT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00371 extern pointer VNORM(context */*ctx*/, int /*n*/, pointer */*argv*/);
00372 extern pointer VNORM2(context */*ctx*/, int /*n*/, pointer */*argv*/);
00373 extern pointer VNORMALIZE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00374 extern pointer VDISTANCE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00375 extern pointer VDISTANCE2(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00376 extern pointer VDIRECTION(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00377 extern pointer VCROSSPRODUCT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00378 extern pointer SCA3PROD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00379 extern pointer SCALEVEC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00380 extern pointer MIDPOINT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00381 extern pointer MKFLTVEC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00382 extern pointer VLESSP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00383 extern pointer VGREATERP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00384 extern pointer MINIMALBOX(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00385 extern pointer VMIN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00386 extern pointer VMAX(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00387 extern pointer MATTIMES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00388 extern pointer TRANSFORM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00389 extern pointer ROTVEC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00390 extern pointer ROTMAT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00391 extern pointer ROTATION_MATRIX(context */*ctx*/, int /*n*/, pointer */*argv*/);
00392 extern pointer ROTANGLE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00393 extern pointer TRANSPOSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00394 extern pointer INV_RPY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00395 extern pointer INV_EULER(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00396 extern pointer LU_DECOMPOSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00397 extern pointer LU_SOLVE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00398 extern pointer LU_DETERMINANT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00399 extern void matrix(context */*ctx*/, pointer /*mod*/);
00400 /* memory.c */
00401 extern int newchunk(int /*k*/);
00402 extern bpointer root_alloc_big(context */*ctx*/, int /*req*/);
00403 extern void root_alloc_small(context */*ctx*/, int /*req*/);
00404 extern pointer alloc(int /*s*/, int /*e*/, int /*cid*/, int /*nils*/);
00405 extern void mark(pointer /*p*/);
00406 extern void newgcstack(pointer */*oldsp*/);
00407 extern void markall(void);
00408 extern void reclaim(bpointer /*p*/);
00409 extern void sweepall(void);
00410 extern void gc(void);
00411 #ifdef STACK_DEBUG
00412 extern pointer p_print(pointer /*v*/, context */*ctx*/);
00413 #endif
00414 #if 0
00415 /* memory.mutex.c */
00416 extern int newchunk(int /*k*/);
00417 extern bpointer root_alloc_big(context */*ctx*/, int /*req*/);
00418 extern int root_alloc_small(context */*ctx*/, int /*req*/);
00419 extern pointer halloc(int /*req*/, int /*e*/, int /*cid*/);
00420 extern pointer allocx(int /*s*/, int /*e*/, int /*cid*/, int /*nils*/);
00421 extern pointer alloc(int /*s*/, int /*e*/, int /*cid*/, int /*nils*/);
00422 extern int mark(pointer /*p*/);
00423 extern int newgcstack(pointer */*oldsp*/);
00424 extern int markall(void);
00425 extern int reclaim(bpointer /*p*/);
00426 extern void sweepall(void);
00427 extern int gc(void);
00428 /* memory.safe.c */
00429 extern int newchunk(int /*k*/);
00430 extern pointer halloc(int /*req*/, int /*e*/, int /*cid*/);
00431 extern pointer alloc(int /*s*/, int /*e*/, int /*cid*/, int /*nils*/);
00432 extern int mark(pointer /*p*/);
00433 extern int markall(void);
00434 extern int reclaim(bpointer /*p*/);
00435 extern void sweepall(void);
00436 extern int gc(void);
00437 #endif
00438 /* mthread.c */
00439 extern pointer COND_SIGNAL(context */*ctx*/, int /*n*/, pointer */*argv*/);
00440 extern pointer COND_WAIT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00441 extern pointer FREE_THREADS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00442 extern pointer MAKE_COND(context */*ctx*/, int /*n*/, pointer */*argv*/);
00443 extern pointer MAKE_MUTEX_LOCK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00444 extern pointer MAKE_SEMAPHORE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00445 extern pointer MUTEX_LOCK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00446 extern pointer MUTEX_TRYLOCK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00447 extern pointer MUTEX_UNLOCK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00448 extern pointer SEMA_POST(context */*ctx*/, int /*n*/, pointer */*argv*/);
00449 extern pointer SEMA_TRYWAIT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00450 extern pointer SEMA_WAIT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00451 extern pointer THREAD_SELF(context */*ctx*/, int /*n*/, pointer */*argv*/);
00452 extern pointer THR_CONTINUE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00453 extern pointer THR_CREATE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00454 extern pointer THR_GETCONCURRENCY(context */*ctx*/, int /*n*/, pointer */*argv*/);
00455 extern pointer THR_GETPRIO(context */*ctx*/, int /*n*/, pointer */*argv*/);
00456 extern pointer THR_KILL(context */*ctx*/, int /*n*/, pointer */*argv*/);
00457 extern pointer THR_SELF(context */*ctx*/, int /*n*/, pointer */*argv*/);
00458 extern pointer THR_SETCONCURRENCY(context */*ctx*/, int /*n*/, pointer */*argv*/);
00459 extern pointer THR_SETPRIO(context */*ctx*/, int /*n*/, pointer */*argv*/);
00460 extern pointer THR_SIGSETMASK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00461 extern pointer THR_SUSPEND(context */*ctx*/, int /*n*/, pointer */*argv*/);
00462 extern pointer MAKE_THREAD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00463 extern pointer AFUNCALL(context */*ctx*/, int /*n*/, pointer */*argv*/);
00464 extern pointer AFUNCALL_NO_WAIT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00465 extern pointer WAIT_AFUNCALL(context */*ctx*/, int /*n*/, pointer */*argv*/);
00466 /* paragc.c */
00467 /* predicates.c */
00468 extern pointer ATOM(context */*ctx*/, int /*n*/, pointer */*argv*/);
00469 extern pointer EQ(context */*ctx*/, int /*n*/, pointer */*argv*/);
00470 extern pointer NILP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00471 extern pointer SYMBOLP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00472 extern pointer STRINGP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00473 extern pointer LISTP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00474 extern pointer CONSP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00475 extern pointer ENDP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00476 extern pointer NUMBERP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00477 extern pointer INTEGERP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00478 extern pointer FLOATP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00479 extern pointer BOUNDP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00480 extern pointer FBOUNDP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00481 extern pointer STREAMP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00482 extern pointer superequal(pointer /*x*/, pointer /*y*/);
00483 extern pointer equal(pointer /*x*/, pointer /*y*/);
00484 extern pointer EQUAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00485 extern pointer SUPEREQUAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00486 extern void predicates(context */*ctx*/, pointer /*mod*/);
00487 /* printer.c */
00488 extern void printint(context */*ctx*/, eusinteger_t /*num*/, pointer /*f*/, int /*base*/, int /*field1*/, int /*field2*/);
00489 extern void printnum(context */*ctx*/, pointer /*nump*/, pointer /*strm*/, int /*base*/, int /*field1*/, int /*field2*/);
00490 extern pointer prinx(context */*ctx*/, pointer /*obj*/, pointer /*stream*/);
00491 extern void terpri(pointer /*f*/);
00492 /* pthreads.c */
00493 #if 0
00494 extern int thr_self(void);
00495 extern int thr_getprio(int /*tid*/, int */*prio*/);
00496 extern int thr_setprio(int /*tid*/, int /*prio*/);
00497 extern int thr_create(void */*base*/, size_t /*size*/, void (*/*func*/)(), void */*args*/, long /*flags*/, int */*tid*/);
00498 extern int thr_continue(int /*tid*/);
00499 extern int thr_suspend(int /*tid*/);
00500 extern int thr_kill(int /*tid*/, int /*sig*/);
00501 extern int thr_join(int /*tid*/, int */*depature*/, void **/*status*/);
00502 #endif  /* 0 */
00503 /* reader.c */
00504 extern int is_digit(int /*ch*/, int /*base*/);
00505 extern pointer read_delimited_list(context */*ctx*/, pointer /*f*/, int /*delim_char*/, char /*token*/*);
00506 extern int gcd(int /*u*/, int /*v*/);
00507 extern pointer reader(context */*ctx*/, pointer /*f*/, pointer /*recursivep*/);
00508 extern void initreader(context */*ctx*/);
00509 /* sequence.c */
00510 extern pointer call1(context */*ctx*/, pointer /*func*/, pointer /*arg*/);
00511 extern pointer call2(context */*ctx*/, pointer /*func*/, pointer /*arg1*/, pointer /*arg2*/);
00512 extern eusinteger_t coerceintval(pointer /*x*/);
00513 extern pointer fastvref(pointer /*vec*/, int /*index*/);
00514 extern void fastvset(pointer /*vec*/, int /*index*/, pointer /*val*/);
00515 extern pointer IDENTITY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00516 extern pointer SUBSEQ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00517 extern pointer COPYSEQ(context */*ctx*/, int /*n*/, pointer */*argv*/);
00518 extern pointer REVERSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00519 extern pointer NREVERSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00520 extern int pushsequence(context */*ctx*/, pointer /*a*/, int /*offset*/, int /*count*/);
00521 extern pointer makesequence(context */*ctx*/, int /*n*/, pointer /*resulttype*/);
00522 extern pointer CONCATENATE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00523 extern pointer COERCE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00524 extern pointer FILL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00525 extern pointer MAP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00526 extern pointer POSITION(context */*ctx*/, int /*n*/, pointer */*argv*/);
00527 extern pointer FIND(context */*ctx*/, int /*n*/, pointer */*argv*/);
00528 extern pointer COUNT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00529 extern pointer UNIREMOVE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00530 extern pointer REMOVE_DUPLICATES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00531 extern pointer DELETE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00532 extern pointer SUBSTITUTE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00533 extern pointer NSUBSTITUTE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00534 extern pointer VECREPLACE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00535 extern int compar(pointer */*x*/, pointer */*y*/);
00536 extern pointer SORT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00537 extern pointer LENGTH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00538 extern pointer ELT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00539 extern pointer SETELT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00540 extern void sequence(context */*ctx*/, pointer /*mod*/);
00541 /* specials.c */
00542 extern pointer quote(context */*ctx*/, pointer /*arg*/);
00543 extern pointer EVAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00544 extern pointer PROGN(context */*ctx*/, pointer /*arg*/);
00545 extern pointer PROG1(context */*ctx*/, int /*n*/, pointer */*argv*/);
00546 extern pointer APPLY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00547 extern pointer FUNCALL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00548 extern pointer FUNCTION_CLOSURE(context */*ctx*/, pointer /*arg*/);
00549 extern pointer MACEXPAND2(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00550 extern pointer MAPC(context */*ctx*/, int /*n*/, pointer */*argv*/);
00551 extern pointer MAPCAR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00552 extern pointer MAPCAN(context */*ctx*/, int /*n*/, pointer */*argv*/);
00553 extern pointer SETQ(context */*ctx*/, pointer /*arg*/);
00554 extern pointer IF(context */*ctx*/, pointer /*arg*/);
00555 extern pointer WHEN(context */*ctx*/, int /*n*/, pointer */*argv*/);
00556 extern pointer WHILE(context */*ctx*/, pointer /*arg*/);
00557 extern pointer COND(context */*ctx*/, pointer /*arg*/);
00558 extern pointer PARLET(context */*ctx*/, pointer /*args*/);
00559 extern pointer SEQLET(context */*ctx*/, pointer /*args*/);
00560 extern pointer CATCH(context */*ctx*/, pointer /*arg*/);
00561 extern void throw(context */*ctx*/, pointer /*tag*/, pointer /*result*/);
00562 extern pointer THROW(context */*ctx*/, pointer /*arg*/);
00563 extern pointer FLET(context */*ctx*/, pointer /*arg*/);
00564 extern pointer LABELS(context */*ctx*/, pointer /*arg*/);
00565 extern pointer RESET(context */*ctx*/, int /*n*/, pointer */*argv*/);
00566 extern pointer EVALHOOK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00567 extern pointer BLOCK(context */*ctx*/, pointer /*arg*/);
00568 extern pointer RETFROM(context */*ctx*/, pointer /*arg*/);
00569 extern pointer RETURN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00570 extern pointer UNWINDPROTECT(context */*ctx*/, pointer /*arg*/);
00571 extern pointer TAGBODY(context */*ctx*/, pointer /*arg*/);
00572 extern pointer GO(context */*ctx*/, pointer /*arg*/);
00573 extern pointer EVALWHEN(context */*ctx*/, pointer /*arg*/);
00574 extern pointer THE(context */*ctx*/, pointer /*arg*/);
00575 extern pointer AND(context */*ctx*/, pointer /*arg*/);
00576 extern pointer OR(context */*ctx*/, pointer /*arg*/);
00577 extern pointer PROCLAIM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00578 extern pointer DECLARE(pointer /*arg*/);
00579 extern pointer ALLPACKAGES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00580 extern pointer FINDPACKAGE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00581 extern pointer MAKEPACKAGE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00582 extern eusinteger_t sxhash(pointer /*x*/);
00583 extern pointer SXHASH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00584 extern pointer SYMVALUE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00585 extern pointer SYMBNDVALUE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00586 extern pointer SETFUNC(context */*ctx*/, int /*n*/, pointer */*argv*/);
00587 extern pointer SYMFUNC(context */*ctx*/, int /*n*/, pointer */*argv*/);
00588 extern pointer MAKUNBOUND(context */*ctx*/, int /*n*/, pointer */*argv*/);
00589 extern void set_special(context */*ctx*/, pointer /*var*/, pointer /*val*/);
00590 extern pointer SETSPECIAL(context */*ctx*/, int /*n*/, pointer */*argv*/);
00591 extern pointer DEFUN(context */*ctx*/, pointer /*arg*/);
00592 extern pointer DEFMACRO(context */*ctx*/, pointer /*arg*/);
00593 extern pointer FINDSYMBOL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00594 extern pointer INTERN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00595 extern pointer gensym(context */*ctx*/);
00596 extern pointer GENSYM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00597 extern pointer GETPROP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00598 extern pointer EXPORT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00599 extern pointer putprop(context */*ctx*/, pointer /*sym*/, pointer /*val*/, pointer /*attr*/);
00600 extern pointer PUTPROP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00601 extern void specials(context */*ctx*/, pointer /*mod*/);
00602 /* sysfunc.c */
00603 extern pointer GEESEE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00604 extern pointer SBCOUNT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00605 extern pointer GCTIME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00606 extern pointer ALLOC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00607 extern pointer NEWSTACK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00608 extern pointer DISPOSE_HOOK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00609 extern int xmark(context */*ctx*/, pointer /*p*/);
00610 extern int xcollect(context */*ctx*/, pointer /*p*/);
00611 extern pointer RECLAIM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00612 extern pointer RECLTREE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00613 extern pointer objsize1(pointer /*x*/);
00614 extern void objsize2(pointer /*x*/);
00615 extern pointer OBJSIZE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00616 extern pointer BKTRACE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00617 extern pointer MEMORY_REPORT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00618 extern pointer CLEAR_ALLOCCOUNT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00619 extern pointer ROOM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00620 extern pointer FREE_COUNTS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00621 extern pointer LIST_ALL_CHUNKS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00622 extern pointer INSTANCELIST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00623 extern pointer LISTALLREFERENCES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00624 extern pointer ADDRESS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00625 extern pointer PEEK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00626 extern pointer POKE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00627 extern pointer LISTALLCATCHERS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00628 extern pointer LISTBINDINGS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00629 extern pointer LISTSPECIALBINDINGS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00630 extern pointer LISTALLCLASSES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00631 extern pointer EXPORTALL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00632 extern pointer NEXT_SPECIAL_INDEX(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00633 extern pointer THREAD_SPECIALS(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00634 extern void sysfunc(context */*ctx*/, pointer /*mod*/);
00635 /* unixcall.c */
00636 extern pointer PTIMES(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00637 extern pointer RUNTIME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00638 extern pointer LOCALTIME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00639 extern pointer ASCTIME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00640 extern pointer GETRUSAGE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00641 extern pointer GETPAGESIZE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00642 extern pointer GETTIMEOFDAY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00643 extern pointer GETITIMER(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00644 extern pointer SETITIMER(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00645 extern pointer KILL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00646 extern pointer SIGNAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00647 extern pointer WAIT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00648 extern pointer ALARM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00649 extern pointer GETPID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00650 extern pointer GETPPID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00651 extern pointer GETPGRP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00652 extern pointer SETPGRP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00653 extern pointer GETUID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00654 extern pointer GETEUID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00655 extern pointer GETGID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00656 extern pointer GETEGID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00657 extern pointer SETUID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00658 extern pointer SETGID(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00659 extern pointer FORK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00660 extern pointer EXEC(context */*ctx*/, int /*n*/, pointer */*argv*/);
00661 extern pointer EXIT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00662 extern pointer UNIXREAD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00663 extern pointer UNIXWRITE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00664 extern pointer UNIXCLOSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00665 extern pointer FCNTL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00666 extern pointer IOCTL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00667 extern int bytesize(pointer /*p*/);
00668 extern pointer IOCTL_(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00669 extern pointer IOCTL_R(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00670 extern pointer IOCTL_W(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00671 extern pointer IOCTL_WR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00672 extern pointer DUP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00673 extern pointer DUP2(context */*ctx*/, int /*n*/, pointer */*argv*/);
00674 extern pointer MKNOD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00675 extern pointer LINK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00676 extern pointer UNLINK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00677 extern pointer RENAME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00678 extern pointer ACCESS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00679 extern pointer STAT(context */*ctx*/, int /*n*/, pointer */*argv*/);
00680 extern pointer DIRECTORY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00681 extern pointer LSEEK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00682 extern pointer CHDIR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00683 extern pointer CHMOD(context */*ctx*/, int /*n*/, pointer */*argv*/);
00684 extern pointer CHOWN(context */*ctx*/, int /*n*/, pointer */*argv*/);
00685 extern pointer PIPE(context */*ctx*/, int /*n*/, pointer */*argv*/);
00686 extern pointer MSGGET(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00687 extern pointer MSGRCV(context */*ctx*/, int /*n*/, pointer */*argv*/);
00688 extern pointer MSGSND(context */*ctx*/, int /*n*/, pointer */*argv*/);
00689 extern pointer MSGCTL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00690 extern pointer SYSTEM(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00691 extern pointer GETWD(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00692 extern pointer GETENV(context */*ctx*/, int /*n*/, pointer */*argv*/);
00693 extern pointer SLEEP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00694 extern pointer SYSERRLIST(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00695 extern pointer PAUSE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00696 extern pointer ISATTY(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00697 extern pointer SOCKET(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00698 extern pointer BIND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00699 extern pointer CONNECT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00700 extern pointer LISTEN(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00701 extern pointer ACCEPT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00702 extern pointer GETPEERNAME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00703 extern eusinteger_t *checkbitvec(pointer /*a*/, long *);
00704 extern pointer SELECT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00705 extern pointer SELECT_READ(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00706 extern pointer SBRK(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00707 extern pointer MALLOC(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00708 extern pointer FREE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00709 extern pointer GETHOSTNAME(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00710 extern pointer GETHOSTBYNAME(context */*ctx*/, int /*n*/, pointer */*argv*/);
00711 extern pointer GETHOSTBYADDR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00712 extern pointer GETNETBYNAME(context */*ctx*/, int /*n*/, pointer */*argv*/);
00713 extern pointer GETPROTOBYNAME(context */*ctx*/, int /*n*/, pointer */*argv*/);
00714 extern pointer GETSERVBYNAME(context */*ctx*/, int /*n*/, pointer */*argv*/);
00715 extern pointer ENVIRON(context */*ctx*/, int /*n*/, pointer */*argv*/);
00716 extern pointer ERRNO(context */*ctx*/, int /*n*/, pointer */*argv*/);
00717 extern pointer H2NS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00718 extern pointer N2HS(context */*ctx*/, int /*n*/, pointer */*argv*/);
00719 extern pointer LOCKF(context */*ctx*/, int /*n*/, pointer */*argv*/);
00720 extern pointer MKDIR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00721 extern pointer RMDIR(context */*ctx*/, int /*n*/, pointer */*argv*/);
00722 extern pointer MMAP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00723 extern pointer MUNMAP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00724 extern pointer PUTENV(context */*ctx*/, int /*n*/, pointer */*argv*/);
00725 extern pointer RECVFROM(context */*ctx*/, int /*n*/, pointer */*argv*/);
00726 extern pointer SENDTO(context */*ctx*/, int /*n*/, pointer */*argv*/);
00727 extern pointer SIGADDSET(context */*ctx*/, int /*n*/, pointer */*argv*/);
00728 extern pointer SIGDELSET(context */*ctx*/, int /*n*/, pointer */*argv*/);
00729 extern pointer SIGPROCMASK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00730 extern pointer UALARM(context */*ctx*/, int /*n*/, pointer */*argv*/);
00731 extern pointer UNAME(context */*ctx*/, int /*n*/, pointer */*argv*/);
00732 extern pointer USLEEP(context */*ctx*/, int /*n*/, pointer */*argv*/);
00733 extern pointer VFORK(context */*ctx*/, int /*n*/, pointer */*argv*/);
00734 extern void unixcall(context */*ctx*/, pointer /*mod*/);
00735 /* vectorarray.c */
00736 extern pointer MKVECTOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00737 extern pointer MKINTVECTOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00738 extern pointer vref(pointer /*a*/, int /*n*/);
00739 extern pointer SVREF(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00740 extern pointer vset(pointer /*a*/, int /*n*/, pointer /*newval*/);
00741 extern pointer SVSET(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00742 extern int arrayindex(pointer /*a*/, int /*n*/, pointer */*indices*/);
00743 extern pointer AREF(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00744 extern pointer ASET(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00745 extern pointer ARRAYP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00746 extern pointer VECTORPOP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00747 extern pointer VECTORPUSH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00748 extern pointer VECTOREXPUSH(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00749 extern pointer VECTORP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00750 extern pointer BIT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00751 extern pointer SETBIT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00752 extern pointer BITAND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00753 extern pointer BITIOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00754 extern pointer BITXOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00755 extern pointer BITEQV(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00756 extern pointer BITNAND(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00757 extern pointer BITNOR(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00758 extern pointer BITNOT(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00759 extern void vectorarray(context */*ctx*/, pointer /*mod*/);
00760 /* intersection.c */
00761 extern pointer LINEINTERSECTION(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00762 extern pointer LINEINTERSECTION3(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00763 extern pointer VPCLIP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00764 extern pointer HOMO_VPCLIP(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00765 extern pointer HOMO2NORMAL(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00766 extern pointer HOMOGENIZE(context */*ctx*/, int /*n*/, pointer /*argv*/*);
00767 /* setjmp.c */
00768 extern pointer psetjmp(jmp_buf);
00769 extern void plongjmp(jmp_buf,pointer);
00770 #ifdef __cplusplus
00771 }
00772 #endif


euslisp
Author(s): Toshihiro Matsui
autogenerated on Thu Jun 6 2019 18:05:53