ada/PolyORB
0
0
Fork 0
mirror of https://github.com/AdaCore/PolyORB.git synced 2026-02-12 13:01:15 -08:00
Code Issues Packages Projects Releases Wiki Activity

Minor reformatting

Browse Source 
[Imported from Perforce change 6495 at 2006-12-01 19:55:12]

Subversion-branch: /trunk/polyorb
Subversion-revision: 34473
This commit is contained in:
Jérôme Hugues
2003-03-19 17:08:43 +00:00
parent cd93f59a92
commit 46edd43ccb
1 changed files with 30 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

38
src/corba/corba-serverrequest.adb
View File

@@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 2001 Free Software Fundation --
-- Copyright (C) 1999-2003 Free Software Fundation --
-- --
-- PolyORB is free software; you can redistribute it and/or modify it --
-- under terms of the GNU General Public License as published by the Free --
@@ -34,7 +34,6 @@
-- $Id$
with PolyORB.Any;
with PolyORB.Any.NVList;
with PolyORB.Log;
@@ -46,12 +45,25 @@ package body CORBA.ServerRequest is
procedure O (Message : in Standard.String; Level : Log_Level := Debug)
renames L.Output;
function Operation (O : Object) return Identifier is
---------------
-- Operation --
---------------
function Operation
(O : Object)
return Identifier is
begin
return Identifier (O.Operation);
end Operation;
procedure Arguments (O : access Object; NV : in out NVList.Ref) is
---------------
-- Arguments --
---------------
procedure Arguments
(O : access Object;
NV : in out NVList.Ref)
is
PolyORB_Args : PolyORB.Any.NVList.Ref
:= CORBA.NVList.To_PolyORB_Ref (NV);
begin
@@ -60,15 +72,25 @@ package body CORBA.ServerRequest is
NV := CORBA.NVList.To_CORBA_Ref (PolyORB_Args);
end Arguments;
procedure Set_Result (O : access Object; Val : Any)
is
----------------
-- Set_Result --
----------------
procedure Set_Result
(O : access Object;
Val : Any) is
begin
PolyORB.Requests.Set_Result
(PolyORB.Requests.Request_Access (O), Val);
end Set_Result;
procedure Set_Exception (Obj : access Object; Val : Any)
is
-------------------
-- Set_Exception --
-------------------
procedure Set_Exception
(Obj : access Object;
Val : Any) is
begin
pragma Debug
(O ("Server notifies exception: " & Image (Val)));