6.3.1 Общие положения
Данный подраздел содержит описание функции, на которую производится ссылка в разделах по месту для подтверждения непротиворечивости данных.
6.3.2 Функция проверки длины метки (Check_label_length)
Функция check_label_length проверяет тот факт, что ни одна из меток массива l не превышает длину, указанную атрибутом l_length.
Пример представления на языке EXPRESS:
*)
FUNCTION check_label_length (l: translatable_label; l_
length: INTEGER): BOOLEAN;
IF 'ISO13584_IEC61360_LANGUAGE_RESOURCE_SCHEMA.TRANSLATED_LABEL'
IN TYPEOF (l)
THEN
REPEAT i :=1 TO SIZEOF (l.labels);
IF LENGTH (l.labels[i]) > l_length
THEN
RETURN (FALSE);
END_IF;
END_REPEAT;
RETURN (TRUE);
ELSE(* the argument l is a single string *)
RETURN (LENGTH (l) <= l_length);
END_IF;
END_FUNCTION; -- check_label_length
(*