/* {FUNCTION}.item */ EIF_TYPED_VALUE F238_4736 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "item"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 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 up2x = {{0}, SK_POINTER}; #define up2 up2x.it_p EIF_TYPED_VALUE up3x = {{0}, SK_POINTER}; #define up3 up3x.it_p EIF_TYPED_VALUE up4x = {{0}, SK_POINTER}; #define up4 up4x.it_p EIF_TYPED_VALUE up5x = {{0}, SK_POINTER}; #define up5 up5x.it_p EIF_TYPED_VALUE up6x = {{0}, SK_POINTER}; #define up6 up6x.it_p EIF_TYPED_VALUE up7x = {{0}, SK_POINTER}; #define up7 up7x.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_TYPED_VALUE ui4_3x = {{0}, SK_INT32}; #define ui4_3 ui4_3x.it_i4 EIF_TYPED_VALUE ui4_4x = {{0}, SK_INT32}; #define ui4_4 ui4_4x.it_i4 EIF_TYPED_VALUE ub1x = {{0}, SK_BOOL}; #define ub1 ub1x.it_b EIF_POINTER tp1; EIF_POINTER tp2; EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_BOOLEAN tb1; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLR(3,loc2); RTLR(4,tr1); RTLR(5,tr2); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTLU(SK_REF, &loc2); RTEAA(l_feature_name, 237, Current, 2, 1, 9694); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(237, Current, 9694); RTCC(arg1, 237, l_feature_name, 1, eif_non_attached_type(RTWCT(3587, dtype, Dftype(Current)))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_operands", EX_PRE); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(3557, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 2, 0xF80000A7, 0, 0); /* loc2 */ loc2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3567, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(3); if ((EIF_BOOLEAN)(loc2 != NULL)) { RTHOOK(4); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(2844, "count", loc2))(loc2)).it_i4); loc1 = (EIF_INTEGER_32) ti4_1; } RTHOOK(5); RTDBGAL(Current, 0, 0x04000000, 0,0); /* Result */ tp1 = *(EIF_POINTER *)(Current + RTWA(3572, dtype)); up1 = tp1; tp2 = *(EIF_POINTER *)(Current + RTWA(3570, dtype)); up2 = tp2; tr1 = ((up3x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3567, dtype))(Current)), (((up3x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up3x.it_r = RTBU(up3x))), (up3x.type = SK_POINTER), up3x.it_r); up4 = tr1; up5 = arg1; ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3573, dtype)); ui4_1 = ti4_1; tb1 = *(EIF_BOOLEAN *)(Current + RTWA(3574, dtype)); ub1 = tb1; ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(3575, dtype)); ui4_2 = ti4_2; ui4_3 = loc1; ti4_3 = *(EIF_INTEGER_32 *)(Current + RTWA(3560, dtype)); ui4_4 = ti4_3; tr2 = ((up6x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3571, dtype))(Current)), (((up6x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up6x.it_r = RTBU(up6x))), (up6x.type = SK_POINTER), up6x.it_r); up7 = tr2; Result = EIF_TEST ((((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(3594, dtype))(Current, up1x, up2x, up4x, up5x, ui4_1x, ub1x, ui4_2x, ui4_3x, ui4_4x, up7x))).it_b); RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(5); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef up2 #undef up3 #undef up4 #undef up5 #undef up6 #undef up7 #undef ur1 #undef ui4_1 #undef ui4_2 #undef ui4_3 #undef ui4_4 #undef ub1 #undef arg1 }
/* {INDEXABLE_ITERATION_CURSOR}.forth */ void F633_12774 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "forth"; RTEX; EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 632, Current, 0, 0, 5607); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5607); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_position", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(10166, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11835, dtype))(Current)).it_i4); ti4_1 = ti4_2; tr1 = NULL; RTE_O tr1 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(2); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); if (tb1) { RTHOOK(3); RTDBGAA(Current, dtype, 11836, 0x10000000, 1); /* target_index */ ti4_3 = *(EIF_INTEGER_32 *)(Current + RTWA(11839, dtype)); (*(EIF_INTEGER_32 *)(Current + RTWA(11836, dtype))) -= ti4_3; } else { RTHOOK(4); RTDBGAA(Current, dtype, 11836, 0x10000000, 1); /* target_index */ ti4_3 = *(EIF_INTEGER_32 *)(Current + RTWA(11839, dtype)); (*(EIF_INTEGER_32 *)(Current + RTWA(11836, dtype))) += ti4_3; } if (RTAL & CK_ENSURE) { RTHOOK(5); RTCT("cursor_index_advanced", EX_POST); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11835, dtype))(Current)).it_i4); RTCO(tr1); if ((EIF_BOOLEAN)(ti4_2 == (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; }
/* {INDEXABLE_ITERATION_CURSOR}.cursor_index */ EIF_TYPED_VALUE F633_12755 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "cursor_index"; RTEX; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_BOOLEAN tb1; EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(1); RTLR(0,Current); RTLU (SK_INT32, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 632, Current, 0, 0, 5613); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5613); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("is_valid", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11846, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */ ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(11836, dtype)); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(11837, dtype)); ti4_3 = eif_abs_int32 ((EIF_INTEGER_32) (ti4_1 - ti4_2)); Result = *(EIF_INTEGER_32 *)(Current + RTWA(11839, dtype)); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(11839, dtype)); Result = (EIF_INTEGER_32) (EIF_INTEGER_32) ((EIF_INTEGER_32) ((EIF_INTEGER_32) ((EIF_INTEGER_32) (ti4_3 + Result) - ((EIF_INTEGER_32) 1L)) / ti4_1) + ((EIF_INTEGER_32) 1L)); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("positive_index", EX_POST); if ((EIF_BOOLEAN) (Result >= ((EIF_INTEGER_32) 0L))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; } }
/* {FIND_SEPARATOR_FACILITY}.extracted_substrings */ EIF_TYPED_VALUE F908_7522 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x, EIF_TYPED_VALUE arg3x) { GTCX char *l_feature_name = "extracted_substrings"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_REFERENCE loc3 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r #define arg2 arg2x.it_i4 #define arg3 arg3x.it_i4 EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p 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_BOOLEAN tb1; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; if ((arg3x.type & SK_HEAD) == SK_REF) arg3x.it_i4 = * (EIF_INTEGER_32 *) arg3x.it_r; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; RTLI(6); RTLR(0,arg1); RTLR(1,Current); RTLR(2,loc2); RTLR(3,tr1); RTLR(4,loc3); RTLR(5,Result); RTLU (SK_REF, &Result); RTLU(SK_REF,&arg1); RTLU(SK_INT32,&arg2); RTLU(SK_INT32,&arg3); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTLU(SK_REF, &loc2); RTLU(SK_REF, &loc3); RTEAA(l_feature_name, 907, Current, 3, 3, 13213); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(907, Current, 13213); RTCC(arg1, 907, l_feature_name, 1, eif_attached_type(219)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("string_exists", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("range_correct", EX_PRE); ui4_1 = arg3; ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(714, dtype))(Current, ui4_1x)).it_i4); RTTE((EIF_BOOLEAN) (arg2 <= ti4_1), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); if ((EIF_BOOLEAN) (arg3 > ((EIF_INTEGER_32) 0L))) { RTHOOK(4); RTDBGAL(Current, 2, 0xF80000DB, 0, 0); /* loc2 */ ui4_1 = arg2; ui4_2 = (EIF_INTEGER_32) (arg3 - ((EIF_INTEGER_32) 1L)); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4409, "substring", arg1))(arg1, ui4_1x, ui4_2x)), (((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); RTHOOK(5); RTDBGAL(Current, 3, 0xF80000DB, 0, 0); /* loc3 */ ui4_1 = arg3; ui4_2 = arg3; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4409, "substring", arg1))(arg1, ui4_1x, ui4_2x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc3 = (EIF_REFERENCE) RTCCL(tr1); } else { RTHOOK(6); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ ui4_1 = arg3; loc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(714, dtype))(Current, ui4_1x)).it_i4); RTHOOK(7); RTDBGAL(Current, 2, 0xF80000DB, 0, 0); /* loc2 */ ui4_1 = arg2; ui4_2 = loc1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4409, "substring", arg1))(arg1, ui4_1x, ui4_2x)), (((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); RTHOOK(8); RTDBGAL(Current, 3, 0xF80000DB, 0, 0); /* loc3 */ tr1 = RTLN(219); ui4_1 = ((EIF_INTEGER_32) 0L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4329, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(8,1); loc3 = (EIF_REFERENCE) RTCCL(tr1); } RTHOOK(9); RTDBGAL(Current, 0, 0xF80000AD, 0,0); /* Result */ { static EIF_TYPE_INDEX typarr0[] = {0xFFF9,2,173,0xFF11,219,0xFF11,219,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr1 = RTLNTS(typres0, 3, 0); } ((EIF_TYPED_VALUE *)tr1+1)->it_r = loc2; RTAR(tr1,loc2); ((EIF_TYPED_VALUE *)tr1+2)->it_r = loc3; RTAR(tr1,loc3); Result = (EIF_REFERENCE) RTCCL(tr1); if (RTAL & CK_ENSURE) { RTHOOK(10); RTCT("extracted_substrings_not_void", EX_POST); if ((EIF_BOOLEAN)(Result != NULL)) { RTCK; } else { RTCF; } RTHOOK(11); RTCT("substrings_extracted", EX_POST); tb1 = '\0'; tr1 = eif_boxed_item(Result,1); if ((EIF_BOOLEAN)(tr1 != NULL)) { tr1 = eif_boxed_item(Result,2); tb1 = (EIF_BOOLEAN)(tr1 != NULL); } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(12); RTDBGLE; RTMD(0); RTLE; RTLO(8); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef ui4_1 #undef ui4_2 #undef arg3 #undef arg2 #undef arg1 }
/* {FIND_SEPARATOR_FACILITY}.has_separators */ EIF_TYPED_VALUE F908_7523 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "has_separators"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 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_BOOLEAN tb1; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,arg1); RTLR(1,tr1); RTLR(2,ur1); RTLR(3,Current); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTEAA(l_feature_name, 907, Current, 1, 1, 13214); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(907, Current, 13214); RTCC(arg1, 907, l_feature_name, 1, eif_attached_type(219)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("string_exists", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); for (;;) { RTHOOK(3); tb1 = '\01'; ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); if (!(EIF_BOOLEAN) (loc1 > ti4_1)) { tb1 = Result; } if (tb1) break; RTHOOK(4); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ ui4_1 = loc1; ui4_2 = loc1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4409, "substring", arg1))(arg1, ui4_1x, ui4_2x)), (((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 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(5083, dtype))(Current, ur1x)).it_b); RTHOOK(5); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 #undef ui4_1 #undef ui4_2 #undef arg1 }
/* {DS_TRAVERSABLE}.cursor_off */ EIF_TYPED_VALUE F2599_32413 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "cursor_off"; RTEX; #define arg1 arg1x.it_r EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_BOOLEAN tb1; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLIU(3); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 1, 37491); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37491); RTCC(arg1, 2598, l_feature_name, 1, RTWCT(25458, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_cursor_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("a_cursor_valid", EX_PRE); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25461, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(25336, "off", arg1))(arg1)).it_b); Result = (EIF_BOOLEAN) tb1; RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef ur1 #undef arg1 }
/* {DS_TRAVERSABLE}.add_traversing_cursor */ void F2599_32416 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "add_traversing_cursor"; RTEX; #define arg1 arg1x.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; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,tr2); RTLR(4,ur1); RTLIU(5); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 1, 37492); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37492); RTCC(arg1, 2598, l_feature_name, 1, RTWCT(25458, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_cursor_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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(arg1, tr1)) { RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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); tr2 = ((up2x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(25340, "next_cursor", tr1))(tr1)), (((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(25341, "set_next_cursor", arg1))(arg1, ur1x); RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(25341, "set_next_cursor", tr1))(tr1, ur1x); }
/* {APPLICATION}.make */ void F863_6993 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "make"; 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_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; 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); RTEAA(l_feature_name, 862, Current, 0, 0, 12674); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(862, Current, 12674); RTIV(Current, RTAL); RTHOOK(1); RTDBGAA(Current, dtype, 4920, 0xF800035D, 0); /* tree */ tr1 = RTLNSMART(RTWCT(4920, dtype, Dftype(Current)).id); ui4_1 = ((EIF_INTEGER_32) 10L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(4912, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(1,1); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(4920, dtype)) = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(4,1); ui4_1 = ((EIF_INTEGER_32) 20L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(5); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(5,1); ui4_1 = ((EIF_INTEGER_32) 17L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4915, "add", tr1))(tr1, ui4_1x); RTHOOK(6); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, 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); ui4_1 = ((EIF_INTEGER_32) 15L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(7); tr1 = RTMS_EX_H("15 exist: ",10,1449834016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(8); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(8,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(9); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(9,1); ui4_1 = ((EIF_INTEGER_32) 5L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(10); tr1 = RTMS_EX_H("5 exist: ",9,307662368); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(11); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(11,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(12); RTDBGAA(Current, dtype, 4921, 0x04000000, 1); /* res */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(12,1); ui4_1 = ((EIF_INTEGER_32) 20L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(13); tr1 = RTMS_EX_H("20 exist: ",10,1222057760); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4921, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(14); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(14,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(172, "put_new_line", tr1))(tr1); RTHOOK(15); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(15,1); ui4_1 = ((EIF_INTEGER_32) 15L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(16); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(16,1); ui4_1 = ((EIF_INTEGER_32) 5L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(17); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(17,1); ui4_1 = ((EIF_INTEGER_32) 20L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(18); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(18,1); ui4_1 = ((EIF_INTEGER_32) 17L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(19); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(19,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(20); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(20,1); ui4_1 = ((EIF_INTEGER_32) 15L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(21); tr1 = RTMS_EX_H("15 exist: ",10,1449834016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(22); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(22,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(23); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(23,1); ui4_1 = ((EIF_INTEGER_32) 5L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(24); tr1 = RTMS_EX_H("5 exist: ",9,307662368); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(25); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(25,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(26); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(26,1); ui4_1 = ((EIF_INTEGER_32) 20L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(27); tr1 = RTMS_EX_H("20 exist: ",10,1222057760); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(28); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(28,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(29); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(29,1); ui4_1 = ((EIF_INTEGER_32) 10L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4917, "remove", tr1))(tr1, ui4_1x); RTHOOK(30); RTDBGAA(Current, dtype, 4922, 0x04000000, 1); /* res2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4920, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(30,1); ui4_1 = ((EIF_INTEGER_32) 10L); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4913, "haselement", tr1))(tr1, ui4_1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)) = (EIF_BOOLEAN) tb1; RTHOOK(31); tr1 = RTMS_EX_H("10 exist: ",10,1154922016); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(4922, dtype)); tr2 = (tb1 ? makestr ("True", 4) : makestr ("False", 5)); ur1 = RTCCL(tr2); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4422, "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); ur1 = RTCCL(tr2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(30, dtype))(Current, ur1x); RTHOOK(32); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(32,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(173, "new_line", tr1))(tr1); RTHOOK(33); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(27, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(33,1); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(172, "put_new_line", tr1))(tr1); RTVI(Current, RTAL); RTRS; RTHOOK(34); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef ur1 #undef ui4_1 }
/* {NETWORK_SOCKET_ADDRESS}.make_from_hostname_and_port */ void F872_7140 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_from_hostname_and_port"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; #define arg1 arg1x.it_r #define arg2 arg2x.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; EIF_INTEGER_32 ti4_1; RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; RTLI(6); RTLR(0,arg1); RTLR(1,loc1); RTLR(2,ur1); RTLR(3,Current); RTLR(4,loc2); RTLR(5,tr1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTEAA(l_feature_name, 871, Current, 2, 2, 12663); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12663); RTCC(arg1, 871, l_feature_name, 1, eif_attached_type(218)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("non_void_hostname", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("valid_port", EX_PRE); RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)) && (EIF_BOOLEAN) (arg2 <= ((EIF_INTEGER_32) 65535L))), label_1); RTCK; RTJB; label_1: RTCF; } body: ; RTHOOK(3); RTDBGAL(Current, 1, 0xF8000361, 0, 0); /* loc1 */ ur1 = RTCCL(arg1); loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(871, 132, 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(4); if ((EIF_BOOLEAN)(loc1 != NULL)) { RTHOOK(5); RTDBGAL(Current, 2, 0xF8000095, 0, 0); /* loc2 */ ui4_1 = arg2; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(865, 48, "sockaddr", loc1))(loc1, ui4_1x)), (((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); } else { RTHOOK(6); RTDBGAL(Current, 2, 0xF8000095, 0, 0); /* loc2 */ tr1 = RTLNSMART(eif_non_attached_type(RTWCT(871, 149, Current))); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 167, dtype))(Current)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWPC(260, 0, Dtype(tr1)))(tr1, ui4_1x); RTNHOOK(6,1); loc2 = (EIF_REFERENCE) RTCCL(tr1); } RTHOOK(7); RTDBGAA(Current, dtype, 871, 149, 0xF8000095, 0); /* socket_address */ RTAR(Current, loc2); *(EIF_REFERENCE *)(Current + RTWA(871, 149, dtype)) = (EIF_REFERENCE) RTCCL(loc2); if (RTAL & CK_ENSURE) { RTHOOK(8); RTCT(NULL, EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 149, 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)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(9); RTDBGLE; RTMD(0); RTLE; RTLO(6); RTEE; #undef up1 #undef ur1 #undef ui4_1 #undef arg2 #undef arg1 }
/* {INDEXABLE_ITERATION_CURSOR}.with_step */ EIF_TYPED_VALUE F331_2005 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "with_step"; RTEX; #define arg1 arg1x.it_i4 EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i4 = * (EIF_INTEGER_32 *) arg1x.it_r; RTLI(4); RTLR(0,Current); RTLR(1,Result); RTLR(2,tr1); RTLR(3,tr2); RTLU (SK_REF, &Result); RTLU(SK_INT32,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 330, Current, 0, 1, 2716); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(330, Current, 2716); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("n_positive", EX_PRE); RTTE((EIF_BOOLEAN) (arg1 > ((EIF_INTEGER_32) 0L)), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0xF800014A, 0,0); /* Result */ Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(17, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(3); ui4_1 = arg1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1708, "set_step", Result))(Result, ui4_1x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("step_set", EX_POST); ti4_1 = *(EIF_INTEGER_32 *)(Result + RTVA(1697, "step", Result)); if ((EIF_BOOLEAN)(ti4_1 == arg1)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("same_structure", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1710, "target", Result))(Result)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1710, 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, tr2)) { RTCK; } else { RTCF; } RTHOOK(6); RTCT("same_direction", EX_POST); tb1 = *(EIF_BOOLEAN *)(Result + RTVA(1703, "is_reversed", Result)); tb2 = *(EIF_BOOLEAN *)(Current + RTWA(1703, dtype)); if ((EIF_BOOLEAN)(tb1 == tb2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(7); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 #undef ui4_1 #undef arg1 }
/* {TABLE}.bag_put */ void F928_10078 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "bag_put"; RTEX; #define arg1 arg1x.it_i8 EIF_TYPED_VALUE ui8_1x = {{0}, SK_INT64}; #define ui8_1 ui8_1x.it_i8 EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; if ((arg1x.type & SK_HEAD) == SK_REF) arg1x.it_i8 = * (EIF_INTEGER_64 *) arg1x.it_r; RTLI(1); RTLR(0,Current); RTLU (SK_VOID, NULL); RTLU(SK_INT64,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 927, Current, 0, 1, 3403); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(927, Current, 3403); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("extendible", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(9642, dtype))(Current)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("item_inserted", EX_POST); ui8_1 = arg1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(9644, dtype))(Current, ui8_1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef ui8_1 #undef arg1 }
/* {INDEXABLE_ITERATION_CURSOR}.make */ void F331_1994 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "make"; 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_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_NATURAL_32 tu4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,arg1); RTLR(1,Current); RTLR(2,loc1); RTLR(3,tr1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 330, Current, 1, 1, 2705); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(330, Current, 2705); RTCC(arg1, 330, l_feature_name, 1, eif_attached_type(RTWCT(1710, dtype, Dftype(Current)))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("s_attached", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAA(Current, dtype, 1710, 0xF800014D, 0); /* target */ RTAR(Current, arg1); *(EIF_REFERENCE *)(Current + RTWA(1710, dtype)) = (EIF_REFERENCE) RTCCL(arg1); RTHOOK(3); loc1 = RTCCL(arg1); loc1 = RTRV(eif_non_attached_type(2),loc1); if (EIF_TEST(loc1)) { RTHOOK(4); RTDBGAA(Current, dtype, 1702, 0x38000000, 1); /* version */ tu4_1 = *(EIF_NATURAL_32 *)(loc1 + RTVA(45, "version", loc1)); *(EIF_NATURAL_32 *)(Current + RTWA(1702, dtype)) = (EIF_NATURAL_32) tu4_1; } else { RTHOOK(5); RTDBGAA(Current, dtype, 1702, 0x38000000, 1); /* version */ tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 0L); *(EIF_NATURAL_32 *)(Current + RTWA(1702, dtype)) = (EIF_NATURAL_32) tu4_1; } RTHOOK(6); RTDBGAA(Current, dtype, 1697, 0x10000000, 1); /* step */ *(EIF_INTEGER_32 *)(Current + RTWA(1697, dtype)) = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); RTHOOK(7); RTDBGAA(Current, dtype, 1703, 0x04000000, 1); /* is_reversed */ *(EIF_BOOLEAN *)(Current + RTWA(1703, dtype)) = (EIF_BOOLEAN) (EIF_BOOLEAN) 0; if (RTAL & CK_ENSURE) { RTHOOK(8); RTCT("structure_set", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1710, 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(9); RTCT("is_valid", EX_POST); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1704, dtype))(Current)).it_b); if (tb1) { RTCK; } else { RTCF; } RTHOOK(10); RTCT("default_step", EX_POST); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(1697, dtype)); if ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 1L))) { RTCK; } else { RTCF; } RTHOOK(11); RTCT("ascending_traversal", EX_POST); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(1703, dtype)); if ((EIF_BOOLEAN) !tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(12); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef arg1 }
/* {FUNCTION}.is_equal */ EIF_TYPED_VALUE F238_4738 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "is_equal"; RTEX; #define arg1 arg1x.it_r EIF_TYPED_VALUE ur1x = {{0}, SK_REF}; #define ur1 ur1x.it_r EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 237, Current, 0, 1, 9696); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(237, Current, 9696); RTCC(arg1, 237, l_feature_name, 1, eif_attached_type(Dftype(Current))); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("other_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tb1 = '\0'; ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(11, 236))(Current, ur1x)).it_b); if (tb2) { tb2 = *(EIF_BOOLEAN *)(Current + RTWA(3589, dtype)); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(3589, "last_result", arg1))(arg1)).it_b); tb1 = (tb2 == tb3); } Result = (EIF_BOOLEAN) tb1; if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("symmetric", EX_POST); if ((!(Result) || (RTEQ(arg1, Current)))) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("consistent", EX_POST); tb1 = '\01'; ur1 = RTCCL(arg1); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(12, dtype))(Current, ur1x)).it_b); if (tb2) { tb1 = Result; } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef ur1 #undef arg1 }
/* {FUNCTION}.apply */ void F238_4737 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "apply"; 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_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,ur1); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 237, Current, 0, 0, 9695); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(237, Current, 9695); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_operands", EX_PRE); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3551, 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); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(3557, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAA(Current, dtype, 3589, 0x04000000, 0); /* last_result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3551, 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); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(3590, dtype))(Current, ur1x)).it_b); *(EIF_BOOLEAN *)(Current + RTWA(3589, dtype)) = (EIF_BOOLEAN) tb1; RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; #undef up1 #undef ur1 }
/* {DS_TRAVERSABLE}.same_position */ EIF_TYPED_VALUE F2599_32407 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "same_position"; 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_TYPED_VALUE ur2x = {{0}, SK_REF}; #define ur2 ur2x.it_r EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,ur1); RTLR(4,ur2); RTLIU(5); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 1, 37488); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37488); RTCC(arg1, 2598, l_feature_name, 1, RTWCT(25458, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_cursor_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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); ur2 = RTCCL(arg1); Result = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25467, dtype))(Current, ur1x, ur2x)).it_b); RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 #undef ur2 #undef arg1 }
/* {NETWORK_SOCKET_ADDRESS}.make_any_local */ void F872_7141 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "make_any_local"; 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 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(3); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLU (SK_VOID, NULL); RTLU(SK_INT32,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 871, Current, 1, 1, 12664); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12664); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0xF8000361, 0, 0); /* loc1 */ loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 129, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(2); RTDBGAA(Current, dtype, 871, 149, 0xF8000095, 0); /* socket_address */ ui4_1 = arg1; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(865, 48, "sockaddr", loc1))(loc1, ui4_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(871, 149, dtype)) = (EIF_REFERENCE) RTCCL(tr1); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT(NULL, EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 149, 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)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef ui4_1 #undef arg1 }
/* {DS_TRAVERSABLE}.go_to */ void F2599_32409 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "go_to"; 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_TYPED_VALUE ur2x = {{0}, SK_REF}; #define ur2 ur2x.it_r EIF_REFERENCE tr1 = NULL; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(5); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLR(3,tr1); RTLR(4,ur2); RTLIU(5); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 1, 37490); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37490); RTCC(arg1, 2598, l_feature_name, 1, RTWCT(25458, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("cursor_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("valid_cursor", EX_PRE); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25461, dtype))(Current, ur1x)).it_b); RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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); ur2 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(25468, dtype))(Current, ur1x, ur2x); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT("same_position", EX_POST); ur1 = RTCCL(arg1); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25460, dtype))(Current, ur1x)).it_b); if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 #undef ur1 #undef ur2 #undef arg1 }
/* {NETWORK_SOCKET_ADDRESS}.host_address */ EIF_TYPED_VALUE F872_7145 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "host_address"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_POINTER tp1; EIF_REFERENCE tr1 = NULL; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,Result); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 871, Current, 1, 0, 12668); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12668); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0xF8000361, 0, 0); /* loc1 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 149, 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); tp1 = *(EIF_POINTER *)(tr1 + RTVPA(260, 6, "item", tr1)); up1 = tp1; loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(871, 134, dtype))(Current, up1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); if (RTAL & CK_CHECK) { RTHOOK(2); RTCT("l_address_attached", EX_CHECK); if ((EIF_BOOLEAN)(loc1 != NULL)) { RTCK; } else { RTCF; } } RTHOOK(3); RTDBGAL(Current, 0, 0xF8000361, 0,0); /* Result */ Result = (EIF_REFERENCE) RTCCL(loc1); RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 }
/* {DS_TRAVERSABLE}.item_for_iteration */ EIF_TYPED_VALUE F2599_32404 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "item_for_iteration"; 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_BOOLEAN tb1; EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,ur1); RTLIU(3); RTLU (SK_INT32, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 0, 37486); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37486); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("not_off", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25459, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x10000000, 0,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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); Result = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25465, dtype))(Current, ur1x)).it_i4); RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; } #undef up1 #undef ur1 }
/* {NETWORK_SOCKET_ADDRESS}.is_valid_host */ EIF_TYPED_VALUE F872_7146 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "is_valid_host"; 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_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,arg1); RTLR(1,ur1); RTLR(2,Current); RTLR(3,tr1); RTLU (SK_BOOL, &Result); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 871, Current, 0, 1, 12669); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12669); RTCC(arg1, 871, l_feature_name, 1, eif_attached_type(218)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("hostname_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body: ; RTHOOK(2); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ ur1 = RTCCL(arg1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(871, 132, dtype))(Current, ur1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); Result = (EIF_BOOLEAN) (EIF_BOOLEAN)(tr1 != NULL); RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 #undef arg1 }
/* {DS_TRAVERSABLE}.remove_traversing_cursor */ void F2599_32417 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "remove_traversing_cursor"; 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_REFERENCE tr1 = NULL; RTCDT; RTSN; RTDA; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,loc2); 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, 2598, Current, 2, 1, 37493); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37493); RTCC(arg1, 2598, l_feature_name, 1, RTWCT(25458, dtype, Dftype(Current)), 0x00); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_cursor_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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(arg1, tr1)) { RTHOOK(3); RTDBGAL(Current, 2, 0xF8000A25, 0, 0); /* loc2 */ loc2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(4); RTDBGAL(Current, 1, 0xF8000A25, 0, 0); /* loc1 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(25340, "next_cursor", loc2))(loc2)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = (EIF_REFERENCE) RTCCL(tr1); for (;;) { RTHOOK(5); if ((EIF_BOOLEAN) (RTCEQ(loc1, arg1) || (EIF_BOOLEAN)(loc1 == NULL))) break; RTHOOK(6); RTDBGAL(Current, 2, 0xF8000A25, 0, 0); /* loc2 */ loc2 = (EIF_REFERENCE) RTCCL(loc1); RTHOOK(7); RTDBGAL(Current, 1, 0xF8000A25, 0, 0); /* loc1 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(25340, "next_cursor", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = (EIF_REFERENCE) RTCCL(tr1); } RTHOOK(8); if (RTCEQ(loc1, arg1)) { RTHOOK(9); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(25340, "next_cursor", arg1))(arg1)), (((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)) RTVF(25341, "set_next_cursor", loc2))(loc2, ur1x); RTHOOK(10); ur1 = NULL; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(25341, "set_next_cursor", arg1))(arg1, ur1x); } }
/* {NETWORK_SOCKET_ADDRESS}.make_from_address_and_port */ void F872_7139 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "make_from_address_and_port"; RTEX; #define arg1 arg1x.it_r #define arg2 arg2x.it_i4 EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; RTLI(3); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 871, Current, 0, 2, 12662); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12662); RTCC(arg1, 871, l_feature_name, 1, eif_attached_type(865)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_address", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("valid_port", EX_PRE); RTTE((EIF_BOOLEAN) ((EIF_BOOLEAN) (arg2 >= ((EIF_INTEGER_32) 0L)) && (EIF_BOOLEAN) (arg2 <= ((EIF_INTEGER_32) 65535L))), label_1); RTCK; RTJB; label_1: RTCF; } body: ; RTHOOK(3); RTDBGAA(Current, dtype, 871, 149, 0xF8000095, 0); /* socket_address */ ui4_1 = arg2; tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(865, 48, "sockaddr", arg1))(arg1, ui4_1x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTAR(Current, tr1); *(EIF_REFERENCE *)(Current + RTWA(871, 149, dtype)) = (EIF_REFERENCE) RTCCL(tr1); if (RTAL & CK_ENSURE) { RTHOOK(4); RTCT(NULL, EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(871, 149, 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)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef ui4_1 #undef arg2 #undef arg1 }
/* {FIND_SEPARATOR_FACILITY}.find_separator */ EIF_TYPED_VALUE F908_7521 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "find_separator"; RTEX; EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0; EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0; EIF_CHARACTER_8 loc3 = (EIF_CHARACTER_8) 0; EIF_REFERENCE loc4 = (EIF_REFERENCE) 0; EIF_BOOLEAN loc5 = (EIF_BOOLEAN) 0; #define arg1 arg1x.it_r #define arg2 arg2x.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 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_TYPED_VALUE uc1x = {{0}, SK_CHAR8}; #define uc1 uc1x.it_c1 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; EIF_BOOLEAN tb4; EIF_CHARACTER_8 tc1; EIF_INTEGER_32 Result = ((EIF_INTEGER_32) 0); RTCDT; RTSN; RTDA; RTLD; if ((arg2x.type & SK_HEAD) == SK_REF) arg2x.it_i4 = * (EIF_INTEGER_32 *) arg2x.it_r; RTLI(6); RTLR(0,arg1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,loc4); RTLR(4,ur1); RTLR(5,ur2); RTLU (SK_INT32, &Result); RTLU(SK_REF,&arg1); RTLU(SK_INT32,&arg2); RTLU (SK_REF, &Current); RTLU(SK_INT32, &loc1); RTLU(SK_INT32, &loc2); RTLU(SK_CHAR8, &loc3); RTLU(SK_REF, &loc4); RTLU(SK_BOOL, &loc5); RTEAA(l_feature_name, 907, Current, 5, 2, 13212); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(907, Current, 13212); RTCC(arg1, 907, l_feature_name, 1, eif_attached_type(219)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("s_exists", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTHOOK(2); RTCT("i_in_range", EX_PRE); tb1 = '\0'; if ((EIF_BOOLEAN) (((EIF_INTEGER_32) 1L) <= arg2)) { ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); tb1 = (EIF_BOOLEAN) (arg2 <= ti4_1); } RTTE(tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(3); RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */ ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); Result = (EIF_INTEGER_32) (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L)); RTHOOK(4); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L); if (RTAL & CK_LOOP) { RTHOOK(5); RTCT("inside_bounds", EX_LINV); tb1 = '\0'; if ((EIF_BOOLEAN) (Result >= arg2)) { ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); tb1 = (EIF_BOOLEAN) (Result <= (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L))); } if (tb1) { RTCK; } else { RTCF; } } for (;;) { RTHOOK(6); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5354, 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); ti4_1 = *(EIF_INTEGER_32 *)(tr1 + RTVA(4454, "count", tr1)); if ((EIF_BOOLEAN) (loc1 > ti4_1)) break; RTHOOK(7); RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5354, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", tr1))(tr1, ui4_1x)).it_c1); uc1 = tc1; ui4_1 = ((EIF_INTEGER_32) 1L); ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4433, "index_of", arg1))(arg1, uc1x, ui4_1x)).it_i4); loc2 = (EIF_INTEGER_32) ti4_2; RTHOOK(8); if ((EIF_BOOLEAN)(loc2 != ((EIF_INTEGER_32) 0L))) { RTHOOK(9); RTDBGAL(Current, 5, 0x04000000, 1, 0); /* loc5 */ loc5 = (EIF_BOOLEAN) (EIF_BOOLEAN) 1; RTHOOK(10); RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(5354, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", tr1))(tr1, ui4_1x)).it_c1); uc1 = tc1; ui4_1 = arg2; ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4433, "index_of", arg1))(arg1, uc1x, ui4_1x)).it_i4); loc2 = (EIF_INTEGER_32) ti4_2; RTHOOK(11); if ((EIF_BOOLEAN) ((EIF_BOOLEAN)(loc2 != ((EIF_INTEGER_32) 0L)) && (EIF_BOOLEAN) (loc2 < Result))) { RTHOOK(12); RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */ Result = (EIF_INTEGER_32) loc2; } } RTHOOK(13); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; if (RTAL & CK_LOOP) { RTHOOK(5); RTCT("inside_bounds", EX_LINV); tb1 = '\0'; if ((EIF_BOOLEAN) (Result >= arg2)) { ti4_1 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); tb1 = (EIF_BOOLEAN) (Result <= (EIF_INTEGER_32) (ti4_1 + ((EIF_INTEGER_32) 1L))); } if (tb1) { RTCK; } else { RTCF; } } } RTHOOK(14); if ((EIF_BOOLEAN) !loc5) { RTHOOK(15); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 = (EIF_INTEGER_32) arg2; RTHOOK(16); RTDBGAL(Current, 4, 0xF80000DB, 0, 0); /* loc4 */ ui4_1 = loc1; ui4_2 = (EIF_INTEGER_32) (loc1 + ((EIF_INTEGER_32) 2L)); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(4409, "substring", arg1))(arg1, ui4_1x, ui4_2x)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc4 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(17); ur1 = RTCCL(loc4); tr1 = RTMS_EX_H("[0]",3,5976157); ur2 = tr1; tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(13, dtype))(Current, ur1x, ur2x)).it_b); if (tb1) { RTHOOK(18); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1 += ((EIF_INTEGER_32) 3L); } RTHOOK(19); RTDBGAL(Current, 3, 0x08000000, 1, 0); /* loc3 */ ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); loc3 = (EIF_CHARACTER_8) tc1; for (;;) { RTHOOK(20); tb1 = '\01'; ti4_2 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); if (!(EIF_BOOLEAN) (loc1 > ti4_2)) { ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); tb1 = (EIF_BOOLEAN)(tc1 != loc3); } if (tb1) break; RTHOOK(21); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; RTHOOK(22); ti4_2 = *(EIF_INTEGER_32 *)(arg1 + RTVA(4454, "count", arg1)); if ((EIF_BOOLEAN) (loc1 <= ti4_2)) { RTHOOK(23); tb2 = '\0'; if ((EIF_BOOLEAN)(loc3 == (EIF_CHARACTER_8) 'm')) { ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); tb2 = (EIF_BOOLEAN)(tc1 == (EIF_CHARACTER_8) 'i'); } if (tb2) { RTHOOK(24); RTDBGAL(Current, 3, 0x08000000, 1, 0); /* loc3 */ ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); loc3 = (EIF_CHARACTER_8) tc1; } else { RTHOOK(25); tb2 = '\0'; tb3 = '\0'; if ((EIF_BOOLEAN)(loc3 == (EIF_CHARACTER_8) 'h')) { ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); tb3 = (EIF_BOOLEAN)(tc1 == (EIF_CHARACTER_8) '1'); } if (tb3) { tb3 = '\0'; ui4_1 = (EIF_INTEGER_32) (loc1 + ((EIF_INTEGER_32) 1L)); tb4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2388, "valid_index", arg1))(arg1, ui4_1x)).it_b); if (tb4) { ui4_1 = (EIF_INTEGER_32) (loc1 + ((EIF_INTEGER_32) 1L)); tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2386, "item", arg1))(arg1, ui4_1x)).it_c1); tb3 = (EIF_BOOLEAN)(tc1 == (EIF_CHARACTER_8) '2'); } tb2 = tb3; } if (tb2) { RTHOOK(26); RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */ loc1++; RTHOOK(27); RTDBGAL(Current, 3, 0x08000000, 1, 0); /* loc3 */ ui4_1 = loc1; tc1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4430, "at", arg1))(arg1, ui4_1x)).it_c1); loc3 = (EIF_CHARACTER_8) tc1; } } } } RTHOOK(28); RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */ Result = (EIF_INTEGER_32) (EIF_INTEGER_32) ((EIF_INTEGER_32) (loc1 - ((EIF_INTEGER_32) 1L)) * ((EIF_INTEGER_32) -1L)); } if (RTAL & CK_ENSURE) { RTHOOK(29); RTCT("not_zero", EX_POST); if ((EIF_BOOLEAN)(Result != ((EIF_INTEGER_32) 0L))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(30); RTDBGLE; RTMD(0); RTLE; RTLO(9); RTEE; { EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; } #undef up1 #undef ur1 #undef ur2 #undef ui4_1 #undef ui4_2 #undef uc1 #undef arg2 #undef arg1 }
/* {NETWORK_SOCKET_ADDRESS}.set_port_from_name */ void F872_7147 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x, EIF_TYPED_VALUE arg2x) { GTCX char *l_feature_name = "set_port_from_name"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_REFERENCE loc2 = (EIF_REFERENCE) 0; EIF_INTEGER_32 loc3 = (EIF_INTEGER_32) 0; #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 ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_POINTER tp1; EIF_POINTER tp2; EIF_REFERENCE tr1 = NULL; RTCDT; RTSN; RTDA; RTLD; RTLI(7); RTLR(0,arg1); RTLR(1,arg2); RTLR(2,loc1); RTLR(3,tr1); RTLR(4,ur1); RTLR(5,loc2); RTLR(6,Current); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU(SK_REF,&arg2); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_REF, &loc2); RTLU(SK_INT32, &loc3); RTEAA(l_feature_name, 871, Current, 3, 2, 12670); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(871, Current, 12670); RTCC(arg1, 871, l_feature_name, 1, eif_attached_type(218)); RTCC(arg2, 871, l_feature_name, 2, eif_attached_type(218)); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0xF800007D, 0, 0); /* loc1 */ tr1 = RTLN(125); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWPC(74, 0, Dtype(tr1)))(tr1, ur1x); RTNHOOK(1,1); loc1 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(2); RTDBGAL(Current, 2, 0xF800007D, 0, 0); /* loc2 */ tr1 = RTLN(125); ur1 = RTCCL(arg2); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWPC(74, 0, Dtype(tr1)))(tr1, ur1x); RTNHOOK(2,1); loc2 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(3); RTDBGAL(Current, 3, 0x10000000, 1, 0); /* loc3 */ tp1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVPF(74, 19, "item", loc1))(loc1)).it_p); up1 = tp1; tp2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVPF(74, 19, "item", loc2))(loc2)).it_p); up2 = tp2; loc3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWF(871, 172, dtype))(Current, up1x, up2x)).it_i4); RTHOOK(4); ui4_1 = loc3; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(871, 165, dtype))(Current, ui4_1x); RTVI(Current, RTAL); RTRS; RTHOOK(5); RTDBGLE; RTMD(0); RTLE; RTLO(7); RTEE; #undef up1 #undef up2 #undef ur1 #undef ui4_1 #undef arg2 #undef arg1 }
/* {INDEXABLE_ITERATION_CURSOR}.start */ void F633_12773 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "start"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_INTEGER_32 ti4_1; EIF_BOOLEAN tb1; RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,loc1); RTLR(1,Current); RTLU (SK_VOID, NULL); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 632, Current, 1, 0, 5606); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5606); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 1, 0xF8000148, 0, 0); /* loc1 */ loc1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11853, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(2); tb1 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); if (tb1) { RTHOOK(3); RTDBGAA(Current, dtype, 11837, 0x10000000, 1); /* first_index */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(11880, "upper", loc1))(loc1)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(11837, dtype)) = (EIF_INTEGER_32) ti4_1; RTHOOK(4); RTDBGAA(Current, dtype, 11838, 0x10000000, 1); /* last_index */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(11878, "lower", loc1))(loc1)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(11838, dtype)) = (EIF_INTEGER_32) ti4_1; } else { RTHOOK(5); RTDBGAA(Current, dtype, 11838, 0x10000000, 1); /* last_index */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(11880, "upper", loc1))(loc1)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(11838, dtype)) = (EIF_INTEGER_32) ti4_1; RTHOOK(6); RTDBGAA(Current, dtype, 11837, 0x10000000, 1); /* first_index */ ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(11878, "lower", loc1))(loc1)).it_i4); *(EIF_INTEGER_32 *)(Current + RTWA(11837, dtype)) = (EIF_INTEGER_32) ti4_1; } RTHOOK(7); RTDBGAA(Current, dtype, 11836, 0x10000000, 1); /* target_index */ ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(11837, dtype)); *(EIF_INTEGER_32 *)(Current + RTWA(11836, dtype)) = (EIF_INTEGER_32) ti4_1; if (RTAL & CK_ENSURE) { RTHOOK(8); RTCT("cursor_index_set_to_one", EX_POST); ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11835, dtype))(Current)).it_i4); if ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 1L))) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(9); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; #undef up1 }
/* {NODE}.getparent */ EIF_TYPED_VALUE F861_6978 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "getparent"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_REFERENCE tr1 = NULL; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,loc1); RTLR(1,Current); RTLR(2,tr1); RTLR(3,Result); RTLIU(4); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 860, Current, 1, 0, 12652); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(860, Current, 12652); RTIV(Current, RTAL); RTHOOK(1); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4901, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); loc1 = RTCCL(tr1); if (EIF_TEST(loc1)) { RTHOOK(2); RTDBGAL(Current, 0, 0xF800035C, 0,0); /* Result */ Result = (EIF_REFERENCE) RTCCL(loc1); } if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT(NULL, EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(4901, 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(Result, tr1)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(4); RTDBGLE; RTMD(0); RTLE; RTLO(3); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 }
/* {INDEXABLE_ITERATION_CURSOR}.item */ EIF_TYPED_VALUE F633_12754 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "item"; RTEX; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_INTEGER_32 ti4_1; EIF_NATURAL_32 tu4_1; EIF_BOOLEAN tb1; EIF_NATURAL_32 Result = ((EIF_NATURAL_32) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(2); RTLR(0,Current); RTLR(1,tr1); RTLU (SK_UINT32, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 632, Current, 0, 0, 5612); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5612); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("valid_position", EX_PRE); tb1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(10166, dtype))(Current)).it_b); RTTE((EIF_BOOLEAN) !tb1, label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 0, 0x38000000, 0,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11852, 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); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(11836, dtype)); ui4_1 = ti4_1; tu4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(11868, "item", tr1))(tr1, ui4_1x)).it_n4); Result = (EIF_NATURAL_32) tu4_1; RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_UINT32; r.it_n4 = Result; return r; } #undef up1 #undef ui4_1 }
/* {DS_TRAVERSABLE}.off */ EIF_TYPED_VALUE F2599_32406 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "off"; 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_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(3); RTLR(0,Current); RTLR(1,tr1); RTLR(2,ur1); RTLIU(3); RTLU (SK_BOOL, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 2598, Current, 0, 0, 37487); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(2598, Current, 37487); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */ tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25464, 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); Result = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(25466, dtype))(Current, ur1x)).it_b); if (RTAL & CK_ENSURE) { RTHOOK(2); RTCT("empty_constraint", EX_POST); tb1 = '\01'; tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(25427, dtype))(Current)).it_b); if (tb2) { tb1 = Result; } if (tb1) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(3); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; } #undef up1 #undef ur1 }
/* {INDEXABLE_ITERATION_CURSOR}.reversed */ EIF_TYPED_VALUE F633_12761 (EIF_REFERENCE Current) { GTCX char *l_feature_name = "reversed"; RTEX; EIF_TYPED_VALUE up1x = {{0}, SK_POINTER}; #define up1 up1x.it_p EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_REFERENCE Result = ((EIF_REFERENCE) 0); RTCDT; RTSN; RTDA; RTLD; RTLI(4); RTLR(0,Current); RTLR(1,Result); RTLR(2,tr1); RTLR(3,tr2); RTLU (SK_REF, &Result); RTLU (SK_REF, &Current); RTEAA(l_feature_name, 632, Current, 0, 0, 5619); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(632, Current, 5619); RTIV(Current, RTAL); RTHOOK(1); RTDBGAL(Current, 0, 0xF8000278, 0,0); /* Result */ Result = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(17, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTHOOK(2); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(11849, "reverse", Result))(Result); if (RTAL & CK_ENSURE) { RTHOOK(3); RTCT("is_reversed", EX_POST); tb1 = *(EIF_BOOLEAN *)(Result + RTVA(11845, "is_reversed", Result)); tb2 = *(EIF_BOOLEAN *)(Current + RTWA(11845, dtype)); if ((EIF_BOOLEAN)(tb1 == (EIF_BOOLEAN) !tb2)) { RTCK; } else { RTCF; } RTHOOK(4); RTCT("same_structure", EX_POST); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(11852, "target", Result))(Result)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(11852, 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, tr2)) { RTCK; } else { RTCF; } RTHOOK(5); RTCT("same_step", EX_POST); ti4_1 = *(EIF_INTEGER_32 *)(Result + RTVA(11839, "step", Result)); ti4_2 = *(EIF_INTEGER_32 *)(Current + RTWA(11839, dtype)); if ((EIF_BOOLEAN)(ti4_1 == ti4_2)) { RTCK; } else { RTCF; } } RTVI(Current, RTAL); RTRS; RTHOOK(6); RTDBGLE; RTMD(0); RTLE; RTLO(2); RTEE; { EIF_TYPED_VALUE r; r.type = SK_REF; r.it_r = Result; return r; } #undef up1 }
/* {EV_SIMPLE_HELP_ENGINE}.show */ void F999_9055 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "show"; 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_TYPED_VALUE ui4_1x = {{0}, SK_INT32}; #define ui4_1 ui4_1x.it_i4 EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; RTCDT; RTSN; RTDA; RTLD; RTLI(8); RTLR(0,arg1); RTLR(1,loc1); RTLR(2,tr1); RTLR(3,ur1); RTLR(4,Current); RTLR(5,tr2); RTLR(6,tr3); RTLR(7,tr4); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTEAA(l_feature_name, 998, Current, 1, 1, 14617); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(998, Current, 14617); RTCC(arg1, 998, l_feature_name, 1, eif_attached_type(1202)); RTIV(Current, RTAL); if ((RTAL & CK_REQUIRE) || RTAC) { RTHOOK(1); RTCT("a_help_context_not_void", EX_PRE); RTTE((EIF_BOOLEAN)(arg1 != NULL), label_1); RTCK; RTJB; label_1: RTCF; } body:; RTHOOK(2); RTDBGAL(Current, 1, 0xF80004ED, 0, 0); /* loc1 */ tr1 = RTLN(1261); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(9030, Dtype(tr1)))(tr1, ur1x); RTNHOOK(2,1); loc1 = (EIF_REFERENCE) RTCCL(tr1); RTHOOK(3); ui4_1 = ((EIF_INTEGER_32) 1L); { static EIF_TYPE_INDEX typarr0[] = {242,0xFF11,216,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr2 = RTLNSP2(eif_non_attached_type(typres0),EO_REF,ui4_1,sizeof(EIF_REFERENCE), EIF_FALSE); RT_SPECIAL_COUNT(tr2) = 1L; memset(tr2, 0, RT_SPECIAL_VISIBLE_SIZE(tr2)); } tr4 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6914, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr3 = RTCCL(tr4); *((EIF_REFERENCE *)tr2+0) = (EIF_REFERENCE) tr3; RTAR(tr2,tr3); tr1 = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(2397, Dtype(tr2)))(tr2).it_r; ur1 = RTCCL(tr1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9038, "set_buttons", loc1))(loc1, ur1x); RTHOOK(4); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6914, 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); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9041, "button", loc1))(loc1, 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); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(9018, "set_default_push_button", loc1))(loc1, ur1x); RTHOOK(5); tr1 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(6929, 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)) RTVF(8944, "set_title", loc1))(loc1, ur1x); RTHOOK(6); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(8938, "disable_user_resize", loc1))(loc1); RTHOOK(7); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(8822, "show", loc1))(loc1); RTVI(Current, RTAL); RTRS; RTHOOK(8); RTDBGLE; RTMD(0); RTLE; RTLO(4); RTEE; #undef up1 #undef ur1 #undef ui4_1 #undef arg1 }