|
FUNCTION consistent_element_or_group_reference (aspect : GENERIC, element : GENERIC) : BOOLEAN; LOCAL srrs : STRING ; i : INTEGER ; END_LOCAL ; srrs := 'structural_response_representation_schema.' ; IF ( ( srrs + 'element_representation' ) IN TYPEOF ( element ) ) THEN RETURN ( consistent_element_reference ( aspect , element ) ) ; END_IF ; IF ( ( srrs + 'element_group' ) IN TYPEOF ( element ) ) THEN REPEAT i := 1 TO HIINDEX ( element . elements ) ; IF NOT ( consistent_element_reference ( aspect , element . elements [ i ] ) ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_IF ; RETURN ( FALSE ) ; END_FUNCTION; -- consistent_element_or_group_reference |
|
public class FConsistent_element_or_group_reference public static Value run(SdaiContext _context, Value aspect, Value element) |