lisp-utils/makealbertdoc.lisp

   1 (in-package :cl-user)
   2 (load "defsystem.lisp")
   3 (load "../src/maxima.system")
   4 (defvar *sys* (mk:find-system "maxima"))
   5
   6 (load "albert/albert.asd") ;; change me
   7 (asdf:oos 'asdf:load-op :albert)
   8
   9 (setf (albert:albert-setting '("albert" "presentation" "funcallable" "calledby")) t)
  10 (setf (albert:albert-setting '("albert" "lisp2csf" "display-progress")) t)
  11 (setf (albert:albert-setting '("albert"  "docbook" "dtd")) "/usr/share/sgml/docbook/xml-dtd-4.1.2/docbookx.dtd")
  12
  13 ;; let's forward e.g defmvar to defvar, seems to have same semantics
  14 (defmethod lisp2csf:analyse-object ((objtype (eql 'defmvar)) expression)
  15   (lisp2csf:analyse-object 'cl:defvar (cons 'cl:defvar (cdr expression))))
  16
  17 ;; this might be wrong, but defmfun loonks just like a defun, assume that for now
  18 (defmethod lisp2csf:analyse-object ((objtype (eql 'defmfun)) expression)
  19   (let ((arglist (third expression)))
  20     (when (symbolp arglist)
  21       (setf arglist (list arglist)))
  22     (lisp2csf:analyse-object 'cl:defun (cons 'cl:defun
  23                                              (cons (second expression)
  24                                                    (cons arglist (cdddr expression))
  25                                                    )))
  26     ))
  27
  28 (albert:document-files (albert::get-system-files-mkdefsys *sys*))