package sys-socket
Ctypes bindings to system-specific low-level socket structure and data-types
Install
Dune Dependency
Authors
Maintainers
Sources
1.0.0.tar.gz
md5=2ecd4e009ed19e4d961d9b8a4a09f546
sha512=2fbfd846baebd259a8486be2af856569ee6f056298e8cf5874ba76f5c207626cc5854abe2e091d670f9bb605eeb19a416e47b3c8474b8cbc5957f6293b3ccddb
doc/src/sys-socket.stubs/sys_socket_stubs.ml.html
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
sectionYPositions = computeSectionYPositions($el), 10)"
x-init="setTimeout(() => sectionYPositions = computeSectionYPositions($el), 10)"
>