iolib.asd

   1 ;; -*- Mode: Lisp; Syntax: ANSI-Common-Lisp -*-
   2
   3 (in-package #:cl-user)
   4
   5 (eval-when (:compile-toplevel :load-toplevel :execute)
   6   (require :sb-grovel))
   7
   8 (defpackage #:iolib-system
   9   (:use #:common-lisp #:asdf #:sb-grovel))
  10
  11 (eval-when (:compile-toplevel :load-toplevel :execute)
  12   (defpackage #:iolib-alien
  13     (:nicknames #:et)
  14     (:use #:common-lisp #:sb-alien)
  15     (:shadow #:listen)))
  16 (in-package #:iolib-system)
  17
  18 (sb-alien:with-alien ((a (array (sb-alien:unsigned 8) 4)))
  19   (dotimes (i 4)
  20     (setf (sb-alien:deref a i) (1+ i)))
  21   (pushnew (case (sb-alien:deref (sb-alien:cast (sb-alien:addr a) (* sb-alien:unsigned)))
  22              (#x01020304 :big-endian)
  23              (#x04030201 :little-endian)
  24              (otherwise
  25               (error "Your machine seems to be neither little-endian nor big-endian. Please report this to the maintainer(s).")))
  26            *features*))
  27
  28 (defsystem net.sockets
  29   :description "Socket library for SBCL."
  30   :author "Stelian Ionescu <sionescu@common-lisp.net>"
  31   :maintainer "Stelian Ionescu <sionescu@common-lisp.net>"
  32   :licence "GPL-2.1"
  33   :depends-on (#:sb-posix
  34                #:iolib-alien)
  35   :components
  36   ((:module :sockets
  37     :components
  38     ((:file "defpackage")
  39      (:file "common" :depends-on ("defpackage"))
  40      (:file "config" :depends-on ("defpackage"))
  41      (:file "conditions" :depends-on ("defpackage"))
  42      (:file "iface" :depends-on ("defpackage" "conditions" "common"))
  43      (:file "address" :depends-on ("defpackage" "conditions" "common"))
  44      (:file "resolv" :depends-on ("defpackage" "common" "config" "conditions" "address"))
  45      (:file "base-sockets"
  46             :depends-on ("defpackage" "config" "common"))
  47      (:file "socket-options"
  48             :depends-on ("defpackage" "common" "base-sockets"))))))
  49
  50 (defsystem iolib
  51   :description "I/O library for SBCL."
  52   :author "Stelian Ionescu <sionescu@common-lisp.net>"
  53   :maintainer "Stelian Ionescu <sionescu@common-lisp.net>"
  54   :licence "GPL-2.1"
  55   :depends-on (#:iolib-alien
  56                #:net.sockets))