/* {XM_DTD_CALLBACKS_NULL}.on_dtd_processing_instruction */
void F2235_30302 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "on_dtd_processing_instruction";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,Current);
RTLIU(3);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2234, Current, 0, 2, 35084);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2234, Current, 35084);
if (arg1) {
RTCC(arg1, 2234, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2234, l_feature_name, 2, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("name_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("content_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef arg2
#undef arg1
}
/* {XM_DTD_CALLBACKS_NULL}.on_doctype */
void F2235_30297 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x)
{
GTCX
char *l_feature_name = "on_doctype";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
#define arg3 arg3x.it_b
RTSN;
RTDA;
RTLD;
if ((arg3x.type & SK_HEAD) == SK_REF) arg3x.it_b = * (EIF_BOOLEAN *) arg3x.it_r;
RTLI(3);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,Current);
RTLIU(3);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU(SK_BOOL,&arg3);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2234, Current, 0, 3, 35079);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2234, Current, 35079);
if (arg1) {
RTCC(arg1, 2234, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2234, l_feature_name, 2, eif_new_type(2368, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_name_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(5);
RTEE;
#undef arg3
#undef arg2
#undef arg1
}
/* {EQA_PARTIAL_RESULT}.correct_mismatch */
void F998_9054 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "correct_mismatch";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,loc1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLIU(5);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 997, Current, 1, 0, 14456);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(997, Current, 14456);
RTIV(Current, RTAL);
RTHOOK(1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3278, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(1,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6595, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr2);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1741, "item", tr1))(tr1, ur1x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
loc1 = RTCCL(tr2);
loc1 = RTRV(RTWCT(6589, dtype, Dftype(Current)),loc1);
if (EIF_TEST(loc1)) {
RTHOOK(2);
RTDBGAA(Current, dtype, 6589, 0xF80000E4, 0); /* output */
tr1 = RTLN(eif_new_type(228, 0x00).id);
tr2 = RTLN(eif_new_type(220, 0x01).id);
ur1 = loc1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4439, Dtype(tr2)))(tr2, ur1x);
RTNHOOK(2,1);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4439, Dtype(tr1)))(tr1, ur1x);
RTNHOOK(2,2);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(6589, dtype)) = (EIF_REFERENCE) tr1;
} else {
/* {APP}.dofromelena */
void F864_6997 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "dofromelena";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui8_1x = {{0}, SK_INT64};
#define ui8_1 ui8_1x.it_i8
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_64 ti8_1;
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,loc1);
RTLR(1,tr1);
RTLR(2,ur1);
RTLR(3,Current);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 863, Current, 1, 0, 12678);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(863, Current, 12678);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 1, 0xF800035E, 0, 0); /* loc1 */
tr1 = RTLN(eif_new_type(862, 0x01).id);
ti8_1 = (EIF_INTEGER_64) ((EIF_INTEGER_32) 0L);
ui8_1 = ti8_1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4921, Dtype(tr1)))(tr1, ui8_1x);
RTNHOOK(1,1);
loc1 = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(2);
ti8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4922, "getsolution", loc1))(loc1)).it_i8);
ur1 = RTLN(eif_new_type(188, 0x00).id);
*(EIF_INTEGER_64 *)ur1 = ti8_1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, Dtype(Current)))(Current, ur1x);
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ur1
#undef ui8_1
}
/* {NODE}.setright */
void F861_6974 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "setright";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_REFERENCE tr1 = NULL;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLIU(3);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 860, Current, 0, 1, 12660);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(860, Current, 12660);
if (arg1) {
RTCC(arg1, 860, l_feature_name, 1, eif_new_type(860, 0x00), 0x00);
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, dtype, 4900, 0xF800035C, 0); /* right */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(4900, dtype)) = (EIF_REFERENCE) RTCCL(arg1);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT(NULL, EX_POST);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4900, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if (RTCEQ(tr1, arg1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef up1
#undef arg1
}
/* {WEL_STRUCTURE}.make */
void F989_8698 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "make";
RTEX;
EIF_POINTER loc1 = (EIF_POINTER) 0;
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_POINTER tp1;
EIF_POINTER tp2;
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,tr2);
RTLR(3,ur1);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTLU(SK_POINTER, &loc1);
RTEAA(l_feature_name, 988, Current, 1, 0, 14119);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(988, Current, 14119);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, dtype, 6330, 0x40000000, 1); /* item */
tp1 = *(EIF_POINTER *)(Current + RTWA(6330, dtype));
ui4_1 = ((EIF_INTEGER_32) 1L);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6351, dtype))(Current)).it_i4);
ui4_2 = ti4_1;
tp2 = calloc((size_t)ui4_1, (size_t) ui4_2);
*(EIF_POINTER *)(Current + RTWA(6330, dtype)) = (EIF_POINTER) tp2;
RTHOOK(2);
tp1 = *(EIF_POINTER *)(Current + RTWA(6330, dtype));
if ((EIF_BOOLEAN)(tp1 == loc1)) {
RTHOOK(3);
tr1 = RTLN(eif_new_type(61, 0x01).id);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
RTNHOOK(3,1);
tr2 = RTMS_EX_H("No more memory",14,904766585);
ur1 = tr2;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1249, "raise", tr1))(tr1, ur1x);
}
/* {EQA_SYSTEM_TEST_SET}.inline-agent#1 of run_system */
void F937_9465 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "inline-agent#1 of run_system";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,ur1);
RTLR(3,Current);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 936, Current, 0, 2, 13437);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(936, Current, 13437);
RTCC(arg1, 936, l_feature_name, 1, eif_new_type(220, 0x01), 0x01);
RTCC(arg2, 936, l_feature_name, 2, RTWCT(5742, Dtype(Current), Dftype(Current)), 0x01);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_arg_attached", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
ur1 = RTCCL(arg1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(5682, "add_argument", arg2))(arg2, ur1x);
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef ur1
#undef arg2
#undef arg1
}
EIF_TYPED_VALUE F2252_30453 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "std";
RTEX;
EIF_REFERENCE tr1 = NULL;
RTCDD;
RTSN;
RTDA;
RTLD;
#define Result RTOTRR
RTOTDR(F2252_30453);
dtype = Dtype(Current);
RTLI(2);
RTLR(0,tr1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2251, Current, 0, 0, 35216);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2251, Current, 35216);
RTIV(Current, RTAL);
RTOTP;
RTHOOK(1);
RTDBGAL(Current, 0, 0xF8000899, 0,0); /* Result */
tr1 = RTLN(eif_new_type(2201, 0x00).id);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
RTNHOOK(1,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("std_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTOTE;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef Result
}
EIF_TYPED_VALUE F2351_33097 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "windows_backslash_only_file_system";
RTEX;
EIF_REFERENCE tr1 = NULL;
RTCDD;
RTSN;
RTDA;
RTLD;
#define Result RTOTRR
RTOTDR(F2351_33097);
dtype = Dtype(Current);
RTLI(2);
RTLR(0,tr1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2350, Current, 0, 0, 38346);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2350, Current, 38346);
RTIV(Current, RTAL);
RTOTP;
RTHOOK(1);
RTDBGAL(Current, 0, 0xF8000945, 0,0); /* Result */
tr1 = RTLN(eif_new_type(2373, 0x00).id);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(25939, Dtype(tr1)))(tr1);
RTNHOOK(1,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("file_system_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTOTE;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef Result
}
/* {KNOT}.setright */
void F861_6979 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "setright";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,loc1);
RTLR(3,ur1);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 860, Current, 1, 1, 12653);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(860, Current, 12653);
if (arg1) {
RTCC(arg1, 860, l_feature_name, 1, eif_new_type(860, 0x00), 0x00);
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, Dtype(Current), 4901, 0xF800035C, 0); /* rightknot */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(4901, Dtype(Current))) = (EIF_REFERENCE) RTCCL(arg1);
RTHOOK(2);
loc1 = RTCCL(arg1);
if (EIF_TEST(loc1)) {
RTHOOK(3);
ur1 = RTCCL(Current);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4910, "setfather", loc1))(loc1, ur1x);
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(4);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef ur1
#undef arg1
}
/* {EQA_EXTERNALS}.invoke_routine */
void F962_8217 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "invoke_routine";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_i4
RTSN;
RTDA;
RTLD;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r;
RTLI(2);
RTLR(0,arg1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_INT32,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 961, Current, 0, 2, 13644);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 1);
RTDBGEAA(961, Current, 13644);
RTCC(arg1, 961, l_feature_name, 1, eif_new_type(935, 0x01), 0x01);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_test_set_attached", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("a_body_id_not_negative", EX_PRE);
RTTE((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
eif_builtin_EQA_EXTERNALS_invoke_routine (arg1, arg2);
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(1);
RTLE;
RTLO(4);
RTEE;
#undef arg2
#undef arg1
}
/* {BINARYTREE}.add */
void F862_6983 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "add";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
#define arg1 arg1x.it_i4
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_REFERENCE tr1 = NULL;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(4);
RTLR(0,loc1);
RTLR(1,tr1);
RTLR(2,Current);
RTLR(3,ur1);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU(SK_INT32,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 861, Current, 1, 1, 12664);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(861, Current, 12664);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 1, 0xF800035C, 0, 0); /* loc1 */
tr1 = RTLN(eif_new_type(860, 0x01).id);
ui4_1 = arg1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4902, Dtype(tr1)))(tr1, ui4_1x);
RTNHOOK(1,1);
loc1 = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(2);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4910, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if ((EIF_BOOLEAN)(tr1 != NULL)) {
RTHOOK(3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4910, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
ui4_1 = arg1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(4914, dtype))(Current, ur1x, ui4_1x);
} else {
/* {ITP_CONSTANT}.process */
void F958_8149 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "process";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,ur1);
RTLIU(3);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 957, Current, 0, 1, 13588);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(957, Current, 13588);
RTCC(arg1, 957, l_feature_name, 1, eif_new_type(911, 0x01), 0x01);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_processor_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
ur1 = RTCCL(Current);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(5373, "process_constant", arg1))(arg1, ur1x);
RTVI(Current, RTAL);
RTRS;
RTHOOK(3);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ur1
#undef arg1
}
/* {NETWORK_SOCKET_ADDRESS}.set_host_address */
void F966_8355 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_host_address";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,ur1);
RTLR(2,Current);
RTLIU(3);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 965, Current, 0, 1, 13783);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(965, Current, 13783);
RTCC(arg1, 965, l_feature_name, 1, eif_new_type(958, 0x01), 0x01);
RTIV(Current, RTAL);
RTHOOK(1);
ur1 = RTCCL(arg1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6071, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(6066, dtype))(Current, ur1x, ui4_1x);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef ur1
#undef ui4_1
#undef arg1
}
/* {BUILDING}.set_name */
void F2318_31700 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "set_name";
RTEX;
#define arg1 arg1x.it_r
RTSN;
RTDA;
RTLD;
RTLI(2);
RTLR(0,arg1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2317, Current, 0, 1, 36785);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2317, Current, 36785);
if (arg1) {
RTCC(arg1, 2317, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, Dtype(Current), 24934, 0xF8000393, 0); /* name */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(24934, Dtype(Current))) = (EIF_REFERENCE) RTCCL(arg1);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef arg1
}
/* {NODE}.setparent */
void F861_6975 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "setparent";
RTEX;
#define arg1 arg1x.it_r
RTSN;
RTDA;
RTLD;
RTLI(2);
RTLR(0,arg1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 860, Current, 0, 1, 12649);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(860, Current, 12649);
if (arg1) {
RTCC(arg1, 860, l_feature_name, 1, eif_new_type(860, 0x00), 0x00);
}
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAA(Current, Dtype(Current), 4901, 0xF800035C, 0); /* parent */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(4901, Dtype(Current))) = (EIF_REFERENCE) RTCCL(arg1);
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef arg1
}
/* {APP}.is_number */
EIF_TYPED_VALUE F864_6996 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "is_number";
RTEX;
#define arg1 arg1x.it_r
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTSN;
RTDA;
RTLD;
RTLI(2);
RTLR(0,arg1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_BOOL, &Result);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 863, Current, 0, 1, 12677);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(863, Current, 12677);
RTCC(arg1, 863, l_feature_name, 1, eif_new_type(220, 0x01), 0x01);
RTIV(Current, RTAL);
RTVI(Current, RTAL);
RTRS;
RTHOOK(1);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef arg1
}
/* {XM_FORWARD_CALLBACKS}.on_start */
void F2262_30530 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "on_start";
RTEX;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_REFERENCE tr1 = NULL;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTLIU(2);
RTLU (SK_VOID, NULL);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2261, Current, 0, 0, 35291);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2261, Current, 35291);
RTIV(Current, RTAL);
RTHOOK(1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24183, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if ((EIF_BOOLEAN)(tr1 == NULL)) {
RTHOOK(2);
RTDBGAA(Current, dtype, 24183, 0xF80008D2, 0); /* callbacks */
tr1 = RTLN(eif_new_type(2259, 0x00).id);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(24143, Dtype(tr1)))(tr1);
RTNHOOK(2,1);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(24183, dtype)) = (EIF_REFERENCE) RTCCL(tr1);
}
/* {KL_CHARACTER_BUFFER}.substring */
EIF_TYPED_VALUE F2310_31574 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "substring";
RTEX;
#define arg1 arg1x.it_i4
#define arg2 arg2x.it_i4
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r;
RTLI(6);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,Result);
RTLR(3,tr2);
RTLR(4,ur1);
RTLR(5,ur2);
RTLIU(6);
RTLU (SK_REF, &Result);
RTLU(SK_INT32,&arg1);
RTLU(SK_INT32,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2309, Current, 0, 2, 36656);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2309, Current, 36656);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("s_large_enough", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 >= ((EIF_INTEGER_32) 1L)), label_1);
RTCK;
RTHOOK(2);
RTCT("e_small_enough", EX_PRE);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(23888, dtype))(Current)).it_i4);
RTTE((EIF_BOOLEAN) (arg2 <= ti4_1), label_1);
RTCK;
RTHOOK(3);
RTCT("valid_interval", EX_PRE);
RTTE((EIF_BOOLEAN) (arg1 <= (EIF_INTEGER_32) (arg2 + ((EIF_INTEGER_32) 1L))), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(4);
if ((EIF_BOOLEAN) (arg2 < arg1)) {
RTHOOK(5);
RTDBGAL(Current, 0, 0xF8000393, 0,0); /* Result */
tr1 = RTLN(eif_new_type(915, 0x00).id);
ui4_1 = ((EIF_INTEGER_32) 0L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(15063, Dtype(tr1)))(tr1, ui4_1x);
RTNHOOK(5,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
} else {
/* {BUILDING_VIEW}.make_in_city */
void F2280_31260 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "make_in_city";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,tr1);
RTLR(3,tr2);
RTLR(4,ur1);
RTLR(5,Current);
RTLIU(6);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2279, Current, 0, 2, 36326);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2279, Current, 36326);
if (arg1) {
RTCC(arg1, 2279, l_feature_name, 1, eif_new_type(2317, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2279, l_feature_name, 2, eif_new_type(2249, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_map_exists", EX_PRE);
RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("a_map_has_building", EX_PRE);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(24084, "city", arg2))(arg2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(2,1);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(23588, "buildings", tr1))(tr1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(2,2);
ur1 = RTCCL(arg1);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(24423, "has", tr2))(tr2, ur1x)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAA(Current, dtype, 24578, 0xF800090D, 0); /* model */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(24578, dtype)) = (EIF_REFERENCE) RTCCL(arg1);
RTHOOK(4);
RTDBGAA(Current, dtype, 24547, 0xF80008C9, 0); /* map */
RTAR(Current, arg2);
*(EIF_REFERENCE *)(Current + RTWA(24547, dtype)) = (EIF_REFERENCE) RTCCL(arg2);
RTHOOK(5);
RTDBGAA(Current, dtype, 24577, 0xF800038C, 0); /* blob */
tr1 = RTLNSMART(RTWCT(24577, dtype, Dftype(Current)).id);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWC(32, Dtype(tr1)))(tr1);
RTNHOOK(5,1);
RTAR(Current, tr1);
*(EIF_REFERENCE *)(Current + RTWA(24577, dtype)) = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(6);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24577, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(6,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24576, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15027, "set_background_color", tr1))(tr1, ur1x);
RTHOOK(7);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24577, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(7,1);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24576, dtype))(Current)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(14972, "set_foreground_color", tr1))(tr1, ur1x);
RTHOOK(8);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(24117, "building_figures", arg2))(arg2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(8,1);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24577, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr2);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(8520, "extend", tr1))(tr1, ur1x);
RTHOOK(9);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(24553, dtype))(Current);
RTHOOK(10);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTWF(24053, dtype))(Current);
RTHOOK(11);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24577, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(24063, dtype))(Current, ur1x);
RTVI(Current, RTAL);
RTRS;
RTHOOK(12);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
#undef up1
#undef up2
#undef ur1
#undef arg2
#undef arg1
}
EIF_TYPED_VALUE F2280_31267 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "color";
RTEX;
EIF_TYPED_VALUE ur4_1x = {{0}, SK_REAL32};
#define ur4_1 ur4_1x.it_r4
EIF_TYPED_VALUE ur4_2x = {{0}, SK_REAL32};
#define ur4_2 ur4_2x.it_r4
EIF_TYPED_VALUE ur4_3x = {{0}, SK_REAL32};
#define ur4_3 ur4_3x.it_r4
EIF_REFERENCE tr1 = NULL;
EIF_REAL_32 tr4_1;
EIF_REAL_32 tr4_2;
EIF_REAL_32 tr4_3;
RTSN;
RTDA;
RTLD;
#define Result RTOTRR
RTOTDR(F2280_31267);
RTLI(2);
RTLR(0,tr1);
RTLR(1,Current);
RTLIU(2);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2279, Current, 0, 0, 36333);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(2279, Current, 36333);
RTIV(Current, RTAL);
RTOTP;
RTHOOK(1);
RTDBGAL(Current, 0, 0xF80003C3, 0,0); /* Result */
tr1 = RTLN(eif_new_type(963, 0x00).id);
tr4_1 = (EIF_REAL_32) ((EIF_REAL_64) 0.8);
ur4_1 = tr4_1;
tr4_2 = (EIF_REAL_32) ((EIF_REAL_64) 0.8);
ur4_2 = tr4_2;
tr4_3 = (EIF_REAL_32) ((EIF_REAL_64) 0.8);
ur4_3 = tr4_3;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(16377, Dtype(tr1)))(tr1, ur4_1x, ur4_2x, ur4_3x);
RTNHOOK(1,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
RTVI(Current, RTAL);
RTRS;
RTOTE;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef ur4_1
#undef ur4_2
#undef ur4_3
#undef Result
}
/* {BUILDING}.make */
void F2318_31695 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x)
{
GTCX
char *l_feature_name = "make";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
#define arg3 arg3x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_REFERENCE tr1 = NULL;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,arg3);
RTLR(3,Current);
RTLR(4,tr1);
RTLIU(5);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU(SK_REF,&arg3);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2317, Current, 0, 3, 36780);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2317, Current, 36780);
if (arg1) {
RTCC(arg1, 2317, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2317, l_feature_name, 2, eif_new_type(2370, 0x00), 0x00);
}
if (arg3) {
RTCC(arg3, 2317, l_feature_name, 3, eif_new_type(2370, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("address_exists", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("corners_exists", EX_PRE);
RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN)(arg2 != NULL) && (EIF_BOOLEAN)(arg3 != NULL)), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAA(Current, dtype, 24931, 0xF8000393, 0); /* address */
RTAR(Current, arg1);
*(EIF_REFERENCE *)(Current + RTWA(24931, dtype)) = (EIF_REFERENCE) RTCCL(arg1);
RTHOOK(4);
RTDBGAA(Current, dtype, 24932, 0xF8000942, 0); /* corner_a */
RTAR(Current, arg2);
*(EIF_REFERENCE *)(Current + RTWA(24932, dtype)) = (EIF_REFERENCE) RTCCL(arg2);
RTHOOK(5);
RTDBGAA(Current, dtype, 24933, 0xF8000942, 0); /* corner_b */
RTAR(Current, arg3);
*(EIF_REFERENCE *)(Current + RTWA(24933, dtype)) = (EIF_REFERENCE) RTCCL(arg3);
if (RTAL & CK_ENSURE) {
RTHOOK(6);
RTCT("address_set", EX_POST);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24931, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if (RTCEQ(tr1, arg1)) {
RTCK;
} else {
RTCF;
}
RTHOOK(7);
RTCT("corners_set", EX_POST);
tb1 = '\0';
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24932, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if (RTCEQ(tr1, arg2)) {
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24933, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tb1 = RTCEQ(tr1, arg3);
}
if (tb1) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(8);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(5);
RTEE;
#undef up1
#undef arg3
#undef arg2
#undef arg1
}
/* {CITY_ITEM}.approx_less */
EIF_TYPED_VALUE F2314_31630 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "approx_less";
RTEX;
#define arg1 arg1x.it_r8
#define arg2 arg2x.it_r8
EIF_REFERENCE tr1 = NULL;
EIF_REAL_64 tr8_1;
EIF_REAL_64 tr8_2;
EIF_REAL_64 tr8_3;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_r8 = * (EIF_REAL_64 *) arg2x.it_r;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r8 = * (EIF_REAL_64 *) arg1x.it_r;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTLIU(2);
RTLU (SK_BOOL, &Result);
RTLU(SK_REAL64,&arg1);
RTLU(SK_REAL64,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2313, Current, 0, 2, 36709);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2313, Current, 36709);
RTIV(Current, RTAL);
RTHOOK(1);
if ((EIF_BOOLEAN)(arg2 == (EIF_REAL_64) 0.0)) {
RTHOOK(2);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24199, dtype))(Current)).it_r8);
Result = (EIF_BOOLEAN) (EIF_BOOLEAN) (arg1 < (EIF_REAL_64) -tr8_1);
} else {
RTHOOK(3);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
tr1 = RTLN(eif_new_type(864, 0x00).id);
*(EIF_REAL_64 *)tr1 = arg2;
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14449, "sign", tr1))(tr1)).it_i4);
tr8_1 = (EIF_REAL_64) (ti4_1);
tr8_2 = eif_abs_real64 (arg2);
tr8_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24199, dtype))(Current)).it_r8);
Result = (EIF_BOOLEAN) (EIF_BOOLEAN) ((EIF_REAL_64) (tr8_1 - (EIF_REAL_64) ((EIF_REAL_64) (arg1) / (EIF_REAL_64) (tr8_2))) > tr8_3);
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(4);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef arg2
#undef arg1
}
/* {COLOR}.out */
EIF_TYPED_VALUE F2322_31734 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "out";
RTEX;
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_REFERENCE tr3 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_NATURAL_8 tu1_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,tr2);
RTLR(3,tr3);
RTLR(4,ur1);
RTLR(5,Result);
RTLIU(6);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2321, Current, 0, 0, 36831);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2321, Current, 36831);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0xF8000393, 0,0); /* Result */
tu1_1 = *(EIF_NATURAL_8 *)(Current + RTWA(24957, dtype));
tr1 = RTLN(eif_new_type(876, 0x00).id);
*(EIF_NATURAL_8 *)tr1 = tu1_1;
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14614, "to_hex_string", tr1))(tr1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tu1_1 = *(EIF_NATURAL_8 *)(Current + RTWA(24958, dtype));
tr1 = RTLN(eif_new_type(876, 0x00).id);
*(EIF_NATURAL_8 *)tr1 = tu1_1;
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14614, "to_hex_string", tr1))(tr1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15142, "plus", tr2))(tr2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
tu1_1 = *(EIF_NATURAL_8 *)(Current + RTWA(24959, dtype));
tr2 = RTLN(eif_new_type(876, 0x00).id);
*(EIF_NATURAL_8 *)tr2 = tu1_1;
tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14614, "to_hex_string", tr2))(tr2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr3);
tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(15142, "plus", tr1))(tr1, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
Result = (EIF_REFERENCE) RTCCL(tr2);
if (RTAL & CK_ENSURE) {
RTHOOK(2);
RTCT("out_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
RTHOOK(3);
RTCT("valid_length", EX_POST);
ti4_1 = *(EIF_INTEGER_32 *)(Result + RTVA(15188, "count", Result));
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24964, dtype))(Current)).it_i4);
if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(4);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{
EIF_TYPED_VALUE r;
r.type = SK_REF;
r.it_r = Result;
return r;
}
#undef up1
#undef ur1
}
/* {XM_EIFFEL_CHARACTER_ENTITY}.from_decimal */
void F2295_31331 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "from_decimal";
RTEX;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_BOOLEAN tb1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(4);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,tr1);
RTLR(3,ur1);
RTLIU(4);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2294, Current, 0, 1, 36396);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2294, Current, 36396);
if (arg1) {
RTCC(arg1, 2294, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_string_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("a_string_is_decimal", EX_PRE);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24595, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(2,1);
ur1 = RTCCL(arg1);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(24739, "is_decimal", tr1))(tr1, ur1x)).it_b);
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAA(Current, dtype, 24627, 0x10000000, 1); /* code */
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(15128, "to_integer", arg1))(arg1)).it_i4);
*(EIF_INTEGER_32 *)(Current + RTWA(24627, dtype)) = (EIF_INTEGER_32) ti4_1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(4);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(3);
RTEE;
#undef up1
#undef ur1
#undef arg1
}
/* {COLOR}.make_from_hex */
void F2322_31725 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "make_from_hex";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
EIF_REFERENCE loc2 = (EIF_REFERENCE) 0;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_TYPED_VALUE ui4_2x = {{0}, SK_INT32};
#define ui4_2 ui4_2x.it_i4
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_NATURAL_8 tu1_1;
EIF_BOOLEAN tb1;
EIF_BOOLEAN tb2;
EIF_BOOLEAN tb3;
EIF_CHARACTER_8 tc1;
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(6);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,loc2);
RTLR(3,tr1);
RTLR(4,loc1);
RTLR(5,ur1);
RTLIU(6);
RTLU (SK_VOID, NULL);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTLU(SK_REF, &loc2);
RTEAA(l_feature_name, 2321, Current, 2, 1, 36822);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2321, Current, 36822);
if (arg1) {
RTCC(arg1, 2321, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("valid_length", EX_PRE);
ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(15188, "count", arg1));
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24964, dtype))(Current)).it_i4);
RTTE((EIF_BOOLEAN)(ti4_1 == ti4_2), label_1);
RTCK;
RTHOOK(2);
RTCT("valid_characters", EX_PRE);
RTHOOK(3);
RTDBGAL(Current, 1, 0xF8000710, 0, 0); /* loc2 */
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(9705, "new_cursor", arg1))(arg1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
loc2 = (EIF_REFERENCE) RTCCL(tr1);
tb1 = EIF_TRUE;
for (;;) {
if (!tb1) break;
tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8417, "after", loc2))(loc2)).it_b);
if (tb2) break;
RTHOOK(4);
tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(8416, "item", loc2))(loc2)).it_c1);
tr1 = RTLN(eif_new_type(873, 0x00).id);
*(EIF_CHARACTER_8 *)tr1 = tc1;
tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14563, "is_hexa_digit", tr1))(tr1)).it_b);
tb1 = tb3;
RTHOOK(5);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(8418, "forth", loc2))(loc2);
}
RTTE(tb1, label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
/* {COLOR}.make_from_real_rgb */
void F2322_31724 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x)
{
GTCX
char *l_feature_name = "make_from_real_rgb";
RTEX;
#define arg1 arg1x.it_r8
#define arg2 arg2x.it_r8
#define arg3 arg3x.it_r8
EIF_REFERENCE tr1 = NULL;
EIF_REAL_64 tr8_1;
EIF_REAL_64 tr8_2;
EIF_INTEGER_32 ti4_1;
EIF_NATURAL_8 tu1_1;
RTCDT;
RTSN;
RTDA;
RTLD;
if ((arg3x.type & SK_HEAD) == SK_REF) arg3x.it_r8 = * (EIF_REAL_64 *) arg3x.it_r;
if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_r8 = * (EIF_REAL_64 *) arg2x.it_r;
if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_r8 = * (EIF_REAL_64 *) arg1x.it_r;
RTLI(2);
RTLR(0,Current);
RTLR(1,tr1);
RTLIU(2);
RTLU (SK_VOID, NULL);
RTLU(SK_REAL64,&arg1);
RTLU(SK_REAL64,&arg2);
RTLU(SK_REAL64,&arg3);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2321, Current, 0, 3, 36821);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2321, Current, 36821);
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("r_in_range", EX_PRE);
RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN) ((EIF_REAL_64) 0.0 <= arg1) && (EIF_BOOLEAN) (arg1 <= (EIF_REAL_64) 1.0)), label_1);
RTCK;
RTHOOK(2);
RTCT("g_in_range", EX_PRE);
RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN) ((EIF_REAL_64) 0.0 <= arg2) && (EIF_BOOLEAN) (arg2 <= (EIF_REAL_64) 1.0)), label_1);
RTCK;
RTHOOK(3);
RTCT("b_in_range", EX_PRE);
RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN) ((EIF_REAL_64) 0.0 <= arg3) && (EIF_BOOLEAN) (arg3 <= (EIF_REAL_64) 1.0)), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:
;
RTHOOK(4);
RTDBGAA(Current, dtype, 24957, 0x30000000, 1); /* red */
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
tr8_1 = (EIF_REAL_64) (tu1_1);
tr1 = RTLN(eif_new_type(864, 0x00).id);
*(EIF_REAL_64 *)tr1 = (EIF_REAL_64) (tr8_1 * arg1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14468, "rounded", tr1))(tr1)).it_i4);
RTNHOOK(4,1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
*(EIF_NATURAL_8 *)(Current + RTWA(24957, dtype)) = (EIF_NATURAL_8) tu1_1;
RTHOOK(5);
RTDBGAA(Current, dtype, 24958, 0x30000000, 1); /* green */
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
tr8_1 = (EIF_REAL_64) (tu1_1);
tr1 = RTLN(eif_new_type(864, 0x00).id);
*(EIF_REAL_64 *)tr1 = (EIF_REAL_64) (tr8_1 * arg2);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14468, "rounded", tr1))(tr1)).it_i4);
RTNHOOK(5,1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
*(EIF_NATURAL_8 *)(Current + RTWA(24958, dtype)) = (EIF_NATURAL_8) tu1_1;
RTHOOK(6);
RTDBGAA(Current, dtype, 24959, 0x30000000, 1); /* blue */
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
tr8_1 = (EIF_REAL_64) (tu1_1);
tr1 = RTLN(eif_new_type(864, 0x00).id);
*(EIF_REAL_64 *)tr1 = (EIF_REAL_64) (tr8_1 * arg3);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(14468, "rounded", tr1))(tr1)).it_i4);
RTNHOOK(6,1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
*(EIF_NATURAL_8 *)(Current + RTWA(24959, dtype)) = (EIF_NATURAL_8) tu1_1;
if (RTAL & CK_ENSURE) {
RTHOOK(7);
RTCT("red_set", EX_POST);
tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24960, dtype))(Current)).it_r8);
tr8_2 = eif_abs_real64 ((EIF_REAL_64) (tr8_1 - arg1));
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
ti4_1 = (EIF_INTEGER_32) tu1_1;
if ((EIF_BOOLEAN) (tr8_2 <= (EIF_REAL_64) ((EIF_REAL_64) (((EIF_INTEGER_32) 1L)) / (EIF_REAL_64) (ti4_1)))) {
RTCK;
} else {
RTCF;
}
RTHOOK(8);
RTCT("green_set", EX_POST);
tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24961, dtype))(Current)).it_r8);
tr8_2 = eif_abs_real64 ((EIF_REAL_64) (tr8_1 - arg2));
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
ti4_1 = (EIF_INTEGER_32) tu1_1;
if ((EIF_BOOLEAN) (tr8_2 <= (EIF_REAL_64) ((EIF_REAL_64) (((EIF_INTEGER_32) 1L)) / (EIF_REAL_64) (ti4_1)))) {
RTCK;
} else {
RTCF;
}
RTHOOK(9);
RTCT("blue_set", EX_POST);
tr8_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24962, dtype))(Current)).it_r8);
tr8_2 = eif_abs_real64 ((EIF_REAL_64) (tr8_1 - arg3));
tu1_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(14584, 876))(Current)).it_n1);
ti4_1 = (EIF_INTEGER_32) tu1_1;
if ((EIF_BOOLEAN) (tr8_2 <= (EIF_REAL_64) ((EIF_REAL_64) (((EIF_INTEGER_32) 1L)) / (EIF_REAL_64) (ti4_1)))) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(10);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(5);
RTEE;
#undef arg3
#undef arg2
#undef arg1
}
/* {KI_FILE_SYSTEM}.same_canonical_pathnames */
EIF_TYPED_VALUE F2372_33506 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "same_canonical_pathnames";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE up2x = {{0}, SK_POINTER};
#define up2 up2x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_REFERENCE tr2 = NULL;
EIF_BOOLEAN tb1;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(7);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,ur1);
RTLR(3,Current);
RTLR(4,tr1);
RTLR(5,ur2);
RTLR(6,tr2);
RTLIU(7);
RTLU (SK_BOOL, &Result);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2371, Current, 0, 2, 38623);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2371, Current, 38623);
if (arg1) {
RTCC(arg1, 2371, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2371, l_feature_name, 2, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_pathname1_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("a_pathname2_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ur1 = RTCCL(arg1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25922, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
ur2 = RTCCL(arg2);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25922, dtype))(Current, ur2x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur2 = RTCCL(tr2);
Result = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25912, dtype))(Current, ur1x, ur2x)).it_b);
if (RTAL & CK_ENSURE) {
RTHOOK(4);
RTCT("definition", EX_POST);
ur1 = RTCCL(arg1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25922, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
ur2 = RTCCL(arg2);
tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25922, dtype))(Current, ur2x)), (((up2x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up2x.it_r = RTBU(up2x))), (up2x.type = SK_POINTER), up2x.it_r);
ur2 = RTCCL(tr2);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25912, dtype))(Current, ur1x, ur2x)).it_b);
if ((EIF_BOOLEAN)(Result == tb1)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(5);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef up1
#undef up2
#undef ur1
#undef ur2
#undef arg2
#undef arg1
}
/* {KI_FILE_SYSTEM}.pathname_from_file_system */
EIF_TYPED_VALUE F2372_33524 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x)
{
GTCX
char *l_feature_name = "pathname_from_file_system";
RTEX;
#define arg1 arg1x.it_r
#define arg2 arg2x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_TYPED_VALUE ur2x = {{0}, SK_REF};
#define ur2 ur2x.it_r
EIF_REFERENCE tr1 = NULL;
EIF_BOOLEAN tb1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(7);
RTLR(0,arg1);
RTLR(1,arg2);
RTLR(2,Current);
RTLR(3,tr1);
RTLR(4,ur1);
RTLR(5,ur2);
RTLR(6,Result);
RTLIU(7);
RTLU (SK_REF, &Result);
RTLU(SK_REF,&arg1);
RTLU(SK_REF,&arg2);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 2371, Current, 0, 2, 38621);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2371, Current, 38621);
if (arg1) {
RTCC(arg1, 2371, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
if (arg2) {
RTCC(arg2, 2371, l_feature_name, 2, eif_new_type(2371, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_pathname_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTHOOK(2);
RTCT("a_file_system_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg2 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(3);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(24622, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTNHOOK(3,1);
ur1 = RTCCL(Current);
ur2 = RTCCL(arg2);
tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(23550, "same_types", tr1))(tr1, ur1x, ur2x)).it_b);
if (tb1) {
RTHOOK(4);
RTDBGAL(Current, 0, 0xF8000393, 0,0); /* Result */
Result = (EIF_REFERENCE) RTCCL(arg1);
} else {
RTHOOK(5);
RTDBGAL(Current, 0, 0xF8000393, 0,0); /* Result */
ur1 = RTCCL(arg1);
tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(25929, "string_to_pathname", arg2))(arg2, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
ur1 = RTCCL(tr1);
Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25930, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
}
if (RTAL & CK_ENSURE) {
RTHOOK(6);
RTCT("pathname_from_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(7);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef up1
#undef ur1
#undef ur2
#undef arg2
#undef arg1
}
/* {KI_FILE_SYSTEM}.canonical_pathname */
EIF_TYPED_VALUE F2372_33515 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x)
{
GTCX
char *l_feature_name = "canonical_pathname";
RTEX;
EIF_REFERENCE loc1 = (EIF_REFERENCE) 0;
#define arg1 arg1x.it_r
EIF_TYPED_VALUE up1x = {{0}, SK_POINTER};
#define up1 up1x.it_p
EIF_TYPED_VALUE ur1x = {{0}, SK_REF};
#define ur1 ur1x.it_r
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(5);
RTLR(0,arg1);
RTLR(1,loc1);
RTLR(2,ur1);
RTLR(3,Current);
RTLR(4,Result);
RTLIU(5);
RTLU (SK_REF, &Result);
RTLU(SK_REF,&arg1);
RTLU (SK_REF, &Current);
RTLU(SK_REF, &loc1);
RTEAA(l_feature_name, 2371, Current, 1, 1, 38620);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(2371, Current, 38620);
if (arg1) {
RTCC(arg1, 2371, l_feature_name, 1, eif_new_type(915, 0x00), 0x00);
}
RTIV(Current, RTAL);
if ((RTAL & CK_REQUIRE) || RTAC) {
RTHOOK(1);
RTCT("a_pathname_not_void", EX_PRE);
RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1);
RTCK;
RTJB;
label_1:
RTCF;
}
body:;
RTHOOK(2);
RTDBGAL(Current, 1, 0xF8000960, 0, 0); /* loc1 */
ur1 = RTCCL(arg1);
loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25929, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
RTHOOK(3);
(FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(26538, "set_canonical", loc1))(loc1);
RTHOOK(4);
RTDBGAL(Current, 0, 0xF8000393, 0,0); /* Result */
ur1 = RTCCL(loc1);
Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25930, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r);
if (RTAL & CK_ENSURE) {
RTHOOK(5);
RTCT("canonical_pathname_not_void", EX_POST);
if ((EIF_BOOLEAN)(Result != NULL)) {
RTCK;
} else {
RTCF;
}
}
RTVI(Current, RTAL);
RTRS;
RTHOOK(6);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(4);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; }
#undef up1
#undef ur1
#undef arg1
}
