src/protocols/element.lisp

   1 ;;; -*- Mode: Lisp; Syntax: Common-Lisp; Package: CLOSURE-PROTOCOL; -*-
   2 ;;; ---------------------------------------------------------------------------
   3 ;;;     Title: The Closure Element Protocol
   4 ;;;   Created: 2002-08-07 03:29
   5 ;;;    Author: Gilbert Baumann <gilbert@base-engineering.com>
   6 ;;;   License: LGPL (See file COPYING for details).
   7 ;;; ---------------------------------------------------------------------------
   8 ;;;  (c) copyright 2002 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 :CLOSURE-PROTOCOL)
  30
  31 (defgeneric element-p (object)
  32   )
  33
  34 (defgeneric element-parent (element)
  35   )
  36
  37 (defgeneric element-children (element)
  38   )
  39
  40 (defgeneric element-attribute (element attribute-name)
  41   )
  42
  43 (defgeneric element-gi (element)
  44   )
  45
  46 (defgeneric text-element-p (element)
  47   )
  48
  49 (defgeneric element-text (element)
  50   )
  51
  52 ;;; Fall through predicate definitions
  53
  54 (defmethod element-p ((object t))
  55   (declare (ignorable object))
  56   nil)
  57
  58 (defmethod text-element-p ((object t))
  59   (declare (ignorable object))
  60   nil)