|
FUNCTION consistent_value (c_value : field_value, variable : GENERIC) : BOOLEAN; LOCAL vv_type : STRING ; fv_type : SET [ 1 : ? ] OF STRING ; END_LOCAL ; vv_type := variable_value_type ( variable ) ; fv_type := TYPEOF ( c_value ) ; IF NOT ( ( 'finite_element_analysis_control_and_result_schema.' + 'unspecified_value' ) IN fv_type ) THEN IF NOT ( vv_type IN fv_type ) THEN RETURN ( FALSE ) ; END_IF ; END_IF ; RETURN ( TRUE ) ; END_FUNCTION; -- consistent_value |
|
public class FConsistent_value public static Value run(SdaiContext _context, Value c_value, Value variable) |