ГОСТ Р МЭК 61360-2—2013
ir.t_type:nor._quantitative_int_type;
end
_
local
;
(• The following express statements deal with simple types *)
IP {’IS013584_INSTANCE_R£S0URCE_SCHEMA.1NTEGER_VALUE’ IK TYPEOF(val)>
THEN
IP (’ISO13584_IEC61360_DICTIONARY_SCHEMA.’+
•NOK_0b,ANTITATIVE_:NT_TYPE’ IN TYPEOF <dom>)
THEN
set_integer|);
int_type dom;
REPEAT j1 TO SI2EOF(mt_type.domain.its_values);
set_integerset_integer +■
int_type.domain.its_values[j}.valuecode;
END REPEAT;
RETURN(val IN set_integer);
ELSE
RETURN{<’ISO13584_IEC61360_DICTIONARY_SCHEMA.INT_TYPE’
IN TYPEOF (dom)) OR
(<•IS013584_IEC6136Э_ЭICT10NARY_SCHEMA.NU^^B£R_TYPE,
IN TYPEOF (dom))
ANDNOT((*ISO13584_lEC61360_DICT:ONARY_SCH£MA.REAL_TYPE’
IN TYPEOF (dom))
OR (’ISOl3584_IEC61360_DICTIONARY_3CHEMA.RATIONALITYPE’
IN TYPEOF (dom))))>;
END_IF;
END_IF;
IF (’IS013584_INSTANCE_RES0URCE_SCHEMA.REAL_VALUE’ IN TYPEOF(val))
THEN
RETURN<(,IS013584_IEC6136G_DICTI0NARY_SCHEMA.REAL_TYP£’
IN TYPEOF (dom)) OR
((’IS013584_IEC61360_D1CTIONARY_SCHEMA.NUMBER_TYPE’
IN TYPEOF (dom))
ANDNOT((’ISOl35841EC61360_DICTIONARY_SCHEMA.INT_TYPE’
IN TYPEOF (dom))
OR (’ISO13S84_lEC61360_DICTIONARY_SCHEMA.RATIONAL_TYPE’
IN TYPEOF (dom)))));
END_IF;
IF (’1S013584_INSTANCE_RES0URCE_SCHEKA.RATI0NAL_VALUE’ IN TYPEOF(val))
THEN
RETURN((’ISOI3584_IEC61360_D1CTIONARY_SCHEMA.RATIONAL TYPE’
IN TYPEOF (dom))OR
((’ISO13584_IEC61360_DICTIOHARY_3CHSMA.NUMBER_TYPE’
IN TYPEOF (dom))
ANDNOT((’ISO13584_IEC61360_DlCTIONARY_SCHEMA.INT_TYPE’
IN TYPEOF (dom))
OR (,ISO13584_IEC61360_DICTIONARY_SCHEMA.REAL_TYPE*
IN TYPEOF (dom)))));
END_IF;
IF (’IS013584_INSTANCE_RES0URCE_SCHEMA.STR:NG_VALUE’
IN TYPEOF(val))
110