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 #:parse))
  33
  34 (defpackage "GLISP"
  35   (:use :cl)
  36   (:export "DEFSUBST"
  37
  38            ;; util.lisp :
  39            "ALWAYS"
  40            "CL-BYTE-STREAM"
  41            "CL-CHAR-STREAM"
  42            "CL-STREAM"
  43            "COMPOSE"
  44            "CURRY"
  45            "FALSE"
  46            "FORCE"
  47            "G/CLOSE"
  48            "G/FINISH-OUTPUT"
  49            "G/PEEK-CHAR"
  50            "G/READ-BYTE"
  51            "G/READ-BYTE-SEQUENCE"
  52            "G/READ-CHAR"
  53            "G/READ-CHAR-SEQUENCE"
  54            "G/READ-LINE"
  55            "G/READ-LINE*"
  56            "G/UNREAD-BYTE"
  57            "G/UNREAD-CHAR"
  58            "G/WRITE-BYTE"
  59            "G/WRITE-BYTE-SEQUENCE"
  60            "G/WRITE-CHAR"
  61            "G/WRITE-STRING"
  62            "GSTREAM"
  63            "MAP-ARRAY"
  64            "MAPFCAR"
  65            "MAX*"
  66            "MAXF"
  67            "MIN*"
  68            "MINF"
  69            "MULTIPLE-VALUE-OR"
  70            "MULTIPLE-VALUE-SOME"
  71            "NCONCF"
  72            "NEQ"
  73            "PROMISE"
  74            "RCURRY"
  75            "SANIFY-STRING"
  76            "SHOW"
  77            "SPLIT-BY"
  78            "SPLIT-BY-IF"
  79            "SPLIT-BY-MEMBER"
  80            "SPLIT-STRING"
  81            "STRING-BEGIN-EQUAL"
  82            "TRUE"
  83            "UNTIL"
  84            "USE-BYTE-FOR-CHAR-STREAM-FLAVOUR"
  85            "USE-CHAR-FOR-BYTE-STREAM-FLAVOUR"
  86            "WHILE"
  87            "WHITE-SPACE-P"
  88
  89            "CL-BYTE-STREAM->GSTREAM"
  90            "CL-CHAR-STREAM->GSTREAM"
  91
  92            "FIND-TEMPORARY-FILE"
  93            "DELETE-TEMPORARY-FILE"
  94            "WITH-TEMPORARY-FILE"
  95
  96            "SET-EQUAL"
  97            "MAYBE-PARSE-INTEGER"
  98            "NOP"
  99            "WITH-STRUCTURE-SLOTS"
 100
 101            "COMPILE-FUNCALL"
 102            "FUNCALL*"
 103            "MAPC*"
 104            "VREDUCE*"
 105            "LREDUCE*"
 106            "WITH-UNIQUE-NAMES"
 107
 108            "G/MAKE-HASH-TABLE"
 109            "G/HASHGET"
 110            "G/CLRHASH"
 111            "STIR-HASH-CODES"
 112            "HASH-SEQUENCE"
 113            "HASH/STRING-EQUAL"
 114            "MAKE-STRING-EQUAL-HASH-TABLE"
 115
 116            "PRIMEP"))
 117
 118 (defpackage :closure-mime-types
 119   (:use :cl :glisp ;; white-space-p
 120         )
 121   (:export #:parse-mime-content-type    ;### yet to be defined
 122            #:find-mime-type))
 123
 124 (defpackage :sgml
 125   (:use :cl :glisp :runes)
 126   (:export #:SGML-PARSE
 127            #:PPT
 128            #:SGML-UNPARSE
 129            #:PARSE-DTD
 130            #:*OPTIONS/PARSER-SILENT-P*
 131            #:PT-NAME
 132            #:PT-CHILDREN
 133            #:PT-PARENT
 134            #:PT-ATTRS
 135            #:SLURP-CATALOG
 136            ;; in pt-utils:
 137            #:map-pt
 138            #:pt-cdata
 139            #:pt-attr
 140            #:pt-root
 141            #:pt-root-property
 142            #:gi
 143            #:flat-find-element
 144            #:flat-find-elements
 145            #:pt-full-name-path
 146            #:lhtml->pt
 147            ;;
 148            #:html-parse-file
 149            ))