home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / lisp / gcl-1.000 / gcl-1 / gcl-1.0 / lsp / seq.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-10  |  10.6 KB  |  589 lines
  1.  
  2. #include <cmpinclude.h>
  3. #include "seq.h"
  4. init_seq(){do_init(VV);}
  5. /*    local entry for function MAKE-SEQUENCE    */
  6.  
  7. static object LI1(V2,V1,va_alist)
  8.     object V2,V1;
  9.     va_dcl 
  10. {    
  11.     va_list ap;
  12.     int narg = VFUN_NARGS; VMB1 VMS1 VMV1
  13.     {register object V3;
  14.     register object V4;
  15.     register object V5;
  16.     object V6;
  17.     if(narg <2) too_few_arguments();
  18.     V3= V2;
  19.     V4= V1;
  20.     narg= narg - 2;
  21.     va_start(ap);
  22.     {
  23.     parse_key_new(narg,Vcs +2,&LI1key,ap);
  24.     if(Vcs[2]==0){
  25.     V5= Cnil;
  26.     V6= Cnil;
  27.     }else{
  28.     V5=(Vcs[2]);
  29.     V6= Ct;}
  30.     {object V7;
  31.     register object V8;
  32.     V7= Cnil;
  33.     V8= Cnil;
  34.     if(!(((V3))==(VV[0]))){
  35.     goto T7;}
  36.     if(((V6))==Cnil){
  37.     goto T10;}
  38.     base[0]= (V4);
  39.     base[1]= VV[1];
  40.     base[2]= (V5);
  41.     vs_top=(vs_base=base+0)+3;
  42.     Lmake_list();
  43.     vs_top=sup;
  44.     {object V9 = vs_base[0];
  45.     VMR1(V9)}
  46. T10:;
  47.     base[0]= (V4);
  48.     vs_top=(vs_base=base+0)+1;
  49.     Lmake_list();
  50.     vs_top=sup;
  51.     {object V10 = vs_base[0];
  52.     VMR1(V10)}
  53. T7:;
  54.     if(((V3))==(VV[2])){
  55.     goto T16;}
  56.     if(!(((V3))==(VV[3]))){
  57.     goto T17;}
  58. T16:;
  59.     V7= VV[4];
  60.     goto T5;
  61. T17:;
  62.     if(((V3))==(VV[5])){
  63.     goto T21;}
  64.     if(!(((V3))==(VV[6]))){
  65.     goto T22;}
  66. T21:;
  67.     V7= VV[7];
  68.     goto T5;
  69. T22:;
  70.     if(((V3))==(VV[8])){
  71.     goto T26;}
  72.     if(!(((V3))==(VV[9]))){
  73.     goto T27;}
  74. T26:;
  75.     V7= Ct;
  76.     goto T5;
  77. T27:;
  78.     V3= (*(LnkLI13))((V3));
  79.     if(!((car((V3)))==(VV[0]))){
  80.     goto T33;}
  81.     if(((V6))==Cnil){
  82.     goto T37;}
  83.     base[0]= (V4);
  84.     base[1]= VV[1];
  85.     base[2]= (V5);
  86.     vs_top=(vs_base=base+0)+3;
  87.     Lmake_list();
  88.     vs_top=sup;
  89.     {object V11 = vs_base[0];
  90.     VMR1(V11)}
  91. T37:;
  92.     base[0]= (V4);
  93.     vs_top=(vs_base=base+0)+1;
  94.     Lmake_list();
  95.     vs_top=sup;
  96.     {object V12 = vs_base[0];
  97.     VMR1(V12)}
  98. T33:;
  99.     if((car((V3)))==(VV[10])){
  100.     goto T43;}
  101.     if((car((V3)))==(VV[11])){
  102.     goto T43;}
  103.     base[0]= VV[12];
  104.     base[1]= (V3);
  105.     vs_top=(vs_base=base+0)+2;
  106.     Lerror();
  107.     vs_top=sup;
  108. T43:;{object V13;
  109.     V13= cadr((V3));
  110.     if(V13==Cnil)goto T50;
  111.     V7= V13;
  112.     goto T5;
  113. T50:;}
  114.     V7= Ct;
  115. T5:;
  116.     V7= (*(LnkLI14))((V7));
  117.     base[0]= (V7);
  118.     base[1]= (V4);
  119.     base[2]= Cnil;
  120.     base[3]= Cnil;
  121.     base[4]= Cnil;
  122.     base[5]= Cnil;
  123.     base[6]= Cnil;
  124.     vs_top=(vs_base=base+0)+7;
  125.     siLmake_vector();
  126.     vs_top=sup;
  127.     V8= vs_base[0];
  128.     if(((V6))==Cnil){
  129.     goto T63;}
  130.     {register int V14;
  131.     register int V15;
  132.     V14= 0;
  133.     V15= fix((V4));
  134. T69:;
  135.     if(!((V14)>=(V15))){
  136.     goto T70;}
  137.     goto T63;
  138. T70:;
  139.     (void)(elt_set((V8),V14,(V5)));
  140.     V14= (V14)+1;
  141.     goto T69;}
  142. T63:;
  143.     {object V16 = (V8);
  144.     VMR1(V16)}}}
  145.     }}
  146. /*    local entry for function CONCATENATE    */
  147.  
  148. static object LI2(V17,va_alist)
  149.     object V17;
  150.     va_dcl 
  151. {    
  152.     va_list ap;
  153.     int narg = VFUN_NARGS; VMB2 VMS2 VMV2
  154.     {object V18;
  155.     object V19;
  156.     if(narg <1) too_few_arguments();
  157.     V18= V17;
  158.     narg= narg - 1;
  159.     va_start(ap);
  160.     V20 = list_vector(narg,ap);
  161.     V19= V20;
  162.     {register object V21;
  163.     register object V22;
  164.     register int V23;
  165.     {object V25;
  166.     {object V26;
  167.     object V27= (V19);
  168.     if(endp(V27)){
  169.     V25= Cnil;
  170.     goto T80;}
  171.     base[0]=V26=MMcons(Cnil,Cnil);
  172. T81:;
  173.     base[1]= (V27->c.c_car);
  174.     vs_top=(vs_base=base+1)+1;
  175.     Llength();
  176.     vs_top=sup;
  177.     (V26->c.c_car)= vs_base[0];
  178.     if(endp(V27=MMcdr(V27))){
  179.     V25= base[0];
  180.     goto T80;}
  181.     V26=MMcdr(V26)=MMcons(Cnil,Cnil);
  182.     goto T81;}
  183. T80:;
  184.      vs_top=base+0;
  185.      while(!endp(V25))
  186.      {vs_push(car(V25));V25=cdr(V25);}
  187.     vs_base=base+0;}
  188.     Lplus();
  189.     vs_top=sup;
  190.     V24= vs_base[0];
  191.     V21= (VFUN_NARGS=2,(*(LnkLI15))((V18),V24));
  192.     V23= 0;
  193.     V22= (V19);
  194. T86:;
  195.     if(((V22))!=Cnil){
  196.     goto T87;}
  197.     {object V28 = (V21);
  198.     VMR2(V28)}
  199. T87:;
  200.     {register int V29;
  201.     register int V30;
  202.     V29= 0;
  203.     V30= length(car((V22)));
  204. T95:;
  205.     if(!((V29)>=(V30))){
  206.     goto T96;}
  207.     goto T91;
  208. T96:;
  209.     V31= elt(car((V22)),V29);
  210.     (void)(elt_set((V21),V23,/* INLINE-ARGS */V31));
  211.     V23= (V23)+(1);
  212.     V29= (V29)+1;
  213.     goto T95;}
  214. T91:;
  215.     V22= cdr((V22));
  216.     goto T86;}}
  217.     }
  218. /*    local entry for function MAP    */
  219.  
  220. static object LI3(V34,V33,V32,va_alist)
  221.     object V34,V33,V32;
  222.     va_dcl 
  223. {    
  224.     va_list ap;
  225.     int narg = VFUN_NARGS; VMB3 VMS3 VMV3
  226.     {object V35;
  227.     register object V36;
  228.     object V37;
  229.     register object V38;
  230.     if(narg <3) too_few_arguments();
  231.     V35= V34;
  232.     V36= V33;
  233.     V37= V32;
  234.     narg= narg - 3;
  235.     va_start(ap);
  236.     V39 = list_vector(narg,ap);
  237.     V38= V39;
  238.     V38= make_cons((V37),(V38));
  239.     {object V40;
  240.     {object V41;
  241.     {object V42;
  242.     object V43= (V38);
  243.     if(endp(V43)){
  244.     V41= Cnil;
  245.     goto T112;}
  246.     base[0]=V42=MMcons(Cnil,Cnil);
  247. T113:;
  248.     base[1]= (V43->c.c_car);
  249.     vs_top=(vs_base=base+1)+1;
  250.     Llength();
  251.     vs_top=sup;
  252.     (V42->c.c_car)= vs_base[0];
  253.     if(endp(V43=MMcdr(V43))){
  254.     V41= base[0];
  255.     goto T112;}
  256.     V42=MMcdr(V42)=MMcons(Cnil,Cnil);
  257.     goto T113;}
  258. T112:;
  259.      vs_top=base+0;
  260.      while(!endp(V41))
  261.      {vs_push(car(V41));V41=cdr(V41);}
  262.     vs_base=base+0;}
  263.     Lmin();
  264.     vs_top=sup;
  265.     V40= vs_base[0];
  266.     if(((V35))!=Cnil){
  267.     goto T117;}
  268.     {register int V44;
  269.     int V45;
  270.     V44= 0;
  271.     V45= fix((V40));
  272. T122:;
  273.     if(!((V44)>=(V45))){
  274.     goto T123;}
  275.     {object V46 = Cnil;
  276.     VMR3(V46)}
  277. T123:;
  278.     base[0]= (V36);
  279.     {object V47;
  280.     {object V48;
  281.     object V49= (V38);
  282.     if(endp(V49)){
  283.     V47= Cnil;
  284.     goto T129;}
  285.     base[1]=V48=MMcons(Cnil,Cnil);
  286. T130:;
  287.     {register object V50;
  288.     V50= (V49->c.c_car);
  289.     (V48->c.c_car)= elt((V50),V44);}
  290.     if(endp(V49=MMcdr(V49))){
  291.     V47= base[1];
  292.     goto T129;}
  293.     V48=MMcdr(V48)=MMcons(Cnil,Cnil);
  294.     goto T130;}
  295. T129:;
  296.      vs_top=base+1;
  297.      while(!endp(V47))
  298.      {vs_push(car(V47));V47=cdr(V47);}
  299.     vs_base=base+1;}
  300.     super_funcall_no_event(base[0]);
  301.     vs_top=sup;
  302.     V44= (V44)+1;
  303.     goto T122;}
  304. T117:;
  305.     {register object V51;
  306.     V51= (VFUN_NARGS=2,(*(LnkLI15))((V35),(V40)));
  307.     {register int V52;
  308.     int V53;
  309.     V52= 0;
  310.     V53= fix((V40));
  311. T139:;
  312.     if(!((V52)>=(V53))){
  313.     goto T140;}
  314.     {object V54 = (V51);
  315.     VMR3(V54)}
  316. T140:;
  317.     base[0]= (V36);
  318.     {object V56;
  319.     {object V57;
  320.     object V58= (V38);
  321.     if(endp(V58)){
  322.     V56= Cnil;
  323.     goto T147;}
  324.     base[1]=V57=MMcons(Cnil,Cnil);
  325. T148:;
  326.     {register object V59;
  327.     V59= (V58->c.c_car);
  328.     (V57->c.c_car)= elt((V59),V52);}
  329.     if(endp(V58=MMcdr(V58))){
  330.     V56= base[1];
  331.     goto T147;}
  332.     V57=MMcdr(V57)=MMcons(Cnil,Cnil);
  333.     goto T148;}
  334. T147:;
  335.      vs_top=base+1;
  336.      while(!endp(V56))
  337.      {vs_push(car(V56));V56=cdr(V56);}
  338.     vs_base=base+1;}
  339.     super_funcall_no_event(base[0]);
  340.     vs_top=sup;
  341.     V55= vs_base[0];
  342.     (void)(elt_set((V51),V52,V55));
  343.     V52= (V52)+1;
  344.     goto T139;}}}}
  345.     }
  346. /*    local entry for function SOME    */
  347.  
  348. static object LI4(V61,V60,va_alist)
  349.     object V61,V60;
  350.     va_dcl 
  351. {    
  352.     va_list ap;
  353.     int narg = VFUN_NARGS; VMB4 VMS4 VMV4
  354.     {register object V62;
  355.     object V63;
  356.     register object V64;
  357.     if(narg <2) too_few_arguments();
  358.     V62= V61;
  359.     V63= V60;
  360.     narg= narg - 2;
  361.     va_start(ap);
  362.     V65 = list_vector(narg,ap);
  363.     V64= V65;
  364.     V64= make_cons((V63),(V64));
  365.     {register int V66;
  366.     register int V67;
  367.     V66= 0;
  368.     {object V68;
  369.     {object V69;
  370.     object V70= (V64);
  371.     if(endp(V70)){
  372.     V68= Cnil;
  373.     goto T157;}
  374.     base[0]=V69=MMcons(Cnil,Cnil);
  375. T158:;
  376.     base[1]= (V70->c.c_car);
  377.     vs_top=(vs_base=base+1)+1;
  378.     Llength();
  379.     vs_top=sup;
  380.     (V69->c.c_car)= vs_base[0];
  381.     if(endp(V70=MMcdr(V70))){
  382.     V68= base[0];
  383.     goto T157;}
  384.     V69=MMcdr(V69)=MMcons(Cnil,Cnil);
  385.     goto T158;}
  386. T157:;
  387.      vs_top=base+0;
  388.      while(!endp(V68))
  389.      {vs_push(car(V68));V68=cdr(V68);}
  390.     vs_base=base+0;}
  391.     Lmin();
  392.     vs_top=sup;
  393.     V67= fix(vs_base[0]);
  394. T162:;
  395.     if(!((V66)>=(V67))){
  396.     goto T163;}
  397.     {object V71 = Cnil;
  398.     VMR4(V71)}
  399. T163:;
  400.     {register object V72;
  401.     base[0]= (V62);
  402.     {object V73;
  403.     {object V74;
  404.     object V75= (V64);
  405.     if(endp(V75)){
  406.     V73= Cnil;
  407.     goto T170;}
  408.     base[1]=V74=MMcons(Cnil,Cnil);
  409. T171:;
  410.     {register object V76;
  411.     V76= (V75->c.c_car);
  412.     (V74->c.c_car)= elt((V76),V66);}
  413.     if(endp(V75=MMcdr(V75))){
  414.     V73= base[1];
  415.     goto T170;}
  416.     V74=MMcdr(V74)=MMcons(Cnil,Cnil);
  417.     goto T171;}
  418. T170:;
  419.      vs_top=base+1;
  420.      while(!endp(V73))
  421.      {vs_push(car(V73));V73=cdr(V73);}
  422.     vs_base=base+1;}
  423.     super_funcall_no_event(base[0]);
  424.     vs_top=sup;
  425.     V72= vs_base[0];
  426.     if(((V72))==Cnil){
  427.     goto T167;}
  428.     {object V77 = (V72);
  429.     VMR4(V77)}}
  430. T167:;
  431.     V66= (V66)+1;
  432.     goto T162;}}
  433.     }
  434. /*    local entry for function EVERY    */
  435.  
  436. static object LI5(V79,V78,va_alist)
  437.     object V79,V78;
  438.     va_dcl 
  439. {    
  440.     va_list ap;
  441.     int narg = VFUN_NARGS; VMB5 VMS5 VMV5
  442.     {register object V80;
  443.     object V81;
  444.     register object V82;
  445.     if(narg <2) too_few_arguments();
  446.     V80= V79;
  447.     V81= V78;
  448.     narg= narg - 2;
  449.     va_start(ap);
  450.     V83 = list_vector(narg,ap);
  451.     V82= V83;
  452.     V82= make_cons((V81),(V82));
  453.     {register int V84;
  454.     register int V85;
  455.     V84= 0;
  456.     {object V86;
  457.     {object V87;
  458.     object V88= (V82);
  459.     if(endp(V88)){
  460.     V86= Cnil;
  461.     goto T182;}
  462.     base[0]=V87=MMcons(Cnil,Cnil);
  463. T183:;
  464.     base[1]= (V88->c.c_car);
  465.     vs_top=(vs_base=base+1)+1;
  466.     Llength();
  467.     vs_top=sup;
  468.     (V87->c.c_car)= vs_base[0];
  469.     if(endp(V88=MMcdr(V88))){
  470.     V86= base[0];
  471.     goto T182;}
  472.     V87=MMcdr(V87)=MMcons(Cnil,Cnil);
  473.     goto T183;}
  474. T182:;
  475.      vs_top=base+0;
  476.      while(!endp(V86))
  477.      {vs_push(car(V86));V86=cdr(V86);}
  478.     vs_base=base+0;}
  479.     Lmin();
  480.     vs_top=sup;
  481.     V85= fix(vs_base[0]);
  482. T187:;
  483.     if(!((V84)>=(V85))){
  484.     goto T188;}
  485.     {object V89 = Ct;
  486.     VMR5(V89)}
  487. T188:;
  488.     base[0]= (V80);
  489.     {object V90;
  490.     {object V91;
  491.     object V92= (V82);
  492.     if(endp(V92)){
  493.     V90= Cnil;
  494.     goto T196;}
  495.     base[1]=V91=MMcons(Cnil,Cnil);
  496. T197:;
  497.     {register object V93;
  498.     V93= (V92->c.c_car);
  499.     (V91->c.c_car)= elt((V93),V84);}
  500.     if(endp(V92=MMcdr(V92))){
  501.     V90= base[1];
  502.     goto T196;}
  503.     V91=MMcdr(V91)=MMcons(Cnil,Cnil);
  504.     goto T197;}
  505. T196:;
  506.      vs_top=base+1;
  507.      while(!endp(V90))
  508.      {vs_push(car(V90));V90=cdr(V90);}
  509.     vs_base=base+1;}
  510.     super_funcall_no_event(base[0]);
  511.     vs_top=sup;
  512.     if((vs_base[0])!=Cnil){
  513.     goto T192;}
  514.     {object V94 = Cnil;
  515.     VMR5(V94)}
  516. T192:;
  517.     V84= (V84)+1;
  518.     goto T187;}}
  519.     }
  520. /*    local entry for function NOTANY    */
  521.  
  522. static object LI6(V96,V95,va_alist)
  523.     object V96,V95;
  524.     va_dcl 
  525. {    
  526.     va_list ap;
  527.     int narg = VFUN_NARGS; VMB6 VMS6 VMV6
  528.     {object V97;
  529.     object V98;
  530.     object V99;
  531.     if(narg <2) too_few_arguments();
  532.     V97= V96;
  533.     V98= V95;
  534.     narg= narg - 2;
  535.     va_start(ap);
  536.     V100 = list_vector(narg,ap);
  537.     V99= V100;
  538.     base[0]= (V97);
  539.     base[1]= (V98);
  540.     {object V102;
  541.     V102= (V99);
  542.      vs_top=base+2;
  543.      while(!endp(V102))
  544.      {vs_push(car(V102));V102=cdr(V102);}
  545.     vs_base=base+0;}
  546.     (void) (*Lnk16)();
  547.     vs_top=sup;
  548.     V101= vs_base[0];
  549.     {object V103 = ((V101)==Cnil?Ct:Cnil);
  550.     VMR6(V103)}}
  551.     }
  552. /*    local entry for function NOTEVERY    */
  553.  
  554. static object LI7(V105,V104,va_alist)
  555.     object V105,V104;
  556.     va_dcl 
  557. {    
  558.     va_list ap;
  559.     int narg = VFUN_NARGS; VMB7 VMS7 VMV7
  560.     {object V106;
  561.     object V107;
  562.     object V108;
  563.     if(narg <2) too_few_arguments();
  564.     V106= V105;
  565.     V107= V104;
  566.     narg= narg - 2;
  567.     va_start(ap);
  568.     V109 = list_vector(narg,ap);
  569.     V108= V109;
  570.     base[0]= (V106);
  571.     base[1]= (V107);
  572.     {object V111;
  573.     V111= (V108);
  574.      vs_top=base+2;
  575.      while(!endp(V111))
  576.      {vs_push(car(V111));V111=cdr(V111);}
  577.     vs_base=base+0;}
  578.     (void) (*Lnk17)();
  579.     vs_top=sup;
  580.     V110= vs_base[0];
  581.     {object V112 = ((V110)==Cnil?Ct:Cnil);
  582.     VMR7(V112)}}
  583.     }
  584. static LnkT17(){ call_or_link(VV[17],&Lnk17);} /* EVERY */
  585. static LnkT16(){ call_or_link(VV[16],&Lnk16);} /* SOME */
  586. static object  LnkTLI15(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[15],&LnkLI15,ap);} /* MAKE-SEQUENCE */
  587. static object  LnkTLI14(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[14],&LnkLI14,1,ap);} /* BEST-ARRAY-ELEMENT-TYPE */
  588. static object  LnkTLI13(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_proc(VV[13],&LnkLI13,1,ap);} /* NORMALIZE-TYPE */
  589.