;;; -*- Mode: LISP; Syntax: COMMON-LISP; Package: CL-PPCRE; Base: 10 -*- ;;; $Header: /usr/local/cvsrep/cl-ppcre/specials.lisp,v 1.24 2007/01/01 23:43:11 edi Exp $ ;;; globally declared special variables ;;; Copyright (c) 2002-2007, 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 to effect declarations (defvar *standard-optimize-settings*   '(optimize     speed     (safety 0)     (space 0)     (debug 1)     (compilation-speed 0)     #+:lispworks (hcl:fixnum-safety 0))   "The standard optimize settings used by most declaration expressions.") (defvar *special-optimize-settings*   '(optimize speed space)   "Special optimize settings used only by a few declaration expressions.") ;;; 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*) ;; stuff for Nikodemus Siivola's HYPERDOC ;; see <http://common-lisp.net/project/hyperdoc/> ;; and <http://www.cliki.net/hyperdoc> ;; also used by LW-ADD-ONS (defvar *hyperdoc-base-uri* "http://weitz.de/cl-ppcre/") (let ((exported-symbols-alist        (loop for symbol being the external-symbols of :cl-ppcre              collect (cons symbol                            (concatenate 'string                                         "#"                                         (string-downcase symbol))))))   (defun hyperdoc-lookup (symbol type)     (declare (ignore type))     (cdr (assoc symbol                 exported-symbols-alist                 :test #'eq))))