1;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*- 2;;; $Header: /usr/local/cvsrep/cl-interpol/packages.lisp,v 1.11 2008/07/23 15:35:07 edi Exp $ 3 4;;; Copyright (c) 2003-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 :cl-interpol 33 (:nicknames :interpol) 34 (:use :cl :cl-unicode :cl-ppcre) 35 (:import-from :named-readtables 36 :defreadtable) 37 (:export :enable-interpol-syntax 38 :disable-interpol-syntax 39 :*list-delimiter* 40 :*outer-delimiters* 41 :*inner-delimiters* 42 :*optional-delimiters-p* 43 :*interpolate-format-directives* 44 :interpol-reader)) 45