r5164: *** empty log message ***
authorKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 20 Jun 2003 04:14:20 +0000 (04:14 +0000)
committerKevin M. Rosenberg <kevin@rosenberg.net>
Fri, 20 Jun 2003 04:14:20 +0000 (04:14 +0000)
api.lisp [deleted file]
debian/changelog [new file with mode: 0644]
debian/compat [new file with mode: 0644]
debian/control [new file with mode: 0644]
debian/copyright [new file with mode: 0644]
debian/postinst [new file with mode: 0644]
debian/prerm [new file with mode: 0644]
debian/rules [new file with mode: 0755]
debian/upload.sh [new file with mode: 0755]
lml2.asd

diff --git a/api.lisp b/api.lisp
deleted file mode 100644 (file)
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 (file)
index 0000000..8f3216c
--- /dev/null
@@ -0,0 +1,5 @@
+cl-lml2 (1.0-1) unstable; urgency=low
+
+  * First release
+
+ -- Kevin M. Rosenberg <kmr@debian.org>  Mon, 16 Jun 2003 23:52:59 -0600
diff --git a/debian/compat b/debian/compat
new file mode 100644 (file)
index 0000000..b8626c4
--- /dev/null
@@ -0,0 +1 @@
+4
diff --git a/debian/control b/debian/control
new file mode 100644 (file)
index 0000000..7bd27bf
--- /dev/null
@@ -0,0 +1,16 @@
+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.
+
diff --git a/debian/copyright b/debian/copyright
new file mode 100644 (file)
index 0000000..e78a956
--- /dev/null
@@ -0,0 +1,90 @@
+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.
+
diff --git a/debian/postinst b/debian/postinst
new file mode 100644 (file)
index 0000000..a6ea28d
--- /dev/null
@@ -0,0 +1,47 @@
+#! /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
+
+
diff --git a/debian/prerm b/debian/prerm
new file mode 100644 (file)
index 0000000..4abbfb2
--- /dev/null
@@ -0,0 +1,38 @@
+#! /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
+
+
diff --git a/debian/rules b/debian/rules
new file mode 100755 (executable)
index 0000000..3ff626b
--- /dev/null
@@ -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 (executable)
index 0000000..4c091d2
--- /dev/null
@@ -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 $*
index ae45570..f72c08b 100644 (file)
--- 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"))
    ))