FUNCTION list_to_array

(* SCHEMA ship_moulded_form_schema; *)

  FUNCTION list_to_array(
               lis: LIST [0:?] OF GENERIC:t;
               low: INTEGER;
               u: INTEGER
      ): ARRAY 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
      res := [lis[1]];
      REPEAT i := 2 TO n BY 1;
        res[(low + i) - 1] := lis[i];
      END_REPEAT;
      RETURN(res);
    END_IF;

  END_FUNCTION; -- list_to_array

Referenced By

Defintion list_to_array is references by the following definitions:

Definition	Type
b_spline_curve	ENTITY
make_array_of_array	FUNCTION
rational_b_spline_curve	ENTITY

[Top Level Definitions] [Exit]

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