/* {INET4_ADDRESS}.is_mc_site_local */
EIF_TYPED_VALUE F52_972 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "is_mc_site_local";
RTEX;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN tb1;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 51, Current, 0, 0, 1024);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(51, Current, 1024);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
tb1 = '\0';
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
if (((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 239L)))) {
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tb1 = ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 255L)));
}
Result = (EIF_BOOLEAN) tb1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
}
/* {DATE_VALUE}.year */
EIF_TYPED_VALUE F1095_10142 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "year";
RTEX;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
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, 1094, Current, 0, 0, 15778);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(1094, Current, 15778);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x10000000, 1,0); /* Result */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(7829, dtype));
ti4_2 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7834, dtype))(Current)).it_i4);
ui4_1 = ti4_2;
ti4_2 = eif_bit_and(ti4_1,ui4_1);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(7835, dtype))(Current)).it_i4);
ui4_1 = ti4_1;
ti4_1 = eif_bit_shift_right((ti4_2),ui4_1);
ui4_1 = ((EIF_INTEGER_32) 65535L);
ti4_2 = eif_bit_and((ti4_1),ui4_1);
Result = (EIF_INTEGER_32) ti4_2;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_INT32; r.it_i4 = Result; return r; }
#undef ui4_1
}
/* {INET4_ADDRESS}.is_loopback_address */
EIF_TYPED_VALUE F52_966 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "is_loopback_address";
RTEX;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 51, Current, 0, 0, 1018);
RTSA(Dtype(Current));
RTSC;
RTME(Dtype(Current), 0);
RTGC;
RTDBGEAA(51, Current, 1018);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, Dtype(Current)));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
Result = (EIF_BOOLEAN) ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 127L)));
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
}
/* {EV_GTK_C_STRING}.internal_set_with_eiffel_string */
void F781_7432 (EIF_REFERENCE Current, EIF_REFERENCE arg1, EIF_BOOLEAN arg2)
{
GTCX
EIF_POINTER loc1 = (EIF_POINTER) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc3 = (EIF_INTEGER_32) 0;
EIF_NATURAL_32 loc4 = (EIF_NATURAL_32) 0;
EIF_INTEGER_32 loc5 = (EIF_INTEGER_32) 0;
EIF_REFERENCE loc6 = (EIF_REFERENCE) 0;
EIF_POINTER tp1;
EIF_POINTER tp2;
EIF_NATURAL_32 tu4_1;
EIF_NATURAL_32 tu4_2;
EIF_NATURAL_32 tu4_3;
EIF_INTEGER_8 ti1_1;
EIF_NATURAL_8 tu1_1;
EIF_BOOLEAN tb1;
RTLD;
RTLI(3);
RTLR(0,arg1);
RTLR(1,Current);
RTLR(2,loc6);
RTGC;
loc5 = (FUNCTION_CAST(EIF_INTEGER_32, (EIF_REFERENCE)) R8045[Dtype(arg1)-920])(RTCV(arg1));
loc3 = (EIF_INTEGER_32) loc5;
for (;;) {
if ((EIF_BOOLEAN)(loc3 == ((EIF_INTEGER_32) 0L))) break;
loc4 = (FUNCTION_CAST(EIF_NATURAL_32, (EIF_REFERENCE, EIF_INTEGER_32)) R8008[Dtype(arg1)-922])(RTCV(arg1), loc3);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 127L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2++;
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 2047L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2 += ((EIF_INTEGER_32) 2L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 65535L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
loc2 += ((EIF_INTEGER_32) 3L);
} else {
loc2 += ((EIF_INTEGER_32) 4L);
}
}
}
loc3--;
}
loc3 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 1L);
tb1 = '\0';
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
if ((EIF_BOOLEAN)(*(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_) != tp1)) {
tb1 = (EIF_BOOLEAN) !*(EIF_BOOLEAN *)(Current+ _CHROFF_0_0_);
}
if (tb1) {
tp1 = *(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_);
loc1 = (EIF_POINTER) g_realloc((gpointer) tp1, (gulong) (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
tp2 = tp1;
*(EIF_POINTER *)(Current+ _PTROFF_0_1_0_1_0_0_) = (EIF_POINTER) tp2;
} else {
loc1 = (EIF_POINTER) g_malloc((gulong) (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
}
loc6 = RTOSCF(7431,F781_7431,(Current));
F778_7238(RTCV(loc6), loc1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
loc2 = (EIF_INTEGER_32) ((EIF_INTEGER_32) 0L);
for (;;) {
if ((EIF_BOOLEAN) (loc3 > loc5)) break;
loc4 = (FUNCTION_CAST(EIF_NATURAL_32, (EIF_REFERENCE, EIF_INTEGER_32)) R8008[Dtype(arg1)-922])(RTCV(arg1), loc3);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 127L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu1_1 = (EIF_NATURAL_8) loc4;
F778_7260(RTCV(loc6), tu1_1, loc2);
loc2++;
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 2047L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 192L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
loc2 += ((EIF_INTEGER_32) 2L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 65535L);
if ((EIF_BOOLEAN) (loc4 <= tu4_1)) {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 224L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 12L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 2L)));
loc2 += ((EIF_INTEGER_32) 3L);
} else {
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 240L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 18L));
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, loc2);
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 12L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = eif_bit_shift_right(loc4,((EIF_INTEGER_32) 6L));
tu4_3 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and((tu4_2),tu4_3);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 2L)));
tu4_1 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 128L);
tu4_2 = (EIF_NATURAL_32) ((EIF_INTEGER_32) 63L);
tu4_2 = eif_bit_and(loc4,tu4_2);
tu4_1 = eif_bit_or(tu4_1,tu4_2);
tu1_1 = (EIF_NATURAL_8) tu4_1;
F778_7260(RTCV(loc6), tu1_1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 3L)));
loc2 += ((EIF_INTEGER_32) 4L);
}
}
}
loc3++;
}
ti1_1 = (EIF_INTEGER_8) ((EIF_INTEGER_32) 0L);
F778_7264(RTCV(loc6), ti1_1, loc2);
F781_7433(Current, loc1, (EIF_INTEGER_32) (loc2 + ((EIF_INTEGER_32) 1L)), arg2);
{
/* INLINED CODE (default_pointer) */
tp1 = (EIF_POINTER) 0;
/* END INLINED CODE */
}
tp2 = tp1;
F778_7238(RTCV(loc6), tp2, ((EIF_INTEGER_32) 0L));
RTLE;
}
/* {INET4_ADDRESS}.raw_address */
EIF_TYPED_VALUE F52_974 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "raw_address";
RTEX;
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 uu1_1x = {{0}, SK_UINT8};
#define uu1_1 uu1_1x.it_n1
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_NATURAL_8 tu1_1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(3);
RTLR(0,Current);
RTLR(1,tr1);
RTLR(2,Result);
RTLU (SK_REF, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 51, Current, 0, 0, 1026);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(51, Current, 1026);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0xF800021B, 0,0); /* Result */
{
static EIF_TYPE_INDEX typarr0[] = {539,187,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 = RTLN(typres0);
}
uu1_1 = ((EIF_NATURAL_8) 0U);
ui4_1 = ((EIF_INTEGER_32) 1L);
ti4_1 = (((FUNCTION_CAST(EIF_TYPED_VALUE, (EIF_REFERENCE)) RTWF(914, dtype))(Current)).it_i4);
ui4_2 = ti4_1;
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTWC(2538, Dtype(tr1)))(tr1, uu1_1x, ui4_1x, ui4_2x);
RTNHOOK(1,1);
Result = (EIF_REFERENCE) RTCCL(tr1);
RTHOOK(2);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 1L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1415, "put", Result))(Result, uu1_1x, ui4_1x);
RTHOOK(3);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 2L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1415, "put", Result))(Result, uu1_1x, ui4_1x);
RTHOOK(4);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 8L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tu1_1 = (EIF_NATURAL_8) ti4_1;
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 3L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1415, "put", Result))(Result, uu1_1x, ui4_1x);
RTHOOK(5);
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_2 = eif_bit_and(ti4_1,ui4_1);
tu1_1 = (EIF_NATURAL_8) ti4_2;
uu1_1 = tu1_1;
ui4_1 = ((EIF_INTEGER_32) 4L);
(FUNCTION_CAST(void, (EIF_REFERENCE, EIF_TYPED_VALUE, EIF_TYPED_VALUE)) RTVF(1415, "put", Result))(Result, uu1_1x, ui4_1x);
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 ui4_1
#undef ui4_2
#undef uu1_1
}
/* {INET4_ADDRESS}.is_mc_global */
EIF_TYPED_VALUE F52_969 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "is_mc_global";
RTEX;
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc3 = (EIF_INTEGER_32) 0;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU (SK_REF, &Current);
RTLU(SK_INT32, &loc1);
RTLU(SK_INT32, &loc2);
RTLU(SK_INT32, &loc3);
RTEAA(l_feature_name, 51, Current, 3, 0, 1021);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(51, Current, 1021);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 1, 0x10000000, 1, 0); /* loc1 */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
loc1 = (EIF_INTEGER_32) ti4_1;
RTHOOK(2);
RTDBGAL(Current, 2, 0x10000000, 1, 0); /* loc2 */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
loc2 = (EIF_INTEGER_32) ti4_1;
RTHOOK(3);
RTDBGAL(Current, 3, 0x10000000, 1, 0); /* loc3 */
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(918, dtype));
ui4_1 = ((EIF_INTEGER_32) 8L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
loc3 = (EIF_INTEGER_32) ti4_1;
RTHOOK(4);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
Result = (EIF_BOOLEAN) (EIF_BOOLEAN) ((EIF_BOOLEAN) ((EIF_BOOLEAN) (loc1 >= ((EIF_INTEGER_32) 224L)) && (EIF_BOOLEAN) (loc1 <= ((EIF_INTEGER_32) 238L))) && (EIF_BOOLEAN) !(EIF_BOOLEAN) ((EIF_BOOLEAN) ((EIF_BOOLEAN)(loc1 == ((EIF_INTEGER_32) 224L)) && (EIF_BOOLEAN)(loc2 == ((EIF_INTEGER_32) 0L))) && (EIF_BOOLEAN)(loc3 == ((EIF_INTEGER_32) 0L))));
RTVI(Current, RTAL);
RTRS;
RTHOOK(5);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(5);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
}
/* {EV_CHARACTER_FORMAT_I}.out */
EIF_REFERENCE F1044_13331 (EIF_REFERENCE Current)
{
GTCX
EIF_INTEGER_32 loc1 = (EIF_INTEGER_32) 0;
EIF_INTEGER_32 loc2 = (EIF_INTEGER_32) 0;
EIF_REFERENCE tr1 = NULL;
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_8 ti1_1;
EIF_BOOLEAN tb1;
EIF_REFERENCE Result = ((EIF_REFERENCE) 0);
RTLD;
RTLI(3);
RTLR(0,Current);
RTLR(1,Result);
RTLR(2,tr1);
RTGC;
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_8_);
Result = c_outi(ti4_1);
tr1 = *(EIF_REFERENCE *)(Current + _REFACS_1_);
tr1 = F920_10291(RTCV(tr1));
F923_10435(RTCV(Result), tr1);
tr1 = c_outi(F1045_13382(Current));
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_6_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_5_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
loc2 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_2_);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 16L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 8L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
ti1_1 = (EIF_INTEGER_8) loc2;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc2 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_1_);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 16L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
loc1 = eif_bit_shift_right(loc2,((EIF_INTEGER_32) 8L));
ti1_1 = (EIF_INTEGER_8) loc1;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
ti1_1 = (EIF_INTEGER_8) loc2;
tr1 = c_outi(ti1_1);
F923_10435(RTCV(Result), tr1);
tb1 = *(EIF_BOOLEAN *)(Current+ _CHROFF_2_2_);
tr1 = (tb1 ? makestr ("True", 4) : makestr ("False", 5));
F923_10435(RTCV(Result), tr1);
tb1 = *(EIF_BOOLEAN *)(Current+ _CHROFF_2_1_);
tr1 = (tb1 ? makestr ("True", 4) : makestr ("False", 5));
F923_10435(RTCV(Result), tr1);
ti4_1 = *(EIF_INTEGER_32 *)(Current+ _LNGOFF_2_4_0_3_);
tr1 = c_outi(ti4_1);
F923_10435(RTCV(Result), tr1);
RTLE;
return Result;
}
/* {INET4_ADDRESS}.is_site_local_address */
EIF_TYPED_VALUE F872_7108 (EIF_REFERENCE Current)
{
GTCX
char *l_feature_name = "is_site_local_address";
RTEX;
EIF_TYPED_VALUE ui4_1x = {{0}, SK_INT32};
#define ui4_1 ui4_1x.it_i4
EIF_INTEGER_32 ti4_1;
EIF_INTEGER_32 ti4_2;
EIF_BOOLEAN tb1;
EIF_BOOLEAN tb2;
EIF_BOOLEAN tb3;
EIF_BOOLEAN Result = ((EIF_BOOLEAN) 0);
RTCDT;
RTSN;
RTDA;
RTLD;
RTLI(1);
RTLR(0,Current);
RTLU (SK_BOOL, &Result);
RTLU (SK_REF, &Current);
RTEAA(l_feature_name, 871, Current, 0, 0, 12562);
RTSA(dtype);
RTSC;
RTME(dtype, 0);
RTGC;
RTDBGEAA(871, Current, 12562);
RTIV(Current, RTAL);
RTHOOK(1);
RTDBGAL(Current, 0, 0x04000000, 1,0); /* Result */
tb1 = '\01';
tb2 = '\01';
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(871, 55, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
if (!(((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 10L))))) {
tb3 = '\0';
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(871, 55, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
if (((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 172L)))) {
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(871, 55, dtype));
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 240L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tb3 = ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 16L)));
}
tb2 = tb3;
}
if (!tb2) {
tb2 = '\0';
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(871, 55, dtype));
ui4_1 = ((EIF_INTEGER_32) 24L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
if (((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 192L)))) {
ti4_1 = *(EIF_INTEGER_32 *)(Current + RTWA(871, 55, dtype));
ui4_1 = ((EIF_INTEGER_32) 16L);
ti4_2 = eif_bit_shift_right(ti4_1,ui4_1);
ui4_1 = ((EIF_INTEGER_32) 255L);
ti4_1 = eif_bit_and((ti4_2),ui4_1);
tb2 = ((EIF_BOOLEAN)(ti4_1 == ((EIF_INTEGER_32) 168L)));
}
tb1 = tb2;
}
Result = (EIF_BOOLEAN) tb1;
RTVI(Current, RTAL);
RTRS;
RTHOOK(2);
RTDBGLE;
RTMD(0);
RTLE;
RTLO(2);
RTEE;
{ EIF_TYPED_VALUE r; r.type = SK_BOOL; r.it_b = Result; return r; }
#undef ui4_1
}
