mirror of
https://github.com/AdaCore/PolyORB.git
synced 2026-02-12 13:01:15 -08:00
b2bf6d3876
asynchronous RPC, RAS and RACW. Subversion-branch: /importfromcvs/trunk Subversion-revision: 46751
17 lines
423 B
Ada
17 lines
423 B
Ada
with Types; use Types;
|
|
package Common is
|
|
pragma Remote_Types;
|
|
|
|
type Callback is
|
|
access procedure (Q : Query; R : Reply; P : Natural);
|
|
pragma Asynchronous (Callback);
|
|
|
|
type Worker is abstract tagged limited private;
|
|
procedure Work (W : access Worker;
|
|
Q : Query;
|
|
C : Callback) is abstract;
|
|
|
|
private
|
|
type Worker is abstract tagged limited null record;
|
|
end Common;
|