TechEmpower.FrameworkBenchmarks/frameworks/Racket/racket/unix-socket-tcp-unit.rkt

#lang racket/base

(require net/tcp-sig
         racket/unit
         racket/unix-socket)

(provide
 make-unix-socket-tcp@)

(define (make-unix-socket-tcp@ port path)
  (unit
    (import)
    (export tcp^)

    (define (tcp-abandon-port p)
      (void))

    (define (tcp-accept l)
      (unix-socket-accept l))

    (define (tcp-accept/enable-break l)
      (parameterize-break #t
        (unix-socket-accept l)))

    (define (tcp-accept-ready? _l)
      #t)

    (define (tcp-addresses _p [port-numbers? #f])
      (if port-numbers?
          (values "127.0.0.1" port "127.0.0.1" 0)
          (values "127.0.0.1" "127.0.0.1")))

    (define (tcp-close l)
      (unix-socket-close-listener l))

    (define (tcp-connect _hostname
                         _port-no
                         [_local-hostname #f]
                         [_local-port-no #f])
      (error 'tcp-connect "not supported"))

    (define (tcp-connect/enable-break _hostname
                                      _port-no
                                      [_local-hostname #f]
                                      [_local-port-no #f])
      (error 'tcp-connect/enable-break "not supported"))

    (define (tcp-listen _port-no
                        [backlog 4]
                        [_reuse? #f]
                        [_hostname #f])
      (unix-socket-listen path backlog))

    (define (tcp-listener? l)
      (unix-socket-listener? l))))