/**
* 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.BigDecimal;
import java.math.BigInteger;
import java.util.Formatter;
import org.objectweb.asm.MethodVisitor;
import org.objectweb.asm.Opcodes;
import org.objectweb.asm.Type;
import erjang.driver.IO;
public class EDouble extends ENumber {
private static final Type EDOUBLE_TYPE = Type.getType(EDouble.class);
private static final EObject am_decimals = EAtom.intern("decimals");
private static final EObject am_scientific = EAtom.intern("scientific");
private static final EObject am_compact = EAtom.intern("compact");
public final double value;
public EDouble(double value) {
this.value = value;
}
@Override
public int hashCode() {
long bits = Double.doubleToLongBits(value);
return (int)(bits ^ (bits >>> 32));
}
@Override
int compare_same(EObject rhs) {
return rhs.r_compare_same(this);
}
int r_compare_same(ESmall lhs) {
return lhs.value < value ? -1 : lhs.value == value ? 0 : 1;
}
int r_compare_same(EBig lhs) {
double doubleValue = lhs.doubleValue();
return doubleValue < value ? -1 : doubleValue == value ? 0 : 1;
}
int r_compare_same(EDouble lhs) {
return lhs.value < value ? -1 : lhs.value == value ? 0 : 1;
}
public boolean equals(Object other) {
if (other instanceof EDouble) {
EDouble o = (EDouble) other;
return o.value == value;
}
return false;
}
@Override
public boolean equalsExactly(EObject rhs) {
return rhs.r_equals_exactly(this);
}
boolean r_equals_exactly(EDouble lhs) {
return lhs.value == value;
}
public EDouble testFloat() {
return this;
}
@Override
public int intValue() {
return (int) value;
}
@Override
public long longValue() {
return (long) value;
}
public static EObject parseDouble(String string) {
return new EDouble(Double.parseDouble(string));
}
@Override
public EDouble abs() {
return new EDouble(Math.abs(value));
}
@Override
public String toString() {
return String.valueOf(value);
}
public EInteger asInteger() {
if (value >= Integer.MIN_VALUE && value <= Integer.MAX_VALUE) {
return new ESmall((int) value);
} else {
return new EBig(BigDecimal.valueOf(value).toBigInteger());
}
}
@Override
public org.objectweb.asm.Type emit_const(MethodVisitor fa) {
Type type = EDOUBLE_TYPE;
fa.visitTypeInsn(Opcodes.NEW, type.getInternalName());
fa.visitInsn(Opcodes.DUP);
fa.visitLdcInsn(new Double(value));
fa.visitMethodInsn(Opcodes.INVOKESPECIAL, type.getInternalName(),
"<init>", "(D)V");
return type;
}
/**
* @return
*/
public EString to_list() {
Formatter form = new Formatter();
form = form.format("%.20e", value);
String value = form.toString();
return new EString(value);
}
public String format(EObject options) {
if (options.isNil()) {
return String.format("%.20e", value);
}
boolean sci = true;
boolean dec = false;
int precision = 20;
boolean compact = false;
ESeq opt = options.testSeq();
if (opt == null) {
throw ERT.badarg(this, options);
}
while (!opt.isNil()) {
EObject o = opt.head();
ETuple tup;
if ((tup=o.testTuple()) != null && tup.arity() == 2) {
ESmall prec = tup.elm(2).testSmall();
if (prec == null) {
throw ERT.badarg(this, options);
}
if (tup.elm(1) == am_decimals) {
dec = true;
sci = false;
precision = prec.value;
} else if (tup.elm(1) == am_scientific) {
sci = true;
dec = false;
precision = prec.value;
compact = false;
} else {
throw ERT.badarg(this, options);
}
} else if (o == am_compact) {
compact = true;
}
opt = opt.tail();
}
String format;
if (sci) {
format = "%." + precision + "e";
} else {
format = "%." + precision + "f";
}
String out = String.format(format, value);
if (compact & dec)
out = out.replaceFirst("([0-9])0+$", "$1");
return out;
}
public ENumber add(EObject other, boolean guard) {
return other.add(value, guard);
}
public ENumber r_add(int lhs) {
return ERT.box((long) lhs + value);
}
public ENumber add(double lhs, boolean guard) {
return ERT.box(lhs + value);
}
public ENumber add(BigInteger lhs, boolean guard) {
return ERT.box(lhs.doubleValue() + value);
}
@Override
public ENumber negate() {
return new EDouble(-value);
}
public EDouble subtract(int rhs) {
return ERT.box(value - rhs);
}
public ENumber subtract(EObject other, boolean guard) {
return other.r_subtract(value, guard);
}
public ENumber r_subtract(int lhs, boolean guard) {
return ERT.box((long) lhs - value);
}
public ENumber r_subtract(double lhs, boolean guard) {
return ERT.box(lhs - value);
}
public ENumber r_subtract(BigInteger lhs, boolean guard) {
return ERT.box(lhs.doubleValue() - value);
}
public EDouble multiply(EObject other) {
return other.r_multiply(value);
}
public ENumber r_multiply(int lhs) {
return ERT.box(lhs * value);
}
public EDouble r_multiply(double lhs) {
return ERT.box(lhs * value);
}
public ENumber r_multiply(BigInteger lhs) {
return ERT.box(lhs.doubleValue() * value);
}
public EDouble divide(EObject other) {
return other.r_divide(value);
}
public EDouble r_divide(int lhs) {
return ERT.box(lhs / value);
}
public EDouble r_divide(double lhs) {
return ERT.box(lhs / value);
}
public EDouble r_divide(BigInteger lhs) {
return ERT.box(lhs.doubleValue() / value);
}
@Override
public double doubleValue() {
return value;
}
/*
* (non-Javadoc)
*
* @see erjang.ENumber#add(int)
*/
@Override
public ENumber add(int rhs, boolean guard) {
return ERT.box(value + rhs);
}
public static EDouble read(EInputStream ei) throws java.io.IOException {
return new EDouble(ei.read_double());
}
@Override
public void encode(EOutputStream eos) {
eos.write_double(value);
}
}