match.scm 2.2 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576
  1. ;;; -*- mode: scheme; coding: utf-8; -*-
  2. ;;;
  3. ;;; Copyright (C) 2010, 2011 Free Software Foundation, Inc.
  4. ;;;
  5. ;;; This library is free software; you can redistribute it and/or modify it
  6. ;;; under the terms of the GNU Lesser General Public License as published by
  7. ;;; the Free Software Foundation; either version 3 of the License, or (at
  8. ;;; your option) any later version.
  9. ;;;
  10. ;;; This library is distributed in the hope that it will be useful, but
  11. ;;; WITHOUT ANY WARRANTY; without even the implied warranty of
  12. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
  13. ;;; General Public License for more details.
  14. ;;;
  15. ;;; You should have received a copy of the GNU Lesser General Public License
  16. ;;; along with this program. If not, see <http://www.gnu.org/licenses/>.
  17. (define-module (sxml match)
  18. #:export (sxml-match
  19. sxml-match-let
  20. sxml-match-let*)
  21. #:use-module (srfi srfi-1)
  22. #:use-module (srfi srfi-11)
  23. #:use-module (ice-9 control))
  24. ;;; Commentary:
  25. ;;;
  26. ;;; This module provides an SXML pattern matcher, written by Jim Bender. This
  27. ;;; allows application code to match on SXML nodes and attributes without having
  28. ;;; to deal with the details of s-expression matching, without worrying about
  29. ;;; the order of attributes, etc.
  30. ;;;
  31. ;;; It is fully documented in the Guile Reference Manual.
  32. ;;;
  33. ;;; Code:
  34. ;;;
  35. ;;; PLT compatibility layer.
  36. ;;;
  37. (define-syntax-rule (syntax-object->datum stx)
  38. (syntax->datum stx))
  39. (define-syntax-rule (void)
  40. *unspecified*)
  41. (define (raise-syntax-error x msg obj sub)
  42. (throw 'sxml-match-error x msg obj sub))
  43. (define-syntax module
  44. (syntax-rules (provide require)
  45. ((_ name lang (provide p_ ...) (require r_ ...)
  46. body ...)
  47. (begin body ...))))
  48. ;;;
  49. ;;; Include upstream source file.
  50. ;;;
  51. ;; This file was taken from
  52. ;; <http://planet.plt-scheme.org/package-source/jim/sxml-match.plt/1/1/> on
  53. ;; 2010-05-24. It was written by Jim Bender <benderjg2@aol.com> and released
  54. ;; under the MIT/X11 license
  55. ;; <http://www.gnu.org/licenses/license-list.html#X11License>.
  56. ;;
  57. ;; Modified the `sxml-match1' macro to allow multiple-value returns (upstream
  58. ;; was notified.)
  59. (include-from-path "sxml/sxml-match.ss")
  60. ;;; match.scm ends here