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.INTEGER_TYPE;
32
33 import org.jpl7.Integer;
34 import org.jpl7.Term;
35
36 import io.github.prolobjectlink.prolog.PrologInteger;
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 JplInteger extends JplNumber implements PrologInteger {
46
47 JplInteger(PrologProvider provider, Number value) {
48 super(INTEGER_TYPE, provider, new Integer(value.intValue()));
49 }
50
51 JplInteger(int type, PrologProvider provider, Term value) {
52 super(type, provider, value);
53 }
54
55 public final long getLongValue() {
56 return ((Integer) value).longValue();
57 }
58
59 public final double getDoubleValue() {
60 return ((Integer) value).doubleValue();
61 }
62
63 public final int getIntegerValue() {
64 return ((Integer) value).intValue();
65 }
66
67 public final float getFloatValue() {
68 return ((Integer) value).floatValue();
69 }
70
71 public final PrologTerm[] getArguments() {
72 return new JplInteger[0];
73 }
74
75 }