Index

Package: DDS.Treats_Generic

Description

generic
   type Data_Type is limited private;
   type Data_Type_Access is access all Data_Type;
   type Index_Type is range <>;
   First_Element : Index_Type;
   type Data_Array is array (Index_Type range <>) of aliased Data_Type;
   with procedure Initialize (Self  : in out Data_Type) is <>;
   with procedure Finalize (Self  : in out Data_Type) is <>;
   with procedure Copy (Dst : in out Data_Type; Src : in Data_Type) is <>;

   with package Data_Sequences is
(c) Copyright, Real-Time Innovations, $Date:: 2012-02-16 #$ All rights reserved. No duplications, whole or partial, manual or electronic, may be made without express written permission. Any such copies, or revisions thereof, must display this notice unaltered. This code contains trade secrets of Real-Time Innovations, Inc.

Packages

Data_Sequences (new DDS_Support)

package Data_Sequences is new DDS_Support.Sequences_Generic
     (Element        => Data_Type,
      Element_Access => Data_Type_Access,
      Index_Type     => Index_Type,
      First_Element  => First_Element,
      Element_Array  => Data_Array,
      Initialize     => Initialize,
      Finalize       => Finalize,
      Copy           => Copy);

Classes

TypeSupport

type TypeSupport is new Standard.DDS.TypeSupport.Ref with private with Warnings => Off;

Types

Data_Type

type Data_Type is limited private;

Data_Type_Access

type Data_Type_Access is access all Data_Type;

Index_Type

type Index_Type is range <>;

Data_Array

type Data_Array is array (Index_Type range <>) of aliased Data_Type;

Constants & Global variables

First_Element

First_Element : Index_Type;

Subprograms & Entries

Initialize

with procedure Initialize 
(Self: in out Data_Type) is <>;

Finalize

with procedure Finalize 
(Self: in out Data_Type) is <>;

Copy

with procedure Copy 
(Dst: in out Data_Type;
Src: in Data_Type) is <>;

Get_Type_Name

with function Get_Type_Name return Standard.DDS.String with Warnings => Off;