Initial revision

git-svn-id: svn://bknr.net/svn/trunk/thirdparty/cl-ppcre@12 4281704c-cde7-0310-8518-8e2dc76b1ff0

specials.lisp

@@ -0,0 +1,107 @@
+;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*-
+;;; $Header: /home/manuel/bknr-cvs/cvs/thirdparty/cl-ppcre/specials.lisp,v 1.1 2004/06/23 08:27:10 hans Exp $
+
+;;; globally declared special variables
+
+;;; 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-ppcre)
+
+;;; special variables used by the lexer/parser combo
+
+(defvar *extended-mode-p* nil
+  "Whether the parser will start in extended mode.")
+(declaim (type boolean *extended-mode-p*))
+
+;;; special variables used by the SCAN function and the matchers
+
+(defvar *string* ""
+  "The string which is currently scanned by SCAN.
+Will always be coerced to a SIMPLE-STRING.")
+(declaim (type simple-string *string*))
+
+(defvar *start-pos* 0
+  "Where to start scanning within *STRING*.")
+(declaim (type fixnum *start-pos*))
+
+(defvar *real-start-pos* nil
+  "The real start of *STRING*. This is for repeated scans and is only used internally.")
+(declaim (type (or null fixnum) *real-start-pos*))
+
+(defvar *end-pos* 0
+  "Where to stop scanning within *STRING*.")
+(declaim (type fixnum *end-pos*))
+
+(defvar *reg-starts* (make-array 0)
+  "An array which holds the start positions
+of the current register candidates.")
+(declaim (type simple-vector *reg-starts*))
+  
+(defvar *regs-maybe-start* (make-array 0)
+  "An array which holds the next start positions
+of the current register candidates.")
+(declaim (type simple-vector *regs-maybe-start*))
+
+(defvar *reg-ends* (make-array 0)
+  "An array which holds the end positions
+of the current register candidates.")
+(declaim (type simple-vector *reg-ends*))
+
+(defvar *end-string-pos* nil
+  "Start of the next possible end-string candidate.")
+
+(defvar *rep-num* 0
+  "Counts the number of \"complicated\" repetitions while the matchers
+are built.")
+(declaim (type fixnum *rep-num*))
+
+(defvar *zero-length-num* 0
+  "Counts the number of repetitions the inner regexes of which may
+have zero-length while the matchers are built.")
+(declaim (type fixnum *zero-length-num*))
+
+(defvar *repeat-counters* (make-array 0
+                                      :initial-element 0
+                                      :element-type 'fixnum)
+  "An array to keep track of how often
+repetitive patterns have been tested already.")
+(declaim (type (array fixnum (*)) *repeat-counters*))
+
+(defvar *last-pos-stores* (make-array 0)
+  "An array to keep track of the last positions
+where we saw repetitive patterns.
+Only used for patterns which might have zero length.")
+(declaim (type simple-vector *last-pos-stores*))
+
+(defvar *use-bmh-matchers* t
+  "Whether the scanners created by CREATE-SCANNER should use the \(fast
+but large) Boyer-Moore-Horspool matchers.")
+
+(defvar *allow-quoting* nil
+  "Whether the parser should support Perl's \\Q and \\E.")
+
+(pushnew :cl-ppcre *features*)