2 // This software is now distributed according to
\r
3 // the Lesser Gnu Public License. Please see
\r
4 // http://www.gnu.org/copyleft/lesser.txt for
\r
6 // -- Happy Computing!
\r
8 package com.stevesoft.pat;
\r
13 * Implements the (?<number) Pattern, where number is an integer telling us
\r
14 * how far to back up in the Pattern. Not in perl 5.
\r
16 class Skipped extends Pattern
\r
25 public String toString()
\r
27 return s + nextString();
\r
30 public int matchInternal(int pos, Pthings pt)
\r
32 // if(pt.no_check || s.regionMatches(pt.ignoreCase,0,pt.src,pos,s.length()))
\r
34 || CaseMgr.regionMatches(s, pt.ignoreCase, 0, pt.src, pos, s
\r
37 return nextMatch(pos + s.length(), pt);
\r
42 public patInt minChars()
\r
44 return new patInt(s.length());
\r
47 public patInt maxChars()
\r
49 return new patInt(s.length());
\r
52 Pattern clone1(Hashtable h)
\r
54 return new Skipped(s);
\r