Use a modified version of our nn.h stub
This commit is contained in:
parent
042359d0cb
commit
6e12fc97ec
|
@ -24,7 +24,6 @@ procedure Pipeline is
|
||||||
|
|
||||||
NN_PROTO_PIPELINE : constant := 5;
|
NN_PROTO_PIPELINE : constant := 5;
|
||||||
NN_PULL : constant := (NN_PROTO_PIPELINE * 16 + 1);
|
NN_PULL : constant := (NN_PROTO_PIPELINE * 16 + 1);
|
||||||
NN_MSG : constant := size_t'Last;
|
|
||||||
|
|
||||||
Socket : constant int := nn_socket (AF_SP, NN_PULL);
|
Socket : constant int := nn_socket (AF_SP, NN_PULL);
|
||||||
Status : int;
|
Status : int;
|
||||||
|
|
|
@ -1,6 +1,6 @@
|
||||||
abstract project Shared is
|
abstract project Shared is
|
||||||
for Source_Files use (); -- no source files!
|
for Source_Files use (); -- no source files!
|
||||||
for Source_Dirs use (".", "build/generated");
|
for Source_Dirs use (".", "stubs");
|
||||||
for Object_Dir use "build";
|
for Object_Dir use "build";
|
||||||
for Exec_Dir use "build";
|
for Exec_Dir use "build";
|
||||||
|
|
||||||
|
|
|
@ -1,4 +1,4 @@
|
||||||
pragma Ada_2005;
|
pragma Ada_2012;
|
||||||
pragma Style_Checks (Off);
|
pragma Style_Checks (Off);
|
||||||
|
|
||||||
with Interfaces.C; use Interfaces.C;
|
with Interfaces.C; use Interfaces.C;
|
||||||
|
@ -44,7 +44,7 @@ package nanomsg_nn_h is
|
||||||
NN_UNIT_MILLISECONDS : constant := 2; -- /usr/include/nanomsg/nn.h:223
|
NN_UNIT_MILLISECONDS : constant := 2; -- /usr/include/nanomsg/nn.h:223
|
||||||
NN_UNIT_PRIORITY : constant := 3; -- /usr/include/nanomsg/nn.h:224
|
NN_UNIT_PRIORITY : constant := 3; -- /usr/include/nanomsg/nn.h:224
|
||||||
NN_UNIT_BOOLEAN : constant := 4; -- /usr/include/nanomsg/nn.h:225
|
NN_UNIT_BOOLEAN : constant := 4; -- /usr/include/nanomsg/nn.h:225
|
||||||
-- unsupported macro: NN_MSG ((size_t) -1)
|
NN_MSG : constant := size_t'Last;
|
||||||
-- arg-macro: function NN_CMSG_FIRSTHDR ((mhdr).msg_controllen >= sizeof (struct nn_cmsghdr) ? (struct nn_cmsghdr*) (mhdr).msg_control : (struct nn_cmsghdr*) NULL
|
-- arg-macro: function NN_CMSG_FIRSTHDR ((mhdr).msg_controllen >= sizeof (struct nn_cmsghdr) ? (struct nn_cmsghdr*) (mhdr).msg_control : (struct nn_cmsghdr*) NULL
|
||||||
-- return (mhdr).msg_controllen >= sizeof (struct nn_cmsghdr) ? (struct nn_cmsghdr*) (mhdr).msg_control : (struct nn_cmsghdr*) NULL;
|
-- return (mhdr).msg_controllen >= sizeof (struct nn_cmsghdr) ? (struct nn_cmsghdr*) (mhdr).msg_control : (struct nn_cmsghdr*) NULL;
|
||||||
-- arg-macro: procedure NN_CMSG_NXTHDR nn_cmsg_nexthdr_ ((struct nn_msghdr*) (mhdr), (struct nn_cmsghdr*) (cmsg))
|
-- arg-macro: procedure NN_CMSG_NXTHDR nn_cmsg_nexthdr_ ((struct nn_msghdr*) (mhdr), (struct nn_cmsghdr*) (cmsg))
|
||||||
|
@ -186,7 +186,9 @@ package nanomsg_nn_h is
|
||||||
|
|
||||||
function nn_recv
|
function nn_recv
|
||||||
(arg1 : int;
|
(arg1 : int;
|
||||||
arg2 : System.Address;
|
-- using `in out` in 2012 mode since we can allow the underlying C binding
|
||||||
|
-- allocate our object for us
|
||||||
|
arg2 : in out System.Address;
|
||||||
arg3 : stddef_h.size_t;
|
arg3 : stddef_h.size_t;
|
||||||
arg4 : int) return int; -- /usr/include/nanomsg/nn.h:367
|
arg4 : int) return int; -- /usr/include/nanomsg/nn.h:367
|
||||||
pragma Import (C, nn_recv, "nn_recv");
|
pragma Import (C, nn_recv, "nn_recv");
|
||||||
|
|
Loading…
Reference in New Issue