Files
PolyORB/Examples/Callbacks/types.ads
Laurent Pautet b2bf6d3876 Some kind of distributed scheduler based on remote callbacks using
asynchronous RPC, RAS and RACW.

Subversion-branch: /importfromcvs/trunk
Subversion-revision: 46751
1998-04-15 16:46:04 +00:00

12 lines
198 B
Ada

package Types is
pragma Pure;
type Query is new Integer;
No_Query : constant Query := Query'First;
type Reply is new Integer;
No_Reply : constant Reply := Reply'First;
end Types;