[closure-cvs] CVS closure/resources
dlichteblau
dlichteblau at common-lisp.net
Sun Oct 7 21:44:37 UTC 2007
Update of /project/closure/cvsroot/closure/resources
In directory clnet:/tmp/cvs-serv19989/resources
Modified Files:
resources.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/resources/resources.lisp 2007/01/07 17:29:47 1.4
+++ /project/closure/cvsroot/closure/resources/resources.lisp 2007/10/07 21:44:36 1.5
@@ -53,10 +53,3 @@
(setf r2::*default-style-sheet*
(css::parse-style-sheet-from-url (url:parse-url "file://closure/resources/css/default.css")
:name "Closure Default Style Sheet"))
-
-(format T "~&;; Parsing DTD~% ")
-(sgml:slurp-catalog (url:parse-url "file://closure/resources/dtd/catalog"))
-(setf cl-user::*html-dtd* (sgml:parse-dtd '(:public "-//W3C//DTD HTML 4.0 Frameset//EN")))
-(format T "~&;; done~%")
-
-
More information about the Closure-cvs
mailing list