;; Sockets library
(define-library (106) ;(srfi 106)
  (include-c-header "<sys/types.h>")
  (include-c-header "<sys/socket.h>")
  (include-c-header "<netdb.h>")
  (import (scheme base))
  (export
      make-client-socket make-server-socket socket?
      socket-accept socket-send socket-recv
      socket-shutdown socket-close
      socket-input-port
      socket-output-port
      call-with-socket
      address-family address-info 
      socket-domain ip-protocol
      message-type shutdown-method
      socket-merge-flags
      socket-purge-flags
      *af-unspec* *af-inet* *af-inet6*
      *sock-stream* *sock-dgram*
      *ai-canonname* *ai-numerichost*
      *ai-v4mapped* *ai-all* *ai-addrconfig*
      *ipproto-ip* *ipproto-tcp* *ipproto-udp*
      *msg-peek* *msg-oob* *msg-waitall*
      *shut-rd* *shut-wr* *shut-rdwr*
  )
  (begin
    (define-syntax load-const
      (er-macro-transformer
        (lambda (expr rename compare)
        ;; TODO: load const and function name from expr
         `(define-c %shut-wr%
            "(void *data, int argc, closure _, object k)"
            "return_closcall1(data, k, obj_int2obj(SHUT_WR)); "))))
    (load-const %shut-wr% "SHUT_WR")
    ;; TODO: create a macro to streamline this!!
    (define-c %shut-rd%
      "(void *data, int argc, closure _, object k)"
      "return_closcall1(data, k, obj_int2obj(SHUT_RD)); ")

    (define *shut-rd* (%shut-rd%))
    (define *ipproto-ip* 0)
    (define *ipproto-tcp* 6)
    (define *ipproto-udp* 17)
; really want to define-C these, but just to specify a constant and not a whole function
; TODO:            (rename (AF_UNSPEC *af-unspec*)
; TODO:                    (AF_INET   *af-inet*)
; TODO:                    (AF_INET6  *af-inet6*))
; TODO:            (rename (SOCK_STREAM *sock-stream*)
; TODO:                    (SOCK_DGRAM  *sock-dgram*))
; TODO:            (rename (AI_CANONNAME   *ai-canonname*)
; TODO:                    (AI_NUMERICHOST *ai-numerichost*)
; TODO:                    (AI_V4MAPPED    *ai-v4mapped*)
; TODO:                    (AI_ALL         *ai-all*)
; TODO:                    (AI_ADDRCONFIG  *ai-addrconfig*))
; TODO:            (rename (MSG_PEEK     *msg-peek*)
; TODO:                    (MSG_OOB      *msg-oob*)
; TODO:                    (MSG_WAITALL  *msg-waitall*))
; TODO:            (rename (SHUT_RD   *shut-rd*)
; TODO:                    (SHUT_WR   *shut-wr*)
; TODO:                    (SHUT_RDWR *shut-rdwr*)))
  )
)