Psst.. new poll here.
Psst.. new forums here.
Microsoft is blocking us again (TY IP Reputation!) so dont bother with any of their useless mail servers here and just use oauth login instead. Thank the nice Russians for causing that. :)
Paste
Pasted as C by pscat ( 15 years ago )
/* Compiler: ECL 10.4.1 */
/* Date: 2011/2/1 22:54 (yyyy/mm/dd) */
/* Machine: NT 5.0 x86 */
/* Source: koi7.lisp */
#include <ecl/ecl-cmp.h>
#include "c:/home/sources/study/pdi/koi7.h"
/* function definition for IN-KOI-7 */
static cl_object L2in_koi_7(cl_object V1)
{ VT2 VLEX2 CLSR2 STCK2
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
lex0[0]= V1; /* STR */
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[5],Cnil);
TTL:
{cl_object V2; /* NIL */
cl_object V3; /* NIL */
cl_object V4; /* NIL */
V2= cl_first(ecl_symbol_value(VV[2])) /* FIRST */;
V3= cl_rest(ecl_symbol_value(VV[2])) /* REST */;
T0= MAKE_FIXNUM(ecl_length(lex0[0]));
V4= ecl_one_minus(T0);
lex0[1]= V2; /* SECOND-PART */
lex0[2]= V3; /* INIT-LETER-SET */
lex0[3]= V4; /* STR-LENGTH */
if(!(ecl_number_compare(lex0[3],MAKE_FIXNUM(0))<0)){
goto L5;}
value0=ecl_list1(VV[4]); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L5:;
T0= LC1leter_iter(lex0,lex0[2],MAKE_FIXNUM(0)) /* LETER-ITER */;
value0=ecl_function_dispatch(cl_env_copy,VV[9])(1,T0) /* LIST-OF-PAIRS->LIST-OF-STRING */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* local function LETER-ITER */
static cl_object LC1leter_iter(volatile cl_object *lex0, cl_object V1, cl_object V2)
{ VT3 VLEX3 CLSR3 STCK3
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[53],Cnil);
TTL:
{cl_object V3; /* LETERS */
cl_object V4; /* TRANSLATE-LETER */
cl_object V5; /* MATCH */
V3= cl_first(V1) /* FIRST */;
T0= ecl_elt(lex0[0],fix(V2));
V4= cl_string(T0) /* STRING */;
{cl_object V6; /* LETER */
cl_object V7;
V7= cl_rest(V3) /* REST */;
V6= Cnil;
{cl_object V8; /* I */
V8= MAKE_FIXNUM(0);
if(!(ecl_endp(V7))){
goto L8;}
goto L7;
L8:;
V6= cl_car(V7) /* CAR */;
V7= cl_cdr(V7) /* CDR */;
L6:;
if(!(ecl_equal(V4,V6))){
goto L15;}
T0= cl_first(V3) /* FIRST */;
T1= ecl_nth(fixint(V8),lex0[1]);
V5= CONS(T0,T1);
goto L3;
L15:;
if(!(ecl_endp(V7))){
goto L18;}
goto L7;
L18:;
V6= cl_car(V7) /* CAR */;
V7= cl_cdr(V7) /* CDR */;
V8= ecl_one_plus(V8);
goto L6;
L7:;
V5= Cnil;
goto L3;
}
}
L3:;
if((V5)==Cnil){
goto L30;}
if(!(ecl_number_compare(V2,lex0[3])<0)){
goto L30;}
T1= ecl_one_plus(V2);
T0= LC1leter_iter(lex0,lex0[2],T1) /* LETER-ITER */;
value0=CONS(V5,T0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L30:;
if((V5)==Cnil){
goto L36;}
value0=ecl_list1(V5); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L36:;
if((cl_rest(V1) /* REST */)==Cnil){
goto L39;}
V1= cl_rest(V1) /* REST */;
goto TTL;
L39:;
if(!(ecl_number_compare(V2,lex0[3])<0)){
goto L45;}
T1= ecl_one_plus(V2);
T0= LC1leter_iter(lex0,lex0[2],T1) /* LETER-ITER */;
value0=CONS(Cnil,T0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L45:;
value0=Cnil; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for IN-BIN-KOI-7 */
static cl_object L3in_bin_koi_7(cl_object V1)
{ VT4 VLEX4 CLSR4 STCK4
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[6],Cnil);
TTL:
{cl_object V2;
cl_object V3;
V3= ecl_function_dispatch(cl_env_copy,VV[5])(1,V1) /* IN-KOI-7 */;
V2= Cnil;
{cl_object V4;
cl_object V5;
V4= ecl_list1(Cnil);
V5= V4;
L5:;
if(!(ecl_endp(V3))){
goto L7;}
goto L6;
L7:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
T0= V5;
T1= ecl_function_dispatch(cl_env_copy,VV[7])(1,V2) /* HEX-STR->BIN */;
V5= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V5;
goto L5;
L6:;
value0=cl_cdr(V4) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for HEX-STR->BIN */
static cl_object L4hex_str__bin(cl_object V1)
{ VT5 VLEX5 CLSR5 STCK5
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[7],Cnil);
TTL:
{cl_object V2; /* HEX */
V2= cl_parse_integer(5,V1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(16),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
if((V2)==Cnil){
goto L3;}
value0=cl_write_to_string(3,V2,ECL_SYM("BASE",1174),MAKE_FIXNUM(2)) /* WRITE-TO-STRING */;
ecl_ihs_pop(cl_env_copy);
return value0;
L3:;
value0=VV[4]; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for LIST-OF-PAIRS->LIST-OF-STRING */
static cl_object L5list_of_pairs__list_of_string(cl_object V1)
{ VT6 VLEX6 CLSR6 STCK6
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[9],Cnil);
TTL:
{cl_object V2;
cl_object V3;
V2= Cnil;
V3= V1;
{cl_object V4;
cl_object V5;
V4= ecl_list1(Cnil);
V5= V4;
L4:;
if(!(ecl_endp(V3))){
goto L6;}
goto L5;
L6:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
T0= V5;
T2= cl_car(V2) /* CAR */;
T3= cl_cdr(V2) /* CDR */;
T1= cl_format(4,Cnil,VV[8],T2,T3) /* FORMAT */;
V5= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V5;
goto L4;
L5:;
value0=cl_cdr(V4) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for IN-STRING */
static cl_object L6in_string(cl_object V1)
{ VT7 VLEX7 CLSR7 STCK7
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[11],Cnil);
TTL:
{cl_object V2; /* EL */
cl_object V3;
V2= Cnil;
V3= V1;
{cl_object V4; /* STR */
V4= Cnil;
if(!(ecl_endp(V3))){
goto L4;}
goto L3;
L4:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
V4= V2;
L2:;
if(!(ecl_endp(V3))){
goto L13;}
goto L3;
L13:;
V2= cl_car(V3) /* CAR */;
V3= cl_cdr(V3) /* CDR */;
V4= cl_format(4,Cnil,VV[10],V4,V2) /* FORMAT */;
goto L2;
L3:;
value0=V4; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}}
/* function definition for XOR-LISTS-OF-BIN-STR */
static cl_object L7xor_lists_of_bin_str(cl_object V1, cl_object V2)
{ VT8 VLEX8 CLSR8 STCK8
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[12],Cnil);
TTL:
{cl_object V3;
cl_object V4;
V3= Cnil;
V4= V1;
{cl_object V5;
cl_object V6;
V5= Cnil;
V6= V2;
{cl_object V7;
cl_object V8;
V7= ecl_list1(Cnil);
V8= V7;
L4:;
if(!(ecl_endp(V4))){
goto L6;}
goto L5;
L6:;
V3= cl_car(V4) /* CAR */;
V4= cl_cdr(V4) /* CDR */;
if(!(ecl_endp(V6))){
goto L13;}
goto L5;
L13:;
V5= cl_car(V6) /* CAR */;
V6= cl_cdr(V6) /* CDR */;
T0= V8;
T1= ecl_function_dispatch(cl_env_copy,VV[14])(2,V3,V5) /* XOR-BIT-STR */;
V8= ecl_list1(T1);
if (ecl_unlikely(ATOM(T0)))FEtype_error_cons(T0);
ECL_CONS_CDR(T0) = V8;
goto L4;
L5:;
value0=cl_cdr(V7) /* CDR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}
}
}}
/* function definition for XOR-BIT-STR */
static cl_object L8xor_bit_str(cl_narg narg, cl_object V1, cl_object V2, ...)
{ VT9 VLEX9 CLSR9 STCK9
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
if (ecl_unlikely(narg<2)) FEwrong_num_arguments_anonym();
if (ecl_unlikely(narg>4)) FEwrong_num_arguments_anonym();
{
cl_object V3;
cl_object V4;
va_list args; va_start(args,V2);
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[14],Cnil);{int i=2;
if (i >= narg) {
V3= MAKE_FIXNUM(0);
} else {
i++;
V3= va_arg(args,cl_object);
}
if (i >= narg) {
{cl_fixnum V5;
V5= ecl_length(V1);
{cl_fixnum V6;
V6= ecl_length(V2);
V4= MAKE_FIXNUM((V5)<=(V6)?V5:V6);}}
} else {
i++;
V4= va_arg(args,cl_object);
}}
va_end(args);
if(!(ecl_number_equalp(V3,V4))){
goto L4;}
value0=VV[4]; cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L4:;
{cl_object V5; /* B1 */
cl_object V6; /* NIL */
cl_object V7; /* B2 */
T0= ecl_elt(V1,fix(V3));
T1= cl_string(T0) /* STRING */;
V6= cl_parse_integer(5,T1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(2),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
T0= ecl_elt(V2,fix(V3));
T1= cl_string(T0) /* STRING */;
V7= cl_parse_integer(5,T1,ECL_SYM("RADIX",1263),MAKE_FIXNUM(2),ECL_SYM("JUNK-ALLOWED",1231),Ct) /* PARSE-INTEGER */;
V5= V6;
if((V5)==Cnil){
goto L9;}
if((V7)==Cnil){
goto L9;}
T0= ecl_function_dispatch(cl_env_copy,VV[15])(2,V5,V7) /* XOR */;
T1= ecl_one_plus(V3);
T2= ecl_function_dispatch(cl_env_copy,VV[14])(3,V1,V2,T1) /* XOR-BIT-STR */;
value0=cl_format(4,Cnil,VV[8],T0,T2) /* FORMAT */;
ecl_ihs_pop(cl_env_copy);
return value0;
L9:;
T0= ecl_one_plus(V3);
T1= ecl_function_dispatch(cl_env_copy,VV[14])(3,V1,V2,T0) /* XOR-BIT-STR */;
value0=cl_format(3,Cnil,VV[13],T1) /* FORMAT */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for XOR */
static cl_object L9xor(cl_object V1, cl_object V2)
{ VT10 VLEX10 CLSR10 STCK10
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[15],Cnil);
TTL:
if(!(ecl_number_equalp(V1,MAKE_FIXNUM(1)))){
goto L3;}
if(ecl_number_equalp(V2,MAKE_FIXNUM(1))){
goto L1;}
L3:;
if(!(ecl_number_equalp(V1,MAKE_FIXNUM(0)))){
goto L2;}
if(!(ecl_number_equalp(V2,MAKE_FIXNUM(0)))){
goto L2;}
L1:;
value0=MAKE_FIXNUM(0); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
L2:;
value0=MAKE_FIXNUM(1); cl_env_copy->nvalues=1;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for START-GUI */
static cl_object L14start_gui()
{ VT11 VLEX11 CLSR11 STCK11
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[32],Cnil);
TTL:
if((ecl_symbol_value(VV[0]))==Cnil){
goto L1;}
{cl_object V1;
V1= ecl_function_dispatch(cl_env_copy,VV[61])(1,VV[17]) /* QLOAD-UI */;
cl_set(VV[16],V1);
}
L1:;
T0= cl_list(2,MAKE_FIXNUM(50),MAKE_FIXNUM(50)) /* LIST */;
(void)ecl_function_dispatch(cl_env_copy,VV[63])(3,ecl_symbol_value(VV[16]),VV[18],T0) /* QSET */;
T0= cl_list(2,MAKE_FIXNUM(700),MAKE_FIXNUM(500)) /* LIST */;
(void)ecl_function_dispatch(cl_env_copy,VV[63])(3,ecl_symbol_value(VV[16]),VV[19],T0) /* QSET */;
{cl_object V1; /* LISP-LOGO */
cl_object V2; /* NIL */
cl_object V3; /* NIL */
cl_object V4; /* NIL */
cl_object V5; /* NIL */
cl_object V6; /* NIL */
cl_object V7; /* NIL */
cl_object V8; /* NIL */
cl_object V9; /* NIL */
cl_object V10; /* NIL */
cl_object V11; /* NIL */
V2= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[20]) /* QFIND-CHILD */;
V3= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[21]) /* QFIND-CHILD */;
V4= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[22]) /* QFIND-CHILD */;
V5= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[23]) /* QFIND-CHILD */;
V6= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[24]) /* QFIND-CHILD */;
V7= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[25]) /* QFIND-CHILD */;
V8= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[26]) /* QFIND-CHILD */;
V9= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[27]) /* QFIND-CHILD */;
V10= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[28]) /* QFIND-CHILD */;
V11= ecl_function_dispatch(cl_env_copy,VV[64])(2,ecl_symbol_value(VV[16]),VV[29]) /* QFIND-CHILD */;
V1= V2;
env0 = Cnil;
CLV0=env0=CONS(V3,env0); /* SET-MSG-EDIT */
CLV1=env0=CONS(V4,env0); /* GET-MSG-EDIT */
CLV2=env0=CONS(V5,env0); /* SET-CODE-OUT */
CLV3=env0=CONS(V6,env0); /* GET-CODE-OUT */
CLV4=env0=CONS(V7,env0); /* XOR-CODES-OUT */
CLV5=env0=CONS(V8,env0); /* SET-SYMBOLS-COUNT */
CLV6=env0=CONS(V9,env0); /* GET-SYMBOLS-COUNT */
CLV7=env0=CONS(V10,env0); /* SET-BITS-COUNT */
CLV8=env0=CONS(V11,env0); /* GET-BITS-COUNT */
T0= ecl_make_cclosure_va((cl_objectfn)LC10__g20,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV0),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC11__g21,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV1),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC12__g22,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV2),VV[30],T0) /* QCONNECT */;
T0= ecl_make_cclosure_va((cl_objectfn)LC13__g23,env0,Cblock);
(void)ecl_function_dispatch(cl_env_copy,VV[65])(3,ECL_CONS_CAR(CLV3),VV[30],T0) /* QCONNECT */;
(void)ecl_function_dispatch(cl_env_copy,VV[39])(1,V1) /* SET-LISP-LOGO */;
}
value0=ecl_function_dispatch(cl_env_copy,VV[66])(2,ecl_symbol_value(VV[16]),VV[31]) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* closure G20 */
static cl_object LC10__g20(cl_narg narg, ...)
{ VT12 VLEX12 CLSR12 STCK12
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8); /* SET-BITS-COUNT */
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5);
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[67],Cnil);
TTL:
(void)ecl_function_dispatch(cl_env_copy,VV[41])(3,ECL_CONS_CAR(CLV5),ECL_CONS_CAR(CLV7),ECL_CONS_CAR(CLV0)) /* UPDATE-SYMBOLS-AND-BIT-COUNTS */;
value0=ecl_function_dispatch(cl_env_copy,VV[44])(2,ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV0)) /* UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G21 */
static cl_object LC11__g21(cl_narg narg, ...)
{ VT13 VLEX13 CLSR13 STCK13
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0; /* GET-BITS-COUNT */
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5);
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[68],Cnil);
TTL:
(void)ecl_function_dispatch(cl_env_copy,VV[41])(3,ECL_CONS_CAR(CLV6),ECL_CONS_CAR(CLV8),ECL_CONS_CAR(CLV1)) /* UPDATE-SYMBOLS-AND-BIT-COUNTS */;
value0=ecl_function_dispatch(cl_env_copy,VV[44])(2,ECL_CONS_CAR(CLV3),ECL_CONS_CAR(CLV1)) /* UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G22 */
static cl_object LC12__g22(cl_narg narg, ...)
{ VT14 VLEX14 CLSR14 STCK14
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5); /* XOR-CODES-OUT */
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[69],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[50])(3,ECL_CONS_CAR(CLV4),ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV3)) /* UPDATE-XOR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* closure G23 */
static cl_object LC13__g23(cl_narg narg, ...)
{ VT15 VLEX15 CLSR15 STCK15
const cl_env_ptr cl_env_copy = ecl_process_env();cl_object env0 = cl_env_copy->function->cclosure.env;
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
/* Scanning closure data ... */
CLV8=env0;
CLV7=CDR(CLV8);
CLV6=CDR(CLV7);
CLV5=CDR(CLV6);
CLV4=CDR(CLV5); /* XOR-CODES-OUT */
CLV3=CDR(CLV4);
CLV2=CDR(CLV3);
CLV1=CDR(CLV2);
CLV0=CDR(CLV1);
{ /* ... closure scanning finished */
if (ecl_unlikely(narg!=0)) FEwrong_num_arguments_anonym();
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[70],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[50])(3,ECL_CONS_CAR(CLV4),ECL_CONS_CAR(CLV2),ECL_CONS_CAR(CLV3)) /* UPDATE-XOR */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}}
/* function definition for SET-LISP-LOGO */
static cl_object L15set_lisp_logo(cl_object V1)
{ VT16 VLEX16 CLSR16 STCK16
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[39],Cnil);
TTL:
{cl_object V2; /* LISP-PIX */
V2= ecl_function_dispatch(cl_env_copy,VV[72])(2,VV[33],VV[34]) /* QNEW */;
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V1,VV[37]) /* QGET */;
T1= ecl_function_dispatch(cl_env_copy,VV[73])(2,V1,VV[38]) /* QGET */;
T2= ecl_function_dispatch(cl_env_copy,VV[66])(4,V2,VV[36],T0,T1) /* QFUN */;
value0=ecl_function_dispatch(cl_env_copy,VV[66])(3,V1,VV[35],T2) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for UPDATE-SYMBOLS-AND-BIT-COUNTS */
static cl_object L16update_symbols_and_bit_counts(cl_object V1, cl_object V2, cl_object V3)
{ VT17 VLEX17 CLSR17 STCK17
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[41],Cnil);
TTL:
{cl_fixnum V4; /* SYMBOLS-N */
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V3,VV[40]) /* QGET */;
V4= ecl_length(T0);
(void)ecl_function_dispatch(cl_env_copy,VV[43])(2,V1,MAKE_FIXNUM(V4)) /* UPDATE-LCD */;
T0= ecl_times(MAKE_FIXNUM(V4),ecl_symbol_value(VV[1]));
value0=ecl_function_dispatch(cl_env_copy,VV[43])(2,V2,T0) /* UPDATE-LCD */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}
}}
/* function definition for UPDATE-LCD */
static cl_object L17update_lcd(cl_object V1, cl_object V2)
{ VT18 VLEX18 CLSR18 STCK18
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[43],Cnil);
TTL:
value0=ecl_function_dispatch(cl_env_copy,VV[63])(3,V1,VV[42],V2) /* QSET */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for UPDATE-TEXT-EDIT-FROM-IN-KOI-7 */
static cl_object L18update_text_edit_from_in_koi_7(cl_object V1, cl_object V2)
{ VT19 VLEX19 CLSR19 STCK19
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[44],Cnil);
TTL:
T0= ecl_function_dispatch(cl_env_copy,VV[73])(2,V2,VV[40]) /* QGET */;
T1= ecl_function_dispatch(cl_env_copy,VV[6])(1,T0) /* IN-BIN-KOI-7 */;
T2= ecl_function_dispatch(cl_env_copy,VV[11])(1,T1) /* IN-STRING */;
value0=ecl_function_dispatch(cl_env_copy,VV[63])(3,V1,VV[40],T2) /* QSET */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
/* function definition for UPDATE-XOR */
static cl_object L19update_xor(cl_object V1, cl_object V2, cl_object V3)
{ VT20 VLEX20 CLSR20 STCK20
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
struct ihs_frame ihs;
ecl_cs_check(cl_env_copy,value0);
{
{
ecl_ihs_push(cl_env_copy,&ihs;,VV[50],Cnil);
TTL:
{cl_object V4; /* STR */
V4= cl_make_string_output_stream(0) /* MAKE-STRING-OUTPUT-STREAM */;
{cl_object V5; /* CH */
cl_object V6;
cl_fixnum V7;
cl_fixnum V8;
T1= ecl_function_dispatch(cl_env_copy,VV[73])(2,V2,VV[40]) /* QGET */;
T2= ecl_function_dispatch(cl_env_copy,VV[73])(2,V3,VV[40]) /* QGET */;
V6= ecl_function_dispatch(cl_env_copy,VV[14])(2,T1,T2) /* XOR-BIT-STR */;
V7= 0;
V8= 0;
V5= Cnil;
{cl_object V9; /* COLOR */
V9= VV[46];
V8= ecl_length(V6);
L8:;
if(!((V7)>=(V8))){
goto L12;}
goto L9;
L12:;
V5= ecl_aref1(V6,V7);
V7= (V7)+1;
if(!(ecl_char_code(V5)==ecl_char_code(CODE_CHAR('\61')))){
goto L22;}
if(ecl_equal(V9,VV[47])){
goto L22;}
(void)cl_write_string(2,VV[48],V4) /* WRITE-STRING */;
V9= VV[47];
goto L20;
L22:;
if(ecl_equal(V9,VV[46])){
goto L20;}
(void)cl_write_string(2,VV[49],V4) /* WRITE-STRING */;
V9= VV[46];
L20:;
T1= cl_string(V5) /* STRING */;
(void)cl_write_string(2,T1,V4) /* WRITE-STRING */;
goto L8;
L9:;
goto L3;
}
}
L3:;
T0= cl_get_output_stream_string(V4) /* GET-OUTPUT-STREAM-STRING */;
}
value0=ecl_function_dispatch(cl_env_copy,VV[66])(3,V1,VV[45],T0) /* QFUN */;
ecl_ihs_pop(cl_env_copy);
return value0;
}
}}
#include "c:/home/sources/study/pdi/koi7.data"
#ifdef __cplusplus
extern "C"
#endif
ECL_DLLEXPORT void init_fas_CODE(cl_object flag)
{ VT1 VLEX1 CLSR1 STCK1
const cl_env_ptr cl_env_copy = ecl_process_env();
cl_object value0;
cl_object *VVtemp;
if (!FIXNUMP(flag)){
Cblock=flag;
#ifndef ECL_DYNAMIC_VV
flag->cblock.data = VV;
#endif
flag->cblock.data_size = VM;
flag->cblock.temp_data_size = VMtemp;
flag->cblock.data_text = compiler_data_text;
flag->cblock.data_text_size = compiler_data_text_size;
flag->cblock.cfuns_size = compiler_cfuns_size;
flag->cblock.cfuns = compiler_cfuns;
flag->cblock.source = make_constant_base_string("c:/home/sources/study/pdi/koi7.lisp");
return;}
#ifdef ECL_DYNAMIC_VV
VV = Cblock->cblock.data;
#endif
Cblock->cblock.data_text = "@EcLtAg:init_fas_CODE@";
VVtemp = Cblock->cblock.temp_data;
(void)ecl_function_dispatch(cl_env_copy,VV[51])(10,VVtemp[0],Cnil,Cnil,VVtemp[1],Cnil,Cnil,VVtemp[2],Cnil,Cnil,Cnil) /* DODEFPACKAGE */;
(void)si_select_package(VVtemp[0]) /* SELECT-PACKAGE */;
(void)si_Xmake_special(VV[0]) /* *MAKE-SPECIAL */;
cl_set(VV[0],Ct);
(void)si_Xmake_special(VV[1]) /* *MAKE-SPECIAL */;
cl_set(VV[1],MAKE_FIXNUM(7));
(void)si_Xmake_special(VV[2]) /* *MAKE-SPECIAL */;
cl_set(VV[2],VVtemp[3]);
(void)si_Xmake_special(VV[3]) /* *MAKE-SPECIAL */;
cl_set(VV[3],ecl_symbol_value(ECL_SYM("*STANDARD-OUTPUT*",65)));
ecl_cmp_defun(VV[52]);
ecl_cmp_defun(VV[54]);
ecl_cmp_defun(VV[55]);
ecl_cmp_defun(VV[56]);
ecl_cmp_defun(VV[57]);
ecl_cmp_defun(VV[58]);
ecl_cmp_defun(VV[59]);
ecl_cmp_defun(VV[60]);
(void)si_Xmake_special(VV[16]) /* *MAKE-SPECIAL */;
cl_set(VV[16],ecl_function_dispatch(cl_env_copy,VV[61])(1,VVtemp[4]) /* QLOAD-UI */);
ecl_cmp_defun(VV[62]);
ecl_cmp_defun(VV[71]);
ecl_cmp_defun(VV[74]);
ecl_cmp_defun(VV[75]);
ecl_cmp_defun(VV[76]);
ecl_cmp_defun(VV[77]);
}
Revise this Paste