src/com/stevesoft/pat/Backup.java

   1 /*******************************************************************************
   2  * Jalview - A Sequence Alignment Editor and Viewer ($$Version-Rel$$)
   3  * Copyright (C) $(date) The Jalview Authors
   4  *
   5  * This file is part of Jalview.
   6  *
   7  * Jalview is free software: you can redistribute it and/or
   8  * modify it under the terms of the GNU General Public License
   9  * as published by the Free Software Foundation, either version 3
  10  * of the License, or (at your option) any later version.
  11  *
  12  * Jalview is distributed in the hope that it will be useful, but
  13  * WITHOUT ANY WARRANTY; without even the implied warranty
  14  * of MERCHANTABILITY or FITNESS FOR A PARTICULAR
  15  * PURPOSE.  See the GNU General Public License for more details.
  16  *
  17  * You should have received a copy of the GNU General Public License
  18  * along with Jalview.  If not, see <http://www.gnu.org/licenses/>.
  19  * The Jalview Authors are detailed in the 'AUTHORS' file.
  20  *******************************************************************************/
  21 //
  22 // This software is now distributed according to
  23 // the Lesser Gnu Public License.  Please see
  24 // http://www.gnu.org/copyleft/lesser.txt for
  25 // the details.
  26 //    -- Happy Computing!
  27 //
  28 package com.stevesoft.pat;
  29
  30 import java.util.Hashtable;
  31
  32 /**
  33  * Implements the (?&lt;number) Pattern, where number is an integer telling us
  34  * how far to back up in the Pattern. Not in perl 5. It also allows
  35  * (?&gt;number).
  36  */
  37 class Backup extends Pattern
  38 {
  39   int bk;
  40
  41   Backup(int ii)
  42   {
  43     bk = ii;
  44   }
  45
  46   public String toString()
  47   {
  48     return "(?" + (bk < 0 ? ">" + (-bk) : "<" + bk) + ")" + nextString();
  49   }
  50
  51   public int matchInternal(int pos, Pthings pt)
  52   {
  53     if (pos < bk)
  54     {
  55       return -1;
  56     }
  57     return nextMatch(pos - bk, pt);
  58   }
  59
  60   public patInt minChars()
  61   {
  62     return new patInt(-bk);
  63   }
  64
  65   public patInt maxChars()
  66   {
  67     return new patInt(-bk);
  68   }
  69
  70   public Pattern clone1(Hashtable h)
  71   {
  72     return new Backup(bk);
  73   }
  74 };