(* SCHEMA associative_draughting; *)
FUNCTION list_to_set(
l: LIST [0:?] OF GENERIC:t
): SET OF GENERIC:t;
LOCAL
s : SET OF GENERIC:t := [];
END_LOCAL;
REPEAT i := 1 TO SIZEOF(l) BY 1;
s := s + l[i];
END_REPEAT;
RETURN(s);
END_FUNCTION; -- list_to_set
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:12-04:00