FUNCTION list_to_array
(lis : LIST [0:?] OF GENERIC:t, low : INTEGER, u : INTEGER) : ARRAY [low:u] OF GENERIC:t;
LOCAL n : INTEGER; res : ARRAY [low:u] OF GENERIC : T; END_LOCAL;
n := SIZEOF(lis); IF (n <> (u-low +1)) THEN RETURN(?); ELSE res := [lis[1] : n]; REPEAT i := 2 TO n; res[low+i-1] := lis[i]; END_REPEAT; RETURN(res); END_IF;
END_FUNCTION; -- list_to_array
public class FList_to_array
public static Value run(SdaiContext _context, Value lis, Value low, Value u)