From 15694e94b48c2d8c7f9598fa5fcdaf451b7931c6 Mon Sep 17 00:00:00 2001 From: "Kevin M. Rosenberg" Date: Fri, 20 Jun 2003 04:14:20 +0000 Subject: [PATCH] r5164: *** empty log message *** --- api.lisp | 99 ------------------------------------------------ debian/changelog | 5 +++ debian/compat | 1 + debian/control | 16 ++++++++ debian/copyright | 90 +++++++++++++++++++++++++++++++++++++++++++ debian/postinst | 47 +++++++++++++++++++++++ debian/prerm | 38 +++++++++++++++++++ debian/rules | 81 +++++++++++++++++++++++++++++++++++++++ debian/upload.sh | 3 ++ lml2.asd | 4 +- 10 files changed, 283 insertions(+), 101 deletions(-) delete mode 100644 api.lisp create mode 100644 debian/changelog create mode 100644 debian/compat create mode 100644 debian/control create mode 100644 debian/copyright create mode 100644 debian/postinst create mode 100644 debian/prerm create mode 100755 debian/rules create mode 100755 debian/upload.sh diff --git a/api.lisp b/api.lisp deleted file mode 100644 index 0e291b2..0000000 --- a/api.lisp +++ /dev/null @@ -1,99 +0,0 @@ -;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- -;;;; ************************************************************************* -;;;; FILE IDENTIFICATION -;;;; -;;;; Name: api.lisp -;;;; Purpose: Macros for generating API documentation -;;;; Programmer: Kevin M. Rosenberg based on Matthew Danish's code -;;;; Date Started: Nov 2002 -;;;; -;;;; $Id: api.lisp,v 1.1 2003/06/20 04:12:29 kevin Exp $ -;;;; -;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg -;;;; and Copyright (c) 2002 Matthew Danish -;;;; -;;;; LML users are granted the rights to distribute and use this software -;;;; as governed by the terms of the GNU General Public License v2 -;;;; (http://www.gnu.org/licenses/gpl.html) -;;;; ************************************************************************* - -(in-package #:lml) - -;;; Copyright (c) 2002 Matthew Danish. -;;; All rights reserved. - -;;; Redistribution and use in source and binary forms, with or without -;;; modification, are permitted provided that the following conditions -;;; are met: -;;; 1. Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. -;;; 2. Redistributions in binary form must reproduce the above copyright -;;; notice, this list of conditions and the following disclaimer in the -;;; documentation and/or other materials provided with the distribution. -;;; 3. The name of the author may not be used to endorse or promote products -;;; derived from this software without specific prior written permission. -;;; -;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR -;;; IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES -;;; OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. -;;; IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, -;;; INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT -;;; NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, -;;; DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY -;;; THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT -;;; (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF -;;; THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. - -;;; For an example, see Matthew Danish's cl-ftp documentation at -;;; http://www.mapcar.org/~mrd/cl-sql/ - -(defmacro api-list (&body body) - `(ul ,@(loop for item in body collect `(li ,item)))) - -(defun stringify (x) - (let ((*print-case* :downcase)) - (if (null x) - "()" - (format nil "~A" x)))) - -(defmacro with-class-info ((class-name superclasses &rest slot-docs) &body other-info) - `(p (i "Class ") (b ,(stringify class-name)) - (i " derived from ") ,(stringify superclasses) " -- " (br) - (i "Initargs:") (br) - (ul - ,@(loop for (slot-name slot-desc slot-default) in slot-docs collect - `(li (tt ,(format nil ":~A" slot-name)) - " -- " ,slot-desc " -- " (i "Default: ") - ,(if (eql slot-default :n/a) - "Not specified" - (format nil "~S" slot-default))))) - ,@other-info)) - -(defmacro with-macro-info ((macro-name &rest lambda-list) &body other-info) - `(p (i "Macro ") (b ,(stringify macro-name)) " " - (tt ,(stringify lambda-list)) (br) - ,@other-info)) - -(defmacro with-function-info ((function-name &rest lambda-list) &body other-info) - `(p (i "Function ") (b ,(stringify function-name)) " " - (tt ,(stringify lambda-list)) - (br) ,@other-info)) - -(defmacro with-condition-info ((condition-name supers &rest slot-docs) &body other-info) - `(p (i "Condition ") (b ,(stringify condition-name)) - (i " derived from ") ,(stringify supers) " -- " (br) - (i "Slots:") (br) - (ul - ,@(loop for (slot-name slot-desc slot-reader slot-initarg slot-default) in slot-docs collect - `(li (tt ,(stringify slot-name)) - " -- " ,slot-desc " -- " (i " Default: ") - ,(if (eql slot-default :n/a) - "Not specified" - (format nil "~S" slot-default))))) - ,@other-info)) - -(defmacro with-functions (&rest slots) - `(progn ,@(loop for (fn description . args) in slots collect - `(with-function-info (,fn ,@(if args args - '(connection-variable))) - ,description)))) diff --git a/debian/changelog b/debian/changelog new file mode 100644 index 0000000..8f3216c --- /dev/null +++ b/debian/changelog @@ -0,0 +1,5 @@ +cl-lml2 (1.0-1) unstable; urgency=low + + * First release + + -- Kevin M. Rosenberg Mon, 16 Jun 2003 23:52:59 -0600 diff --git a/debian/compat b/debian/compat new file mode 100644 index 0000000..b8626c4 --- /dev/null +++ b/debian/compat @@ -0,0 +1 @@ +4 diff --git a/debian/control b/debian/control new file mode 100644 index 0000000..7bd27bf --- /dev/null +++ b/debian/control @@ -0,0 +1,16 @@ +Source: cl-lml2 +Section: devel +Priority: optional +Maintainer: Kevin M. Rosenberg +Build-Depends-Indep: debhelper (>> 4.0.0) +Standards-Version: 3.5.10.0 + +Package: cl-lml2 +Architecture: all +Depends: ${shlibs:Depends}, common-lisp-controller (>= 3.37) +Description: Lisp Markup Language + LML2 provides a markup language for generation XHTML web pages. + . + The usage of LML2 is incompatible the the original LML version. However, + the two versions may be used along side each other. + diff --git a/debian/copyright b/debian/copyright new file mode 100644 index 0000000..e78a956 --- /dev/null +++ b/debian/copyright @@ -0,0 +1,90 @@ +Debian Copyright Section +======================== + +Upstream Source URL: ftp://lml.med-info.com +Upstream Authors: Kevin M. Rosenberg + John Federaro, Franz Inc +Debian Maintainer: Kevin M. Rosenberg + + +Upstream Copyright Statement +============================ +LML is written and Copyright (c) 2003 by Kevin M. Rosenberg +with portions Copyright (c) 1986-2003 by Franz, Inc. + +LML is licensed under the terms of the Lisp Lesser GNU Public +License, known as the LLGPL. The LLGPL consists of a preamble (see +below) and the Lessor GNU Public License 2.1 (LGPL-2.1). Where these +conflict, the preamble takes precedence. CLSQL is referenced in the +preamble as the "LIBRARY." The LGPL-2.1 is stored on a Debian system +in the file /usr/share/common-licenses/LGPL-2.1. + +LML is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. + + + +Preamble to the Gnu Lesser General Public License +------------------------------------------------- +Copyright (c) 2000 Franz Incorporated, Berkeley, CA 94704 + +The concept of the GNU Lesser General Public License version 2.1 +("LGPL") has been adopted to govern the use and distribution of +above-mentioned application. However, the LGPL uses terminology that +is more appropriate for a program written in C than one written in +Lisp. Nevertheless, the LGPL can still be applied to a Lisp program if +certain clarifications are made. This document details those +clarifications. Accordingly, the license for the open-source Lisp +applications consists of this document plus the LGPL. Wherever there +is a conflict between this document and the LGPL, this document takes +precedence over the LGPL. + +A "Library" in Lisp is a collection of Lisp functions, data and +foreign modules. The form of the Library can be Lisp source code (for +processing by an interpreter) or object code (usually the result of +compilation of source code or built with some other +mechanisms). Foreign modules are object code in a form that can be +linked into a Lisp executable. When we speak of functions we do so in +the most general way to include, in addition, methods and unnamed +functions. Lisp "data" is also a general term that includes the data +structures resulting from defining Lisp classes. A Lisp application +may include the same set of Lisp objects as does a Library, but this +does not mean that the application is necessarily a "work based on the +Library" it contains. + +The Library consists of everything in the distribution file set before +any modifications are made to the files. If any of the functions or +classes in the Library are redefined in other files, then those +redefinitions ARE considered a work based on the Library. If +additional methods are added to generic functions in the Library, +those additional methods are NOT considered a work based on the +Library. If Library classes are subclassed, these subclasses are NOT +considered a work based on the Library. If the Library is modified to +explicitly call other functions that are neither part of Lisp itself +nor an available add-on module to Lisp, then the functions called by +the modified Library ARE considered a work based on the Library. The +goal is to ensure that the Library will compile and run without +getting undefined function errors. + +It is permitted to add proprietary source code to the Library, but it +must be done in a way such that the Library will still run without +that proprietary code present. Section 5 of the LGPL distinguishes +between the case of a library being dynamically linked at runtime and +one being statically linked at build time. Section 5 of the LGPL +states that the former results in an executable that is a "work that +uses the Library." Section 5 of the LGPL states that the latter +results in one that is a "derivative of the Library", which is +therefore covered by the LGPL. Since Lisp only offers one choice, +which is to link the Library into an executable at build time, we +declare that, for the purpose applying the LGPL to the Library, an +executable that results from linking a "work that uses the Library" +with the Library is considered a "work that uses the Library" and is +therefore NOT covered by the LGPL. + +Because of this declaration, section 6 of LGPL is not applicable to +the Library. However, in connection with each distribution of this +executable, you must also deliver, in accordance with the terms and +conditions of the LGPL, the source code of Library (or your derivative +thereof) that is incorporated into this executable. + diff --git a/debian/postinst b/debian/postinst new file mode 100644 index 0000000..a6ea28d --- /dev/null +++ b/debian/postinst @@ -0,0 +1,47 @@ +#! /bin/sh +set -e + +LISP_PKG=lml2 + +# summary of how this script can be called: +# * `configure' +# * `abort-upgrade' +# * `abort-remove' `in-favour' +# +# * `abort-deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package +# +# quoting from the policy: +# Any necessary prompting should almost always be confined to the +# post-installation script, and should be protected with a conditional +# so that unnecessary prompting doesn't happen if a package's +# installation fails and the `postinst' is called with `abort-upgrade', +# `abort-remove' or `abort-deconfigure'. + +case "$1" in + configure) + /usr/sbin/register-common-lisp-source ${LISP_PKG} + + ;; + + abort-upgrade|abort-remove|abort-deconfigure) + + ;; + + *) + echo "postinst called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff --git a/debian/prerm b/debian/prerm new file mode 100644 index 0000000..4abbfb2 --- /dev/null +++ b/debian/prerm @@ -0,0 +1,38 @@ +#! /bin/sh +set -e + +# package name according to lisp +LISP_PKG=lml2 + +# summary of how this script can be called: +# * `remove' +# * `upgrade' +# * `failed-upgrade' +# * `remove' `in-favour' +# * `deconfigure' `in-favour' +# `removing' +# +# for details, see http://www.debian.org/doc/debian-policy/ or +# the debian-policy package + + +case "$1" in + remove|upgrade|deconfigure) + /usr/sbin/unregister-common-lisp-source ${LISP_PKG} + ;; + failed-upgrade) + ;; + *) + echo "prerm called with unknown argument \`$1'" >&2 + exit 1 + ;; +esac + +# dh_installdeb will replace this with shell code automatically +# generated by other debhelper scripts. + +#DEBHELPER# + +exit 0 + + diff --git a/debian/rules b/debian/rules new file mode 100755 index 0000000..3ff626b --- /dev/null +++ b/debian/rules @@ -0,0 +1,81 @@ +#!/usr/bin/make -f + +pkg := lml2 +debpkg := cl-lml2 + + +clc-source := usr/share/common-lisp/source +clc-systems := usr/share/common-lisp/systems +clc-lml2 := $(clc-source)/$(pkg) + +doc-dir := usr/share/doc/$(debpkg) + + +configure: configure-stamp +configure-stamp: + dh_testdir + # Add here commands to configure the package. + touch configure-stamp + + +build: build-stamp + +build-stamp: configure-stamp + dh_testdir + # Add here commands to compile the package. + touch build-stamp + +clean: + dh_testdir + dh_testroot + rm -f build-stamp configure-stamp + # Add here commands to clean up after the build process. + rm -f debian/cl-lml2.postinst.* debian/cl-lml2.prerm.* + dh_clean + +install: build + dh_testdir + dh_testroot + dh_clean -k + # Add here commands to install the package into debian/lml2. + dh_installdirs $(clc-systems) $(clc-lml2) $(doc-dir) + dh_install lml2.asd $(shell echo *.lisp) $(clc-lml2) + dh_install $(shell echo doc/*.html) $(doc-dir) + dh_link $(clc-lml2)/lml2.asd $(clc-systems)/lml2.asd + +# Build architecture-independent files here. +binary-indep: build install + + +# Build architecture-dependent files here. +binary-arch: build install + dh_testdir + dh_testroot +# dh_installdebconf + dh_installdocs + dh_installexamples doc/Makefile doc/make.lisp $(shell echo doc/*.lml) +# dh_installmenu +# dh_installlogrotate +# dh_installemacsen +# dh_installpam +# dh_installmime +# dh_installinit +# dh_installcron +# dh_installman +# dh_installinfo +# dh_undocumented + dh_installchangelogs + dh_strip + dh_compress + dh_fixperms +# dh_makeshlibs + dh_installdeb +# dh_perl + dh_shlibdeps + dh_gencontrol + dh_md5sums + dh_builddeb + +binary: binary-indep binary-arch +.PHONY: build clean binary-indep binary-arch binary install configure + diff --git a/debian/upload.sh b/debian/upload.sh new file mode 100755 index 0000000..4c091d2 --- /dev/null +++ b/debian/upload.sh @@ -0,0 +1,3 @@ +#!/bin/bash -e + +dup lml2 -Uftp.med-info.com -D/home/ftp/lml2 -C"(cd /opt/apache/htdocs/lml; make install)" -su $* diff --git a/lml2.asd b/lml2.asd index ae45570..f72c08b 100644 --- a/lml2.asd +++ b/lml2.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: lml2.asd,v 1.1 2003/06/20 04:12:29 kevin Exp $ +;;;; $Id: lml2.asd,v 1.2 2003/06/20 04:14:20 kevin Exp $ ;;;; ;;;; This file, part of LML2, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -37,7 +37,7 @@ (:file "utils" :depends-on ("package")) (:file "files" :depends-on ("utils" "htmlgen")) (:file "base" :depends-on ("files")) - (:file "read-macro" :depends-on ("base")) + #+ignore (:file "read-macro" :depends-on ("base")) (:file "stdsite" :depends-on ("base")) (:file "downloads" :depends-on ("base")) )) -- 2.34.1