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 (in-package #:iolib-system)
  12
  13 (sb-alien:with-alien ((a (array (sb-alien:unsigned 8) 4)))
  14   (dotimes (i 4)
  15     (setf (sb-alien:deref a i) (1+ i)))
  16   (pushnew (case (sb-alien:deref (sb-alien:cast (sb-alien:addr a) (* sb-alien:unsigned)))
  17              (#x01020304 :big-endian)
  18              (#x04030201 :little-endian)
  19              (otherwise
  20               (error "Your machine seems to be neither little-endian nor big-endian. Please report this to the maintainer(s).")))
  21            *features*))
  22
  23 (defsystem net.sockets
  24   :description "Socket library for SBCL."
  25   :author "Stelian Ionescu <sionescu@common-lisp.net>"
  26   :maintainer "Stelian Ionescu <sionescu@common-lisp.net>"
  27   :licence "GPL-2.1"
  28   :depends-on (#:sb-posix)
  29   :components
  30   ((:module :sockets
  31     :components
  32     ((:file "defpackage")
  33      (:file "common" :depends-on ("defpackage"))
  34      (:file "config" :depends-on ("defpackage"))
  35      (:file "conditions" :depends-on ("defpackage"))
  36      (:file "iface" :depends-on ("defpackage" "conditions" "common"))
  37      (:file "address" :depends-on ("defpackage" "conditions" "common"))
  38      (:file "resolv" :depends-on ("defpackage" "common" "config" "conditions" "address"))
  39      (:file "base-sockets"
  40             :depends-on ("defpackage" "config" "common" "address" "resolv"))
  41      (:file "socket-options"
  42             :depends-on ("defpackage" "common" "base-sockets"))
  43      (:file "stream-sockets"
  44             :depends-on ("defpackage" "common" "config" "base-sockets"))
  45      (:file "datagram-sockets"
  46             :depends-on ("defpackage" "common" "config" "base-sockets"))
  47      (:file "unix-sockets"
  48             :depends-on ("defpackage" "common" "config" "base-sockets"
  49                          "stream-sockets" "datagram-sockets"))))))
  50
  51 (defsystem iolib
  52   :description "I/O library for SBCL."
  53   :author "Stelian Ionescu <sionescu@common-lisp.net>"
  54   :maintainer "Stelian Ionescu <sionescu@common-lisp.net>"
  55   :licence "GPL-2.1"
  56   :depends-on (#:net.sockets))