ГОСТ Р ИСО 13584-25—2010
IF(’IS013584JNSTANCE_RESOURCE_SCHEMA.NUMBER_VALUE’ INTYPEOF(val))
THEN
RETURN(’ISO13584_IEC61360_DICTIONARY_SCHEMA.NUMBER_TYPE’
IN TYPEOF(typ));
ENDJF:
IF(’IS013584INSTANCE_RES0URCE_SCHEMA.B00LEAN_VALUE’IN TYPEOF(val))
THEN
RETURN(TSO13584_IEC61360_DICTIONARY_SCHEMA.BOOLEAN_TYPE’
IN TYPEOF(typ));
ENDJF;
IF(TS013584JNSTANCE RESOURCE_SCHEMA.TRANSLATABLE_STRING_VALUE’ IN
TYPEOF(val))
THEN
IF ((’IS013584JEC61360_DlCTIONARY_SCHEMA’ +
’.NON_QUANTITATlVE_CODE_TYPE’) INTYPEOF(typ))
THEN
set_strir»g := (];
code_lypo := typ;
REPEATj := 1TO SIZEOF(codeJype.domain.its_values);
set_string := set_string +
codeJype. domain.its_va lues[j] ,value_code;
END_REPEAT;
RETURN((’IS013584_INSTANCE_RES0URCE_SCHEMA.STRING_VALUE’
IN TYPEOF(val)) AND (val IN set_string));
ELSE
RETURN(’ISO13584JEC61360_DICTIONARY_SCHEMA.STRING_TYPE’
INTYPEOF(typ));
ENDJF;
ENDJF;
IFTS013584JNSTANCE_RES0URCE_SCHEMA.ENTITY_INSTANCE_VALUE’
INTYPEOF(val)
THEN
IF’IS013584JNSTANCE_RESOURCE_SCHEMA’ +
’.UNCONTROLLED ENTITY_INSTANCE_VALUE’INTYPEOF(val)
THEN
RETURN(UNKNOWN);
ENDJF;
IF(TSO13584JEC61360_DICTIONARY_SCHEMA.ENTITYJNSTANCE_TYPE’
IN TYPEOF(typ)) AND
(typ\entityjnstancejype.type_name <=TYPEOF(val))
THEN
RETURN(TRUE);
ELSE
RETURN(FALSE),
ENDJF;
ENDJF;
IFTSOI3584JNSTANCE_RESOURCE_SCHEMA.DIC CLASS_INSTANCE’
INTYPEOF(val)
THEN
IF(’IS013584JEC61360_DICTIONARY_SCHEMA.CLASS_INSTANCE_TYPE*
IN TYPEOF(typ))
THEN
RETURN(compatible_class_and_class(typ\classJnstanceJype.
domain.vaKdic_class instance.class_deO);
ELSE
22