|
FUNCTION acyclic_part_feature_placement_link (relation : part_feature_placement_link, relatives : SET [1:?] OF part_feature, specific_relation : STRING) : BOOLEAN; LOCAL x : SET OF part_feature_placement_link := [ ] ; END_LOCAL ; IF relation . subsequent_element IN relatives THEN RETURN ( FALSE ) ; END_IF ; x := QUERY ( pd <* bag_to_set ( USEDIN ( relation . subsequent_element , 'part_feature_grouping_xim.' + 'part_feature_placement_link.' + 'subsequent_element' ) ) | specific_relation IN TYPEOF ( pd ) ) ; REPEAT i := 1 TO HIINDEX ( x ) ; IF NOT acyclic_part_feature_placement_link ( x [ i ] , relatives + relation . subsequent_element , specific_relation ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- acyclic_part_feature_placement_link |
|
public class FAcyclic_part_feature_placement_link public static Value run(SdaiContext _context, Value relation, Value relatives, Value specific_relation) |