Bladeren bron

[eval] fix some random luv things

Simon Krajewski 4 jaren geleden
bovenliggende
commit
e404c2d40f
2 gewijzigde bestanden met toevoegingen van 8 en 7 verwijderingen
  1. 7 6
      src/macro/eval/evalLuv.ml
  2. 1 1
      std/eval/luv/Stream.hx

+ 7 - 6
src/macro/eval/evalLuv.ml

@@ -1136,9 +1136,10 @@ let stream_fields = [
 		Stream.shutdown stream (encode_unit_callback v2);
 		vnull
 	);
-	"listen", vfun2 (fun v1 v2 ->
+	"listen", vfun3 (fun v1 v2 v3 ->
 		let stream = decode_stream v1 in
-		Stream.listen stream (encode_unit_callback v2);
+		let backlog = decode_optional (fun v -> decode_int v) v3 in
+		Stream.listen ?backlog stream (encode_unit_callback v2);
 		vnull
 	);
 	"accept", vfun2 (fun v1 v2 ->
@@ -1191,20 +1192,20 @@ let stream_fields = [
 		vnull
 	);
 	"tryWrite", vfun2 (fun v1 v2 ->
-		let stream = decode_pipe v1
+		let stream = decode_stream v1
 		and data = decode_buffers v2 in
 		encode_result vint (Stream.try_write stream data)
 	);
 	"isReadable", vfun1 (fun v ->
-		let stream = decode_pipe v in
+		let stream = decode_stream v in
 		vbool (Stream.is_readable stream)
 	);
 	"isWritable", vfun1 (fun v ->
-		let stream = decode_pipe v in
+		let stream = decode_stream v in
 		vbool (Stream.is_writable stream)
 	);
 	"setBlocking", vfun2 (fun v1 v2 ->
-		let stream = decode_pipe v1
+		let stream = decode_stream v1
 		and block = decode_bool v2 in
 		encode_unit_result (Stream.set_blocking stream block)
 	);

+ 1 - 1
std/eval/luv/Stream.hx

@@ -63,7 +63,7 @@ enum SendHandle {
 		To read only once, call `eval.luv.Stream.readStop` immediately, in the `callback`.
 		Otherwise, the main callback will be called repeatedly.
 	**/
-	extern static public function readStart(stream:Stream, callback:(result:Result<Buffer>)->Void, allocate:(size:Int)->Buffer):Void;
+	extern static public function readStart(stream:Stream, callback:(result:Result<Buffer>)->Void, ?allocate:(size:Int)->Buffer):Void;
 
 	/**
 		Stops reading.