File: test.ml

package info (click to toggle)
ocaml-posix 2.2.0-1
  • links: PTS, VCS
  • area: main
  • in suites: sid
  • size: 3,732 kB
  • sloc: ml: 3,472; sh: 14; makefile: 3; javascript: 1
file content (15 lines) | stat: -rw-r--r-- 532 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
open Ctypes
open Posix_socket
open Posix_socket_unix

let from_ptr t ptr = from_voidp t (to_voidp ptr)

let () =
  let sockaddr = from_unix_sockaddr (Unix.ADDR_UNIX "/path/to/socket") in
  let sockaddr_un = from_ptr SockaddrUnix.t sockaddr in
  Printf.printf "sockaddr_un.sun_family = %d\n%!"
    (Sa_family.to_int !@(sockaddr_un |-> SockaddrUnix.sun_family));
  let unix_socket = to_unix_sockaddr sockaddr in
  match unix_socket with
    | Unix.ADDR_UNIX path -> Printf.printf "Unix.ADDR_UNIX(%S)\n%!" path
    | _ -> assert false