|
FUNCTION acyclic_versioned_action_request_relationship (relation : versioned_action_request_relationship, relatives : SET [0:?] OF versioned_action_request, specific_relation : STRING) : BOOLEAN; LOCAL x : SET OF versioned_action_request_relationship ; END_LOCAL ; IF relation . relating_versioned_action_request IN relatives THEN RETURN ( FALSE ) ; END_IF ; x := QUERY ( varr <* bag_to_set ( USEDIN ( relation . relating_versioned_action_request , 'action_schema.' + 'versioned_action_request_relationship.' + 'related_versioned_action_request' ) ) | specific_relation IN TYPEOF ( varr ) ) ; REPEAT i := 1 TO HIINDEX ( x ) ; IF NOT acyclic_versioned_action_request_relationship ( x [ i ] , relatives + relation . relating_versioned_action_request , specific_relation ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- acyclic_versioned_action_request_relationship |
|
public class FAcyclic_versioned_action_request_relationship public static Value run(SdaiContext _context, Value relation, Value relatives, Value specific_relation) |