// -- Happy Computing!\r
//\r
package com.stevesoft.pat;\r
-import java.util.Hashtable;\r
+\r
+import java.util.*;\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. It also allows (?>number). */\r
-class Backup extends Pattern {\r
- int bk;\r
- Backup(int ii) { bk = ii; }\r
- public String toString() {\r
- return "(?" + (bk < 0 ? ">" + (-bk) : "<" + bk) + ")" + nextString();\r
- }\r
- public int matchInternal(int pos,Pthings pt) {\r
- if(pos < bk) return -1;\r
- return nextMatch(pos-bk,pt);\r
+class Backup\r
+ extends Pattern\r
+{\r
+ int bk;\r
+ Backup(int ii)\r
+ {\r
+ bk = ii;\r
+ }\r
+\r
+ public String toString()\r
+ {\r
+ return "(?" + (bk < 0 ? ">" + ( -bk) : "<" + bk) + ")" + nextString();\r
+ }\r
+\r
+ public int matchInternal(int pos, Pthings pt)\r
+ {\r
+ if (pos < bk)\r
+ {\r
+ return -1;\r
}\r
- public patInt minChars() { return new patInt(-bk); }\r
- public patInt maxChars() { return new patInt(-bk); }\r
- public Pattern clone1(Hashtable h) { return new Backup(bk); }\r
+ return nextMatch(pos - bk, pt);\r
+ }\r
+\r
+ public patInt minChars()\r
+ {\r
+ return new patInt( -bk);\r
+ }\r
+\r
+ public patInt maxChars()\r
+ {\r
+ return new patInt( -bk);\r
+ }\r
+\r
+ public Pattern clone1(Hashtable h)\r
+ {\r
+ return new Backup(bk);\r
+ }\r
};\r