Newer
Older
;; Copyright (c) 2003-2012 Nikodemus Siivola <nikodemus@random-state.net>
;; Permission is hereby granted, free of charge, to any person obtaining
;; a copy of this software and associated documentation files (the
;; "Software"), to deal in the Software without restriction, including
;; without limitation the rights to use, copy, modify, merge, publish,
;; distribute, sublicense, and/or sell copies of the Software, and to
;; permit persons to whom the Software is furnished to do so, subject to
;; the following conditions:
;; The above copyright notice and this permission notice shall be included
;; in all copies or substantial portions of the Software.
;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
(defpackage :linedit-system
(:use :cl :asdf))
(in-package :linedit-system)
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
;;;; Loading specific files based on features.
(defun featurep (x)
(typecase x
(cons
(case (car x)
((:not not)
(cond
((cddr x)
(error "Too many subexpressions in feature expression: ~S" x))
((null (cdr x))
(error "Too few subexpressions in feature expression: ~S" x))
(t (not (featurep (cadr x))))))
((:and and) (every #'featurep (cdr x)))
((:or or) (some #'featurep (cdr x)))
(t
(error "Unknown operator in feature expression: ~S." x))))
(symbol
(not (null (member x *features* :test #'eq))))
(t
(error "Invalid feature expression: ~S" x))))
(defclass port-file (cl-source-file)
((test :initform nil)))
(defmethod shared-initialize :after ((port port-file) slots &key when unless)
(setf (slot-value port 'test)
(cond ((and when unless)
`(:and ,when (:not ,unless)))
(when)
(unless)
(t
(error "~S has no feature conditionals." port)))))
(defmethod perform :around ((op load-op) (port port-file))
(when (featurep (slot-value port 'test))
(call-next-method)))
(defmethod perform :around ((op load-source-op) (port port-file))
(when (featurep (slot-value port 'test))
(call-next-method)))
(defmethod perform :around ((op compile-op) (port port-file))
(when (featurep (slot-value port 'test))
(call-next-method)))
;;;; C compiler
(defvar *gcc* "/usr/bin/gcc")
(defvar *gcc-options*
#-(or darwin macosx)
(list "-shared" "-fPIC")
#+(or darwin macosx)
(append
(list "-dynamic" "-bundle")
#+(or x86 x86-64)
(list "-arch" "x86_64" "-arch" "i386")
#-sbcl
(list "/usr/lib/bundle1.o" "-flat_namespace" "-undefined" "suppress")))
Nikodemus Siivola
committed
;;;; Separate class so that we don't mess up other packages
(defclass uffi-c-source-file (c-source-file) ())
(defmethod output-files ((o compile-op) (c uffi-c-source-file))
:type #-(or darwin macosx) "so" #+(or darwin macosx) "dylib"
:defaults (component-pathname c))))
(defmethod perform ((o load-op) (c uffi-c-source-file))
(let ((loader (intern (symbol-name '#:load-foreign-library) :uffi)))
(funcall loader f :module (pathname-name f)))))
(defmethod perform ((o compile-op) (c uffi-c-source-file))
Nikodemus Siivola
committed
(unless (zerop (run-shell-command "~A ~A ~{~A ~}-o ~A"
*gcc*
(namestring (component-pathname c))
*gcc-options*
(namestring (car (output-files o c)))))
(error 'operation-error :component c :operation o)))
(defsystem :linedit
:description "Readline-style library."
:licence "MIT"
:author "Nikodemus Siivola <nikodemus@sb-studio.net>"
:depends-on (:uffi :terminfo :osicat :alexandria)
:components
(;; Common
(:file "packages")
(:file "utility-functions" :depends-on ("packages"))
(:file "utility-macros" :depends-on ("packages" "utility-functions"))
(:file "matcher" :depends-on ("packages"))
(:file "backend" :depends-on ("utility-macros"))
(:file "terminal-translations" :depends-on ("packages"))
(:file "terminal" :depends-on ("terminal-translations" "backend" "terminal_glue"))
(:file "smart-terminal" :depends-on ("terminal" "matcher"))
(:file "dumb-terminal" :depends-on ("terminal"))
(:file "rewindable" :depends-on ("utility-macros"))
(:file "line" :depends-on ("utility-macros"))
(:file "buffer" :depends-on ("utility-macros"))
(:file "command-keys" :depends-on ("packages"))
(:file "editor" :depends-on ("backend" "rewindable"
(:file "main" :depends-on ("editor"))
(:file "complete" :depends-on ("utility-macros"))
(:file "command-functions" :depends-on ("editor"))
(:module "ports"
:depends-on ("main")
:serial t
:if-component-dep-fails :try-next
:components (;; This has definitions which signal an error, replaced
;; by port-specific files below when possible.
(:file "generic")
(:port-file "sbcl" :when :sbcl)
(:port-file "ccl" :when :ccl)))))