package srt
Binding for the Secure, Reliable, Transport protocol library
Install
Dune Dependency
Authors
Maintainers
Sources
v0.3.0.tar.gz
md5=7f4ccc71036fb5c8365690ccdec0498c
sha512=a79286afeed4f8ef161b9fe1f32e54581ef658f25975727351478b0a1fe16975f5c5b47f247dae4909df73f75ce8022b2201c1272f78528bf11efe8507174820
doc/src/srt.stubs/srt_stubs.ml.html
Source file srt_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 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99open Ctypes open Posix_socket type socket = int let const_string = typedef (ptr char) "const char*" let const_sockaddr = typedef (ptr sockaddr_t) "const struct sockaddr*" module ListenCallback = (val Foreign.dynamic_funptr ~thread_registration:true ~runtime_lock:true (ptr void @-> int @-> int @-> const_sockaddr @-> const_string @-> returning int)) module Def (F : Cstubs.FOREIGN) = struct include Srt_types include Srt_types.Def (Srt_generated_types) open F let startup = foreign "srt_startup" (void @-> returning void) let cleanup = foreign "srt_cleanup" (void @-> returning void) let getlasterror = foreign "srt_getlasterror" (ptr int @-> returning errno) let getlasterror_str = foreign "srt_getlasterror_str" (void @-> returning const_string) let clearlasterror = foreign "srt_clearlasterror" (void @-> returning void) let create_socket = foreign "srt_create_socket" (void @-> returning int) let bind = foreign "srt_bind" (int @-> ptr sockaddr_t @-> int @-> returning int) let strlen = foreign "strlen" (ptr char @-> returning int) let listen = foreign "srt_listen" (int @-> int @-> returning int) let listen_callback = foreign "srt_listen_callback" (int @-> ListenCallback.t @-> ptr void @-> returning int) let accept = foreign "srt_accept" (int @-> ptr sockaddr_t @-> ptr int @-> returning int) let connect = foreign "srt_connect" (int @-> ptr sockaddr_t @-> int @-> returning int) let rendez_vous = foreign "srt_rendezvous" (int @-> ptr sockaddr_t @-> int @-> ptr sockaddr_t @-> int @-> returning int) let send = foreign "srt_send" (int @-> string @-> int @-> returning int) let recv = foreign "srt_recv" (int @-> ptr char @-> int @-> returning int) let recvmsg = foreign "srt_recvmsg" (int @-> ptr char @-> int @-> returning int) let sendmsg = foreign "srt_sendmsg" (int @-> string @-> int @-> int @-> bool @-> returning int) let setsockflag = foreign "srt_setsockflag" (int @-> socket_opt @-> ptr void @-> int @-> returning int) let getsockflag = foreign "srt_getsockflag" (int @-> socket_opt @-> ptr void @-> ptr int @-> returning int) let getsockstate = foreign "srt_getsockstate" (int @-> returning socket_status) let setloglevel = foreign "srt_setloglevel" (int @-> returning void) let close = foreign "srt_close" (int @-> returning int) let epoll_create = foreign "srt_epoll_create" (void @-> returning int) let epoll_add_usock = foreign "srt_epoll_add_usock" (int @-> int @-> ptr int @-> returning int) let epoll_remove_usock = foreign "srt_epoll_remove_usock" (int @-> int @-> returning int) let epoll_update_usock = foreign "srt_epoll_update_usock" (int @-> int @-> ptr int @-> returning int) let epoll_uwait = foreign "srt_epoll_uwait" (int @-> ptr PollEvent.t @-> int @-> int64_t @-> returning int) let epoll_wait = foreign "srt_epoll_wait" (int @-> ptr int @-> ptr int @-> ptr int @-> ptr int @-> int64_t @-> ptr void @-> ptr void @-> ptr void @-> ptr void @-> returning int) let epoll_release = foreign "srt_epoll_release" (int @-> returning int) let bstats = foreign "srt_bstats" (int @-> ptr CBytePerfMon.t @-> int @-> returning int) let bistats = foreign "srt_bistats" (int @-> ptr CBytePerfMon.t @-> int @-> int @-> returning int) end