(* SCHEMA AUTOMOTIVE_DESIGN; *)
FUNCTION item_correlation(items : SET OF GENERIC; c_items : SET OF STRING) :
LOGICAL;
LOCAL
c_types : SET OF STRING := [];
c_hit : INTEGER := 0;
END_LOCAL;
REPEAT i := 1 TO HIINDEX(c_items);
c_types := c_types + ['AUTOMOTIVE_DESIGN.' + c_items[i]];
END_REPEAT;
REPEAT i := 1 TO HIINDEX(items);
IF SIZEOF(c_types * TYPEOF(items[i])) = 1 THEN
c_hit := c_hit + 1;
END_IF;
END_REPEAT;
IF SIZEOF(items) = c_hit THEN
RETURN (TRUE);
ELSE
RETURN (FALSE);
END_IF;
END_FUNCTION; -- 10303-214: automotive_design
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:12-04:00