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
12 /** Implements the (?<number) Pattern, where number is
\r
13 an integer telling us how far to back up in the Pattern.
\r
14 Not in perl 5. It also allows (?>number). */
\r
24 public String toString()
\r
26 return "(?" + (bk < 0 ? ">" + ( -bk) : "<" + bk) + ")" + nextString();
\r
29 public int matchInternal(int pos, Pthings pt)
\r
35 return nextMatch(pos - bk, pt);
\r
38 public patInt minChars()
\r
40 return new patInt( -bk);
\r
43 public patInt maxChars()
\r
45 return new patInt( -bk);
\r
48 public Pattern clone1(Hashtable h)
\r
50 return new Backup(bk);
\r