|
FUNCTION make_array_of_array_of_array (lis : LIST [1:?] OF LIST [1:?] OF LIST [1:?] OF GENERIC, low1 : INTEGER, u1 : INTEGER, low2 : INTEGER, u2 : INTEGER, low3 : INTEGER, u3 : INTEGER) : ARRAY [ low1 : u1 ] OF ARRAY [ low2 : u2 ] OF ARRAY [ low3 : u3 ] OF GENERIC; LOCAL res : ARRAY [ low1 : u1 ] OF ARRAY [ low2 : u2 ] OF ARRAY [ low3 : u3 ] OF GENERIC : t ; END_LOCAL ; IF ( u1 - low1 + 1 ) <> SIZEOF ( lis ) THEN RETURN ( ? ) ; END_IF ; IF ( u2 - low2 + 1 ) <> SIZEOF ( lis [ 1 ] ) THEN RETURN ( ? ) ; END_IF ; res := [ make_array_of_array ( lis [ 1 ] , low2 , u2 , low3 , u3 ) : ( u1 - low1 + 1 ) ] ; REPEAT i := 2 TO HIINDEX ( lis ) ; IF ( u2 - low2 + 1 ) <> SIZEOF ( lis [ i ] ) THEN RETURN ( ? ) ; END_IF ; res [ low1 + i - 1 ] := make_array_of_array ( lis [ i ] , low2 , u2 , low3 , u3 ) ; END_REPEAT ; RETURN ( res ) ; END_FUNCTION; -- make_array_of_array_of_array |
|
public class FMake_array_of_array_of_array public static Value run(SdaiContext _context, Value lis, Value low1, Value u1, Value low2, Value u2, Value low3, Value u3) |