|
FUNCTION used_variables (arg : generic_expression) : SET [0:?] OF generic_variable; LOCAL result : SET OF generic_variable := [ ] ; END_LOCAL ; IF 'iso13584_generic_expressions_schema.generic_variable' IN TYPEOF ( arg ) THEN RETURN ( [ arg ] ) ; END_IF ; IF 'iso13584_generic_expressions_schema.unary_generic_expression' IN TYPEOF ( arg ) THEN RETURN ( used_variables ( arg \ unary_generic_expression . operand ) ) ; END_IF ; IF 'iso13584_generic_expressions_schema.binary_generic_expression' IN TYPEOF ( arg ) THEN RETURN ( used_variables ( arg \ binary_generic_expression . operands [ 1 ] ) + used_variables ( arg \ binary_generic_expression . operands [ 2 ] ) ) ; END_IF ; IF 'iso13584_generic_expressions_schema.multiple_arity_generic_expression' IN TYPEOF ( arg ) THEN REPEAT i := 1 TO SIZEOF ( arg \ multiple_arity_generic_expression . operands ) ; result := result + used_variables ( arg \ multiple_arity_generic_expression . operands [ i ] ) ; END_REPEAT ; RETURN ( result ) ; END_IF ; RETURN ( [ ] ) ; END_FUNCTION; -- used_variables |
|
public class FUsed_variables public static Value run(SdaiContext _context, Value arg) |