74 lines
3.5 KiB
Ada
74 lines
3.5 KiB
Ada
-------------------------------------------------------------------------------
|
|
-- --
|
|
-- 0MQ Ada-binding --
|
|
-- --
|
|
-- Z M Q . P O L L S E T S --
|
|
-- --
|
|
-- S p e c --
|
|
-- --
|
|
-- Copyright (C) 2020-2030, per.s.sandberg@bahnhof.se --
|
|
-- --
|
|
-- Permission is hereby granted, free of charge, to any person obtaining a --
|
|
-- copy of this software and associated documentation files --
|
|
-- (the "Software"), to deal in the Software without restriction, including --
|
|
-- without limitation the rights to use, copy, modify, merge, publish, --
|
|
-- distribute, sublicense, and / or sell copies of the Software, and to --
|
|
-- permit persons to whom the Software is furnished to do so, subject to --
|
|
-- the following conditions : --
|
|
-- --
|
|
-- The above copyright notice and this permission notice shall be included --
|
|
-- in all copies or substantial portions of the Software. --
|
|
-- --
|
|
-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS --
|
|
-- OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF --
|
|
-- MERCHANTABILITY, --
|
|
-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL --
|
|
-- THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR --
|
|
-- OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, --
|
|
-- ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR --
|
|
-- OTHER DEALINGS IN THE SOFTWARE. --
|
|
-------------------------------------------------------------------------------
|
|
|
|
package body ZMQ.Pollsets is
|
|
|
|
------------
|
|
-- append --
|
|
------------
|
|
|
|
procedure Append (This : in out Pollset; Item : Pollitem'Class) is
|
|
pragma Unreferenced (This, Item);
|
|
begin
|
|
-- Generated stub: replace with real body!
|
|
pragma Compile_Time_Warning (Standard.True, "append unimplemented");
|
|
raise Program_Error with "Unimplemented procedure append";
|
|
end Append;
|
|
|
|
------------
|
|
-- remove --
|
|
------------
|
|
|
|
procedure Remove (This : in out Pollset; Item : Pollitem'Class) is
|
|
pragma Unreferenced (This, Item);
|
|
begin
|
|
-- Generated stub: replace with real body!
|
|
pragma Compile_Time_Warning (Standard.True, "remove unimplemented");
|
|
raise Program_Error with "Unimplemented procedure remove";
|
|
end Remove;
|
|
|
|
----------
|
|
-- poll --
|
|
----------
|
|
|
|
procedure Poll
|
|
(This : in out Pollset;
|
|
Timeout : Duration)
|
|
is
|
|
pragma Unreferenced (This, Timeout);
|
|
begin
|
|
-- Generated stub: replace with real body!
|
|
pragma Compile_Time_Warning (Standard.True, "poll unimplemented");
|
|
raise Program_Error with "Unimplemented procedure poll";
|
|
end Poll;
|
|
|
|
end ZMQ.Pollsets;
|