|
FUNCTION list_to_array (lis : LIST [0:?] OF GENERIC, low : INTEGER, u : INTEGER) : ARRAY [ low : u ] OF GENERIC; 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) |