Skip to content

Instantly share code, notes, and snippets.

@toots

toots/sys_socket_constants.ml

Created December 1, 2019 11:18
Show Gist options
  • Save toots/b1c4545c006e7b622844ad99d2884fa7 to your computer and use it in GitHub Desktop.
Save toots/b1c4545c006e7b622844ad99d2884fa7 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
sys_socket_constants.ml
module Def (S : Cstubs.Types.TYPE) = struct
let af_inet = S.constant "AF_INET" S.int
let af_inet6 = S.constant "AF_INET6" S.int
let af_unix = S.constant "AF_UNIX" S.int
let af_unspec = S.constant "AF_UNSPEC" S.int
let sa_data_len = S.constant "SA_DATA_LEN" S.int
let sa_family_len = S.constant "SA_FAMILY_LEN" S.int
let sock_dgram = S.constant "SOCK_DGRAM" S.int
let sock_stream = S.constant "SOCK_STREAM" S.int
let sock_seqpacket = S.constant "SOCK_STREAM" S.int
let socklen_t_len = S.constant "SOCKLEN_T_LEN" S.int
let ni_maxserv = S.constant "NI_MAXSERV" S.int
let ni_maxhost = S.constant "NI_MAXHOST" S.int
let ni_numerichost = S.constant "NI_NUMERICHOST" S.int
let ni_numericserv = S.constant "NI_NUMERICSERV" S.int
end
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment