Introduced connect-socket-no-wait and connect-socket-successful?.

scsh/network.scm

@@ -216,7 +216,7 @@
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
 ;;; connect syscall
 ;;;-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
-(define (connect-socket sock name)
+(define (connect-socket-no-wait sock name)
   (cond ((not (socket? sock))
 	 (error "connect-socket: socket expected ~s" sock))
 	((not (socket-address? name))
@@ -240,24 +240,30 @@
 				      (socket-address:address name))))
 		      (if (car error?.einprogress?)
 			  (if (cdr error?.einprogress?)
-			      (begin
+			      #f
-				(select '#()
+			      (loop))
-					(vector (fdport-data:fd
+			  #t)))))))))
-						 (fdport-data
+
-						  (socket:outport sock))))
+(define (connect-socket-successful? sock)
-					'#())
+  ;; If connect returned EINPROGRESS, we can check 
-				;; If connect returned EINPROGRESS, we can check 
+  ;; it's success after  the next success with getsockopt
-				;; it's success after  the next success with getsockopt
+  (zero? (socket-option sock level/socket socket/error)))
-				(let ((val (socket-option sock 
+
-							  level/socket 
+(define (connect-socket sock name)
-							  socket/error)))
+  (let ((success? (connect-socket-no-wait sock name)))
-				  (if (not (zero? val))
+    (cond ((not success?)
-				      (errno-error val 
+	   (select '#()
-						   (errno-msg val) 
+		   (vector (fdport-data:fd
-						   %connect 
+			    (fdport-data
-						   sock 
+			     (socket:outport sock))))
-						   name))))
+		   '#())
-			      (loop)))))))))))
+	   (if (not (connect-socket-successful? sock))
+	       (let ((errno (socket-option sock level/socket socket/error)))
+		 (errno-error errno
+			      (errno-msg errno) 
+			      %connect 
+			      sock 
+			      name)))))))
 
 (import-os-error-syscall %connect (sockfd family name) "scheme_connect")