FUNCTION list_to_array
(* SCHEMA Ship_arrangement_schema; *)
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] ];
REPEAT i := 2 TO n;
res[(low + i - 1)] := lis[i];
END_REPEAT;
RETURN (res);
END_IF;
END_FUNCTION;
Referenced By
Defintion list_to_array is references by the following definitions:
[Top Level Definitions] [Exit]Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:37-04:00