This is iolib.c in view mode; [Download] [Up]
#include <cmpinclude.h>
#include "iolib.h"
init_iolib(){do_init(VV);}
/* macro definition for WITH-OPEN-STREAM */
static L1()
{register object *base=vs_base;
register object *sup=base+VM1; VC1
vs_reserve(VM1);
check_arg(2);
vs_top=sup;
{object V1=base[0]->c.c_cdr;
if(endp(V1))invalid_macro_call();
{object V2= (V1->c.c_car);
if(endp(V2))invalid_macro_call();
base[2]= (V2->c.c_car);
V2=V2->c.c_cdr;
if(endp(V2))invalid_macro_call();
base[3]= (V2->c.c_car);
V2=V2->c.c_cdr;
if(!endp(V2))invalid_macro_call();}
V1=V1->c.c_cdr;
base[4]= V1;}
{object V3;
object V4;
base[5]= base[4];
vs_top=(vs_base=base+5)+1;
(void) (*Lnk38)();
if(vs_base>=vs_top){vs_top=sup;goto T3;}
V3= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T4;}
V4= vs_base[0];
vs_top=sup;
goto T5;
T3:;
V3= Cnil;
T4:;
V4= Cnil;
T5:;
V5= list(2,base[2],base[3]);
V6= make_cons(/* INLINE-ARGS */V5,Cnil);
V7= make_cons(VV[2],(V4));
V8= list(3,VV[1],/* INLINE-ARGS */V7,list(2,VV[3],base[2]));
V9= make_cons(/* INLINE-ARGS */V8,Cnil);
base[5]= listA(3,VV[0],/* INLINE-ARGS */V6,append((V3),/* INLINE-ARGS */V9));
vs_top=(vs_base=base+5)+1;
return;}
}
/* macro definition for WITH-INPUT-FROM-STRING */
static L2()
{register object *base=vs_base;
register object *sup=base+VM2; VC2
vs_reserve(VM2);
check_arg(2);
vs_top=sup;
{object V10=base[0]->c.c_cdr;
if(endp(V10))invalid_macro_call();
{object V11= (V10->c.c_car);
if(endp(V11))invalid_macro_call();
base[2]= (V11->c.c_car);
V11=V11->c.c_cdr;
if(endp(V11))invalid_macro_call();
base[3]= (V11->c.c_car);
V11=V11->c.c_cdr;
{object V12=getf(V11,VV[39],OBJNULL);
if(V12==OBJNULL){
base[4]= Cnil;
} else {
base[4]= V12;}}
{object V13=getf(V11,VV[40],OBJNULL);
if(V13==OBJNULL){
base[5]= Cnil;
} else {
base[5]= V13;}}
{object V14=getf(V11,VV[41],OBJNULL);
if(V14==OBJNULL){
base[6]= Cnil;
} else {
base[6]= V14;}}
check_other_key(V11,3,VV[39],VV[40],VV[41]);}
V10=V10->c.c_cdr;
base[7]= V10;}
if((base[4])==Cnil){
goto T10;}
{object V15;
object V16;
base[8]= base[7];
vs_top=(vs_base=base+8)+1;
(void) (*Lnk38)();
if(vs_base>=vs_top){vs_top=sup;goto T14;}
V15= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T15;}
V16= vs_base[0];
vs_top=sup;
goto T16;
T14:;
V15= Cnil;
T15:;
V16= Cnil;
T16:;
V17= list(2,base[2],list(4,VV[4],base[3],base[5],base[6]));
V18= make_cons(/* INLINE-ARGS */V17,Cnil);
V19= make_cons(VV[2],(V16));
V20= list(3,VV[1],/* INLINE-ARGS */V19,list(3,VV[5],base[4],list(2,VV[6],base[2])));
V21= make_cons(/* INLINE-ARGS */V20,Cnil);
base[8]= listA(3,VV[0],/* INLINE-ARGS */V18,append((V15),/* INLINE-ARGS */V21));
vs_top=(vs_base=base+8)+1;
return;}
T10:;
V22= list(2,base[2],list(4,VV[4],base[3],base[5],base[6]));
base[8]= listA(3,VV[0],make_cons(/* INLINE-ARGS */V22,Cnil),base[7]);
vs_top=(vs_base=base+8)+1;
return;
}
/* macro definition for WITH-OUTPUT-TO-STRING */
static L3()
{register object *base=vs_base;
register object *sup=base+VM3; VC3
vs_reserve(VM3);
check_arg(2);
vs_top=sup;
{object V23=base[0]->c.c_cdr;
if(endp(V23))invalid_macro_call();
{object V24= (V23->c.c_car);
if(endp(V24))invalid_macro_call();
base[2]= (V24->c.c_car);
V24=V24->c.c_cdr;
if(endp(V24)){
base[3]= Cnil;
} else {
base[3]= (V24->c.c_car);
V24=V24->c.c_cdr;}
if(!endp(V24))invalid_macro_call();}
V23=V23->c.c_cdr;
base[4]= V23;}
if((base[3])==Cnil){
goto T19;}
V25= list(2,base[2],list(2,VV[7],base[3]));
base[5]= listA(3,VV[0],make_cons(/* INLINE-ARGS */V25,Cnil),base[4]);
vs_top=(vs_base=base+5)+1;
return;
T19:;
V26= list(2,base[2],VV[8]);
V27= make_cons(/* INLINE-ARGS */V26,Cnil);
V28= list(2,VV[9],base[2]);
V29= make_cons(/* INLINE-ARGS */V28,Cnil);
base[5]= listA(3,VV[0],/* INLINE-ARGS */V27,append(base[4],/* INLINE-ARGS */V29));
vs_top=(vs_base=base+5)+1;
return;
}
/* function definition for READ-FROM-STRING */
static L4()
{register object *base=vs_base;
register object *sup=base+VM4; VC4
vs_reserve(VM4);
{object V30;
object V31;
object V32;
object V33;
object V34;
object V35;
if(vs_top-vs_base<1) too_few_arguments();
parse_key(vs_base+3,FALSE,FALSE,3,VV[40],VV[41],VV[42]);
V30=(base[0]);
vs_base += 1;
if(vs_base>=vs_top){vs_top=sup;goto T21;}
V31=(base[1]);
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T22;}
V32=(base[2]);
vs_top=sup;goto T23;
T21:;
V31= Ct;
T22:;
V32= Cnil;
T23:;
if(base[6]==Cnil){
V33= small_fixnum(0);
}else{
V33=(base[3]);}
if(base[7]==Cnil){
V34= make_fixnum(length((V30)));
}else{
V34=(base[4]);}
V35=(base[5]);
{register object V36;
base[9]= (V30);
base[10]= (V33);
base[11]= (V34);
vs_top=(vs_base=base+9)+3;
(void) (*Lnk4)();
vs_top=sup;
V36= vs_base[0];
if(((V35))==Cnil){
goto T33;}
base[10]= (V36);
base[11]= (V31);
base[12]= (V32);
vs_top=(vs_base=base+10)+3;
(void) (*Lnk43)();
vs_top=sup;
base[9]= vs_base[0];
base[11]= (V36);
vs_top=(vs_base=base+11)+1;
(void) (*Lnk6)();
vs_top=sup;
base[10]= vs_base[0];
vs_top=(vs_base=base+9)+2;
return;
T33:;
base[10]= (V36);
base[11]= (V31);
base[12]= (V32);
vs_top=(vs_base=base+10)+3;
Lread();
vs_top=sup;
base[9]= vs_base[0];
base[11]= (V36);
vs_top=(vs_base=base+11)+1;
(void) (*Lnk6)();
vs_top=sup;
base[10]= vs_base[0];
vs_top=(vs_base=base+9)+2;
return;}
}
}
/* function definition for WRITE-TO-STRING */
static L5()
{register object *base=vs_base;
register object *sup=base+VM5; VC5
vs_reserve(VM5);
{object V37;
object V38;
object V39;
object V40;
object V41;
object V42;
object V43;
object V44;
object V45;
object V46;
object V47;
object V48;
if(vs_top-vs_base<1) too_few_arguments();
parse_key(vs_base+1,TRUE,FALSE,10,VV[44],VV[45],VV[46],VV[47],VV[48],VV[49],VV[50],VV[51],VV[52],VV[53]);
V37=(base[0]);
vs_top=sup;
V38=(base[1]);
V39=(base[2]);
V40=(base[3]);
V41=(base[4]);
V42=(base[5]);
V43=(base[6]);
V44=(base[7]);
V45=(base[8]);
V46=(base[9]);
V47=(base[10]);
V48=(base[11]);
{object V49;
vs_base=vs_top;
(void) (*Lnk54)();
vs_top=sup;
V49= vs_base[0];
base[23]= (V37);
base[24]= VV[10];
base[25]= (V49);
{object V50;
V50= (V38);
vs_top=base+26;
while(!endp(V50))
{vs_push(car(V50));V50=cdr(V50);}
vs_base=base+23;}
Lwrite();
vs_top=sup;
base[23]= (V49);
vs_top=(vs_base=base+23)+1;
(void) (*Lnk9)();
return;}
}
}
/* function definition for PRIN1-TO-STRING */
static L6()
{register object *base=vs_base;
register object *sup=base+VM6; VC6
vs_reserve(VM6);
{object V51;
check_arg(1);
V51=(base[0]);
vs_top=sup;
TTL:;
{object V52;
vs_base=vs_top;
(void) (*Lnk54)();
vs_top=sup;
V52= vs_base[0];
(void)(prin1((V51),(V52)));
base[2]= (V52);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk9)();
return;}
}
}
/* function definition for PRINC-TO-STRING */
static L7()
{register object *base=vs_base;
register object *sup=base+VM7; VC7
vs_reserve(VM7);
{object V53;
check_arg(1);
V53=(base[0]);
vs_top=sup;
TTL:;
{object V54;
vs_base=vs_top;
(void) (*Lnk54)();
vs_top=sup;
V54= vs_base[0];
(void)(princ((V53),(V54)));
base[2]= (V54);
vs_top=(vs_base=base+2)+1;
(void) (*Lnk9)();
return;}
}
}
/* macro definition for WITH-OPEN-FILE */
static L8()
{register object *base=vs_base;
register object *sup=base+VM8; VC8
vs_reserve(VM8);
check_arg(2);
vs_top=sup;
{object V55=base[0]->c.c_cdr;
if(endp(V55))invalid_macro_call();
{object V56= (V55->c.c_car);
if(endp(V56))invalid_macro_call();
base[2]= (V56->c.c_car);
V56=V56->c.c_cdr;
base[3]= V56;}
V55=V55->c.c_cdr;
base[4]= V55;}
{object V57;
object V58;
base[5]= base[4];
vs_top=(vs_base=base+5)+1;
(void) (*Lnk38)();
if(vs_base>=vs_top){vs_top=sup;goto T62;}
V57= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T63;}
V58= vs_base[0];
vs_top=sup;
goto T64;
T62:;
V57= Cnil;
T63:;
V58= Cnil;
T64:;
V59= list(2,base[2],make_cons(VV[11],base[3]));
V60= make_cons(/* INLINE-ARGS */V59,Cnil);
V61= make_cons(VV[2],(V58));
V62= list(3,VV[1],/* INLINE-ARGS */V61,list(2,VV[3],base[2]));
V63= make_cons(/* INLINE-ARGS */V62,Cnil);
base[5]= listA(3,VV[0],/* INLINE-ARGS */V60,append((V57),/* INLINE-ARGS */V63));
vs_top=(vs_base=base+5)+1;
return;}
}
/* local entry for function Y-OR-N-P */
static object LI9(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB9 VMS9 VMV9
{register object V64;
register object V65;
narg = narg - 0;
if (narg <= 0) goto T65;
else {
va_start(ap);
V64= va_arg(ap,object);}
--narg; goto T66;
T65:;
V64= Cnil;
T66:;
V66 = list_vector(narg,ap);
V65= V66;
{register object V67;
V67= Cnil;
T69:;
if(((V64))==Cnil){
goto T72;}
base[0]= symbol_value(VV[12]);
base[1]= VV[13];
base[2]= (V64);
base[3]= (V65);
vs_top=(vs_base=base+0)+4;
Lformat();
vs_top=sup;
T72:;
base[0]= symbol_value(VV[12]);
vs_top=(vs_base=base+0)+1;
Lread();
vs_top=sup;
V67= vs_base[0];
base[0]= symbol_name((V67));
base[1]= VV[14];
vs_top=(vs_base=base+0)+2;
Lstring_equal();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T84;}
{object V68 = Ct;
VMR9(V68)}
T84:;
base[0]= symbol_name((V67));
base[1]= VV[15];
vs_top=(vs_base=base+0)+2;
Lstring_equal();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T82;}
{object V69 = Cnil;
VMR9(V69)}
T82:;
goto T69;}}
}
/* local entry for function YES-OR-NO-P */
static object LI10(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB10 VMS10 VMV10
{register object V70;
register object V71;
narg = narg - 0;
if (narg <= 0) goto T94;
else {
va_start(ap);
V70= va_arg(ap,object);}
--narg; goto T95;
T94:;
V70= Cnil;
T95:;
V72 = list_vector(narg,ap);
V71= V72;
{register object V73;
V73= Cnil;
T98:;
if(((V70))==Cnil){
goto T101;}
base[0]= symbol_value(VV[12]);
base[1]= VV[16];
base[2]= (V70);
base[3]= (V71);
vs_top=(vs_base=base+0)+4;
Lformat();
vs_top=sup;
T101:;
base[0]= symbol_value(VV[12]);
vs_top=(vs_base=base+0)+1;
Lread();
vs_top=sup;
V73= vs_base[0];
base[0]= symbol_name((V73));
base[1]= VV[17];
vs_top=(vs_base=base+0)+2;
Lstring_equal();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T113;}
{object V74 = Ct;
VMR10(V74)}
T113:;
base[0]= symbol_name((V73));
base[1]= VV[18];
vs_top=(vs_base=base+0)+2;
Lstring_equal();
vs_top=sup;
if((vs_base[0])==Cnil){
goto T111;}
{object V75 = Cnil;
VMR10(V75)}
T111:;
goto T98;}}
}
/* local entry for function SHARP-A-READER */
static object LI11(V79,V80,V81)
object V79;object V80;register object V81;
{ VMB11 VMS11 VMV11
TTL:;
{register object V82;
base[0]= (V79);
base[1]= Cnil;
base[2]= Cnil;
base[3]= Ct;
vs_top=(vs_base=base+0)+4;
Lread();
vs_top=sup;
V82= vs_base[0];
if((symbol_value(VV[19]))==Cnil){
goto T129;}
{object V83 = Cnil;
VMR11(V83)}
T129:;
{register object V84;
register object V85;
register object V86;
V84= small_fixnum(0);
V85= Cnil;
V86= (V82);
T132:;
if(!(number_compare((V84),(V81))>=0)){
goto T133;}
V87= nreverse((V85));
{object V88 = (VFUN_NARGS=3,(*(LnkLI55))(/* INLINE-ARGS */V87,VV[20],(V82)));
VMR11(V88)}
T133:;
V84= one_plus((V84));
V89 = make_fixnum(length((V86)));
V85= make_cons(V89,(V85));
if(!((length((V86)))==0)){
goto T142;}
goto T140;
T142:;
V86= elt((V86),0);
T140:;
goto T132;}}
}
/* local entry for function DRIBBLE */
static object LI12(va_alist)
va_dcl
{
va_list ap;
int narg = VFUN_NARGS; VMB12 VMS12 VMV12
{object V90;
object V91;
object V92;
narg = narg - 0;
if (narg <= 0) goto T145;
else {
va_start(ap);
V90= va_arg(ap,object);}
V91= Ct;
if (--narg <= 0) goto T146;
else {
V92= va_arg(ap,object);}
--narg; goto T147;
T145:;
V90= VV[21];
V91= Cnil;
T146:;
V92= VV[22];
T147:;
if(((V91))!=Cnil){
goto T151;}
if((symbol_value(VV[23]))!=Cnil){
goto T153;}
base[0]= VV[24];
vs_top=(vs_base=base+0)+1;
Lerror();
vs_top=sup;
T153:;
if(!((symbol_value(VV[25]))==(symbol_value(VV[26])))){
goto T159;}
setq(VV[26],symbol_value(VV[27]));
goto T157;
T159:;
(void)((VFUN_NARGS=1,(*(LnkLI56))(VV[28])));
T157:;
base[0]= symbol_value(VV[23]);
vs_top=(vs_base=base+0)+1;
Lclose();
vs_top=sup;
setq(VV[23],Cnil);
base[0]= Ct;
base[1]= VV[29];
base[2]= symbol_value(VV[30]);
vs_top=(vs_base=base+0)+3;
Lformat();
vs_top=sup;
{object V93 = vs_base[0];
VMR12(V93)}
T151:;
if((symbol_value(VV[23]))==Cnil){
goto T170;}
base[0]= VV[31];
base[1]= symbol_value(VV[30]);
vs_top=(vs_base=base+0)+2;
Lerror();
vs_top=sup;
{object V94 = vs_base[0];
VMR12(V94)}
T170:;
{object V95;
object V96;
base[2]= (V90);
vs_top=(vs_base=base+2)+1;
Lnamestring();
vs_top=sup;
V95= vs_base[0];
base[2]= (V90);
base[3]= VV[32];
base[4]= VV[33];
base[5]= VV[34];
base[6]= (V92);
base[7]= VV[35];
base[8]= VV[36];
vs_top=(vs_base=base+2)+7;
(void) (*Lnk11)();
vs_top=sup;
V96= vs_base[0];
setq(VV[30],(V95));
setq(VV[23],(V96));
setq(VV[27],symbol_value(VV[26]));
base[3]= symbol_value(VV[26]);
base[4]= (V96);
vs_top=(vs_base=base+3)+2;
Lmake_echo_stream();
vs_top=sup;
base[2]= vs_base[0];
base[4]= symbol_value(VV[26]);
base[5]= (V96);
vs_top=(vs_base=base+4)+2;
Lmake_broadcast_stream();
vs_top=sup;
base[3]= vs_base[0];
vs_top=(vs_base=base+2)+2;
Lmake_two_way_stream();
vs_top=sup;
setq(VV[25],vs_base[0]);
setq(VV[26],symbol_value(VV[25]));
{object V97;
object V98;
object V99;
object V100;
object V101;
object V102;
vs_base=vs_top;
(void) (*Lnk57)();
if(vs_base>=vs_top){vs_top=sup;goto T201;}
V97= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T202;}
V98= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T203;}
V99= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T204;}
V100= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T205;}
V101= vs_base[0];
vs_base++;
if(vs_base>=vs_top){vs_top=sup;goto T206;}
V102= vs_base[0];
vs_top=sup;
goto T207;
T201:;
V97= Cnil;
T202:;
V98= Cnil;
T203:;
V99= Cnil;
T204:;
V100= Cnil;
T205:;
V101= Cnil;
T206:;
V102= Cnil;
T207:;
base[2]= Ct;
base[3]= VV[37];
base[4]= (V95);
base[5]= (V102);
base[6]= (V101);
base[7]= (V100);
base[8]= (V99);
base[9]= (V98);
base[10]= (V97);
vs_top=(vs_base=base+2)+9;
Lformat();
vs_top=sup;
{object V103 = vs_base[0];
VMR12(V103)}}}}
}
static LnkT57(){ call_or_link(VV[57],&Lnk57);} /* GET-DECODED-TIME */
static LnkT11(){ call_or_link(VV[11],&Lnk11);} /* OPEN */
static object LnkTLI56(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[56],&LnkLI56,ap);} /* WARN */
static object LnkTLI55(va_alist)va_dcl{va_list ap;va_start(ap);return(object )call_vproc(VV[55],&LnkLI55,ap);} /* MAKE-ARRAY */
static LnkT9(){ call_or_link(VV[9],&Lnk9);} /* GET-OUTPUT-STREAM-STRING */
static LnkT54(){ call_or_link(VV[54],&Lnk54);} /* MAKE-STRING-OUTPUT-STREAM */
static LnkT6(){ call_or_link(VV[6],&Lnk6);} /* GET-STRING-INPUT-STREAM-INDEX */
static LnkT43(){ call_or_link(VV[43],&Lnk43);} /* READ-PRESERVING-WHITESPACE */
static LnkT4(){ call_or_link(VV[4],&Lnk4);} /* MAKE-STRING-INPUT-STREAM */
static LnkT38(){ call_or_link(VV[38],&Lnk38);} /* FIND-DECLARATIONS */
These are the contents of the former NiCE NeXT User Group NeXTSTEP/OpenStep software archive, currently hosted by Netfuture.ch.