(* SCHEMA structural_analysis_design; *)
FUNCTION consistent_set_values(
values_and_locations: SET [1:?] OF GENERIC;
variable: GENERIC
): BOOLEAN;
LOCAL
fv_type : SET [1:?] OF STRING;
i : INTEGER;
vv_type : STRING;
END_LOCAL;
vv_type := variable_value_type(variable);
REPEAT i := 1 TO HIINDEX(values_and_locations) BY 1;
fv_type := TYPEOF(values_and_locations[i].simple_value);
IF NOT (('STRUCTURAL_ANALYSIS_DESIGN.' + 'UNSPECIFIED_VALUE') IN
fv_type) THEN
IF NOT (vv_type IN fv_type) THEN
RETURN(FALSE);
END_IF;
END_IF;
END_REPEAT;
RETURN(TRUE);
END_FUNCTION; -- consistent_set_values
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:15:08-04:00