package posix-socket

  1. Overview
  2. Docs
Bindings for posix sockets

Install 

dune-project
 Dependency

github.com Readme Changelog Edit opam file Versions (7)

Authors

  1. R
    Romain Beauxis

Maintainers

  1. R
    romain.beauxis@gmail.com

Sources

v4.0.1.tar.gz
md5=464f431a8517dba4295286dd61f3ff2c
sha512=36d4c64987848fc06a4296c2141d250d95db0092b2d9d4d95f301f5eaada9a3df8ae9703fc8f2407596f6fb474a69863abd5e3d2c08636eb2c0dd67477d316e8

doc/src/posix-socket.stubs/posix_socket_stubs.ml.html

Source file posix_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
28
29
30
31
32
33
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 const_void_ptr = typedef (ptr void) "const void *"

  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 @-> ptr char @-> 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 strerror = foreign "gai_strerror" (int @-> returning string)
  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