ГОСТ Р ИСО 10303-203-2003
END_REPEAT ;
EN D JF;
RETURN (TRUE) ;
END_FUNCTION; - - acyclic_mappcd_rcprescntation
FUNCTION acyclic_point_replica (rep: pomt_replica;
parent: point): BOOLEAN;
IF NOT (’CON FlG_CONTROL_DESIGN.POINT,REPLICA* IN TYPEOF (parent)) THEN
RETURN (TRUE);
END_IF ;
IF pitrent :-: rep THEN RETURN(FALSE);
ELSE
RETURN (ac vcIic_point_repltea (rep, parcnt\point,rcpl»ca.parcnt_pt)) ;
END_IF;
END_FUNCT10N; - - acyclic_point_replica
FUNCTION acyclic_product,catcgory,relationship (
relation: product_catcgory relationship:
children: SET OF pmducl_category): LOGICAL;
LOCAL
i: INTEGER:
x: SET OF product_catcgory_rclationship:
local_childrcn : SET OF product_catcgorv;
END_LOC’AL ;
REPEAT i :- 1 TO HIINDEX (children) BY I;
IF relation.catcgurychildrcn|i| THEN RETURN(FALSE);
E N D JF ;
END_REPEAT;
x :- bag_io_sct(USEDlN(rclaiion.catcgor\\. ’CONFIG_CONTROL_DESIGN.’ *
PRODUCT_CATEGORY_RELATIONSHIP.SUB_CATEGORY’ ));
iocal_childrcn :** children + relation.category:
IF SIZEOF(x) > 0 THEN
REPEAT i :» I TO HIINDEX (x) BY 1;
IF NOT acvclic_product_catcgorv_rclationship<x|iJ. local_chiklren)
THEN RETURN (FALSE);
END IF:
END_REPEAT ;
E N D JF ;
RETURN (TRUE);
END FUNOTION; - - acyclic_pnoduct_catcgory .relationship
FUNCTION acyclic_product_dcfmition_rclationship (
relation: product_definition_re!ationship;
relatives: SET fl-l OF product_dcfinition;
specific_rclation: STRING): LOGICAL;
LOCAL
x : SET OF product_dcfmition_relationship:
END_LOCAL ;
IF relation.relating_prodiict_dcfimtion IN relatives THEN
RETURN (FALSE) ;
ENDJF;
x :- QUERY <pd <* bag_lo_sct(USEDIN(rclation.
relating product definition. ’CONFIG_CONTROL_DESIGN.’
*
PRODUCT,DEFlNITION_REL\TIONSHIP., + ’RELATED_PRODUCT_DERNITION’))
| (specific rclatlon IN TYPEOF (pd)) ):
REPEAT iI TO HIINDEX (x) BY I;
IF NOT acyclic_prodiict_defmition_rclationship (x|i), relatives
*
relation.rclating_product_dcfmition, specific_rclation) THEN
RETURN (FALSE);
E N D JF ;
179