FUNCTION consistent_configuration_type
(config : configuration) : BOOLEAN;
IF ('SPECIFICATION_BASED_CONFIGURATION_ARM.CLASS_CONDITION_ASSOCIATION' IN TYPEOF(config.is_solution_for)) THEN IF config.configuration_type = configuration_kind.usage THEN RETURN(config.is_solution_for\Class_condition_association.condition_type ='part usage'); ELSE RETURN(config.is_solution_for\Class_condition_association.condition_type ='design case'); END_IF; END_IF;
IF ('SPECIFICATION_BASED_CONFIGURATION_ARM.CLASS_SPECIFICATION_ASSOCIATION' IN TYPEOF(config.is_solution_for)) THEN IF config.configuration_type = configuration_kind.usage THEN RETURN(config.is_solution_for\Class_specification_association.association_type ='part usage'); ELSE RETURN(config.is_solution_for\Class_specification_association.association_type ='design case'); END_IF; END_IF;
RETURN(FALSE); END_FUNCTION; -- consistent_configuration_type
|