3rdparties/software/flexi-streams-20200427-git/flexi-streams.asd (3173 bytes)
1 ;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- 2 ;;; $Header: /usr/local/cvsrep/flexi-streams/flexi-streams.asd,v 1.79 2008/08/26 10:59:22 edi Exp $ 3 4 ;;; Copyright (c) 2005-2008, Dr. Edmund Weitz. All rights reserved. 5 6 ;;; Redistribution and use in source and binary forms, with or without 7 ;;; modification, are permitted provided that the following conditions 8 ;;; are met: 9 10 ;;; * Redistributions of source code must retain the above copyright 11 ;;; notice, this list of conditions and the following disclaimer. 12 13 ;;; * Redistributions in binary form must reproduce the above 14 ;;; copyright notice, this list of conditions and the following 15 ;;; disclaimer in the documentation and/or other materials 16 ;;; provided with the distribution. 17 18 ;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED 19 ;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED 20 ;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21 ;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY 22 ;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 23 ;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE 24 ;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 25 ;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, 26 ;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING 27 ;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS 28 ;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. 29 30 (in-package :cl-user) 31 32 (defpackage :flexi-streams-system 33 (:use :asdf :cl)) 34 35 (in-package :flexi-streams-system) 36 37 ;;; Maybe it can be made work for some encodings 38 (when (<= char-code-limit 65533) 39 (error "flexi-streams doesn't work on implementations with CHAR-CODE-LIMIT (~a) less than 65533" 40 char-code-limit)) 41 42 (defsystem :flexi-streams 43 :version "1.0.18" 44 :serial t 45 :description "Flexible bivalent streams for Common Lisp" 46 :license "BSD-2-Clause" 47 :components ((:file "packages") 48 (:file "mapping") 49 (:file "ascii") 50 (:file "koi8-r") 51 (:file "iso-8859") 52 (:file "code-pages") 53 (:file "specials") 54 (:file "util") 55 (:file "conditions") 56 (:file "external-format") 57 (:file "length") 58 (:file "encode") 59 (:file "decode") 60 (:file "in-memory") 61 (:file "stream") 62 #+:lispworks (:file "lw-char-stream") 63 (:file "output") 64 (:file "input") 65 (:file "io") 66 (:file "strings")) 67 :depends-on (:trivial-gray-streams)) 68 69 (defsystem :flexi-streams-test 70 :components ((:module "test" 71 :serial t 72 :components ((:file "packages") 73 (:file "test")))) 74 :depends-on (:flexi-streams)) 75 76 (defmethod perform ((o test-op) (c (eql (find-system 'flexi-streams)))) 77 (operate 'load-op 'flexi-streams-test) 78 (funcall (intern (symbol-name :run-all-tests) 79 (find-package :flexi-streams-test))))