ГОСТ Р ИСО 10303-43-2002
results := ||;
result_bag :=
USEDIN (item, ’REPRESENTATION „SCHEMA. REPRESENTATION.ITEMS’);
IF SIZEOF (resultJ>ag) > 0 THEN
REPEAT i := I TO HIINDEX (resultJ>ag);
results := results + result_bag |i|;
END REPEAT;
ENDJF;
— Находят все объекты representationjtem пли founded, item, на которые ссылаются прямо
— или косвенно
intermediatejtems := using_iterns (item. ||);
— Если набор промежуточных объектов не пустой
IF SIZEOF (intermediatejtems) > 0 THEN
—Добавляют соответствующие представления для каждого элемента набора
REPEAT i := I ТО HIINDEX (intermediatejtems);
result_bag := USEDIN (intermediatejtems |i|,
’REPRESENTATION_SCHEMA.REPRESENTATION. ITEMS’);
IF SIZEOF (result_bag) > 0 THEN
REPEAT j := I TO HIINDEX <result_.bag):
results := results + result_bag |j|;
END REPEAT;
END IF;
END REPEAT;
END, IF;
— Возвращают набор представлений, в которых исходный элемент использован прямо
—или косвенно (путем применения объектов representationjtem или foundedjtem)
RETURN (results);
ENDJU N CTIO N ;
<*
Описание аргумента
item —объекты representationjtem или foundedjtem, для которых определяют использование
экземпляров объекта representation. Данный аргумент является исходным для функции.
4.5.5 Ф у н к ц и я vа 1id_ me a s u r e _ v a l u e
Функция valid_measure_value определяет допустимые значения объекта measure, value. Данная
функция возвращает значение TRUE, если объект measure_value является положительным числом
или текстом. В противном случае функция возвращает значение FALS.
LXrKLSS-i’iieuiidjiiKauiiH
•)
FUNCTION valid_measure_value
(m : measure_value) : BOOLEAN;
IF (’REAL’ IN TYPEOF (m) ) THEN
RETURN (m > 0.0);
ELSE
IF ( INTEGER’ IN TYPEOF (m) ) THEN
RETURN (m > 0);
ELSE
RETURN (TRUE);
EN D JF;
END IF;
END_FU NOTION;
<*
Описание амумента
m — проверяемый объект measure_value. Данный аргумент является исходным для функции.
*)
END,SCHEMA; - - representation schema
С
23