/* {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 }