package posix-socket
Bindings for posix sockets
Install
Dune Dependency
Authors
Maintainers
Sources
posix-socket.3.0.0.tar.gz
md5=7ad658ad6fe5a8b1f910f30ab632977e
sha512=bfe8ff032d87abfc73df33662a5313a6eb8b78f8365523f7b68f9867868cfc5ad20c4d542c6db27cdb2544d209fa3dc658653fc20af9f2c92035e17b6d7c8982
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 strnlen = foreign "strnlen" (ptr char @-> size_t @-> returning size_t) let memcpy = foreign "memcpy" (ptr void @-> const_void_ptr @-> size_t @-> returning void) 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
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>