@Subroutine("substring-no-properties")
public static LispString substringNoProperties(
LispString string, @Optional LispObject from, LispObject to) {
int length = string.size();
int start = Predicate.isNil(from) ? 0 : processBound(getInt(from), length);
int end = Predicate.isNil(to) ? length : processBound(getInt(to), length);
try {
return string.substring(start, end, false);
} catch (IndexOutOfBoundsException e) {
throw new ArgumentOutOfRange(string, start, end);
}
}
@Subroutine(value = "string-match")
public static LispObject stringMatch(
Environment environment, LispString regexp, LispString string, @Optional LispInteger start) {
int from = 0;
if (start != null) {
from = start.getData();
if (from < 0 || from >= string.size())
throw new ArgumentOutOfRange(string.toString(), start.toString());
}
LispSymbol s = environment.find("case-fold-search");
int r =
string.match(
environment, regexp, from, (s != null && !s.getValue().equals(LispSymbol.ourNil)));
if (r == -1) return LispSymbol.ourNil;
return new LispInteger(r);
}
@Subroutine("read-from-string")
public static LispList readFromString(
LispString string,
@Optional @Nullable LispObject start,
@Optional @Nullable LispObject finish) {
int begin = getInt(start, 0);
int end = getInt(finish, string.size());
try {
String code = string.getData().substring(begin, end);
ForwardParser forwardParser = new ForwardParser();
LispObject read = Core.thisOrNil(forwardParser.parseLine(code));
return LispList.cons(read, new LispInteger(begin + forwardParser.getCurrentIndex()));
} catch (StringIndexOutOfBoundsException e) {
throw new ArgumentOutOfRange(string, begin, end);
}
}