浏览代码

ref/unref UDP sockets

Aurel Bílý 6 年之前
父节点
当前提交
66beabc9e4
共有 1 个文件被更改,包括 4 次插入0 次删除
  1. 4 0
      src/macro/eval/evalStdLib.ml

+ 4 - 0
src/macro/eval/evalStdLib.ml

@@ -3677,6 +3677,8 @@ module StdUv = struct
 			let size = decode_int size in
 			let size = decode_int size in
 			vint (Uv.udp_set_send_buffer_size this size)
 			vint (Uv.udp_set_send_buffer_size this size)
 		)
 		)
+		let ref_ = wrap_ref this
+		let unref = wrap_unref this
 	end
 	end
 
 
 	module Dns = struct
 	module Dns = struct
@@ -4605,6 +4607,8 @@ let init_standard_library builtins =
 		"getSendBufferSize",StdUv.UdpSocket.getSendBufferSize;
 		"getSendBufferSize",StdUv.UdpSocket.getSendBufferSize;
 		"setRecvBufferSize",StdUv.UdpSocket.setRecvBufferSize;
 		"setRecvBufferSize",StdUv.UdpSocket.setRecvBufferSize;
 		"setSendBufferSize",StdUv.UdpSocket.setSendBufferSize;
 		"setSendBufferSize",StdUv.UdpSocket.setSendBufferSize;
+		"ref",StdUv.UdpSocket.ref_;
+		"unref",StdUv.UdpSocket.unref;
 	];
 	];
 	init_fields builtins (["nusys";"net"],"Dns") [
 	init_fields builtins (["nusys";"net"],"Dns") [
 		"lookup_native",StdUv.Dns.lookup_native;
 		"lookup_native",StdUv.Dns.lookup_native;