/* {EV_PND_ACTION_SEQUENCE}.call */ void F1097_10171 (EIF_REFERENCE Current, EIF_TYPED_VALUE arg1x) { GTCX char *l_feature_name = "call"; RTEX; EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_BOOLEAN loc2 = (EIF_BOOLEAN) 0; EIF_REFERENCE loc3 = (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 ub1x = {{0}, SK_BOOL}; #define ub1 ub1x.it_b EIF_REFERENCE tr1 = NULL; EIF_REFERENCE tr2 = NULL; EIF_REFERENCE tr3 = NULL; EIF_REFERENCE tr4 = NULL; EIF_INTEGER_32 ti4_1; EIF_INTEGER_32 ti4_2; EIF_INTEGER_32 ti4_3; EIF_INTEGER_32 ti4_4; EIF_BOOLEAN tb1; EIF_BOOLEAN tb2; EIF_BOOLEAN tb3; RTCDT; RTSN; RTDA; RTLD; RTLI(9); RTLR(0,arg1); RTLR(1,tr1); RTLR(2,Current); RTLR(3,tr2); RTLR(4,loc1); RTLR(5,tr3); RTLR(6,ur1); RTLR(7,loc3); RTLR(8,tr4); RTLU (SK_VOID, NULL); RTLU(SK_REF,&arg1); RTLU (SK_REF, &Current); RTLU(SK_REF, &loc1); RTLU(SK_BOOL, &loc2); RTLU(SK_REF, &loc3); RTEAA(l_feature_name, 1096, Current, 3, 1, 15964); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1096, Current, 15964); if (arg1) { { static EIF_TYPE_INDEX typarr0[] = {0xFFF9,1,173,0xFF11,0,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); RTCC(arg1, 1096, l_feature_name, 1, eif_non_attached_type(typres0)); } } RTIV(Current, RTAL); if (RTAL & CK_ENSURE) { in_assertion = ~0; RTE_OT tr2 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3459, dtype))(Current)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); tr1 = tr2; tr2 = NULL; RTE_O tr2 = RTLA; RTE_OE in_assertion = 0; } RTHOOK(1); if ((EIF_BOOLEAN)(arg1 != NULL)) { RTHOOK(2); RTDBGAL(Current, 1, 0xF8000104, 0, 0); /* loc1 */ { static EIF_TYPE_INDEX typarr0[] = {260,0xFF11,237,0xFF11,0,0xFFF9,1,173,0xFF11,0,0xFFFF}; EIF_TYPE_INDEX typres0; static EIF_TYPE_INDEX typcache0 = INVALID_DTYPE; typres0 = (typcache0 != INVALID_DTYPE ? typcache0 : (typcache0 = eif_compound_id(Dftype(Current), typarr0))); tr3 = RTLN(typres0); } ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(1752, dtype))(Current)).it_i4); ui4_1 = ti4_1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWC(3409, Dtype(tr3)))(tr3, ui4_1x); RTNHOOK(2,1); loc1 = (EIF_REFERENCE) RTCCL(tr3); RTHOOK(3); ur1 = RTCCL(Current); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1706, "fill", loc1))(loc1, ur1x); RTHOOK(4); ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(3449, dtype)); switch (ti4_1) { case 1L: RTHOOK(5); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3459, 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); ub1 = (EIF_BOOLEAN) 0; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1705, "extend", tr3))(tr3, ub1x); RTHOOK(6); RTDBGAL(Current, 2, 0x04000000, 1, 0); /* loc2 */ tr3 = eif_boxed_item(arg1,1); ur1 = RTCCL(tr3); loc2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTWF(7849, dtype))(Current, ur1x)).it_b); RTHOOK(7); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1774, "start", loc1))(loc1); if (RTAL & CK_LOOP) { RTHOOK(8); RTCT(NULL, EX_VAR); ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", loc1))(loc1)).it_i4); ti4_4 = *(EIF_INTEGER_32 *)(loc1 + RTVA(3423, "index", loc1)); ti4_2 = (EIF_INTEGER_32) ((EIF_INTEGER_32) (ti4_3 + ((EIF_INTEGER_32) 1L)) - ti4_4); if (ti4_2 >= 0) { RTCK; } else { RTCF; } } for (;;) { RTHOOK(9); tb1 = '\01'; ti4_3 = *(EIF_INTEGER_32 *)(loc1 + RTVA(3423, "index", loc1)); ti4_4 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", loc1))(loc1)).it_i4); if (!(EIF_BOOLEAN) (ti4_3 > ti4_4)) { tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3459, 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); tb2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1741, "item", tr3))(tr3)).it_b); tb1 = tb2; } if (tb1) break; RTHOOK(10); tb2 = '\0'; tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1741, "item", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(10,1); ur1 = RTCCL(arg1); tb3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4290, "valid_operands", tr3))(tr3, ur1x)).it_b); if (tb3) { tb2 = loc2; } if (tb2) { RTHOOK(11); RTDBGAL(Current, 3, 0xF80000AD, 0, 0); /* loc3 */ tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1741, "item", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(11,1); tr4 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(4288, "empty_operands", tr3))(tr3)), (((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(tr4); RTHOOK(12); ui4_1 = ((EIF_INTEGER_32) 1L); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(2386, "item", 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); ur1 = RTCCL(tr3); ui4_1 = ((EIF_INTEGER_32) 1L); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(3581, "put", loc3))(loc3, ur1x, ui4_1x); RTHOOK(13); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1741, "item", loc1))(loc1)), (((up1x.type & SK_HEAD) == SK_REF)? (EIF_REFERENCE) 0: (up1x.it_r = RTBU(up1x))), (up1x.type = SK_POINTER), up1x.it_r); RTNHOOK(13,1); ur1 = RTCCL(loc3); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(4296, "call", tr3))(tr3, ur1x); } RTHOOK(14); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1790, "forth", loc1))(loc1); if (RTAL & CK_LOOP) { RTHOOK(8); RTCT(NULL, EX_VAR); ti4_3 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTVF(1752, "count", loc1))(loc1)).it_i4); ti4_4 = *(EIF_INTEGER_32 *)(loc1 + RTVA(3423, "index", loc1)); ti4_1 = (EIF_INTEGER_32) ((EIF_INTEGER_32) (ti4_3 + ((EIF_INTEGER_32) 1L)) - ti4_4); if ((ti4_2 > ti4_1) && ti4_1 >= 0) { RTCK; ti4_2 = ti4_1; } else { RTCF; } } } RTHOOK(15); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3459, 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); (FUNCTION_CAST(void, (EIF_REFERENCE)) RTVF(1746, "remove", tr3))(tr3); break; case 2L: RTHOOK(16); tr3 = ((up1x = (FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(3461, 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); ur1 = RTCCL(arg1); (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE)) RTVF(1705, "extend", tr3))(tr3, ur1x); break; case 3L: break; default: RTEC(EN_WHEN); } }
/* {FIND_SEPARATOR_FACILITY}.extracted_substrings */ EIF_TYPED_VALUE F1514_15750 (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, 1513, Current, 3, 3, 20975); RTSA(dtype); RTSC; RTME(dtype, 0); RTGC; RTDBGEAA(1513, Current, 20975); RTCC(arg1, 1513, 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 }
/* {EV_PND_ACTION_SEQUENCE}.call */ void F733_6801 (EIF_REFERENCE Current, EIF_REFERENCE arg1) { GTCX EIF_REFERENCE loc1 = (EIF_REFERENCE) 0; EIF_BOOLEAN loc2 = (EIF_BOOLEAN) 0; EIF_REFERENCE loc3 = (EIF_REFERENCE) 0; 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_BOOLEAN tb3; RTLD; RTLI(6); RTLR(0,arg1); RTLR(1,loc1); RTLR(2,Current); RTLR(3,tr1); RTLR(4,tr2); RTLR(5,loc3); RTGC; if ((EIF_BOOLEAN)(arg1 != NULL)) { { static EIF_TYPE_INDEX typarr0[] = {700,915,0,0xFFF9,1,841,0,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 = RTLNS(typres0, 700, _OBJSIZ_1_1_0_1_0_0_0_0_); } ti4_1 = F701_6600(Current); F701_6579(RTCV(tr1), ti4_1); loc1 = (EIF_REFERENCE) tr1; (FUNCTION_CAST(void, (EIF_REFERENCE, EIF_REFERENCE)) R4202[Dtype(loc1)-304])(RTCV(loc1), Current); switch (*(EIF_INTEGER_32 *)(Current+ _LNGOFF_10_2_0_1_)) { case 1L: tr1 = F726_6736(Current); F649_6064(RTCV(tr1), (EIF_BOOLEAN) 0); tr1 = eif_boxed_item(arg1,1); tr2 = RTCCL(tr1); loc2 = F733_6806(Current, tr2); F701_6609(RTCV(loc1)); for (;;) { tb1 = '\01'; ti4_1 = *(EIF_INTEGER_32 *)(RTCV(loc1) + O5474[Dtype(loc1)-700]); ti4_2 = F701_6600(RTCV(loc1)); if (!(EIF_BOOLEAN) (ti4_1 > ti4_2)) { tb2 = F649_6062(RTCV(F726_6736(Current))); tb1 = tb2; } if (tb1) break; tb2 = '\0'; tr1 = F701_6583(RTCV(loc1)); tb3 = F915_9693(RTCV(tr1), arg1); if (tb3) { tb2 = loc2; } if (tb2) { loc3 = F701_6583(RTCV(loc1)); loc3 = F915_9690(RTCV(loc3)); tr1 = F842_8513(RTCV(arg1), ((EIF_INTEGER_32) 1L)); tr2 = RTCCL(tr1); F842_8547(RTCV(loc3), tr2, ((EIF_INTEGER_32) 1L)); tr1 = F701_6583(RTCV(loc1)); (FUNCTION_CAST(void, (EIF_POINTER, EIF_REFERENCE, EIF_REFERENCE)) *(EIF_POINTER *)(RTCV(tr1)+ _PTROFF_4_2_0_3_0_2_))( *(EIF_POINTER *)(RTCV(tr1)+ _PTROFF_4_2_0_3_0_1_), *(EIF_REFERENCE *)(RTCV(tr1) + _REFACS_1_), loc3); ; } F701_6611(RTCV(loc1)); } F649_6066(RTCV(F726_6736(Current))); break; case 2L: tr1 = F726_6738(Current); F651_6078(RTCV(tr1), arg1); break; case 3L: break; default: RTEC(EN_WHEN); } }