Specification of package Corba.Policy

 ========================================================================= --
 ===                                                                   === --
 ===                 Top Graph'X CORBA Implementation                  === --
 ===                                                                   === --
 ===                 Copyright (c) 2000, Top Graph'X.                  === --
 ===                                                                   === --
 ===                     --- Copyright Notice ---                      === --
 ===                                                                   === --
 ===    This software is protected as an unpublished work under the    === --
 ===     Copyright Act of 1976.  All rights reserved.  Top Graph'X.    === --
 ===                                                                   === --
 ========================================================================= --

with Corba.AbstractBase ;
with Corba.Sequences ;
pragma Elaborate_All (Corba.AbstractBase) ;
package Corba.Policy is
   type Ref is new Corba.AbstractBase.Ref with null record;

   function Get_Policy_Type (Self : in Ref) return PolicyType;

    Destroy and Copy unneeded

   Null_Ref : constant Ref := (Corba.AbstractBase.Ref with null record) ;

   package Idl_Sequence_PolicyType is new Corba.Sequences.Unbounded (
      PolicyType);

   type PolicyTypeSeq is new Idl_Sequence_PolicyType.Sequence ;
   Null_PolicyTypeSeq : constant PolicyTypeSeq :=
      PolicyTypeSeq (Idl_Sequence_PolicyType.Null_Sequence) ;

   package Idl_Sequence_Policy is new Corba.Sequences.Unbounded (Ref);
   type PolicyList is new Idl_Sequence_Policy.Sequence;

   Null_Policylist : constant PolicyList := PolicyList
      (Idl_Sequence_Policy.Null_Sequence) ;
end Corba.Policy;

List of definition uses