FUNCTION make_array_of_array

(* SCHEMA AUTOMOTIVE_DESIGN; *)

 
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) : u1 - low1 + 1];
  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

Defintion make_array_of_array is references by the following definitions:

Definition	Type
b_spline_surface	ENTITY
rational_b_spline_surface	ENTITY

[Top Level Definitions] [Exit]

Generated by STEP Tools® EXPRESS to HTML Converter
2012-03-27T17:16:12-04:00