|
FUNCTION appropriate_set_value_existence (values_and_locations : SET [1:?] OF GENERIC, type_self : SET [1:?] OF STRING) : BOOLEAN; LOCAL i : INTEGER ; END_LOCAL ; REPEAT i := 1 TO HIINDEX ( values_and_locations ) ; IF NOT ( appropriate_value_existence ( values_and_locations [ i ] . simple_value , type_self ) ) THEN RETURN ( FALSE ) ; END_IF ; END_REPEAT ; RETURN ( TRUE ) ; END_FUNCTION; -- appropriate_set_value_existence |
|
public class FAppropriate_set_value_existence public static Value run(SdaiContext _context, Value values_and_locations, Value type_self) |