001: /*
002: * $Id: Perl5Pattern.java,v 1.8 2003/11/07 20:16:25 dfs Exp $
003: *
004: * ====================================================================
005: * The Apache Software License, Version 1.1
006: *
007: * Copyright (c) 2000 The Apache Software Foundation. All rights
008: * reserved.
009: *
010: * Redistribution and use in source and binary forms, with or without
011: * modification, are permitted provided that the following conditions
012: * are met:
013: *
014: * 1. Redistributions of source code must retain the above copyright
015: * notice, this list of conditions and the following disclaimer.
016: *
017: * 2. Redistributions in binary form must reproduce the above copyright
018: * notice, this list of conditions and the following disclaimer in
019: * the documentation and/or other materials provided with the
020: * distribution.
021: *
022: * 3. The end-user documentation included with the redistribution,
023: * if any, must include the following acknowledgment:
024: * "This product includes software developed by the
025: * Apache Software Foundation (http://www.apache.org/)."
026: * Alternately, this acknowledgment may appear in the software itself,
027: * if and wherever such third-party acknowledgments normally appear.
028: *
029: * 4. The names "Apache" and "Apache Software Foundation", "Jakarta-Oro"
030: * must not be used to endorse or promote products derived from this
031: * software without prior written permission. For written
032: * permission, please contact apache@apache.org.
033: *
034: * 5. Products derived from this software may not be called "Apache"
035: * or "Jakarta-Oro", nor may "Apache" or "Jakarta-Oro" appear in their
036: * name, without prior written permission of the Apache Software Foundation.
037: *
038: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESSED OR IMPLIED
039: * WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
040: * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
041: * DISCLAIMED. IN NO EVENT SHALL THE APACHE SOFTWARE FOUNDATION OR
042: * ITS CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL,
043: * SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT
044: * LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF
045: * USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
046: * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
047: * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT
048: * OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
049: * SUCH DAMAGE.
050: * ====================================================================
051: *
052: * This software consists of voluntary contributions made by many
053: * individuals on behalf of the Apache Software Foundation. For more
054: * information on the Apache Software Foundation, please see
055: * <http://www.apache.org/>.
056: */
057:
058: package org.apache.oro.text.regex;
059:
060: import java.io.*;
061:
062: /**
063: * An implementation of the Pattern interface for Perl5 regular expressions.
064: * This class is compatible with the Perl5Compiler and Perl5Matcher
065: * classes. When a Perl5Compiler instance compiles a regular expression
066: * pattern, it produces a Perl5Pattern instance containing internal
067: * data structures used by Perl5Matcher to perform pattern matches.
068: * This class cannot be subclassed and
069: * cannot be directly instantiated by the programmer as it would not
070: * make sense. Perl5Pattern instances should only be created through calls
071: * to a Perl5Compiler instance's compile() methods. The class implements
072: * the Serializable interface so that instances may be pre-compiled and
073: * saved to disk if desired.
074: *
075: * @version @version@
076: * @since 1.0
077: * @see Perl5Compiler
078: * @see Perl5Matcher
079: */
080: public final class Perl5Pattern implements Pattern, Serializable,
081: Cloneable {
082: static final int _OPT_ANCH_BOL = 0x01, _OPT_ANCH_MBOL = 0x02,
083: _OPT_SKIP = 0x04, _OPT_IMPLICIT = 0x08;
084: static final int _OPT_ANCH = (_OPT_ANCH_BOL | _OPT_ANCH_MBOL);
085:
086: String _expression;
087: char[] _program;
088: int _mustUtility;
089: int _back;
090: int _minLength;
091: int _numParentheses;
092: boolean _isCaseInsensitive, _isExpensive;
093: int _startClassOffset;
094: int _anchor;
095: int _options;
096: char[] _mustString, _startString;
097:
098: /**
099: * A dummy constructor with default visibility to override the default
100: * public constructor that would be created otherwise by the compiler.
101: */
102: Perl5Pattern() {
103: }
104:
105: /*
106: private void readObject(ObjectInputStream stream)
107: throws IOException, ClassNotFoundException
108: {
109: stream.defaultReadObject();
110: _beginMatchOffsets = new int[_numParentheses + 1];
111: _endMatchOffsets = new int[_numParentheses + 1];
112: }
113: */
114:
115: /**
116: * This method returns the string representation of the pattern.
117: * <p>
118: * @return The original string representation of the regular expression
119: * pattern.
120: */
121: public String getPattern() {
122: return _expression;
123: }
124:
125: /**
126: * This method returns an integer containing the compilation options used
127: * to compile this pattern.
128: * <p>
129: * @return The compilation options used to compile the pattern.
130: */
131: public int getOptions() {
132: return _options;
133: }
134:
135: /*
136: // For testing
137: public String toString() {
138: return "Parens: " + _numParentheses + " " + _beginMatchOffsets.length + " "
139: + _endMatchOffsets.length;
140: }
141: */
142: }
|