/[closure]/closure/resources/resources.lisp
ViewVC logotype

Contents of /closure/resources/resources.lisp

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1.5 - (show annotations)
Sun Oct 7 21:44:36 2007 UTC (6 years, 6 months ago) by dlichteblau
Branch: MAIN
CVS Tags: HEAD
Changes since 1.4: +0 -7 lines
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.
1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: GLUSER; -*-
2 ;;; ---------------------------------------------------------------------------
3 ;;; Title: Some stuff
4 ;;; Created: ????
5 ;;; Author: Gilbert Baumann <gilbert@base-engineering.com>
6 ;;; License: MIT style (see below)
7 ;;; ---------------------------------------------------------------------------
8 ;;; (c) copyright 2005 by Gilbert Baumann
9
10 ;;; Permission is hereby granted, free of charge, to any person obtaining
11 ;;; a copy of this software and associated documentation files (the
12 ;;; "Software"), to deal in the Software without restriction, including
13 ;;; without limitation the rights to use, copy, modify, merge, publish,
14 ;;; distribute, sublicense, and/or sell copies of the Software, and to
15 ;;; permit persons to whom the Software is furnished to do so, subject to
16 ;;; the following conditions:
17 ;;;
18 ;;; The above copyright notice and this permission notice shall be
19 ;;; included in all copies or substantial portions of the Software.
20 ;;;
21 ;;; THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
22 ;;; EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
23 ;;; MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
24 ;;; IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
25 ;;; CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
26 ;;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
27 ;;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
28
29 (in-package :GLUSER)
30
31 ;;; Ich habe das jetzt satt! Wir lesen das default style sheet jetzt
32 ;;; im rahmen des compilierens, dann gibt es spaeter keine
33 ;;; enttaeuschungen.
34
35
36 #+NIL (defparameter *resources-base-directory*
37 *load-truename*)
38
39 (let ((load-truename (load-time-value (or #.*compile-file-pathname* *load-pathname*))))
40 (setf (url:url-logical-host-translator "closure")
41 (lambda (url)
42 (let ((res (url:copy-url url)))
43 (setf (url:url-protocol res) "file"
44 (url:url-host res) "localhost"
45 (url:url-path res)
46 (append
47 (list :absolute)
48 (butlast (cdr (pathname-directory (truename load-truename))))
49 (cdr (url:url-path url))))
50 res))))
51
52 (format T "~&;; Parsing default style sheet~%")
53 (setf r2::*default-style-sheet*
54 (css::parse-style-sheet-from-url (url:parse-url "file://closure/resources/css/default.css")
55 :name "Closure Default Style Sheet"))

  ViewVC Help
Powered by ViewVC 1.1.5