src/com/stevesoft/pat/Backup.java

   1 //\r
   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
   5 // the details.\r
   6 //    -- Happy Computing!\r
   7 //\r
   8 package com.stevesoft.pat;\r
   9 import java.util.Hashtable;\r
  10 \r
  11 /** Implements the (?&lt;number) Pattern, where number is\r
  12  an integer telling us how far to back up in the Pattern.\r
  13  Not in perl 5. It also allows (?&gt;number). */\r
  14 class Backup extends Pattern {\r
  15     int bk;\r
  16     Backup(int ii) { bk = ii; }\r
  17     public String toString() {\r
  18         return "(?" + (bk < 0 ? ">" + (-bk) : "<" + bk) + ")" + nextString();\r
  19     }\r
  20     public int matchInternal(int pos,Pthings pt) {\r
  21         if(pos < bk) return -1;\r
  22         return nextMatch(pos-bk,pt);\r
  23     }\r
  24     public patInt minChars() { return new patInt(-bk); }\r
  25     public patInt maxChars() { return new patInt(-bk); }\r
  26     public Pattern clone1(Hashtable h) { return new Backup(bk); }\r
  27 };\r