/** * This file is part of Erjang - A JVM-based Erlang VM * * Copyright (c) 2009 by Trifork * * Licensed under the Apache License, Version 2.0 (the "License"); * you may not use this file except in compliance with the License. * You may obtain a copy of the License at * * http://www.apache.org/licenses/LICENSE-2.0 * * Unless required by applicable law or agreed to in writing, software * distributed under the License is distributed on an "AS IS" BASIS, * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. * See the License for the specific language governing permissions and * limitations under the License. **/ package erjang; import java.math.BigInteger; import java.util.Set; import erjang.m.ets.EMatchContext; import erjang.m.ets.EPattern; import erjang.m.ets.ETermPattern; public abstract class ENumber extends EObject { @Override int cmp_order() { return CMP_ORDER_NUMBER; } public boolean match(ETermPattern matcher, EMatchContext r) { return matcher.match(this, r); } @Override public ETermPattern compileMatch(Set<Integer> out) { return EPattern.compilePattern(this, out); } public abstract double doubleValue(); public abstract int intValue(); public abstract long longValue(); public static ENumber parseInt(String str) { try { int val = java.lang.Integer.parseInt(str); return new ESmall(val); } catch (NumberFormatException e) { BigInteger val = new java.math.BigInteger(str); return new EBig(val); } } public ENumber testNumber() { return this; } public abstract ENumber abs(); public abstract EInteger asInteger(); public EDouble divide(double rhs) { return ERT.box(doubleValue() / rhs); } }