needed for applet search

[jalview.git] / src / com / stevesoft / pat / Skipped.java

diff --git a/src/com/stevesoft/pat/Skipped.java b/src/com/stevesoft/pat/Skipped.java
new file mode 100755 (executable)
index 0000000..9d963ae
--- /dev/null
+++ b/src/com/stevesoft/pat/Skipped.java
@@ -0,0 +1,27 @@
+//\r
+// This software is now distributed according to\r
+// the Lesser Gnu Public License.  Please see\r
+// http://www.gnu.org/copyleft/lesser.txt for\r
+// the details.\r
+//    -- Happy Computing!\r
+//\r
+package com.stevesoft.pat;\r
+import java.util.Hashtable;\r
+\r
+/** Implements the (?<number) Pattern, where number is\r
+ an integer telling us how far to back up in the Pattern.\r
+ Not in perl 5. */\r
+class Skipped extends Pattern {\r
+    String s;\r
+    Skipped(String s) { this.s = s; }\r
+    public String toString() { return s+nextString(); }\r
+    public int matchInternal(int pos,Pthings pt) {\r
+        //if(pt.no_check || s.regionMatches(pt.ignoreCase,0,pt.src,pos,s.length()))\r
+        if(pt.no_check || CaseMgr.regionMatches(s,pt.ignoreCase,0,pt.src,pos,s.length()))\r
+            return nextMatch(pos+s.length(),pt);\r
+        return -1;\r
+    }\r
+    public patInt minChars() { return new patInt(s.length()); }\r
+    public patInt maxChars() { return new patInt(s.length()); }\r
+    Pattern clone1(Hashtable h) { return new Skipped(s); }\r
+};\r