4122284075
git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-ppcre@12 4281704c-cde7-0310-8518-8e2dc76b1ff0
89 lines
3.1 KiB
Common Lisp
89 lines
3.1 KiB
Common Lisp
;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-USER; Base: 10 -*-
|
|
;;; $Header: /home/manuel/bknr-cvs/cvs/thirdparty/cl-ppcre/packages.lisp,v 1.1 2004/06/23 08:27:10 hans Exp $
|
|
|
|
;;; Copyright (c) 2002-2003, Dr. Edmund Weitz. All rights reserved.
|
|
|
|
;;; Redistribution and use in source and binary forms, with or without
|
|
;;; modification, are permitted provided that the following conditions
|
|
;;; are met:
|
|
|
|
;;; * Redistributions of source code must retain the above copyright
|
|
;;; notice, this list of conditions and the following disclaimer.
|
|
|
|
;;; * Redistributions in binary form must reproduce the above
|
|
;;; copyright notice, this list of conditions and the following
|
|
;;; disclaimer in the documentation and/or other materials
|
|
;;; provided with the distribution.
|
|
|
|
;;; THIS SOFTWARE IS PROVIDED BY THE AUTHOR 'AS IS' AND ANY EXPRESSED
|
|
;;; OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
|
|
;;; WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
|
|
;;; ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY
|
|
;;; DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
|
|
;;; DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE
|
|
;;; GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
|
|
;;; INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
|
|
;;; WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING
|
|
;;; NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
|
|
;;; SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
|
|
|
|
(in-package #:cl-user)
|
|
|
|
#-:cormanlisp
|
|
(defpackage #:cl-ppcre
|
|
(:nicknames #:ppcre)
|
|
(:use #:cl)
|
|
(:export #:create-scanner
|
|
#:scan
|
|
#:scan-to-strings
|
|
#:do-scans
|
|
#:do-matches
|
|
#:do-matches-as-strings
|
|
#:all-matches
|
|
#:all-matches-as-strings
|
|
#:split
|
|
#:regex-replace
|
|
#:regex-replace-all
|
|
#:regex-apropos
|
|
#:regex-apropos-list
|
|
#:quote-meta-chars
|
|
#:*regex-char-code-limit*
|
|
#:*use-bmh-matchers*
|
|
#:*allow-quoting*
|
|
#:ppcre-error
|
|
#:ppcre-invocation-error
|
|
#:ppcre-syntax-error
|
|
#:ppcre-syntax-error-string
|
|
#:ppcre-syntax-error-pos
|
|
#:register-groups-bind
|
|
#:do-register-groups))
|
|
|
|
#+:cormanlisp
|
|
(defpackage "CL-PPCRE"
|
|
(:nicknames "PPCRE")
|
|
(:use "CL")
|
|
(:export "CREATE-SCANNER"
|
|
"SCAN"
|
|
"SCAN-TO-STRINGS"
|
|
"DO-SCANS"
|
|
"DO-MATCHES"
|
|
"DO-MATCHES-AS-STRINGS"
|
|
"ALL-MATCHES"
|
|
"ALL-MATCHES-AS-STRINGS"
|
|
"SPLIT"
|
|
"REGEX-REPLACE"
|
|
"REGEX-REPLACE-ALL"
|
|
"REGEX-APROPOS"
|
|
"REGEX-APROPOS-LIST"
|
|
"QUOTE-META-CHARS"
|
|
"*REGEX-CHAR-CODE-LIMIT*"
|
|
"*USE-BMH-MATCHERS*"
|
|
"*ALLOW-QUOTING*"
|
|
"PPCRE-ERROR"
|
|
"PPCRE-INVOCATION-ERROR"
|
|
"PPCRE-SYNTAX-ERROR"
|
|
"PPCRE-SYNTAX-ERROR-STRING"
|
|
"PPCRE-SYNTAX-ERROR-POS"
|
|
"REGISTER-GROUPS-BIND"
|
|
"DO-REGISTER-GROUPS"))
|