(* SCHEMA explicit_draughting; *)
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;
|
Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:14:03-04:00