/[clhp]/clhp/clhp.lisp
ViewVC logotype

Diff of /clhp/clhp.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.3 by aventimiglia, Wed Sep 17 20:21:52 2003 UTC revision 1.4 by aventimiglia, Thu Sep 18 20:57:30 2003 UTC
# Line 33  Line 33 
33  (make-package :CLHP)  (make-package :CLHP)
34    
35  (in-package :CLHP)  (in-package :CLHP)
36  (export '(PARSE *CLHP-VERSION* ECHO TAG INCLUDE))  (export '(PARSE *CLHP-VERSION* ECHO INCLUDE))
37    
38  ;; This elaborate reader macro converts the cvs Date keywords and  ;; This elaborate reader macro converts the cvs Date keywords and
39  ;; translates it into a 8 digit date code for marking the cvs version.  ;; translates it into a 8 digit date code for marking the cvs version.
# Line 144  can be concatenated with the '.' operato Line 144  can be concatenated with the '.' operato
144  for newlines, use the standars TERPRI or FRESH-LINE functions."  for newlines, use the standars TERPRI or FRESH-LINE functions."
145    (dolist (chunk (cons string more)) (princ chunk)))    (dolist (chunk (cons string more)) (princ chunk)))
146    
147  ;; This needs work, it will probably need to be redone as a macro  ;;; This needs work, it will probably need to be redone as a macro
148  (defun tag (name &optional attributes contents)  ;(defun tag (name &optional attributes contents)
149    "Creates an XML tag named NAME, ATTRIBUTES is an a-list and the  ;  "Creates an XML tag named NAME, ATTRIBUTES is an a-list and the
150  forms in CONTENTS are evaluated as an implicit PROGN."  ;forms in CONTENTS are evaluated as an implicit PROGN."
151    (format t "<~a~:{ ~a=\"~a\"~}>~%" name attributes)  ;  (format t "<~a~:{ ~a=\"~a\"~}>~%" name attributes)
152    (eval (cons 'progn contents))  ;  (eval (cons 'progn contents))
153    (format t "</~a>~%" name))  ;  (format t "</~a>~%" name))
154    
155  ;; Error handling is probably the biggest room to work here.  I should  ;; Error handling is probably the biggest room to work here.  I should
156  ;; eventually make a handler that binds the evaluation of clhp PI  ;; eventually make a handler that binds the evaluation of clhp PI

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

  ViewVC Help
Powered by ViewVC 1.1.5