FUNCTION find_representative_shape_representation_of_product_definition
(item : product_definition) : shape_representation;
LOCAL local_s_r: SET OF shape_representation := []; END_LOCAL; -- find representative_shape_representation OF the product_definition local_s_r := QUERY ( z <* find_shape_representation_of_product_definition (item)| 'REPRESENTATIVE_SHAPE_REPRESENTATION' IN TYPEOF(z)); IF (SIZEOF (local_s_r) = 1) THEN RETURN (local_s_r[1]); ELSE RETURN(?); END_IF; END_FUNCTION; -- find_representative_shape_representation_of_product_definition
|