From: Kevin M. Rosenberg Date: Mon, 16 Sep 2002 01:45:22 +0000 (+0000) Subject: r2662: *** empty log message *** X-Git-Tag: v2.5.5~197 X-Git-Url: http://git.kpe.io/?p=lml.git;a=commitdiff_plain;h=00049fd6b7a9dcf2b1303e65439d94d9269977d3 r2662: *** empty log message *** --- diff --git a/debian/changelog b/debian/changelog index a4780cc..1ab96ae 100644 --- a/debian/changelog +++ b/debian/changelog @@ -1,6 +1,6 @@ -lml (1.0.0-1) unstable; urgency=low +cl-lml (1.0.0-1) unstable; urgency=low - * Initial Release. + * Initial Release (closes: 161007) -- Kevin M. Rosenberg Sun, 15 Sep 2002 17:00:47 -0600 diff --git a/debian/rules b/debian/rules index d6aa11b..8e47dc0 100755 --- a/debian/rules +++ b/debian/rules @@ -34,11 +34,8 @@ clean: dh_testdir dh_testroot rm -f build-stamp configure-stamp - # Add here commands to clean up after the build process. - -$(MAKE) clean rm -f debian/cl-lml.postinst.* debian/cl-lml.prerm.* - dh_clean install: build @@ -47,7 +44,6 @@ install: build dh_clean -k dh_installdirs --all $(clc-systems) $(clc-source) dh_installdirs -p $(debpkg) $(doc-dir) $(clc-lml)/mcl - # Add here commands to install the package into debian/lml. dh_install lml.system lml.asd $(clc-systems) dh_install $(shell echo *.cl) $(clc-lml) @@ -63,7 +59,7 @@ binary-arch: build install dh_testroot # dh_installdebconf dh_installdocs - dh_installexamples examples/*.cl +# dh_installexamples # dh_installmenu # dh_installlogrotate # dh_installemacsen @@ -74,7 +70,7 @@ binary-arch: build install # dh_installman # dh_installinfo # dh_undocumented - dh_installchangelogs ChangeLog + dh_installchangelogs dh_strip dh_compress dh_fixperms diff --git a/lml.asd b/lml.asd index 234bb77..981c61d 100644 --- a/lml.asd +++ b/lml.asd @@ -7,7 +7,7 @@ ;;;; Programmer: Kevin M. Rosenberg ;;;; Date Started: Aug 2002 ;;;; -;;;; $Id: lml.asd,v 1.1 2002/09/16 01:13:49 kevin Exp $ +;;;; $Id: lml.asd,v 1.2 2002/09/16 01:41:16 kevin Exp $ ;;;; ;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg ;;;; @@ -19,8 +19,7 @@ (in-package :asdf) (defsystem :lml - :default-component-class kmr-cl-source-file - :pathname #.(translate-logical-pathname "KLISP-CVS:lml;") + :pathname "CL-LIBRARY:lml;" :components ((:file "package") (:file "utils" :depends-on ("package")) @@ -28,5 +27,7 @@ (:file "lml" :depends-on ("files")) (:file "stdsite" :depends-on ("lml")) (:file "downloads" :depends-on ("lml")) - (:file "pgsite" :depends-on ("lml")) )) + +(defmethod source-file-type ((c cl-source-file) (s (eql (find-system :lml)))) + "cl") diff --git a/lml.system b/lml.system index 853c810..5e89e2c 100644 --- a/lml.system +++ b/lml.system @@ -1,20 +1,30 @@ -;;;; -*- Mode: LISP; Syntax: Common-Lisp; Base: 10 -*- -;;;; $Id: lml.system,v 1.1 2002/09/16 01:13:49 kevin Exp $ - -(declaim (optimize (speed 3) (safety 1))) +;;;; -*- Mode: LISP; Syntax: ANSI-Common-Lisp; Base: 10 -*- +;;;; ************************************************************************* +;;;; FILE IDENTIFICATION +;;;; +;;;; Name: lml.system +;;;; Purpose: Defsystem file for Lisp Markup Language +;;;; Programmer: Kevin M. Rosenberg +;;;; Date Started: Aug 2002 +;;;; +;;;; $Id: lml.system,v 1.2 2002/09/16 01:41:16 kevin Exp $ +;;;; +;;;; This file, part of LML, is Copyright (c) 2002 by Kevin M. Rosenberg +;;;; +;;;; 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 :cl-user) (mk:defsystem :lml - :source-pathname #.(translate-logical-pathname "KLISP-CVS:lml;") + :source-pathname "CL-LIBRARY:lml;" :source-extension "cl" - :binary-pathname #.(translate-logical-pathname "KLISP-CVS:lml;bin;") :components ((:file "package") (:file "utils") :depends-on ("package") (:file "files") :depends-on ("utils") (:file "lml" :depends-on ("files")) (:file "stdsite" :depends-on ("lml")) - (:file "downloads" :depends-on ("lml")) - (:file "pgsite" :depends-on ("lml"))) - :depends-on (:genutils)) + (:file "downloads" :depends-on ("lml")))) diff --git a/pgsite.cl b/pgsite.cl deleted file mode 100644 index f2a95a2..0000000 --- a/pgsite.cl +++ /dev/null @@ -1,131 +0,0 @@ -(in-package :lml) - -;;; Not currently used - -(defun brs (&optional (n 1)) - (fresh-line) - (dotimes (i n) - (princ "
")) - (terpri)) - - -(defun html-file (base &optional (ext 'html)) - (format nil "~(~A~).~(~A~)" base ext)) - -(defmacro link-item (dest text) - `(progn - (princ "
  • ") - (link ,dest - (princ ,text)))) - -(defun button (dest text) - `(progn - (princ "[ ") - (link ,dest - (princ ,text)) - (format t " ]~%"))) - - -(defun map3 (fn lst) - (labels ((rec (curr prev next left) - (funcall fn curr prev next) - (when left - (rec (car left) - curr - (cadr left) - (cdr left))))) - (when lst - (rec (car lst) nil (cadr lst) (cdr lst))))) - - -(defparameter *sections* nil) - -(defstruct item - id title text) - -(defstruct section - id title items) - -(defmacro defitem (id title text) - `(setf ,id - (make-item :id ',id - :title ,title - :text ,text))) - -(defmacro defsection (id title &body items) - `(setf ,id - (make-section :id ',id - :title ,title - :items (list ,@items)))) - -(defmacro defsite (&body sections) - `(progn - (setf *sections* ,sections))) - - -(defconstant contents "contents") -(defconstant index "index") - -(defun gen-contents (&optional (sections *sections*)) - (page (html-file contents) - contents - (ol - (dolist (s sections) - (link-item (section-id s) (section-title s)) - (brs 2)) - (link-item index (string-capitalize index))))) - -(defun gen-index (&optional (sections *sections*)) - (page (html-file index) - index - (ol - (dolist (i (all-items sections)) - (link-item (item-id i) (item-title i)) - (brs 2))))) - -(defun all-items (sections) - (let ((is nil)) - (dolist (s sections) - (dolist (i (section-items s)) - (setf is (merge 'list (list i) is #'title<)))) - is)) - -(defun title< (x y) - (string-lessp (item-title x) (item-title y))) - - -(defun gen-site () - (map3 #'gen-section *sections*) - (gen-contents) - (gen-index)) - -(defun gen-section (sect ) - (page (html-file (section-id sect)) - (section-title sect) - (progn - (with ol - (map3 #'(lambda (item ) - (link-item (item-id item) - (item-title item)) - (brs 2) - (gen-item sect item )) - (section-items sect))) - (brs 3) - (gen-move-buttons (if (section-id sect>)))))) - -(defun gen-item (sect item ) - (page (html-file (item-id item)) - (item-title item) - (progn - (princ (item-text item)) - (brs 3) - (gen-move-buttons (if (item-id item>)))))) - -(defun gen-move-buttons (back up forward) - (if back (button back "Back")) - (if up (button up "Up")) - (if forward (button forward "Forward")))