ГОС! Р ИСО 10303-203-2003
ENDJF;
END_REPEAT;
END_REPEAT ;
RETURN (result):
END_FUNCTION; - - surface_weights_positive
FUNCTION lopology_rcversed(anJtcm: rcvcrsible_topology
): revcrsiblctopology;
IF CONFIG_CONTROLJ)ESIGN.EDGE’ IN TYPEOF(anJtcm) THEN
RETURN (edge_revereed(an_item)) ;
EN D JF;
IF ‘CONFIG_CONTROL_DESIGN.PATH’ IN TYPEOF(an_iicm> THEN
RETURN (path_rcverscd(anjlcm)) ;
ENDJF;
IF CONFIG_CONTROL_DESIGN.FACE_BOUND- IN TYPEOF(anJtcm) THEN
RETURN (faccJ)ound_rcvciscd(anJtem)) ;
E N D JF;
IF ’CONFIG_CONTROL_DESIGN.FACE* IN TYPEOF(anJtcm) THEN
RETURN (lacc_rcvcrscd(anjtem)) ;
ENDJF;
IF ‘CONFIG_CONTROL_DESIGN.SHELL’ IN TYPEOF(anJtcm) THEN
RETURN <shell_rcvcrscd(anjtcm)) ;
END IF;
IF ’SET’ IN TYPEOF(anJtcm) THEN
RETURN (set_of_topology_rcverscd(an_item)) ;
END_IF;
IF ’LIST’ IN TYPEOF(anJtcm) THEN
RETURN (list_ofjopology_rcversed(an_itcm)) ;
EN D JF;
RETURN (?);
END FUNCTION; - - topology_rcverscd
FUNCTION uniquc_vcrsion_changc_ordcr(c: action): BOOLEAN:
LOCAL
ords: action_directive :« c\dircctcd_action.dirccUve;
assign ; SET OF changc_rcquest ;* | |;
versions : SET OF product_dcfmitionJormation :•» ( |;
END_LOCAL ;
REPEAT i := I TO SIZEOF(ords.rcquests) BY 1;
assign :™assign + QUERY ( ara <* bag_to_set(USEDIN(ords.requcsls|i|.
’CONFIGJ10NTROL_DESIGN.ACTION_REQUESr ASSIGNMENT.’ +
’ASSIGNED_ACTION_REQUESD) | <
CONFIG_CONTROL_DESIGN.CHANGE_REQUEST’ IN TYPEOF(ara)) );
END_REPEAT;
REPEAT кI TO SIZEOF(assign) BY I;
versionsversions + assign|k).items;
END_REPEAT ;
RETURN(SIZEOF(QUERY ( vers <* versions | (NOT (SIZEOF(
QUERY ( othcr_vers <* (versions - vers) | (vers.of_product :*=:
other_vcrs.of_product) )) *»0)) )) = 0);
END_FUNCTION; - - uniquc_version_changc_order
FUNCTION using_itcms (item: founded_item_select;
chcckcdjtcms: SET OF foundcd_item_select
): SET OF foundcdJtem_selcct:
LOCAL
ncxl_itcms: SET OF founded item sclcct;
ncw chcckjtcms; SET OF foundedJtem_sclcct;
result items: SET OF foundcd_itcm_select;
END_LOCAL;
202