Source file posix_socket_stubs.ml

open Ctypes

module Def (F : Cstubs.FOREIGN) = struct
  open F
  open Posix_socket_types
  module Types = Posix_socket_types.Def (Posix_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