|
|
(lis : LIST [0:?] OF GENERIC : T; low,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
REPEAT i := 1 TO n;
res[low+i-1] := lis[i];
END_REPEAT;
RETURN(res);
END_IF;
|
|
|