1 ;;; package.lisp --- Common Lisp Package definition
3 ;; Copyright (C) 2010, 2011, 2012 Didier Verna.
5 ;; Author: Didier Verna <didier@lrde.epita.fr>
6 ;; Maintainer: Didier Verna <didier@lrde.epita.fr>
8 ;; This file is part of Clon.
10 ;; Permission to use, copy, modify, and distribute this software for any
11 ;; purpose with or without fee is hereby granted, provided that the above
12 ;; copyright notice and this permission notice appear in all copies.
14 ;; THIS SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
15 ;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
16 ;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
17 ;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
18 ;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
19 ;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
20 ;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
25 ;; Contents management by FCM version 0.1.
32 (defpackage :com.dvlsoft.clon
33 (:documentation
"The Command-Line Options Nuker package.")
35 (:shadow
:*readtable
*)
37 (:import-from
#+sbcl
:sb-mop
45 :class-slots
:slot-definition-name
:validate-superclass
)
46 (:import-from
:com.dvlsoft.clon.asdf
49 :+release-major-level
+
50 :+release-minor-level
+
52 :+release-status-level
+
56 ;; From com.dvlsoft.clon.asd:
57 :+release-major-level
+
58 :+release-minor-level
+
60 :+release-status-level
+
65 ;; From src/util.lisp:
69 ;; From src/text.lisp:
71 ;; From src/options/flag.lisp:
73 ;; From src/options/switch.lisp:
75 ;; From src/options/stropt.lisp:
77 ;; From src/options/lispobj.lisp:
79 ;; From src/options/path.lisp:
81 ;; From src/options/enum.lisp:
83 ;; From src/options/xswitch.lisp:
85 ;; From src/group.lisp:
87 ;; From src/synopsis.lisp:
89 :make-synopsis
:defsynopsis
90 ;; From src/context.lisp:
100 :multiple-value-getopt-cmdline
105 (in-package :com.dvlsoft.clon
)
108 ;; -------------------
109 ;; External utilities:
110 ;; -------------------
112 (defun nickname-package (&optional
(nickname :clon
))
113 "Add NICKNAME (:CLON by default) to the :COM.DVLSOFT.CLON package."
114 (rename-package :com.dvlsoft.clon
115 (package-name :com.dvlsoft.clon
)
116 (adjoin nickname
(package-nicknames :com.dvlsoft.clon
)
117 :test
#'string-equal
)))
120 ;; -------------------
121 ;; Internal utilities:
122 ;; -------------------
124 (defvar *readtable
* (copy-readtable)
125 "The Clon readtable.")
128 ;; String concatenation
129 ;; --------------------
130 (defun tilde-reader (stream char
)
131 "Read a series of ~\"string\" to be concatenated together."
132 (declare (ignore char
))
133 (flet ((read-string (&aux
(string (read stream t nil t
)))
134 (check-type string string
"a string")
136 (apply #'concatenate
'string
138 (loop :while
(char= (peek-char t stream nil nil t
) #\~
)
139 :do
(read-char stream t nil t
)
140 :collect
(read-string)))))
142 (set-macro-character #\~
#'tilde-reader nil
*readtable
*)
146 (defun clindent (symbol indent
)
147 "Set SYMBOL's indentation to INDENT in (X)Emacs.
148 This function sets SYMBOL's common-lisp-indent-function property.
149 If INDENT is a symbol, use its indentation definition.
150 Otherwise, INDENT is considered as an indentation definition."
151 (when (and (member :swank
*features
*)
152 (configuration :swank-eval-in-emacs
))
153 ;; #### NOTE: case portability
154 (funcall (intern (string :eval-in-emacs
) :swank
)
155 `(put ',symbol
'common-lisp-indent-function
156 ,(if (symbolp indent
)
157 `(get ',indent
'common-lisp-indent-function
)
161 (defmacro defindent
(symbol indent
)
162 "Set SYMBOL's indentation to INDENT in (X)Emacs.
163 SYMBOL and INDENT need not be quoted.
164 See CLINDENT for more information."
165 `(eval-when (:compile-toplevel
:execute
:load-toplevel
)
166 (clindent ',symbol
',indent
)))
168 (defun i-reader (stream subchar arg
)
169 "Read an argument list for the DEFINDENT macro."
170 (declare (ignore subchar arg
))
171 (cons 'defindent
(read stream
)))
173 (set-dispatch-macro-character #\
# #\i
#'i-reader
*readtable
*)
176 ;; ECL, CLISP, Allegro and LispWorks do not like to see undefined reader
177 ;; macros in expressions that belong to other compilers. For instance this
178 ;; will break: #+ccl (#_ccl-only-function) It seems to be a correct behavior
179 ;; (see *read-suppress* in CLHS), although other implementations like SBCL and
180 ;; CMUCL are more gentle. The solution I use is to define those reader macros
181 ;; to simply return nil.
184 #+(or ecl clisp allegro lispworks
)
186 (defun dummy-reader (stream subchar args
)
188 (declare (ignore stream subchar args
))
190 (set-dispatch-macro-character #\
# #\_
#'dummy-reader
*readtable
*)
191 (set-dispatch-macro-character #\
# #\$
#'dummy-reader
*readtable
*))
193 (defmacro in-readtable
(name)
194 "Set the current readtable to the value of NAME::*READTABLE*."
195 `(eval-when (:compile-toplevel
:load-toplevel
:execute
)
197 ;; #### NOTE: case portability
198 (symbol-value (find-symbol (string :*readtable
*) ,name
)))))
201 ;;; package.lisp ends here