iolib.asd

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