FUNCTION convert_to_operands
(values : AGGREGATE OF maths_value) : LIST [0:?] OF generic_expression;
LOCAL
operands : LIST OF generic_expression := [];
loc : INTEGER := 0;
END_LOCAL;
IF NOT EXISTS (values) THEN RETURN (?); END_IF;
REPEAT i := LOINDEX (values) TO HIINDEX (values);
INSERT (operands, convert_to_operand (values[i]), loc);
loc := loc + 1;
END_REPEAT;
RETURN (operands); END_FUNCTION; -- convert_to_operands
|