Add socket_id

src/srt.ml

@@ -14,6 +14,8 @@ type transtype = Srt.transtype
 type socket_status = Srt.socket_status
 type socket = Srt.socket
 
+let socket_id s = s
+
 let resources = Hashtbl.create 0
 
 let string_of_errno = function

src/srt.mli

@@ -116,6 +116,7 @@ exception Error of errno * string
 val startup : unit -> unit
 val cleanup : unit -> unit
 val create_socket : unit -> socket
+val socket_id : socket -> int
 val getsockstate : socket -> socket_status
 val bind : socket -> Unix.sockaddr -> unit
 val bind_posix_socket : socket -> Posix_socket.sockaddr Ctypes.ptr -> unit