ГОСТ Р ИСО 10303-43—2016
:SET OFrepresentation;
:BAG OFrepresentation;
:SET OFfounded_item_select;
results
result_bag
intermediate..items
END_LOCAL;
-- Find the representations in which the item is used and add to the
-- results set.
results := [];
result_bag := USEDIN(item,’REPRBSENTATION..SCHEMA.REPRESENTATION.ITEMS’);
IF SIZEOF{result_bag> > 0 THEN
REPEAT i := 1 TO H1INDEX(result_bag);
results := results + result_bag[i];
END_REPEAT;
END_IF;
-- Find all representation..!terns or founded_items
-- by which item is referenced directly or indirectly,
intermediate^terns := using_items<item,Cl);
-- If the set of intermediate items is not empty;
IF SIZEOF(intermediate.items) > 0 THEN
-- For each element in the set, add the
-- representations of that element.
REPEAT i := 1 TO H1INDEX(intermediate..items);
result_bag := "JSEDIN(intermediatedterns[iJ,
*REPRESENTATION_SCHEMA.REPRESENTATION.ITEMS’);
IF SIZEOF<result_bag) > 0 THEN
REPEAT j := 1 TO HIINDEX(result_bag>;
results := results ■»result_bagij];
END.REPEAT;
END_1F;
END_REPEAT;
END.IF;
-- Return the set of representation in which the input item is
-- used directly and indirectly (through intervening
-- representation..!terns or founded items).
RETURN {results);
HHDL.FUNCTXON;
C
Определение параметра:
item — объект representationJtem или foundedjtem . для которого создается набор использую
щих его представлений. Это — входной параметр функции.
4.5.6 Функция valid_measure_value
Функция valid_measure_value выполняет проверку, имеет ли экземпляр объекта measure_
value разрешенное значение. Функция возвращает значение TRUE (истина) если экземпляр объекта
moasure_value имеет численное значение и это значение положительно или если значение экземпля ра
текстовое. Функция valid_measure_valuo возвращает значение FALSE (ложь) в противном случае.
EXPRESS-специФикаиия:
*)
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);
END_IF;
27