resolve darcs stupidity
[org.ibex.core.git] / src / gnu / regexp / CharIndexedString.java
1 /*
2  *  gnu/regexp/CharIndexedString.java
3  *  Copyright (C) 1998-2001 Wes Biggs
4  *
5  *  This library is free software; you can redistribute it and/or modify
6  *  it under the terms of the GNU Lesser General Public License as published
7  *  by the Free Software Foundation; either version 2.1 of the License, or
8  *  (at your option) any later version.
9  *
10  *  This library is distributed in the hope that it will be useful,
11  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
12  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
13  *  GNU Lesser General Public License for more details.
14  *
15  *  You should have received a copy of the GNU Lesser General Public License
16  *  along with this program; if not, write to the Free Software
17  *  Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18  */
19 package gnu.regexp;
20 import java.io.Serializable;
21
22 class CharIndexedString implements CharIndexed, Serializable {
23     private String s;
24     private int anchor;
25     private int len;
26     
27     CharIndexedString(String str, int index) {
28         s = str;
29         len = s.length();
30         anchor = index;
31     }
32
33     public char charAt(int index) {
34         int pos = anchor + index;
35         return ((pos < len) && (pos >= 0)) ? s.charAt(pos) : OUT_OF_BOUNDS;
36     }
37     
38     public boolean isValid() {
39         return (anchor < len);
40     }
41     
42     public boolean move(int index) {
43         return ((anchor += index) < len);
44     }
45 }