ГОСТ Р МЭК 61360-2—2013
Пример представления на языке EXPRESS:
М
FUNCTION one_language_per_translation (adm: administrative_data)
:LOGICAL;
LOCAL
count: INTEGER; lang:
language_code;
END_LOCAL;
REPEAT i
lang
1 TO SIZEOF (adro.translation);
adm,translation[i].language;
count0;
REPEAT j :-l TO SIZEOF (adm.translation);
IF lang - adm.translation-j].language
THEN
count :- count+2;
END_IF;
ENO_REPEAT;
IF count >1
THEN RETURN (FALSE);
END_1F;
END_REPEAT;
RETURN(TRUE);
END_FUNCTION; — or.e_language_per_translation
<* "
5.12.20 Функция вычисления целых значений неколичественного типа (Allowed_value_
integer_type)
Функция allowed_value_integer_typo вычисляет набор целых integer_type значений, допустимых
для атрибута non_quantitative_int_type. Если рассматриваемый параметр не определен, то функция
возвращает неопределенное значение.
Пример представления на языке EXPRESS:
*1
FUNCTION allowed_values_integer_types (r.qit: nor._quantitative_int_type)
:SET OF ir.teger_type;
LOCAL
s : SET OF integer_type :-[?•;
END_LOCAL;
REPEAT i:-l TO SIZEOF (nqit.domain.its_values);
s :- s * nqit.domain.its_values[ij.value_code;
END_R£PEAT;
RETURN(s);
END_FUNCTION; -- allowed_values_integer_types
(* "
5.12.21 Функция идентификации свойств со значением класса (ls_class_valued_properties)
Функция is_class_valued_properties возвращает значение TRUE, если свойство prop определе
но как свойство со значением класса в классе cl с помощью атрибута sub_class_properties в классе cl
или в любом его суперклассе. Если словарные определения dictlonary_definition некоторых классов
недоступны (при вычислении всех суперклассов для класса cl), то функция возвращает UNKNOWN.
88