X-Git-Url: http://source.jalview.org/gitweb/?a=blobdiff_plain;f=src%2Fcom%2Fstevesoft%2Fpat%2FGroup.java;h=4f538b5d565b9a10051ce62412ccefaca81e77c5;hb=7bc226b58110fa26d9dbd3f0c78095d06909ffc3;hp=4f731144091b91aecb22af871e8b4a75db6b54a5;hpb=dd74fc4938723fe5ec48d4e5fdcfbe58ac42a48d;p=jalview.git diff --git a/src/com/stevesoft/pat/Group.java b/src/com/stevesoft/pat/Group.java index 4f73114..4f538b5 100755 --- a/src/com/stevesoft/pat/Group.java +++ b/src/com/stevesoft/pat/Group.java @@ -6,37 +6,70 @@ // -- Happy Computing! // package com.stevesoft.pat; -import java.util.Hashtable; + +import java.util.*; /** This class implements the (?@<>) syntax that matches a balanced parenthesis. Not in perl 5. */ -class Group extends Pattern { - char op,cl; - Group(char opi,char cli) { - op = opi; - cl = cli; - } - public int matchInternal(int pos,Pthings pt) { - int i,count=1; - if(pos < pt.src.length()) - if(!Masked(pos,pt) && pt.src.charAt(pos) != op) - return -1; - for(i=pos+1;i