Update of /project/closure/cvsroot/closure/src/renderer In directory clnet:/tmp/cvs-serv19989/src/renderer
Added Files: pt.lisp Log Message: Move the HTML parser and its dependencies into a separate system. * INSTALL: Mention the dependency on Closure HTML.
* closure.asd (RUNES): Depend on closure-html. (CLOSURE): Removed clex, lalr, net/mime, parse. Added renderer/pt.
* resources/resources.lisp: Removed DTD parsing.
* src/glisp/package.lisp: Import gstream symbols from html-glisp for re-export.
* src/glisp/util.lisp (GSTREAM, USE-CHAR-FOR-BYTE-STREAM-FLAVOUR, G/READ-BYTE, G/UNREAD-BYTE, G/WRITE-BYTE, USE-BYTE-FOR-CHAR-STREAM-FLAVOUR, G/READ-CHAR, G/UNREAD-CHAR, G/WRITE-CHAR, CL-STREAM, G/FINISH-OUTPUT, G/CLOSE, CL-BYTE-STREAM, G/READ-BYTE-SEQUENCE, G/WRITE-BYTE-SEQUENCE, CL-CHAR-STREAM, G/WRITE-STRING, G/READ-LINE, G/READ-LINE*, VECTOR-OUTPUT-STREAM, G/MAKE-VECTOR-OUTPUT-STREAM, CL-BYTE-STREAM->GSTREAM, CL-CHAR-STREAM->GSTREAM): Removed from this file, because this code now lives in HTML-GLISP.
* src/gui/gui.lisp s/cl-user::*html-dtd*/closure-html:*html-dtd*. (*html-dtd*): Removed defvar.
* src/net/package.lisp: Use closure-mime-types.
* src/parse/package.lisp: Removed. * src/parse/pt.lisp: Removed. * src/parse/sgml-dtd.lisp: Removed. * src/parse/sgml-parse.lisp: Removed.
* resources/dtd/DTD-HTML-4.0: Removed. * resources/dtd/DTD-HTML-4.0-Frameset: Removed. * resources/dtd/DTD-HTML-4.0-Transitional: Removed. * resources/dtd/Entities-Latin1: Removed. * resources/dtd/Entities-Special: Removed. * resources/dtd/Entities-Symbols: Removed. * resources/dtd/HTML-3.0: Removed. * resources/dtd/NETSCAPE-Bookmark-file-1: Removed. * resources/dtd/catalog: Removed.
--- /project/closure/cvsroot/closure/src/renderer/pt.lisp 2007/10/07 21:44:43 NONE +++ /project/closure/cvsroot/closure/src/renderer/pt.lisp 2007/10/07 21:44:43 1.1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: SGML; -*- ;;; --------------------------------------------------------------------------- ;;; Title: Protocol integration of PT ;;; Created: Somewhen in 1996 ;;; Author: Gilbert Baumann gilbert@base-engineering.com ;;; License: MIT style (see below) ;;; --------------------------------------------------------------------------- ;;; (c) copyright 1996-1999 by Gilbert Baumann
;;; Permission is hereby granted, free of charge, to any person obtaining ;;; a copy of this software and associated documentation files (the ;;; "Software"), to deal in the Software without restriction, including ;;; without limitation the rights to use, copy, modify, merge, publish, ;;; distribute, sublicense, and/or sell copies of the Software, and to ;;; permit persons to whom the Software is furnished to do so, subject to ;;; the following conditions: ;;; ;;; The above copyright notice and this permission notice shall be ;;; included in all copies or substantial portions of the Software. ;;; ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. ;;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY ;;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, ;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; Changes ;; ;; When Who What ;; ---------------------------------------------------------------------------- ;; 1999-08-24 GB - PT structure: spend PLIST slot ;; 1999-08-24 GB - PT-ACCESS, PT-PATH: new functions ;; - REMOVE-PT, DELETE-PT: new functions ;; - ANCESTORP: new function ;;
(in-package :r2)
(defmethod closure-protocol:element-p ((object sgml:pt)) t)
(defmethod closure-protocol:element-parent ((element sgml:pt)) (sgml:pt-parent element))
(defmethod closure-protocol:element-children ((element sgml:pt)) (sgml:pt-children element))
(defmethod closure-protocol:element-attribute ((element sgml:pt) attribute-name) (getf (sgml:pt-attrs element) attribute-name))
(defmethod closure-protocol:element-gi ((element sgml:pt)) (sgml:gi element))
(defmethod closure-protocol:text-element-p ((element sgml:pt)) (eql (sgml:gi element) :pcdata))
(defmethod closure-protocol:element-text ((element sgml:pt)) (assert (eql (sgml:gi element) :pcdata)) (sgml:pt-attrs element))