Navigation

list_to_array

EXPRESS specification:

FUNCTION list_to_array
(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;
END_FUNCTION;