src/defpack.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CL-USER; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: Package definitions for the html parser packages
   4 ;;;    Author: Gilbert Baumann <gilbert@base-engineering.com>
   5 ;;;   License: LGPL (See file COPYING for details).
   6 ;;; ---------------------------------------------------------------------------
   7 ;;;  (c) copyright 2002 by Gilbert Baumann
   8
   9 ;;;  Permission is hereby granted, free of charge, to any person obtaining
  10 ;;;  a copy of this software and associated documentation files (the
  11 ;;;  "Software"), to deal in the Software without restriction, including
  12 ;;;  without limitation the rights to use, copy, modify, merge, publish,
  13 ;;;  distribute, sublicense, and/or sell copies of the Software, and to
  14 ;;;  permit persons to whom the Software is furnished to do so, subject to
  15 ;;;  the following conditions:
  16 ;;;
  17 ;;;  The above copyright notice and this permission notice shall be
  18 ;;;  included in all copies or substantial portions of the Software.
  19 ;;;
  20 ;;;  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
  21 ;;;  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
  22 ;;;  MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
  23 ;;;  IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY
  24 ;;;  CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT,
  25 ;;;  TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  26 ;;;  SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  27
  28 (in-package :cl-user)
  29
  30 (defpackage :closure-html
  31   (:use :cl)
  32   (:export #:*html-dtd*
  33            #:parse))
  34
  35 (defpackage :html-glisp
  36   (:use :cl)
  37   (:export "ALWAYS"
  38            "CL-BYTE-STREAM"
  39            "CL-CHAR-STREAM"
  40            "CL-STREAM"
  41            "COMPOSE"
  42            "CURRY"
  43            "G/CLOSE"
  44            "G/FINISH-OUTPUT"
  45            "G/PEEK-CHAR"
  46            "G/READ-BYTE"
  47            "G/READ-BYTE-SEQUENCE"
  48            "G/READ-CHAR"
  49            "G/READ-CHAR-SEQUENCE"
  50            "G/READ-LINE"
  51            "G/READ-LINE*"
  52            "G/UNREAD-BYTE"
  53            "G/UNREAD-CHAR"
  54            "G/WRITE-BYTE"
  55            "G/WRITE-BYTE-SEQUENCE"
  56            "G/WRITE-CHAR"
  57            "G/WRITE-STRING"
  58            "GSTREAM"
  59            "MULTIPLE-VALUE-OR"
  60            "RCURRY"
  61            "UNTIL"
  62            "USE-BYTE-FOR-CHAR-STREAM-FLAVOUR"
  63            "USE-CHAR-FOR-BYTE-STREAM-FLAVOUR"
  64            "WHILE"
  65            "WHITE-SPACE-P"
  66
  67            "CL-BYTE-STREAM->GSTREAM"
  68            "CL-CHAR-STREAM->GSTREAM"
  69
  70            "MAYBE-PARSE-INTEGER"))
  71
  72 (defpackage :closure-mime-types
  73   (:use :cl :html-glisp ;; white-space-p
  74         )
  75   (:export #:parse-mime-content-type    ;### yet to be defined
  76            #:find-mime-type-from-extension
  77            #:mime-type-name
  78            #:find-mime-type
  79            #:mime-type-equal
  80            #:mime-type-extensions))
  81
  82 (defpackage :sgml
  83   (:use :cl :html-glisp :runes)
  84   (:export #:SGML-PARSE
  85            #:PT
  86            #:PPT
  87            #:SGML-UNPARSE
  88            #:PARSE-DTD
  89            #:*OPTIONS/PARSER-SILENT-P*
  90            #:PT-NAME
  91            #:PT-CHILDREN
  92            #:PT-PARENT
  93            #:PT-ATTRS
  94            #:SLURP-CATALOG
  95            ;; in pt-utils:
  96            #:map-pt
  97            #:pt-cdata
  98            #:pt-attr
  99            #:pt-root
 100            #:pt-root-property
 101            #:gi
 102            #:flat-find-element
 103            #:flat-find-elements
 104            #:pt-full-name-path
 105            #:lhtml->pt
 106            ;;
 107            #:html-parse-file
 108            ))