FUNCTION make_array_of_array
(* SCHEMA step_merged_ap_schema; *)
-- CASE DIFF IN AP214
-- DIFF IN AP224
-- DIFF IN AP232
FUNCTION make_array_of_array
(lis : LIST [1:?] OF LIST [1:?] OF GENERIC : T;
low1 : INTEGER;
u1 : INTEGER;
low2 : INTEGER;
u2 : INTEGER ) : ARRAY [low1:u1] OF ARRAY [low2:u2] OF GENERIC : T;
LOCAL
res : ARRAY [low1:u1] OF ARRAY [low2:u2] 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 := [ list_to_array(lis[1], low2, u2) ];
REPEAT i := 2 TO HIINDEX(lis);
IF u2 - low2 + 1 <> SIZEOF(lis[i]) THEN
RETURN (?);
END_IF;
res[(low1 + i - 1)] := list_to_array(lis[i], low2, u2);
END_REPEAT;
RETURN (res);
END_FUNCTION;
Referenced By
Defintion make_array_of_array is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2024-09-06T14:00:33-04:00