|
FUNCTION list_to_set (l : LIST [0:?] OF GENERIC) : SET [0:?] OF GENERIC; LOCAL s : SET OF GENERIC : type_elem := [ ] ; END_LOCAL ; REPEAT i := 1 TO SIZEOF ( l ) ; s := s + l [ i ] ; END_REPEAT ; RETURN ( s ) ; END_FUNCTION; -- list_to_set |
|
public class FList_to_set public static Value run(SdaiContext _context, Value l) |