cldoc-cvs

cldoc-cvs@common-lisp.net

31 discussions

[cldoc-cvs] CVS cldoc/src
by ihatchondo 11 Aug '10

11 Aug '10

Update of /project/cldoc/cvsroot/cldoc/src In directory cl-net:/tmp/cvs-serv11610/src Modified Files: cludg.lisp Log Message: Fix: class slot and method qualifier handling from Joshua TAYLOR. --- /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2007/01/11 00:05:06 1.8 +++ /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2010/08/11 21:49:29 1.9 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: cludg.lisp,v 1.8 2007/01/11 00:05:06 ihatchondo Exp $ +;;; $Id: cludg.lisp,v 1.9 2010/08/11 21:49:29 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator ;;; Created: 2005 10 23 12:30 @@ -248,7 +248,7 @@ ;;; Pathname manipulation. (defun add-prefix-if-necessary (prefix filenames) - "Adds the specified prefix to eaxh filename when necessary." + "Adds the specified prefix to each filename when necessary." (loop for file in filenames if (probe-file (merge-pathnames file prefix)) collect (namestring (merge-pathnames file prefix)) @@ -781,10 +781,10 @@ (defun find-qualifiers-and-lambda-list (forms) "Returns the list of qualifiers if any and the arguments lambda-list." - (loop for form in forms - if (keywordp form) collect form into qualifiers - else do (loop-finish) - finally (return (values qualifiers form)))) + (do ((qualifiers '() (list* (first forms) qualifiers)) + (forms forms (rest forms))) + ((listp (first forms)) + (values (nreverse qualifiers) (first forms))))) (defun handle-slots (class-name slots) "Returns a list of slot-descriptor object that represent the @@ -815,7 +815,7 @@ when (eq key :initarg) collect value into initargs end finally (return (list readers writers accessors initargs)))) (listify (a) (if (listp a) a (list a)))) - (loop for slot in slots + (loop for slot in (mapcar #'listify slots) for options = (cdr slot) for (readers writers accessors initargs) = (get-repeated options) collect

1 0

[cldoc-cvs] CVS public_html
by ihatchondo 11 Jan '07

11 Jan '07

Update of /project/cldoc/cvsroot/public_html In directory clnet:/tmp/cvs-serv32135 Modified Files: downloads.html index.html Log Message: doc update. --- /project/cldoc/cvsroot/public_html/downloads.html 2005/11/19 19:04:11 1.2 +++ /project/cldoc/cvsroot/public_html/downloads.html 2007/01/11 00:24:56 1.3 @@ -110,7 +110,7 @@ Stable releaseNone. cvs snapshot - <a href="/cgi-bin/viewcvs.cgi/cldoc/cldoc.tar.gz?tarball=1&cvsroot=cldoc"> + <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cldoc.tar.gz?root=cldoc&view=tar"> cldoc.tar.gz </a> --- /project/cldoc/cvsroot/public_html/index.html 2005/12/15 01:07:59 1.3 +++ /project/cldoc/cvsroot/public_html/index.html 2007/01/11 00:24:56 1.4 @@ -78,11 +78,12 @@ <div id="contentLeft"> - NEWS: 2005-12-15 + NEWS: 2007-01-11 <ul> - <li>Hyper link support.</li> - <li>Sections support (like in the Hyperspec).</li> + <li>Documentation updates</li> + <li>Bug fix: invalid css location with common-lisp-controller.</li> + <li>Bug fix: wrong handling of char case with package intern</li> <li>HTML Documentation updated.</li> </ul>

1 0

[cldoc-cvs] CVS cldoc/src
by ihatchondo 11 Jan '07

11 Jan '07

Update of /project/cldoc/cvsroot/cldoc/src In directory clnet:/tmp/cvs-serv29860 Modified Files: cldoc.asd cludg.lisp Log Message: Fixed: wrong system location with some lisp controllers, reported and patch proposed by Kilian Sprotte. --- /project/cldoc/cvsroot/cldoc/src/cldoc.asd 2005/11/18 14:52:18 1.1.1.1 +++ /project/cldoc/cvsroot/cldoc/src/cldoc.asd 2007/01/11 00:05:06 1.2 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Package: COMMON-LISP-USER -*- -;;; $Id: cldoc.asd,v 1.1.1.1 2005/11/18 14:52:18 ihatchondo Exp $ +;;; $Id: cldoc.asd,v 1.2 2007/01/11 00:05:06 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator: system definition ;;; Created: 2005 4 23 2:30 @@ -20,8 +20,6 @@ (in-package :cldoc.system) -(defparameter *cludg-directory* (directory-namestring *load-truename*)) - (defsystem :cldoc :components ((:file "package") --- /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/12/08 10:08:05 1.7 +++ /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2007/01/11 00:05:06 1.8 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: cludg.lisp,v 1.7 2006/12/08 10:08:05 ihatchondo Exp $ +;;; $Id: cludg.lisp,v 1.8 2007/01/11 00:05:06 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator ;;; Created: 2005 10 23 12:30 @@ -17,7 +17,8 @@ ;;; -(defparameter *cludg-directory* common-lisp-user::*load-truename* +(defparameter *cludg-directory* + (asdf:component-pathname (asdf:find-system :cldoc)) "The directory in which CLUDG is stored.") ;;;

1 0

[cldoc-cvs] CVS cldoc/src
by ihatchondo 08 Dec '06

08 Dec '06

Update of /project/cldoc/cvsroot/cldoc/src In directory clnet:/tmp/cvs-serv27468 Modified Files: cludg.lisp Log Message: Documentation updateas suggested by marco. --- /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/12/06 22:50:27 1.6 +++ /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/12/08 10:08:05 1.7 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: cludg.lisp,v 1.6 2006/12/06 22:50:27 ihatchondo Exp $ +;;; $Id: cludg.lisp,v 1.7 2006/12/08 10:08:05 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator ;;; Created: 2005 10 23 12:30 @@ -28,8 +28,13 @@ (defgeneric extract-documentation (driver dest-dir filenames &rest initargs) (:documentation "Reads all files specified in filenames and extract their - documentation using the specified output-format driver. If filenames is - an ASDF system then its components files will be retreived first. + documentation using the specified output-format driver. + Because it is performing some symbol package resolution it needs packages + definition to be, at least loaded. A simple way to satisfy this condition + is to load, such as require would, the systems to be documented before + starting documentation extraction. + If filenames is an ASDF system then its components files will be retreived + first. The extracted documentation will be written in a newly created file with the same name as the processed one but with the filename extension relatives to the output driver. If dest-dir is non NIL then it will be

1 0

[cldoc-cvs] CVS cldoc/src
by ihatchondo 06 Dec '06

06 Dec '06

Update of /project/cldoc/cvsroot/cldoc/src In directory clnet:/tmp/cvs-serv7833 Modified Files: cludg.lisp Log Message: Fixed: bug reported by Joshua. And minor doc glitches. --- /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/01/08 16:12:17 1.5 +++ /project/cldoc/cvsroot/cldoc/src/cludg.lisp 2006/12/06 22:50:27 1.6 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: cludg.lisp,v 1.5 2006/01/08 16:12:17 ihatchondo Exp $ +;;; $Id: cludg.lisp,v 1.6 2006/12/06 22:50:27 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator ;;; Created: 2005 10 23 12:30 @@ -124,6 +124,10 @@ (string-upcase string) (string-downcase string))) +(defun cludg-mksym (&rest parts) + "Returns a symbol name made from the concatenation of the given parts." + (apply #'concatenate 'string (mapcar #'string parts))) + ;;;; ;;;; API for form handling. ;;;; @@ -183,12 +187,12 @@ (let ((ll-doc (find :documentation ll-options :key #'car)) (sp-doc (find :documentation sp-options :key #'car))) `(progn - (defun ,(intern (format nil "~a" s-purger)) (string) + (defun ,(intern (cludg-mksym s-purger)) (string) ,@(when sp-doc (cdr sp-doc)) (with-output-to-string (stream) (loop for c across string do (remap-char c stream ,@sp-clauses)))) - (defun ,(intern (format nil "~a" ll-purger)) (lambda-list) + (defun ,(intern (cludg-mksym ll-purger)) (lambda-list) ,@(when ll-doc (cdr ll-doc)) (flet ((make-word () (make-array 10 :adjustable t :fill-pointer 0 @@ -309,17 +313,17 @@ (name :type string :initarg :name :reader name) (type :type string :initarg :type :reader desc-type) (doc :type (or null string) :initarg :doc :reader doc)) - (:documentation "This is a protocol class and so must note be instancied.")) + (:documentation "This is a protocol class and so must not be instancied.")) (defclass structured-object-descriptor (symbol-descriptor) ((inheritence :type list :initarg :inheritence :reader inheritence) (slots :type list :initarg :slots :reader slots) (slot-accessors :type list :reader slot-accessors :initform nil)) - (:documentation "This is a protocol class and so must note be instancied.")) + (:documentation "This is a protocol class and so must not be instancied.")) (defclass param-descriptor (symbol-descriptor) ((value :type list :initarg :value :reader value)) - (:documentation "This is a protocol class and so must note be instancied.")) + (:documentation "This is a protocol class and so must not be instancied.")) (defclass lambda-descriptor (symbol-descriptor) ((lambda-list @@ -331,7 +335,7 @@ :initform nil :initarg :qualifiers :reader method-qualifiers)) - (:documentation "This is a protocol class and so must note be instancied.")) + (:documentation "This is a protocol class and so must not be instancied.")) (defclass slot-descriptor (symbol-descriptor) ((cname :type string :initarg :class-name :reader cname) @@ -615,7 +619,7 @@ ;;; (defun mk-fname (s1 s2 &aux (pkg (find-package-caseless *current-package*))) - (with-standard-io-syntax (intern (format nil "~a~a" s1 s2) pkg))) + (with-standard-io-syntax (intern (cludg-mksym s1 s2) pkg))) (defun make-defun (name lambda-list &rest docs) (when name

1 0

[cldoc-cvs] CVS update: cldoc/src/package.lisp
by ihatchondo＠common-lisp.net 09 Jan '06

09 Jan '06

Update of /project/cldoc/cvsroot/cldoc/src In directory common-lisp.net:/tmp/cvs-serv4604/src Modified Files: package.lisp Log Message: removed non ascii space char. Date: Mon Jan 9 23:32:13 2006 Author: ihatchondo Index: cldoc/src/package.lisp diff -u cldoc/src/package.lisp:1.5 cldoc/src/package.lisp:1.6 --- cldoc/src/package.lisp:1.5 Mon Jan 9 23:23:43 2006 +++ cldoc/src/package.lisp Mon Jan 9 23:32:12 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: package.lisp,v 1.5 2006/01/09 22:23:43 ihatchondo Exp $ +;;; $Id: package.lisp,v 1.6 2006/01/09 22:32:12 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator package definition ;;; Created: 2005 10 23 12:30

1 0

[cldoc-cvs] CVS update: cldoc/COPYING cldoc/INSTALL cldoc/README
by ihatchondo＠common-lisp.net 09 Jan '06

09 Jan '06

Update of /project/cldoc/cvsroot/cldoc In directory common-lisp.net:/tmp/cvs-serv4572 Modified Files: COPYING INSTALL README Log Message: removed non ascii space char. Date: Mon Jan 9 23:31:50 2006 Author: ihatchondo

1 0

[cldoc-cvs] CVS update: cldoc/src/package.lisp
by ihatchondo＠common-lisp.net 09 Jan '06

09 Jan '06

Update of /project/cldoc/cvsroot/cldoc/src In directory common-lisp.net:/tmp/cvs-serv3411 Modified Files: package.lisp Log Message: removed non ascii space char. Date: Mon Jan 9 23:23:43 2006 Author: ihatchondo Index: cldoc/src/package.lisp diff -u cldoc/src/package.lisp:1.4 cldoc/src/package.lisp:1.5 --- cldoc/src/package.lisp:1.4 Sun Jan 8 23:18:27 2006 +++ cldoc/src/package.lisp Mon Jan 9 23:23:43 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: package.lisp,v 1.4 2006/01/08 22:18:27 ihatchondo Exp $ +;;; $Id: package.lisp,v 1.5 2006/01/09 22:23:43 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator package definition ;;; Created: 2005 10 23 12:30 @@ -80,7 +80,7 @@ - Recognizes code segments: by default each lines are prefixed with ';;; '. - Recognizes links: two kinds of hyper link are possible both using the same grammar: - [opening-char(defun|defclass|defgeneric|...) symbol-name closing-char] | + [opening-char(defun|defclass|defgeneric|...) symbol-name closing-char] | [opening-char(http://|ftp://)address closing-char]. opening-char and closing char can be customized, see the :link-delimiters option of {defclass cldoc:doctree} .

1 0

[cldoc-cvs] CVS update: cldoc/src/html.lisp cldoc/src/package.lisp
by ihatchondo＠common-lisp.net 08 Jan '06

08 Jan '06

Update of /project/cldoc/cvsroot/cldoc/src In directory common-lisp.net:/tmp/cvs-serv16258/src Modified Files: html.lisp package.lisp Log Message: package def updated and cosmetic changes. Date: Sun Jan 8 23:18:33 2006 Author: ihatchondo Index: cldoc/src/html.lisp diff -u cldoc/src/html.lisp:1.10 cldoc/src/html.lisp:1.11 --- cldoc/src/html.lisp:1.10 Sun Jan 8 17:49:16 2006 +++ cldoc/src/html.lisp Sun Jan 8 23:18:26 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: html.lisp,v 1.10 2006/01/08 16:49:16 ihatchondo Exp $ +;;; $Id: html.lisp,v 1.11 2006/01/08 22:18:26 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator: HTML driver ;;; Created: 2005 10 23 2:30 @@ -514,8 +514,7 @@ (with-tag (:a (:href file)) (if (string/= name "the-index") (html-write "~d ~a~%" (incf i) name) - (html-write " Index")))))))))) - (truename toc))) + (html-write " Index")))))))))))) (defun get-defpackage-descriptor (meta-descriptors package-table) "Finds all the defpackage-descriptor and insert them in the package-table." @@ -635,7 +634,7 @@ defmacro descriptors if any." ;; Because neither the defstruct nor the defclass nor the define-condition ;; accessors are present in the list of descriptors they will be retrieved - ;; manually and added to defun or defmethod list before make-summary call. + ;; manually and added to defun or defmethod list before call make-summary. (flet ((mapconc (fun list) (apply #'concatenate 'list (mapcar fun list)))) (let* ((defmethods '(or defgeneric-descriptor defmethod-descriptor)) (defuns '(or defun-descriptor defsetf-descriptor)) Index: cldoc/src/package.lisp diff -u cldoc/src/package.lisp:1.3 cldoc/src/package.lisp:1.4 --- cldoc/src/package.lisp:1.3 Sun Jan 8 17:49:16 2006 +++ cldoc/src/package.lisp Sun Jan 8 23:18:27 2006 @@ -1,5 +1,5 @@ ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLUDG; -*- -;;; $Id: package.lisp,v 1.3 2006/01/08 16:49:16 ihatchondo Exp $ +;;; $Id: package.lisp,v 1.4 2006/01/08 22:18:27 ihatchondo Exp $ ;;; --------------------------------------------------------------------------- ;;; Title: Common Lisp Universal Documentation Generator package definition ;;; Created: 2005 10 23 12:30 @@ -27,7 +27,8 @@ #:*class-inheritence* #:*condition-inheritence* #:*struct-inheritence* #:*slot-reader-control-string* #:*slot-writer-control-string* #:*slot-accessor-control-string* - #:+html-doctype+ #:+default-charset+ + #:+html-doctype+ #:+default-charset+ #:+default-link-delimiters+ + #:+default-section-prefix+ #:+default-code-prefix+ #:+default-section-names+ #:define-descriptor-handler #:find-descriptor-handler #:register-output-type @@ -40,7 +41,6 @@ #:html #:text #:extract-documentation - #:make-doc #:dformat #:dformat-documentation ;; cache system. @@ -48,7 +48,7 @@ #:meta-descriptor-href #:meta-descriptor-desc #:meta-descriptor-file #:clear-cache #:cache-descriptor #:initialise-cache #:lookup-meta-descriptor #:lookup-meta-descriptor-anchor - #:lookup-meta-descriptor-href + #:lookup-meta-descriptor-href #:cache-meta-descriptors ;; documentation string parsing utilities #:doctree #:doctree-tree

1 0

[cldoc-cvs] CVS update: cldoc/README
by ihatchondo＠common-lisp.net 08 Jan '06

08 Jan '06

Update of /project/cldoc/cvsroot/cldoc In directory common-lisp.net:/tmp/cvs-serv25219 Modified Files: README Log Message: Link support added. Date: Sun Jan 8 18:19:31 2006 Author: ihatchondo Index: cldoc/README diff -u cldoc/README:1.1.1.1 cldoc/README:1.2 --- cldoc/README:1.1.1.1 Fri Nov 18 15:52:17 2005 +++ cldoc/README Sun Jan 8 18:19:31 2006 @@ -14,9 +14,8 @@ - Recognizes bulleted lists (the list grammar can be specified). - Recognizes code segments: by default each lines are prefixed with ';;; '. - - should be added to the DWIM: - - links. how ? + - Recognizes links: for standard URL's and symbol referencing. + (see the :link-delimiters option of the doctree class). Unlike Albert (http://albert.sourceforge.net/) it does not allow programmers to insert comments at the source code level which are

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cldoc-cvs