+++ /dev/null
-;;;; -*- 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))))
--- /dev/null
+cl-lml2 (1.0-1) unstable; urgency=low
+
+ * First release
+
+ -- Kevin M. Rosenberg <kmr@debian.org> Mon, 16 Jun 2003 23:52:59 -0600
--- /dev/null
+Source: cl-lml2
+Section: devel
+Priority: optional
+Maintainer: Kevin M. Rosenberg <kmr@debian.org>
+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.
+
--- /dev/null
+Debian Copyright Section
+========================
+
+Upstream Source URL: ftp://lml.med-info.com
+Upstream Authors: Kevin M. Rosenberg <kevin@rosenberg.net>
+ John Federaro, Franz Inc
+Debian Maintainer: Kevin M. Rosenberg <kmr@debian.org>
+
+
+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.
+
--- /dev/null
+#! /bin/sh
+set -e
+
+LISP_PKG=lml2
+
+# summary of how this script can be called:
+# * <postinst> `configure' <most-recently-configured-version>
+# * <old-postinst> `abort-upgrade' <new version>
+# * <conflictor's-postinst> `abort-remove' `in-favour' <package>
+# <new-version>
+# * <deconfigured's-postinst> `abort-deconfigure' `in-favour'
+# <failed-install-package> <version> `removing'
+# <conflicting-package> <version>
+# 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
+
+
--- /dev/null
+#! /bin/sh
+set -e
+
+# package name according to lisp
+LISP_PKG=lml2
+
+# summary of how this script can be called:
+# * <prerm> `remove'
+# * <old-prerm> `upgrade' <new-version>
+# * <new-prerm> `failed-upgrade' <old-version>
+# * <conflictor's-prerm> `remove' `in-favour' <package> <new-version>
+# * <deconfigured's-prerm> `deconfigure' `in-favour'
+# <package-being-installed> <version> `removing'
+# <conflicting-package> <version>
+# 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
+
+
--- /dev/null
+#!/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
+
--- /dev/null
+#!/bin/bash -e
+
+dup lml2 -Uftp.med-info.com -D/home/ftp/lml2 -C"(cd /opt/apache/htdocs/lml; make install)" -su $*
;;;; 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
;;;;
(: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"))
))