Source file `sys_socket_stubs.ml`

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
open Ctypes

module Def (F : Cstubs.FOREIGN) = struct
  open F

  module Types = Sys_socket_types.Def(Sys_socket_generated_types)

  open Types

  let getnameinfo = foreign "getnameinfo" (ptr sockaddr_t @-> socklen_t @-> ptr char @-> socklen_t @-> ptr char @-> socklen_t @-> int @-> (returning int))

  let getaddrinfo = foreign "getaddrinfo" (string @-> string @-> ptr Addrinfo.t @-> ptr (ptr Addrinfo.t) @-> (returning int))

  let freeaddrinfo = foreign "freeaddrinfo" (ptr Addrinfo.t @-> returning (void))

  let getservbyname = foreign "getservbyname" (ptr char @-> ptr void @-> returning (ptr Servent.t))

  let strnlen = foreign "strnlen" (ptr char @-> size_t @-> (returning size_t))

  let htonl = foreign "htonl" (uint32_t @-> (returning uint32_t))

  let htons = foreign "htons" (uint16_t @-> (returning uint16_t)) 

  let ntohs = foreign "ntohs" (uint16_t @-> (returning uint16_t))

  let ntohl = foreign "ntohl" (uint32_t @-> (returning uint32_t))
end