projects
/
kmrcl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r2984: *** empty log message ***
[kmrcl.git]
/
ml-class.lisp
diff --git
a/ml-class.lisp
b/ml-class.lisp
index 59e2211a00511f829dc07b634fd2db7ddd102d37..567a327afbf64ba10e3a3e3e2ad74d458ef14f9f 100644
(file)
--- a/
ml-class.lisp
+++ b/
ml-class.lisp
@@
-11,12
+11,13
@@
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
;;;; in Text, HTML, and XML formats. This includes hyperlinking
;;;; capability and sub-objects.
;;;;
-;;;; $Id: ml-class.lisp,v 1.
3 2002/10/06 13:35:30
kevin Exp $
+;;;; $Id: ml-class.lisp,v 1.
5 2002/10/11 23:51:33
kevin Exp $
;;;;
;;;;
-;;;; This file, part of K
mrcl
, is Copyright (c) 2002 by Kevin M. Rosenberg
+;;;; This file, part of K
MRCL
, is Copyright (c) 2002 by Kevin M. Rosenberg
;;;;
;;;;
-;;;; Kmrcl users are granted the rights to distribute and use this software
-;;;; as governed by the terms of the GNU General Public License.
+;;;; KMRCL users are granted the rights to distribute and use this software
+;;;; as governed by the terms of the Lisp Lesser GNU Public License
+;;;; (http://opensource.franz.com/preamble.html), also known as the LLGPL.
;;;; *************************************************************************
(in-package :kmrcl)
;;;; *************************************************************************
(in-package :kmrcl)
@@
-378,9
+379,6
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:obj-data-fmtstr-labels #'ml-class-fmtstr-html-labels
:obj-data-value-func #'ml-class-value-func))
:obj-data-fmtstr-labels #'ml-class-fmtstr-html-labels
:obj-data-value-func #'ml-class-value-func))
-(defclass htmlrefformat (htmlformat)
- ()
- (:default-initargs :link-ref (make-instance 'html-link-ref)))
(defun class-name-of (obj)
(string-downcase (class-name (class-of obj))))
(defun class-name-of (obj)
(string-downcase (class-name (class-of obj))))
@@
-411,10
+409,6
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:obj-data-fmtstr-labels #'ml-class-fmtstr-xml-labels
:obj-data-value-func #'ml-class-xmlvalue-func))
:obj-data-fmtstr-labels #'ml-class-fmtstr-xml-labels
:obj-data-value-func #'ml-class-xmlvalue-func))
-(defclass xmlrefformat (xmlformat)
- ()
- (:default-initargs :link-ref (make-instance 'xml-link-ref)))
-
(defclass link-ref ()
((fmtstr :type function :initarg :fmtstr :accessor fmtstr)
(fmtstr-labels :type function :initarg :fmtstr-labels :accessor fmtstr-labels)
(defclass link-ref ()
((fmtstr :type function :initarg :fmtstr :accessor fmtstr)
(fmtstr-labels :type function :initarg :fmtstr-labels :accessor fmtstr-labels)
@@
-445,6
+439,15
@@
Format is ((field-name field-lookup-func other-link-params) ...)")
:ampersand "&"))
:ampersand "&"))
+(defclass htmlrefformat (htmlformat)
+ ()
+ (:default-initargs :link-ref (make-instance 'html-link-ref)))
+
+(defclass xmlrefformat (xmlformat)
+ ()
+ (:default-initargs :link-ref (make-instance 'xml-link-ref)))
+
+
;;; File Start and Ends
(defmethod fmt-file-start ((fmt dataformat) (s stream)))
;;; File Start and Ends
(defmethod fmt-file-start ((fmt dataformat) (s stream)))