?  search:
summary | log | graphiclog1 | graphiclog2 | commit | commitdiff | tree | refs | edit | fork
blame | history | raw | HEAD
Fix typo in boolean predicate
[maxima.git] / archive / src / system-init.c
blob554ca8c3a06bbc4b886a19035c2382960c74e5f8
1
2 /* Begin for cmpinclude */
3 #ifndef __GNUC__
4 #define HAVE_ALLOCA
5 #include <alloca.h>
6 #endif
7 /* If can mprotect pages and so selective gc will work */
8 #define SGC
9
10 /* End for cmpinclude */
11
12
13 /*
14 Copyright (C) 1994 M. Hagiya, W. Schelter, T. Yuasa
15
16 This file is part of GNU Common Lisp, herein referred to as GCL
17
18 GCL is free software; you can redistribute it and/or modify it under
19 the terms of the GNU LIBRARY GENERAL PUBLIC LICENSE as published by
20 the Free Software Foundation; either version 2, or (at your option)
21 any later version.
22
23 GCL is distributed in the hope that it will be useful, but WITHOUT
24 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
25 FITNESS FOR A PARTICULAR PURPOSE. See the GNU Library General Public
26 License for more details.
27
28 You should have received a copy of the GNU Library General Public License
29 along with GCL; see the file COPYING. If not, write to the Free Software
30 Foundation, 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA
31 */
32 #include <stdio.h>
33 #include <setjmp.h>
34 #include <varargs.h>
35 #define TRUE 1
36 #define FALSE 0
37 #ifdef SGC
38 #define FIRSTWORD short t; char s,m
39 #define SGC_TOUCH(x) x->d.m=0
40 #else
41 #define FIRSTWORD short t; short m
42 #define SGC_TOUCH(x)
43 #endif
44 #define STSET(type,x,i,val) do{SGC_TOUCH(x);STREF(type,x,i) = (val);} while(0)
45 #ifndef VOL
46 #define VOL
47 #endif
48 #ifndef COM_LENG
49 #define COM_LENG
50 #endif
51 #ifndef CHAR_SIZE
52 #define CHAR_SIZE 8
53 #endif
54 typedef int bool;
55 typedef int fixnum;
56 typedef float shortfloat;
57 typedef double longfloat;
58 typedef unsigned short fatchar;
59 #define SIGNED_CHAR(x) (((char ) -1) < (char )0 ? (char) x \
60 : (x >= (1<<(CHAR_SIZE-1)) ? \
61 x - (((int)(1<<(CHAR_SIZE-1))) << 1) \
62 : (char ) x))
63 typedef union lispunion *object;
64 typedef union int_object iobject;
65 union int_object {int i; object o;};
66
67 #define OBJNULL ((object)NULL)
68 struct fixnum_struct {
69 FIRSTWORD;
70 fixnum FIXVAL;
71 };
72 #define fix(x) (x)->FIX.FIXVAL
73 #define SMALL_FIXNUM_LIMIT 1024
74 extern struct fixnum_struct small_fixnum_table[COM_LENG];
75 #define small_fixnum(i) (object)(small_fixnum_table+SMALL_FIXNUM_LIMIT+(i))
76
77 struct bignum {
78 FIRSTWORD;
79 long *big_self; /* bignum body */
80 int big_length; /* bignum length */
81 };
82 #define MP(x) ((GEN)(x)->big.big_self)
83 struct shortfloat_struct {
84 FIRSTWORD;
85 shortfloat SFVAL;
86 };
87 #define sf(x) (x)->SF.SFVAL
88 struct longfloat_struct {
89 FIRSTWORD;
90 longfloat LFVAL;
91 };
92 #define lf(x) (x)->LF.LFVAL
93 struct character {
94 FIRSTWORD;
95 unsigned short ch_code;
96 unsigned char ch_font;
97 unsigned char ch_bits;
98 };
99 struct character character_table1[256+128];
100 #define character_table (character_table1+128)
101 #define code_char(c) (object)(character_table+(c))
102 #define char_code(x) (x)->ch.ch_code
103 #define char_font(x) (x)->ch.ch_font
104 #define char_bits(x) (x)->ch.ch_bits
105 enum stype {
106 stp_ordinary,
107 stp_constant,
108 stp_special
109 };
110 struct symbol {
111 FIRSTWORD;
112 object s_dbind;
113 int (*s_sfdef)();
114 #define s_fillp st_fillp
115 #define s_self st_self
116 int s_fillp;
117 char *s_self;
118 object s_gfdef;
119 object s_plist;
120 object s_hpack;
121 short s_stype;
122 short s_mflag;
123 };
124 struct cons {
125 FIRSTWORD;
126 object c_cdr;
127 object c_car;
128 };
129 struct array {
130 FIRSTWORD;
131 short a_rank;
132 short a_adjustable;
133 int a_dim;
134 int *a_dims;
135 object *a_self;
136 object a_displaced;
137 short a_elttype;
138 short a_offset;
139 };
140
141
142
143 struct fat_string { /* vector header */
144 FIRSTWORD;
145 unsigned fs_raw : 24; /* tells if the things in leader are raw */
146 unsigned char fs_leader_length; /* leader_Length */
147 int fs_dim; /* dimension */
148 int fs_fillp; /* fill pointer */
149 /* For simple vectors, */
150 /* fs_fillp is equal to fs_dim. */
151 fatchar *fs_self; /* pointer to the vector Note the leader starts at (int *) *fs_self - fs_leader_length */
152 };
153
154
155 struct vector {
156 FIRSTWORD;
157 short v_hasfillp;
158 short v_adjustable;
159 int v_dim;
160 int v_fillp;
161 object *v_self;
162 object v_displaced;
163 short v_elttype;
164 short v_offset;
165 };
166 struct string {
167 FIRSTWORD;
168 short st_hasfillp;
169 short st_adjustable;
170 int st_dim;
171 int st_fillp;
172 char *st_self;
173 object st_displaced;
174 };
175 struct ustring {
176 FIRSTWORD;
177 short ust_hasfillp;
178 short ust_adjustable;
179 int ust_dim;
180 int ust_fillp;
181 unsigned char
182 *ust_self;
183 object ust_displaced;
184 };
185 #define USHORT(x,i) (((unsigned short *)(x)->ust.ust_self)[i])
186
187 struct bitvector {
188 FIRSTWORD;
189 short bv_hasfillp;
190 short bv_adjustable;
191 int bv_dim;
192 int bv_fillp;
193 char *bv_self;
194 object bv_displaced;
195 short bv_elttype;
196 short bv_offset;
197 };
198 struct fixarray {
199 FIRSTWORD;
200 short fixa_rank;
201 short fixa_adjustable;
202 int fixa_dim;
203 int *fixa_dims;
204 fixnum *fixa_self;
205 object fixa_displaced;
206 short fixa_elttype;
207 short fixa_offset;
208 };
209 struct sfarray {
210 FIRSTWORD;
211 short sfa_rank;
212 short sfa_adjustable;
213 int sfa_dim;
214 int *sfa_dims;
215 shortfloat
216 *sfa_self;
217 object sfa_displaced;
218 short sfa_elttype;
219 short sfa_offset;
220 };
221 struct lfarray {
222 FIRSTWORD;
223 short lfa_rank;
224 short lfa_adjustable;
225 int lfa_dim;
226 int *lfa_dims;
227 longfloat
228 *lfa_self;
229 object lfa_displaced;
230 short lfa_elttype;
231 short lfa_offset;
232 };
233
234 struct structure { /* structure header */
235 FIRSTWORD;
236 object str_def; /* structure definition (a structure) */
237 object *str_self; /* structure self */
238 };
239
240 #define STREF(type,x,i) (*((type *)(((char *)((x)->str.str_self))+(i))))
241
242 struct cfun {
243 FIRSTWORD;
244 object cf_name;
245 int (*cf_self)();
246 object cf_data;
247 };
248
249 struct dclosure { /* compiled closure header */
250 FIRSTWORD;
251 int (*dc_self)(); /* entry address */
252 object *dc_env; /* environment */
253 };
254
255 struct cclosure {
256 FIRSTWORD;
257
258 object cc_name;
259 int (*cc_self)();
260 object cc_env;
261 object cc_data;
262 object *cc_turbo;
263 };
264
265 struct sfun {
266 FIRSTWORD;
267 object sfn_name;
268 int (*sfn_self)();
269 object sfn_data;
270 int sfn_argd;
271
272 };
273 struct vfun {
274 FIRSTWORD;
275 object vfn_name;
276 int (*vfn_self)();
277 object vfn_data;
278 unsigned short vfn_minargs;
279 unsigned short vfn_maxargs;
280 };
281
282 struct dummy {
283 FIRSTWORD;
284 };
285 struct stream {
286 FIRSTWORD;
287 FILE *sm_fp; /* file pointer */
288 object sm_object0; /* some object */
289 object sm_object1; /* some object */
290 int sm_int0; /* some int */
291 int sm_int1; /* some int */
292 char *sm_buffer; /* ptr to BUFSIZE block of storage */
293 short sm_mode; /* stream mode */
294 /* of enum smmode */
295 };
296 union lispunion {
297 struct fixnum_struct
298 FIX;
299 struct shortfloat_struct
300 SF;
301 struct stream sm;
302 struct longfloat_struct
303 LF;
304 struct character
305 ch;
306 struct symbol s;
307 struct cons c;
308 struct array a;
309 struct vector v;
310 struct string st;
311 struct ustring ust;
312 struct bignum big;
313 struct bitvector
314 bv;
315 struct structure
316 str;
317 struct cfun cf;
318 struct cclosure cc;
319 struct sfun sfn;
320 struct vfun vfn;
321 struct dummy d;
322 struct fat_string fs;
323 struct dclosure dc;
324 struct fixarray fixa;
325 struct sfarray sfa;
326 struct lfarray lfa;
327 };
328 enum type {
329 t_cons,
330 t_start = 0 , /* t_cons, */
331 t_fixnum,
332 t_bignum,
333 t_ratio,
334 t_shortfloat,
335 t_longfloat,
336 t_complex,
337 t_character,
338 t_symbol,
339 t_package,
340 t_hashtable,
341 t_array,
342 t_vector,
343 t_string,
344 t_bitvector,
345 t_structure,
346 t_stream,
347 t_random,
348 t_readtable,
349 t_pathname,
350 t_cfun,
351 t_cclosure,
352 t_sfun,
353 t_gfun,
354 t_vfun,
355 t_cfdata,
356 t_spice,
357 t_fat_string,
358 t_dclosure,
359 t_end,
360 t_contiguous,
361 t_relocatable,
362 t_other
363 };
364 #define type_of(obje) ((enum type)(((object)(obje))->d.t))
365 #define endp(obje) endp1(obje)
366 extern object value_stack[COM_LENG];
367 #define vs_org value_stack
368 object *vs_limit;
369 object *vs_base;
370 object *vs_top;
371 #define vs_push(obje) (*vs_top++ = (obje))
372 #define vs_pop (*--vs_top)
373 #define vs_head vs_top[-1]
374 #define vs_mark object *old_vs_top = vs_top
375 #define vs_reset vs_top = old_vs_top
376 #define vs_check if (vs_top >= vs_limit) \
377 vs_overflow();
378 #define vs_check_push(obje) \
379 (vs_top >= vs_limit ? \
380 (object)vs_overflow() : (*vs_top++ = (obje)))
381 #define check_arg(n) \
382 if (vs_top - vs_base != (n)) \
383 check_arg_failed(n)
384 #define MMcheck_arg(n) \
385 if (vs_top - vs_base < (n)) \
386 too_few_arguments(); \
387 else if (vs_top - vs_base > (n)) \
388 too_many_arguments()
389 #define vs_reserve(x) if(vs_base+(x) >= vs_limit) \
390 vs_overflow();
391 struct bds_bd {
392 object bds_sym;
393 object bds_val;
394 };
395 extern struct bds_bd bind_stack[COM_LENG];
396 typedef struct bds_bd *bds_ptr;
397 bds_ptr bds_org;
398 bds_ptr bds_limit;
399 bds_ptr bds_top;
400 #define bds_check \
401 if (bds_top >= bds_limit) \
402 bds_overflow()
403 #define bds_bind(sym, val) \
404 ((++bds_top)->bds_sym = (sym), \
405 bds_top->bds_val = (sym)->s.s_dbind, \
406 (sym)->s.s_dbind = (val))
407 #define bds_unwind1 \
408 ((bds_top->bds_sym)->s.s_dbind = bds_top->bds_val, --bds_top)
409 typedef struct invocation_history {
410 object ihs_function;
411 object *ihs_base;
412 } *ihs_ptr;
413 extern struct invocation_history ihs_stack[COM_LENG];
414 ihs_ptr ihs_org;
415 ihs_ptr ihs_limit;
416 ihs_ptr ihs_top;
417 #define ihs_check \
418 if (ihs_top >= ihs_limit) \
419 ihs_overflow()
420 #define ihs_push(function) \
421 (++ihs_top)->ihs_function = (function); \
422 ihs_top->ihs_base = vs_base
423 #define ihs_pop() (ihs_top--)
424 enum fr_class {
425 FRS_CATCH,
426 FRS_CATCHALL,
427 FRS_PROTECT
428 };
429 struct frame {
430 jmp_buf frs_jmpbuf;
431 object *frs_lex;
432 bds_ptr frs_bds_top;
433 enum fr_class frs_class;
434 object frs_val;
435 ihs_ptr frs_ihs;
436 };
437 typedef struct frame *frame_ptr;
438 #define alloc_frame_id() alloc_object(t_spice)
439 extern struct frame frame_stack[COM_LENG];
440
441 frame_ptr frs_org;
442 frame_ptr frs_limit;
443 frame_ptr frs_top;
444 #define frs_push(class, val) \
445 if (++frs_top >= frs_limit) \
446 frs_overflow(); \
447 frs_top->frs_lex = lex_env;\
448 frs_top->frs_bds_top = bds_top; \
449 frs_top->frs_class = (class); \
450 frs_top->frs_val = (val); \
451 frs_top->frs_ihs = ihs_top; \
452 setjmp(frs_top->frs_jmpbuf)
453 #define frs_pop() frs_top--
454 bool nlj_active;
455 frame_ptr nlj_fr;
456 object nlj_tag;
457 object *lex_env;
458 object caar();
459 object cadr();
460 object cdar();
461 object cddr();
462 object caaar();
463 object caadr();
464 object cadar();
465 object caddr();
466 object cdaar();
467 object cdadr();
468 object cddar();
469 object cdddr();
470 object caaaar();
471 object caaadr();
472 object caadar();
473 object caaddr();
474 object cadaar();
475 object cadadr();
476 object caddar();
477 object cadddr();
478 object cdaaar();
479 object cdaadr();
480 object cdadar();
481 object cdaddr();
482 object cddaar();
483 object cddadr();
484 object cdddar();
485 object cddddr();
486 #define MMcons(a,d) make_cons((a),(d))
487 #define MMcar(x) (x)->c.c_car
488 #define MMcdr(x) (x)->c.c_cdr
489 #define CMPcar(x) (x)->c.c_car
490 #define CMPcdr(x) (x)->c.c_cdr
491 #define CMPcaar(x) (x)->c.c_car->c.c_car
492 #define CMPcadr(x) (x)->c.c_cdr->c.c_car
493 #define CMPcdar(x) (x)->c.c_car->c.c_cdr
494 #define CMPcddr(x) (x)->c.c_cdr->c.c_cdr
495 #define CMPcaaar(x) (x)->c.c_car->c.c_car->c.c_car
496 #define CMPcaadr(x) (x)->c.c_cdr->c.c_car->c.c_car
497 #define CMPcadar(x) (x)->c.c_car->c.c_cdr->c.c_car
498 #define CMPcaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car
499 #define CMPcdaar(x) (x)->c.c_car->c.c_car->c.c_cdr
500 #define CMPcdadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr
501 #define CMPcddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr
502 #define CMPcdddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr
503 #define CMPcaaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_car
504 #define CMPcaaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_car
505 #define CMPcaadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_car
506 #define CMPcaaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_car
507 #define CMPcadaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_car
508 #define CMPcadadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_car
509 #define CMPcaddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_car
510 #define CMPcadddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_car
511 #define CMPcdaaar(x) (x)->c.c_car->c.c_car->c.c_car->c.c_cdr
512 #define CMPcdaadr(x) (x)->c.c_cdr->c.c_car->c.c_car->c.c_cdr
513 #define CMPcdadar(x) (x)->c.c_car->c.c_cdr->c.c_car->c.c_cdr
514 #define CMPcdaddr(x) (x)->c.c_cdr->c.c_cdr->c.c_car->c.c_cdr
515 #define CMPcddaar(x) (x)->c.c_car->c.c_car->c.c_cdr->c.c_cdr
516 #define CMPcddadr(x) (x)->c.c_cdr->c.c_car->c.c_cdr->c.c_cdr
517 #define CMPcdddar(x) (x)->c.c_car->c.c_cdr->c.c_cdr->c.c_cdr
518 #define CMPcddddr(x) (x)->c.c_cdr->c.c_cdr->c.c_cdr->c.c_cdr
519 #define CMPfuncall funcall
520 #define cclosure_call funcall
521 object simple_lispcall();
522 object simple_lispcall_no_event();
523 object simple_symlispcall();
524 object simple_symlispcall_no_event();
525 object CMPtemp;
526 object CMPtemp1;
527 object CMPtemp2;
528 object CMPtemp3;
529 #define Cnil ((object)&Cnil_body)
530 #define Ct ((object)&Ct_body)
531 struct symbol Cnil_body, Ct_body;
532 object MF();
533 object MFnew();
534 object MM();
535 object Scons;
536 object siSfunction_documentation;
537 object siSvariable_documentation;
538 object siSpretty_print_format;
539 object Slist;
540 object keyword_package;
541 object alloc_object();
542 object car();
543 object cdr();
544 object list();
545 object listA();
546 object coerce_to_string();
547 object elt();
548 object elt_set();
549 frame_ptr frs_sch();
550 frame_ptr frs_sch_catch();
551 object make_cclosure();
552 object make_cclosure_new();
553 object nth();
554 object nthcdr();
555 object make_cons();
556 object append();
557 object nconc();
558 object reverse();
559 object nreverse();
560 object number_expt();
561 object number_minus();
562 object number_negate();
563 object number_plus();
564 object number_times();
565 object one_minus();
566 object one_plus();
567 object get();
568 object getf();
569 object putprop();
570 object sputprop();
571 object remprop();
572 object string_to_object();
573 object symbol_function();
574 object symbol_value();
575 object make_fixnum();
576 object make_shortfloat();
577 object make_longfloat();
578 object structure_ref();
579 object structure_set();
580 object princ();
581 object prin1();
582 object print();
583 object terpri();
584 object aref();
585 object aset();
586 object aref1();
587 object aset1();
588 void call_or_link();
589 void call_or_link_closure();
590 object call_proc();
591 object call_proc0();
592 object call_proc1();
593 object call_proc2();
594 object ifuncall();
595 object ifuncall1();
596 object ifuncall2();
597 object symbol_name();
598 #define T101 Z101
599 #define T102 Z102
600 #define T103 Z103
601 #define T104 Z104
602 #define T105 Z105
603 #define T106 Z106
604 #define T107 Z107
605 #define T108 Z108
606 #define T109 Z109
607 #define T110 Z110
608 #define T111 Z111
609 #define T112 Z112
610 #define T113 Z113
611 #define T114 Z114
612 #define T115 Z115
613 #define T116 Z116
614 #define T117 Z117
615 #define T118 Z118
616 #define T119 Z119
617 #define T120 Z120
618 #define T121 Z121
619 #define T122 Z122
620 #define T123 Z123
621 #define T124 Z124
622 #define T125 Z125
623 #define T126 Z126
624 #define T127 Z127
625 #define T128 Z128
626 #define T129 Z129
627 #define T130 Z130
628 #define T131 Z131
629 #define T132 Z132
630 #define T133 Z133
631 #define T134 Z134
632 #define T135 Z135
633 #define T136 Z136
634 #define T137 Z137
635 #define T138 Z138
636 #define T139 Z139
637 #define T140 Z140
638 #define T141 Z141
639 #define T142 Z142
640 #define T143 Z143
641 #define T144 Z144
642 #define T145 Z145
643 #define T146 Z146
644 #define T147 Z147
645 #define T148 Z148
646 #define T149 Z149
647 #define T150 Z150
648 #define T151 Z151
649 #define T152 Z152
650 #define T153 Z153
651 #define T154 Z154
652 #define T155 Z155
653 #define T156 Z156
654 #define T157 Z157
655 #define T158 Z158
656 #define T159 Z159
657 #define T160 Z160
658 #define T161 Z161
659 #define T162 Z162
660 #define T163 Z163
661 #define T164 Z164
662 #define T165 Z165
663 #define T166 Z166
664 #define T167 Z167
665 #define T168 Z168
666 #define T169 Z169
667 #define T170 Z170
668 #define T171 Z171
669 #define T172 Z172
670 #define T173 Z173
671 #define T174 Z174
672 #define T175 Z175
673 #define T176 Z176
674 #define T177 Z177
675 #define T178 Z178
676 #define T179 Z179
677 #define T180 Z180
678 #define T181 Z181
679 #define T182 Z182
680 #define T183 Z183
681 #define T184 Z184
682 #define T185 Z185
683 #define T186 Z186
684 #define T187 Z187
685 #define T188 Z188
686 #define T189 Z189
687 #define T190 Z190
688 #define T191 Z191
689 #define T192 Z192
690 #define T193 Z193
691 #define T194 Z194
692 #define T195 Z195
693 #define T196 Z196
694 #define T197 Z197
695 #define T198 Z198
696 #define T199 Z199
697 #define T200 Z200
698 #define T201 Z201
699 #define T202 Z202
700 #define T203 Z203
701 #define T204 Z204
702 #define T205 Z205
703 #define T206 Z206
704 #define T207 Z207
705 #define T208 Z208
706 #define T209 Z209
707 #define T210 Z210
708 #define T211 Z211
709 #define T212 Z212
710 #define T213 Z213
711 #define T214 Z214
712 #define T215 Z215
713 #define T216 Z216
714 #define T217 Z217
715 #define T218 Z218
716 #define T219 Z219
717 #define T220 Z220
718 #define T221 Z221
719 #define T222 Z222
720 #define T223 Z223
721 #define T224 Z224
722 #define T225 Z225
723 #define T226 Z226
724 #define T227 Z227
725 #define T228 Z228
726 #define T229 Z229
727 #define T230 Z230
728 #define T231 Z231
729 #define T232 Z232
730 #define T233 Z233
731 #define T234 Z234
732 #define T235 Z235
733 #define T236 Z236
734 #define T237 Z237
735 #define T238 Z238
736 #define T239 Z239
737 #define T240 Z240
738 #define T241 Z241
739 #define T242 Z242
740 #define T243 Z243
741 #define T244 Z244
742 #define T245 Z245
743 #define T246 Z246
744 #define T247 Z247
745 #define T248 Z248
746 #define T249 Z249
747 #define T250 Z250
748 #define T251 Z251
749 #define T252 Z252
750 #define T253 Z253
751 #define T254 Z254
752 #define T255 Z255
753 #define T256 Z256
754 #define T257 Z257
755 #define T258 Z258
756 #define T259 Z259
757 #define T260 Z260
758 #define T261 Z261
759 #define T262 Z262
760 #define T263 Z263
761 #define T264 Z264
762 #define T265 Z265
763 #define T266 Z266
764 #define T267 Z267
765 #define T268 Z268
766 #define T269 Z269
767 #define T270 Z270
768 #define T271 Z271
769 #define T272 Z272
770 #define T273 Z273
771 #define T274 Z274
772 #define T275 Z275
773 #define T276 Z276
774 #define T277 Z277
775 #define T278 Z278
776 #define T279 Z279
777 #define T280 Z280
778 #define T281 Z281
779 #define T282 Z282
780 #define T283 Z283
781 #define T284 Z284
782 #define T285 Z285
783 #define T286 Z286
784 #define T287 Z287
785 #define T288 Z288
786 #define T289 Z289
787 #define T290 Z290
788 #define T291 Z291
789 #define T292 Z292
790 #define T293 Z293
791 #define T294 Z294
792 #define T295 Z295
793 #define T296 Z296
794 #define T297 Z297
795 #define T298 Z298
796 #define T299 Z299
797 #define T300 Z300
798 #define T301 Z301
799 #define T302 Z302
800 #define T303 Z303
801 #define T304 Z304
802 #define T305 Z305
803 #define T306 Z306
804 #define T307 Z307
805 #define T308 Z308
806 #define T309 Z309
807 #define T310 Z310
808 #define T311 Z311
809 #define T312 Z312
810 #define T313 Z313
811 #define T314 Z314
812 #define T315 Z315
813 #define T316 Z316
814 #define T317 Z317
815 #define T318 Z318
816 #define T319 Z319
817 #define T320 Z320
818 #define T321 Z321
819 #define T322 Z322
820 #define T323 Z323
821 #define T324 Z324
822 #define T325 Z325
823 #define T326 Z326
824 #define T327 Z327
825 #define T328 Z328
826 #define T329 Z329
827 #define T330 Z330
828 #define T331 Z331
829 #define T332 Z332
830 #define T333 Z333
831 #define T334 Z334
832 #define T335 Z335
833 #define T336 Z336
834 #define T337 Z337
835 #define T338 Z338
836 #define T339 Z339
837 #define T340 Z340
838 #define T341 Z341
839 #define T342 Z342
840 #define T343 Z343
841 #define T344 Z344
842 #define T345 Z345
843 #define T346 Z346
844 #define T347 Z347
845 #define T348 Z348
846 #define T349 Z349
847 #define T350 Z350
848 #define T351 Z351
849 #define T352 Z352
850 #define T353 Z353
851 #define T354 Z354
852 #define T355 Z355
853 #define T356 Z356
854 #define T357 Z357
855 #define T358 Z358
856 #define T359 Z359
857 #define T360 Z360
858 #define T361 Z361
859 #define T362 Z362
860 #define T363 Z363
861 #define T364 Z364
862 #define T365 Z365
863 #define T366 Z366
864 #define T367 Z367
865 #define T368 Z368
866 #define T369 Z369
867 #define T370 Z370
868 #define T371 Z371
869 #define T372 Z372
870 #define T373 Z373
871 #define T374 Z374
872 #define T375 Z375
873 #define T376 Z376
874 #define T377 Z377
875 #define T378 Z378
876 #define T379 Z379
877 #define T380 Z380
878 #define T381 Z381
879 #define T382 Z382
880 #define T383 Z383
881 #define T384 Z384
882 #define T385 Z385
883 #define T386 Z386
884 #define T387 Z387
885 #define T388 Z388
886 #define T389 Z389
887 #define T390 Z390
888 #define T391 Z391
889 #define T392 Z392
890 #define T393 Z393
891 #define T394 Z394
892 #define T395 Z395
893 #define T396 Z396
894 #define T397 Z397
895 #define T398 Z398
896 #define T399 Z399
897 #define T400 Z400
898 #define T401 Z401
899 #define T402 Z402
900 #define T403 Z403
901 #define T404 Z404
902 #define T405 Z405
903 #define T406 Z406
904 #define T407 Z407
905 #define T408 Z408
906 #define T409 Z409
907 #define T410 Z410
908 #define T411 Z411
909 #define T412 Z412
910 #define T413 Z413
911 #define T414 Z414
912 #define T415 Z415
913 #define T416 Z416
914 #define T417 Z417
915 #define T418 Z418
916 #define T419 Z419
917 #define T420 Z420
918 #define T421 Z421
919 #define T422 Z422
920 #define T423 Z423
921 #define T424 Z424
922 #define T425 Z425
923 #define T426 Z426
924 #define T427 Z427
925 #define T428 Z428
926 #define T429 Z429
927 #define T430 Z430
928 #define T431 Z431
929 #define T432 Z432
930 #define T433 Z433
931 #define T434 Z434
932 #define T435 Z435
933 #define T436 Z436
934 #define T437 Z437
935 #define T438 Z438
936 #define T439 Z439
937 #define T440 Z440
938 #define T441 Z441
939 #define T442 Z442
940 #define T443 Z443
941 #define T444 Z444
942 #define T445 Z445
943 #define T446 Z446
944 #define T447 Z447
945 #define T448 Z448
946 #define T449 Z449
947 #define T450 Z450
948 #define T451 Z451
949 #define T452 Z452
950 #define T453 Z453
951 #define T454 Z454
952 #define T455 Z455
953 #define T456 Z456
954 #define T457 Z457
955 #define T458 Z458
956 #define T459 Z459
957 #define T460 Z460
958 #define T461 Z461
959 #define T462 Z462
960 #define T463 Z463
961 #define T464 Z464
962 #define T465 Z465
963 #define T466 Z466
964 #define T467 Z467
965 #define T468 Z468
966 #define T469 Z469
967 #define T470 Z470
968 #define T471 Z471
969 #define T472 Z472
970 #define T473 Z473
971 #define T474 Z474
972 #define T475 Z475
973 #define T476 Z476
974 #define T477 Z477
975 #define T478 Z478
976 #define T479 Z479
977 #define T480 Z480
978 #define T481 Z481
979 #define T482 Z482
980 #define T483 Z483
981 #define T484 Z484
982 #define T485 Z485
983 #define T486 Z486
984 #define T487 Z487
985 #define T488 Z488
986 #define T489 Z489
987 #define T490 Z490
988 #define T491 Z491
989 #define T492 Z492
990 #define T493 Z493
991 #define T494 Z494
992 #define T495 Z495
993 #define T496 Z496
994 #define T497 Z497
995 #define T498 Z498
996 #define T499 Z499
997 #define T500 Z500
998 #define T501 Z501
999 #define T502 Z502
1000 #define T503 Z503
1001 #define T504 Z504
1002 #define T505 Z505
1003 #define T506 Z506
1004 #define T507 Z507
1005 #define T508 Z508
1006 #define T509 Z509
1007 #define T510 Z510
1008 #define T511 Z511
1009 #define T512 Z512
1010 #define T513 Z513
1011 #define T514 Z514
1012 #define T515 Z515
1013 #define T516 Z516
1014 #define T517 Z517
1015 #define T518 Z518
1016 #define T519 Z519
1017 #define T520 Z520
1018 #define T521 Z521
1019 #define T522 Z522
1020 #define T523 Z523
1021 #define T524 Z524
1022 #define T525 Z525
1023 #define T526 Z526
1024 #define T527 Z527
1025 #define T528 Z528
1026 #define T529 Z529
1027 #define T530 Z530
1028 #define T531 Z531
1029 #define T532 Z532
1030 #define T533 Z533
1031 #define T534 Z534
1032 #define T535 Z535
1033 #define T536 Z536
1034 #define T537 Z537
1035 #define T538 Z538
1036 #define T539 Z539
1037 #define T540 Z540
1038 #define T541 Z541
1039 #define T542 Z542
1040 #define T543 Z543
1041 #define T544 Z544
1042 #define T545 Z545
1043 #define T546 Z546
1044 #define T547 Z547
1045 #define T548 Z548
1046 #define T549 Z549
1047 #define T550 Z550
1048 #define T551 Z551
1049 #define T552 Z552
1050 #define T553 Z553
1051 #define T554 Z554
1052 #define T555 Z555
1053 #define T556 Z556
1054 #define T557 Z557
1055 #define T558 Z558
1056 #define T559 Z559
1057 #define T560 Z560
1058 #define T561 Z561
1059 #define T562 Z562
1060 #define T563 Z563
1061 #define T564 Z564
1062 #define T565 Z565
1063 #define T566 Z566
1064 #define T567 Z567
1065 #define T568 Z568
1066 #define T569 Z569
1067 #define T570 Z570
1068 #define T571 Z571
1069 #define T572 Z572
1070 #define T573 Z573
1071 #define T574 Z574
1072 #define T575 Z575
1073 #define T576 Z576
1074 #define T577 Z577
1075 #define T578 Z578
1076 #define T579 Z579
1077 #define T580 Z580
1078 #define T581 Z581
1079 #define T582 Z582
1080 #define T583 Z583
1081 #define T584 Z584
1082 #define T585 Z585
1083 #define T586 Z586
1084 #define T587 Z587
1085 #define T588 Z588
1086 #define T589 Z589
1087 #define T590 Z590
1088 #define T591 Z591
1089 #define T592 Z592
1090 #define T593 Z593
1091 #define T594 Z594
1092 #define T595 Z595
1093 #define T596 Z596
1094 #define T597 Z597
1095 #define T598 Z598
1096 #define T599 Z599
1097 #define T600 Z600
1098 #define T601 Z601
1099 #define T602 Z602
1100 #define T603 Z603
1101 #define T604 Z604
1102 #define T605 Z605
1103 #define T606 Z606
1104 #define T607 Z607
1105 #define T608 Z608
1106 #define T609 Z609
1107 #define T610 Z610
1108 #define T611 Z611
1109 #define T612 Z612
1110 #define T613 Z613
1111 #define T614 Z614
1112 #define T615 Z615
1113 #define T616 Z616
1114 #define T617 Z617
1115 #define T618 Z618
1116 #define T619 Z619
1117 #define T620 Z620
1118 #define T621 Z621
1119 #define T622 Z622
1120 #define T623 Z623
1121 #define T624 Z624
1122 #define T625 Z625
1123 #define T626 Z626
1124 #define T627 Z627
1125 #define T628 Z628
1126 #define T629 Z629
1127 #define T630 Z630
1128 #define T631 Z631
1129 #define T632 Z632
1130 #define T633 Z633
1131 #define T634 Z634
1132 #define T635 Z635
1133 #define T636 Z636
1134 #define T637 Z637
1135 #define T638 Z638
1136 #define T639 Z639
1137 #define T640 Z640
1138 #define T641 Z641
1139 #define T642 Z642
1140 #define T643 Z643
1141 #define T644 Z644
1142 #define T645 Z645
1143 #define T646 Z646
1144 #define T647 Z647
1145 #define T648 Z648
1146 #define T649 Z649
1147 #define T650 Z650
1148 #define T651 Z651
1149 #define T652 Z652
1150 #define T653 Z653
1151 #define T654 Z654
1152 #define T655 Z655
1153 #define T656 Z656
1154 #define T657 Z657
1155 #define T658 Z658
1156 #define T659 Z659
1157 #define T660 Z660
1158 #define T661 Z661
1159 #define T662 Z662
1160 #define T663 Z663
1161 #define T664 Z664
1162 #define T665 Z665
1163 #define T666 Z666
1164 #define T667 Z667
1165 #define T668 Z668
1166 #define T669 Z669
1167 #define T670 Z670
1168 #define T671 Z671
1169 #define T672 Z672
1170 #define T673 Z673
1171 #define T674 Z674
1172 #define T675 Z675
1173 #define T676 Z676
1174 #define T677 Z677
1175 #define T678 Z678
1176 #define T679 Z679
1177 #define T680 Z680
1178 #define T681 Z681
1179 #define T682 Z682
1180 #define T683 Z683
1181 #define T684 Z684
1182 #define T685 Z685
1183 #define T686 Z686
1184 #define T687 Z687
1185 #define T688 Z688
1186 #define T689 Z689
1187 #define T690 Z690
1188 #define T691 Z691
1189 #define T692 Z692
1190 #define T693 Z693
1191 #define T694 Z694
1192 #define T695 Z695
1193 #define T696 Z696
1194 #define T697 Z697
1195 #define T698 Z698
1196 #define T699 Z699
1197 #define T700 Z700
1198 #define T701 Z701
1199 char object_to_char();
1200 int object_to_int();
1201 float object_to_float();
1202 double object_to_double();
1203 char *object_to_string();
1204 int FIXtemp;
1205 #define CMPmake_fixnum(x) \
1206 ((((FIXtemp=(x))+1024)&-2048)==0?small_fixnum(FIXtemp):make_fixnum(FIXtemp))
1207 #define Creturn(v) return((vs_top=vs,(v)))
1208 #define Cexit return((vs_top=vs,0))
1209 double sin(), cos(), tan();
1210 object read_byte1(),read_char1();
1211
1212 #define fs_leader(ar,i) (((object *)((ar)->fs.fs_self))[-(i+1)])
1213 #define RPAREN )
1214 object make_list();
1215 #ifdef HAVE_ALLOCA
1216 #ifndef alloca
1217 char *alloca();
1218 #endif
1219 char *alloca_val;
1220 #define ALLOCA_CONS(n) (alloca_val=alloca((n)*sizeof(struct cons)))
1221 #define ON_STACK_CONS(x,y) (alloca_val=alloca(sizeof(struct cons)), on_stack_cons(x,y))
1222 #define ON_STACK_LIST on_stack_list
1223 #define ON_STACK_LIST_VECTOR on_stack_list_vector
1224 #define ON_STACK_MAKE_LIST on_stack_make_list
1225 object on_stack_cons();
1226 object on_stack_list();
1227 object on_stack_list_vector();
1228 object on_stack_make_list();
1229 #else
1230 #define ALLOCA_CONS(n) 0
1231 #define ON_STACK_CONS(x,y) MMcons(x,y)
1232 #define ON_STACK_LIST list
1233 #define ON_STACK_LIST_VECTOR list_vector
1234 #define ON_STACK_MAKE_LIST make_list
1235 #endif
1236
1237
1238 struct call_data { object fun;
1239 int argd;};
1240 struct call_data fcall;
1241 object fcalln();
1242 object list_vector();
1243 object MVloc[10];
1244 #define VARG(min,max) ((min) | (max << 8))
1245 #define VFUN_NARGS fcall.argd
1246 extern object Cstd_key_defaults[];
1247 int vfun_wrong_number_of_args();
1248 int eql(),equal(),eq();
1249 object sublis1();
1250 object LVformat(),LVerror();
1251 #define EQ(x,y) ((x)==(y))
1252
1253
1254
1255 /* #include "../h/genpari.h"*/
1256 typedef long *GEN;
1257 GEN addii(),mulii(),mulsi(),powerii(),shifti(),stoi(),dvmdii(),subii();
1258 int cmpii();
1259 #define signe(x) (((GEN)(x))[1]>>24)
1260 #define lg(x) (((GEN)(x))[0]&0xffff)
1261 #define setlg(x,s) (((GEN)(x))[0]=(((GEN)(x))[0]&0xffff0000)+s)
1262 #define lgef(x) (((GEN)(x))[1]&0xffff)
1263 #define setlgef(x,s) (((GEN)(x))[1]=(((GEN)(x))[1]&0xffff0000)+s)
1264
1265 int in_saved_avma ;
1266 #define ulong unsigned long
1267 /* #define DEBUG_AVMA */
1268
1269 #ifdef DEBUG_AVMA
1270 #define save_avma long lvma = (in_saved_avma = 1, avma)
1271 #define restore_avma avma = (in_saved_avma = 0, lvma)
1272 #else
1273 #define save_avma long lvma = avma
1274 #define restore_avma avma = lvma
1275 #endif
1276 unsigned long avma;
1277 GEN gzero;
1278 GEN icopy_x;
1279
1280 object make_integer();
1281 /* copy x to y, increasing space by factor of 2 */
1282
1283
1284 GEN otoi();
1285 /*
1286 object integ_temp;
1287 #define otoi(x) (integ_temp = (x) , (type_of(integ_temp) == t_bignum \
1288 ? MP(integ_temp) :stoi(fix(integ_temp))))
1289 */
1290 #define ISETQ_FIX(a,b,c) isetq_fix(a,c)
1291 void isetq_fix();
1292 #ifdef HAVE_ALLOCA
1293 #define SETQ_II(var,alloc,val) \
1294 do{GEN _xx =(val) ; \
1295 int _n = replace_copy1(_xx,var); \
1296 if(_n) var = replace_copy2(_xx,alloca(_n));}while(0)
1297
1298 #define SETQ_IO(var,alloc,val) {object _xx =(val) ; \
1299 int _n = obj_replace_copy1(_xx,var); \
1300 if(_n) var = obj_replace_copy2(_xx,alloca(_n));}
1301 #define IDECL(a,b,c) ulong b[4];a =(b[0]=0x1010000 +4,b) ; object c
1302 #else
1303 GEN setq_io(),setq_ii();
1304 #define SETQ_IO(x,alloc,val) (x)=setq_io(x,&alloc,val)
1305 #define SETQ_II(x,alloc,val) (x)=setq_ii(x,&alloc,val)
1306 #define IDECL(a,b,c) ulong b[4];a =(b[0]=0x1010000 +4,b);object c
1307 #endif
1308
1309 object cmod(), cplus(), cdifference(), ctimes();
1310
1311 #ifdef __GNUC__
1312 #define alloca __builtin_alloca
1313 #endif
1314
1315
1316
1317 #include "system-init.h"
1318 init_code(){do_init(VV);}
1319 #define init_or_load(fn,file) do {extern int fn(); init_or_load1(fn,file);} while(0)
1320 static object our_init() {
1321 init_or_load(init_lmdcls,"/d19/staff/wfs/maxima/src/lmdcls.o");
1322 init_or_load(init_letmac,"/d19/staff/wfs/maxima/src/letmac.o");
1323 init_or_load(init_serror,"/d19/staff/wfs/maxima/src/serror.o");
1324 init_or_load(init_kclmac,"/d19/staff/wfs/maxima/src/kclmac.o");
1325 init_or_load(init_clmacs,"/d19/staff/wfs/maxima/src/clmacs.o");
1326 init_or_load(init_commac,"/d19/staff/wfs/maxima/src/commac.o");
1327 init_or_load(init_mormac,"/d19/staff/wfs/maxima/src/mormac.o");
1328 init_or_load(init_compat,"/d19/staff/wfs/maxima/src/compat.o");
1329 init_or_load(init_defopt,"/d19/staff/wfs/maxima/src/defopt.o");
1330 init_or_load(init_defcal,"/d19/staff/wfs/maxima/src/defcal.o");
1331 init_or_load(init_maxmac,"/d19/staff/wfs/maxima/src/maxmac.o");
1332 init_or_load(init_mopers,"/d19/staff/wfs/maxima/src/mopers.o");
1333 init_or_load(init_mforma,"/d19/staff/wfs/maxima/src/mforma.o");
1334 init_or_load(init_mrgmac,"/d19/staff/wfs/maxima/src/mrgmac.o");
1335 init_or_load(init_procs,"/d19/staff/wfs/maxima/src/procs.o");
1336 init_or_load(init_rzmac,"/d19/staff/wfs/maxima/src/rzmac.o");
1337 init_or_load(init_strmac,"/d19/staff/wfs/maxima/src/strmac.o");
1338 init_or_load(init_displm,"/d19/staff/wfs/maxima/src/displm.o");
1339 init_or_load(init_ratmac,"/d19/staff/wfs/maxima/src/ratmac.o");
1340 init_or_load(init_mhayat,"/d19/staff/wfs/maxima/src/mhayat.o");
1341 init_or_load(init_numerm,"/d19/staff/wfs/maxima/src/numerm.o");
1342 init_or_load(init_optimize,"/d19/staff/wfs/maxima/src/optimize.o");
1343 init_or_load(init_opers,"/d19/staff/wfs/maxima/src/opers.o");
1344 init_or_load(init_utils,"/d19/staff/wfs/maxima/src/utils.o");
1345 init_or_load(init_sumcon,"/d19/staff/wfs/maxima/src/sumcon.o");
1346 init_or_load(init_sublis,"/d19/staff/wfs/maxima/src/sublis.o");
1347 init_or_load(init_runtim,"/d19/staff/wfs/maxima/src/runtim.o");
1348 init_or_load(init_merror,"/d19/staff/wfs/maxima/src/merror.o");
1349 init_or_load(init_mformt,"/d19/staff/wfs/maxima/src/mformt.o");
1350 init_or_load(init_mutils,"/d19/staff/wfs/maxima/src/mutils.o");
1351 init_or_load(init_outmis,"/d19/staff/wfs/maxima/src/outmis.o");
1352 init_or_load(init_ar,"/d19/staff/wfs/maxima/src/ar.o");
1353 init_or_load(init_misc,"/d19/staff/wfs/maxima/src/misc.o");
1354 init_or_load(init_comm,"/d19/staff/wfs/maxima/src/comm.o");
1355 init_or_load(init_comm2,"/d19/staff/wfs/maxima/src/comm2.o");
1356 init_or_load(init_mlisp,"/d19/staff/wfs/maxima/src/mlisp.o");
1357 init_or_load(init_mmacro,"/d19/staff/wfs/maxima/src/mmacro.o");
1358 init_or_load(init_buildq,"/d19/staff/wfs/maxima/src/buildq.o");
1359 init_or_load(init_simp,"/d19/staff/wfs/maxima/src/simp.o");
1360 init_or_load(init_float,"/d19/staff/wfs/maxima/src/float.o");
1361 init_or_load(init_csimp,"/d19/staff/wfs/maxima/src/csimp.o");
1362 init_or_load(init_csimp2,"/d19/staff/wfs/maxima/src/csimp2.o");
1363 init_or_load(init_zero,"/d19/staff/wfs/maxima/src/zero.o");
1364 init_or_load(init_logarc,"/d19/staff/wfs/maxima/src/logarc.o");
1365 init_or_load(init_rpart,"/d19/staff/wfs/maxima/src/rpart.o");
1366 init_or_load(init_macsys,"/d19/staff/wfs/maxima/src/macsys.o");
1367 init_or_load(init_mload,"/d19/staff/wfs/maxima/src/mload.o");
1368 init_or_load(init_suprv1,"/d19/staff/wfs/maxima/src/suprv1.o");
1369 init_or_load(init_dskfn,"/d19/staff/wfs/maxima/src/dskfn.o");
1370 init_or_load(init_lesfac,"/d19/staff/wfs/maxima/src/lesfac.o");
1371 init_or_load(init_factor,"/d19/staff/wfs/maxima/src/factor.o");
1372 init_or_load(init_algfac,"/d19/staff/wfs/maxima/src/algfac.o");
1373 init_or_load(init_nalgfa,"/d19/staff/wfs/maxima/src/nalgfa.o");
1374 init_or_load(init_ufact,"/d19/staff/wfs/maxima/src/ufact.o");
1375 init_or_load(init_result,"/d19/staff/wfs/maxima/src/result.o");
1376 init_or_load(init_rat3a,"/d19/staff/wfs/maxima/src/rat3a.o");
1377 init_or_load(init_rat3b,"/d19/staff/wfs/maxima/src/rat3b.o");
1378 init_or_load(init_rat3d,"/d19/staff/wfs/maxima/src/rat3d.o");
1379 init_or_load(init_rat3c,"/d19/staff/wfs/maxima/src/rat3c.o");
1380 init_or_load(init_rat3e,"/d19/staff/wfs/maxima/src/rat3e.o");
1381 init_or_load(init_nrat4,"/d19/staff/wfs/maxima/src/nrat4.o");
1382 init_or_load(init_ratout,"/d19/staff/wfs/maxima/src/ratout.o");
1383 init_or_load(init_transm,"/d19/staff/wfs/maxima/src/transm.o");
1384 init_or_load(init_transl,"/d19/staff/wfs/maxima/src/transl.o");
1385 init_or_load(init_transs,"/d19/staff/wfs/maxima/src/transs.o");
1386 init_or_load(init_trans1,"/d19/staff/wfs/maxima/src/trans1.o");
1387 init_or_load(init_trans2,"/d19/staff/wfs/maxima/src/trans2.o");
1388 init_or_load(init_trans3,"/d19/staff/wfs/maxima/src/trans3.o");
1389 init_or_load(init_trans4,"/d19/staff/wfs/maxima/src/trans4.o");
1390 init_or_load(init_trans5,"/d19/staff/wfs/maxima/src/trans5.o");
1391 init_or_load(init_transf,"/d19/staff/wfs/maxima/src/transf.o");
1392 init_or_load(init_troper,"/d19/staff/wfs/maxima/src/troper.o");
1393 init_or_load(init_trutil,"/d19/staff/wfs/maxima/src/trutil.o");
1394 init_or_load(init_trmode,"/d19/staff/wfs/maxima/src/trmode.o");
1395 init_or_load(init_trdata,"/d19/staff/wfs/maxima/src/trdata.o");
1396 init_or_load(init_trpred,"/d19/staff/wfs/maxima/src/trpred.o");
1397 init_or_load(init_transq,"/d19/staff/wfs/maxima/src/transq.o");
1398 init_or_load(init_acall,"/d19/staff/wfs/maxima/src/acall.o");
1399 init_or_load(init_fcall,"/d19/staff/wfs/maxima/src/fcall.o");
1400 init_or_load(init_evalw,"/d19/staff/wfs/maxima/src/evalw.o");
1401 init_or_load(init_trprop,"/d19/staff/wfs/maxima/src/trprop.o");
1402 init_or_load(init_mdefun,"/d19/staff/wfs/maxima/src/mdefun.o");
1403 init_or_load(init_bessel,"/d19/staff/wfs/maxima/src/bessel.o");
1404 init_or_load(init_ellipt,"/d19/staff/wfs/maxima/src/ellipt.o");
1405 init_or_load(init_numer,"/d19/staff/wfs/maxima/src/numer.o");
1406 init_or_load(init_intpol,"/d19/staff/wfs/maxima/src/intpol.o");
1407 init_or_load(init_rombrg,"/d19/staff/wfs/maxima/src/rombrg.o");
1408 init_or_load(init_nparse,"/d19/staff/wfs/maxima/src/nparse.o");
1409 init_or_load(init_displa,"/d19/staff/wfs/maxima/src/displa.o");
1410 init_or_load(init_nforma,"/d19/staff/wfs/maxima/src/nforma.o");
1411 init_or_load(init_ldisp,"/d19/staff/wfs/maxima/src/ldisp.o");
1412 init_or_load(init_grind,"/d19/staff/wfs/maxima/src/grind.o");
1413 init_or_load(init_spgcd,"/d19/staff/wfs/maxima/src/spgcd.o");
1414 init_or_load(init_ezgcd,"/d19/staff/wfs/maxima/src/ezgcd.o");
1415 init_or_load(init_option,"/d19/staff/wfs/maxima/src/option.o");
1416 init_or_load(init_macdes,"/d19/staff/wfs/maxima/src/macdes.o");
1417 init_or_load(init_inmis,"/d19/staff/wfs/maxima/src/inmis.o");
1418 init_or_load(init_db,"/d19/staff/wfs/maxima/src/db.o");
1419 init_or_load(init_compar,"/d19/staff/wfs/maxima/src/compar.o");
1420 init_or_load(init_askp,"/d19/staff/wfs/maxima/src/askp.o");
1421 init_or_load(init_sinint,"/d19/staff/wfs/maxima/src/sinint.o");
1422 init_or_load(init_sin,"/d19/staff/wfs/maxima/src/sin.o");
1423 init_or_load(init_risch,"/d19/staff/wfs/maxima/src/risch.o");
1424 init_or_load(init_hayat,"/d19/staff/wfs/maxima/src/hayat.o");
1425 init_or_load(init_defint,"/d19/staff/wfs/maxima/src/defint.o");
1426 init_or_load(init_residu,"/d19/staff/wfs/maxima/src/residu.o");
1427 init_or_load(init_trigi,"/d19/staff/wfs/maxima/src/trigi.o");
1428 init_or_load(init_trigo,"/d19/staff/wfs/maxima/src/trigo.o");
1429 init_or_load(init_trgred,"/d19/staff/wfs/maxima/src/trgred.o");
1430 init_or_load(init_specfn,"/d19/staff/wfs/maxima/src/specfn.o");
1431 init_or_load(init_mat,"/d19/staff/wfs/maxima/src/mat.o");
1432 init_or_load(init_matrix,"/d19/staff/wfs/maxima/src/matrix.o");
1433 init_or_load(init_sprdet,"/d19/staff/wfs/maxima/src/sprdet.o");
1434 init_or_load(init_newinv,"/d19/staff/wfs/maxima/src/newinv.o");
1435 init_or_load(init_linnew,"/d19/staff/wfs/maxima/src/linnew.o");
1436 init_or_load(init_newdet,"/d19/staff/wfs/maxima/src/newdet.o");
1437 init_or_load(init_schatc,"/d19/staff/wfs/maxima/src/schatc.o");
1438 init_or_load(init_matcom,"/d19/staff/wfs/maxima/src/matcom.o");
1439 init_or_load(init_matrun,"/d19/staff/wfs/maxima/src/matrun.o");
1440 init_or_load(init_nisimp,"/d19/staff/wfs/maxima/src/nisimp.o");
1441 init_or_load(init_tlimit,"/d19/staff/wfs/maxima/src/tlimit.o");
1442 init_or_load(init_limit,"/d19/staff/wfs/maxima/src/limit.o");
1443 init_or_load(init_solve,"/d19/staff/wfs/maxima/src/solve.o");
1444 init_or_load(init_psolve,"/d19/staff/wfs/maxima/src/psolve.o");
1445 init_or_load(init_algsys,"/d19/staff/wfs/maxima/src/algsys.o");
1446 init_or_load(init_polyrz,"/d19/staff/wfs/maxima/src/polyrz.o");
1447 init_or_load(init_cpoly,"/d19/staff/wfs/maxima/src/cpoly.o");
1448 init_or_load(init_mtrace,"/d19/staff/wfs/maxima/src/mtrace.o");
1449 init_or_load(init_scs,"/d19/staff/wfs/maxima/src/scs.o");
1450 init_or_load(init_asum,"/d19/staff/wfs/maxima/src/asum.o");
1451 init_or_load(init_fortra,"/d19/staff/wfs/maxima/src/fortra.o");
1452 init_or_load(init_optim,"/d19/staff/wfs/maxima/src/optim.o");
1453 init_or_load(init_marray,"/d19/staff/wfs/maxima/src/marray.o");
1454 init_or_load(init_mdot,"/d19/staff/wfs/maxima/src/mdot.o");
1455 init_or_load(init_irinte,"/d19/staff/wfs/maxima/src/irinte.o");
1456 init_or_load(init_series,"/d19/staff/wfs/maxima/src/series.o");
1457 init_or_load(init_numth,"/d19/staff/wfs/maxima/src/numth.o");
1458 init_or_load(init_laplac,"/d19/staff/wfs/maxima/src/laplac.o");
1459 init_or_load(init_pade,"/d19/staff/wfs/maxima/src/pade.o");
1460 init_or_load(init_homog,"/d19/staff/wfs/maxima/src/homog.o");
1461 init_or_load(init_combin,"/d19/staff/wfs/maxima/src/combin.o");
1462 init_or_load(init_mstuff,"/d19/staff/wfs/maxima/src/mstuff.o");
1463 init_or_load(init_ratpoi,"/d19/staff/wfs/maxima/src/ratpoi.o");
1464 init_or_load(init_pois2,"/d19/staff/wfs/maxima/src/pois2.o");
1465 init_or_load(init_pois3,"/d19/staff/wfs/maxima/src/pois3.o");
1466 return Cnil;}
1467 /* function definition for INITIALIZE-MAXIMA */
1468
1469 static L1()
1470 { object *old_base=vs_base;
1471 object x;
1472 x=
1473 our_init();
1474 vs_top=(vs_base=old_base)+1;
1475 vs_base[0]=x;
1476 }
Maxima, a Computer Algebra System