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
18 lines
321 B
Ada
18 lines
321 B
Ada
with Common; use Common;
|
|
with Types; use Types;
|
|
package Local is
|
|
pragma Remote_Types;
|
|
|
|
type New_Worker is new Worker with private;
|
|
|
|
procedure Work
|
|
(W : access New_Worker;
|
|
Q : Query;
|
|
C : Callback);
|
|
|
|
procedure Initialize;
|
|
|
|
private
|
|
type New_Worker is new Worker with null record;
|
|
end Local;
|