View Javadoc

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  }