mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
5cef70af52
[imported from CVS by cvs2p4 at 2000/03/21 18:09:55] [Imported from Perforce change 202 at 2006-12-01 18:18:16] Subversion-branch: /trunk/adabroker Subversion-revision: 30958
75 lines
4.2 KiB
Ada
75 lines
4.2 KiB
Ada
-----------------------------------------------------------------------
|
|
-----------------------------------------------------------------------
|
|
---- ----
|
|
---- AdaBroker ----
|
|
---- ----
|
|
---- package Exceptions ----
|
|
---- ----
|
|
---- ----
|
|
---- Copyright (C) 1999 ENST ----
|
|
---- ----
|
|
---- This file is part of the AdaBroker library ----
|
|
---- ----
|
|
---- The AdaBroker library is free software; you can ----
|
|
---- redistribute it and/or modify it under the terms of the ----
|
|
---- GNU Library General Public License as published by the ----
|
|
---- Free Software Foundation; either version 2 of the License, ----
|
|
---- or (at your option) any later version. ----
|
|
---- ----
|
|
---- This library is distributed in the hope that it will be ----
|
|
---- useful, but WITHOUT ANY WARRANTY; without even the implied ----
|
|
---- warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR ----
|
|
---- PURPOSE. See the GNU Library General Public License for ----
|
|
---- more details. ----
|
|
---- ----
|
|
---- You should have received a copy of the GNU Library General ----
|
|
---- Public License along with this library; if not, write to ----
|
|
---- the Free Software Foundation, Inc., 59 Temple Place - ----
|
|
---- Suite 330, Boston, MA 02111-1307, USA ----
|
|
---- ----
|
|
---- ----
|
|
---- ----
|
|
---- Description ----
|
|
---- ----------- ----
|
|
---- ----
|
|
---- This package deals with the raising of C exceptions in ----
|
|
---- Ada and ada ones in C. ----
|
|
---- It is both a C and a Ada class (see Ada_Exceptions.hh) ----
|
|
---- and provides 2 mains methods : raise_C_Exception and ----
|
|
---- raise_Ada_Exception. The first one is called by Ada code ----
|
|
---- and implemented in C. The second is called by C code and ----
|
|
---- implemented in Ada. Both translate exceptions in the other ----
|
|
---- language. ----
|
|
---- ----
|
|
---- ----
|
|
---- authors : Sebastien Ponce, Fabien Azavant ----
|
|
---- date : 02/28/99 ----
|
|
---- ----
|
|
-----------------------------------------------------------------------
|
|
-----------------------------------------------------------------------
|
|
|
|
|
|
with Ada.Exceptions ;
|
|
with Interfaces.C ;
|
|
|
|
with Corba ;
|
|
|
|
package Exceptions is
|
|
|
|
|
|
procedure Raise_C_UNKNOWN_Exception (E : in Ada.Exceptions.Exception_Occurrence) ;
|
|
-- raises the equivalent C exception
|
|
|
|
|
|
procedure C_Raise_Ada_UNKNOWN_Exception (Pd_Minor : in Interfaces.C.Unsigned_Long ;
|
|
Pd_Status : in Interfaces.C.Int) ;
|
|
pragma Export (Cpp,
|
|
C_Raise_Ada_UNKNOWN_Exception,
|
|
"Raise_Ada_UNKNOWN_Exception__FUlQ25CORBA16CompletionStatus");
|
|
-- Wrapped around C function Raise_Ada_UNKNOWN_Exception
|
|
-- declared in Ada_exceptions.hh
|
|
-- Called by C code.
|
|
-- Handles in Ada a Corba exception that was raised in C.
|
|
|
|
end Exceptions ;
|