1 /* 2 * #%L 3 * prolobjectlink-jpi-jpl7 4 * %% 5 * Copyright (C) 2019 Prolobjectlink Project 6 * %% 7 * Redistribution and use in source and binary forms, with or without 8 * modification, are permitted provided that the following conditions are met: 9 * 10 * 1. Redistributions of source code must retain the above copyright notice, 11 * this list of conditions and the following disclaimer. 12 * 2. Redistributions in binary form must reproduce the above copyright notice, 13 * this list of conditions and the following disclaimer in the documentation 14 * and/or other materials provided with the distribution. 15 * 16 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 17 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 18 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 19 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR CONTRIBUTORS BE 20 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 21 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 22 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 23 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 24 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 25 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 26 * POSSIBILITY OF SUCH DAMAGE. 27 * #L% 28 */ 29 package io.github.prolobjectlink.prolog.jpl7; 30 31 import static io.github.prolobjectlink.prolog.PrologTermType.FLOAT_TYPE; 32 33 import org.jpl7.Float; 34 import org.jpl7.Term; 35 36 import io.github.prolobjectlink.prolog.PrologFloat; 37 import io.github.prolobjectlink.prolog.PrologProvider; 38 import io.github.prolobjectlink.prolog.PrologTerm; 39 40 /** 41 * 42 * @author Jose Zalacain 43 * @since 1.0 44 */ 45 class JplFloat extends JplNumber implements PrologFloat { 46 47 JplFloat(PrologProvider provider, Number value) { 48 super(FLOAT_TYPE, provider, new Float(value.floatValue())); 49 } 50 51 JplFloat(int type, PrologProvider provider, Term value) { 52 super(type, provider, value); 53 } 54 55 public final long getLongValue() { 56 return ((Float) value).longValue(); 57 } 58 59 public final double getDoubleValue() { 60 return ((Float) value).doubleValue(); 61 } 62 63 public final int getIntegerValue() { 64 return ((Float) value).intValue(); 65 } 66 67 public final float getFloatValue() { 68 return ((Float) value).floatValue(); 69 } 70 71 public final PrologTerm[] getArguments() { 72 return new JplFloat[0]; 73 } 74 75 }