-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 <kmr@debian.org> Sun, 15 Sep 2002 17:00:47 -0600
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
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)
dh_testroot
# dh_installdebconf
dh_installdocs
- dh_installexamples examples/*.cl
+# dh_installexamples
# dh_installmenu
# dh_installlogrotate
# dh_installemacsen
# dh_installman
# dh_installinfo
# dh_undocumented
- dh_installchangelogs ChangeLog
+ dh_installchangelogs
dh_strip
dh_compress
dh_fixperms
;;;; 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
;;;;
(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"))
(: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")
-;;;; -*- 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"))))
+++ /dev/null
-(in-package :lml)
-
-;;; Not currently used
-
-(defun brs (&optional (n 1))
- (fresh-line)
- (dotimes (i n)
- (princ "<br>"))
- (terpri))
-
-
-(defun html-file (base &optional (ext 'html))
- (format nil "~(~A~).~(~A~)" base ext))
-
-(defmacro link-item (dest text)
- `(progn
- (princ "<li>")
- (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 <sect sect>)
- (page (html-file (section-id sect))
- (section-title sect)
- (progn
- (with ol
- (map3 #'(lambda (item <item item>)
- (link-item (item-id item)
- (item-title item))
- (brs 2)
- (gen-item sect item <item item>))
- (section-items sect)))
- (brs 3)
- (gen-move-buttons (if <sect (section-id <sect))
- contents
- (if sect> (section-id sect>))))))
-
-(defun gen-item (sect item <item item>)
- (page (html-file (item-id item))
- (item-title item)
- (progn
- (princ (item-text item))
- (brs 3)
- (gen-move-buttons (if <item (item-id <item))
- (section-id sect)
- (if item> (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")))
projects / lml.git / commitdiff