unused/com/stevesoft/pat/Skipped.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 \r
  10 import java.util.*;\r
  11 \r
  12 /**\r
  13  * Implements the (?&lt;number) Pattern, where number is an integer telling us\r
  14  * how far to back up in the Pattern. Not in perl 5.\r
  15  */\r
  16 class Skipped extends Pattern\r
  17 {\r
  18   String s;\r
  19 \r
  20   Skipped(String s)\r
  21   {\r
  22     this.s = s;\r
  23   }\r
  24 \r
  25   public String toString()\r
  26   {\r
  27     return s + nextString();\r
  28   }\r
  29 \r
  30   public int matchInternal(int pos, Pthings pt)\r
  31   {\r
  32     // if(pt.no_check || s.regionMatches(pt.ignoreCase,0,pt.src,pos,s.length()))\r
  33     if (pt.no_check\r
  34             || CaseMgr.regionMatches(s, pt.ignoreCase, 0, pt.src, pos, s\r
  35                     .length()))\r
  36     {\r
  37       return nextMatch(pos + s.length(), pt);\r
  38     }\r
  39     return -1;\r
  40   }\r
  41 \r
  42   public patInt minChars()\r
  43   {\r
  44     return new patInt(s.length());\r
  45   }\r
  46 \r
  47   public patInt maxChars()\r
  48   {\r
  49     return new patInt(s.length());\r
  50   }\r
  51 \r
  52   Pattern clone1(Hashtable h)\r
  53   {\r
  54     return new Skipped(s);\r
  55   }\r
  56 };\r