ГОСТ Р ИСО 13584-42—2012
Пример представления на язь-хе EXPRESS:
*)
FUNCTION one_lar>guage_per_translation (adm: administrative_dala)
"! LOGICAL;
LOCAL
count; INTEGER;
lang: language_code;
END_LOCAL;
REPEAT i;= 1TO SIZEOF (adm.translation);
lang:= adm.transfation[i].language;
count:= 0;
REPEAT j:=1 TO SIZEOF (adm.translation);
IF lang = adm.translation(j].language
THEN
count:= count*1:
ENDJF;
END_REPEAT;
IF count >1
THEN RETURN (FALSE);
ENDJF:
END_REPEAT;
RETURN(TRUE);
END_FUNCTION; — oneJar>guage_perJransiation
(*
F.3.10.19 Функция вычисления целых значений неколичественного типа (Allowed_valueJntegerJype)
Функция allowed_valueJntegerJype вычисляет набор целых integerjype значений, допустимых для атри
бута non_quantitativeJntJype. Если рассматриваемый параметр не определен, то функция возвращает неопре
деленное значение.
Пример представления на языке EXPRESS:
*)
FUNCTION allo\ved_va!uesJntegerjypes (nqit: non_quantitative_int_type)
: SET OF integerjype;
LOCAL
s: SET OF integerjype:=[ ];
ENDJ.O CAL;
REPEAT i;=1 TO SIZEOF (nqit.domain.its_values);
s:= s + nqit.domain.its_values[i].value_code;
END_REPEAT;
RETURN(s);
END_FUNCTION: — allo\ved_va!uesJntegerJypes
(*
F.3.10.20 Функция идентификации свойств со значением класса (ls_dass_valued_properties)
Функция is_class_valued_properties возеращаег значение TRUE, если свойство prop определено как свой
ство со значением класса в классе cl с помощью атрибута sub_class_properties в классе cl или в любом его
суперклассе. Если словарные определения dictionary_definition некоторых классов недоступны (при
вычислении всех суперклассов для класса cl), то функция возвращает UNKNOWN.
Пример представления на языке EXPRESS:
*)
FUNCTION is_class_valued_property(
prop: propertyJ3SU: cl: class_BSU): LOGICAL:
IF (SIZEOF(cl.definition) = 0)
THEN
RETURN (UNKNOWN);
ELSE
IF NOT ((’IS013584JEC61360_DICTIO NARY_SCHEM A
+’.ITEM_CLASS’) IN TYPEOF(d.dermition[1)))
THEN
RETURN (FALSE):
E N D JF:
IF prop IN cl.definition[1J.sub_dass_properties
124