[closure-cvs] CVS closure/src/renderer

[dlichteblau]

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 at 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))