Ticket #1352: unix-sockets-path-resolution.diff

unix-sockets.meta

@@ -3 +3 @@
  (files "unix-sockets.scm" "unix-sockets.release-info" "unix-sockets.meta" "unix-sockets.setup")
  (synopsis "UNIX domain sockets")
  (category net)
- (needs easyffi)
+ (needs easyffi pathname-expand)
  (platform unix)
  (license "BSD")
  (doc-from-wiki)

unix-sockets.scm

@@ -47 +47 @@
 
 ;; TODO: errno should be accessed using the proper API?
 (import scheme (except chicken errno) easyffi foreign)
-(use ports posix)
+(use ports posix pathname-expand)
 
 #>
 #include <fcntl.h>
@@ -161 +161 @@
     (make-property-condition 'unix 'errno errno) ) ) )
 
 (define (unix-connect filename)
-  (let ([n (##sys#pathname-resolution filename (lambda (f) (connect_to_server f)))])
+  (let ([n (connect_to_server (pathname-expand filename))])
     (if (negative? n)
         (unix-error 'unix-connect "can not connect" filename)
         (io-ports 'unix-connect n) ) ) )
@@ -292 +292 @@
 (define (unix-listen filename #!optional (backlog 10))
   (when (file-exists? filename)
     (delete-file filename) )
-  (let ([n (##sys#pathname-resolution filename (lambda (name) (create_socket name backlog)))])
+  (let ([n (create_socket (pathname-expand filename) backlog)])
     (if (negative? n)
         (unix-error 'unix-listen "can not create socket" filename)
         (##sys#make-structure 'unix-listener n filename) ) ) )