projects
/
hyperobject.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
247fa39
)
r5176: *** empty log message ***
author
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 23 Jun 2003 20:08:06 +0000
(20:08 +0000)
committer
Kevin M. Rosenberg
<kevin@rosenberg.net>
Mon, 23 Jun 2003 20:08:06 +0000
(20:08 +0000)
views.lisp
patch
|
blob
|
history
diff --git
a/views.lisp
b/views.lisp
index ef116ac0c25c2ed6768f54fb6fe78c2022603904..c2c71d734edd76677aecc848b114f616126427bc 100644
(file)
--- a/
views.lisp
+++ b/
views.lisp
@@
-7,7
+7,7
@@
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
;;;; Programmer: Kevin M. Rosenberg
;;;; Date Started: Apr 2000
;;;;
-;;;; $Id: views.lisp,v 1.5
7 2003/06/20 08:35:21
kevin Exp $
+;;;; $Id: views.lisp,v 1.5
8 2003/06/23 20:08:06
kevin Exp $
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
;;;;
;;;; This file is Copyright (c) 2000-2003 by Kevin M. Rosenberg
;;;; *************************************************************************
@@
-168,7
+168,7
@@
(defun initialize-view-by-source-code (obj-cl view)
"Initialize a view based upon a source code"
(let ((source-code (source-code view)))
(defun initialize-view-by-source-code (obj-cl view)
"Initialize a view based upon a source code"
(let ((source-code (source-code view)))
- (
error "
not implemented")
+ (
warn "source code compilation is
not implemented")
)
)
)
)
@@
-317,7
+317,8
@@
:xhtml :xhtml-labels :xhtml-link-labels
:xhtml-link :html-link
:xml :xml-labels :xml-link :ie-xml-link
:xhtml :xhtml-labels :xhtml-link-labels
:xhtml-link :html-link
:xml :xml-labels :xml-link :ie-xml-link
- :xml-link-labels :ie-xml-link-labels)
+ :xml-link-labels :ie-xml-link-labels
+ :display-table :edit-table)
(error "Unknown view category ~A" (category view)))
(unless (slots view) (setf (slots view) (default-print-slots obj-cl)))
(error "Unknown view category ~A" (category view)))
(unless (slots view) (setf (slots view) (default-print-slots obj-cl)))
@@
-385,6
+386,12
@@
(setf (link-ampersand view) "&"))))
(setf (link-ampersand view) "&"))))
+(defun make-std-object-slots-view (class-name slots)
+ #'(lambda (obj strm)
+ )
+
+ )
+
;;;; *************************************************************************
;;;; View Data Format Section
;;;; *************************************************************************
;;;; *************************************************************************
;;;; View Data Format Section
;;;; *************************************************************************
@@
-453,7
+460,7
@@
(defun html-obj-start (obj indent strm)
(declare (ignore obj indent))
(defun html-obj-start (obj indent strm)
(declare (ignore obj indent))
- (write-string "<div style=\"margin-left:2em;" strm))
+ (write-string "<div style=\"margin-left:2em;
\">
" strm))
(defun initialize-xhtml-view (view)
(initialize-text-view view)
(defun initialize-xhtml-view (view)
(initialize-text-view view)
@@
-494,7
+501,7
@@
(setf (list-end-printer view) #'xmlformat-list-end-func)
(setf (obj-start-printer view) (format nil "<~(~a~)>" (object-class-name view)))
(setf (obj-start-indent view) t)
(setf (list-end-printer view) #'xmlformat-list-end-func)
(setf (obj-start-printer view) (format nil "<~(~a~)>" (object-class-name view)))
(setf (obj-start-indent view) t)
- (setf (subobj-end-printer view) (format nil "</~(~a~)>
~%
" (object-class-name view)))
+ (setf (subobj-end-printer view) (format nil "</~(~a~)>" (object-class-name view)))
(setf (subobj-end-indent view) nil)
(setf (obj-data-indent view) nil))
(setf (subobj-end-indent view) nil)
(setf (obj-data-indent view) nil))