FUNCTION make_array_of_array

(* SCHEMA integrated_cnc_schema; *)

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; -- 10303-42: geometry_schema

Referenced By

Generated by STEP Tools^TM EXPRESS to HTML Converter
on 2010-01-12T10:42:26-02:00