View Javadoc

1   /*
2    * #%L
3    * prolobjectlink-jpi-jlog
4    * %%
5    * Copyright (C) 2019 Prolobjectlink Project
6    * %%
7    * This program is free software: you can redistribute it and/or modify
8    * it under the terms of the GNU General Public License as
9    * published by the Free Software Foundation, either version 3 of the
10   * License, or (at your option) any later version.
11   * 
12   * This program is distributed in the hope that it will be useful,
13   * but WITHOUT ANY WARRANTY; without even the implied warranty of
14   * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15   * GNU General Public License for more details.
16   * 
17   * You should have received a copy of the GNU General Public
18   * License along with this program.  If not, see
19   * <http://www.gnu.org/licenses/gpl-3.0.html>.
20   * #L%
21   */
22  package io.github.prolobjectlink.prolog.jlog;
23  
24  import static io.github.prolobjectlink.prolog.PrologTermType.INTEGER_TYPE;
25  
26  import io.github.prolobjectlink.prolog.PrologInteger;
27  import io.github.prolobjectlink.prolog.PrologProvider;
28  import io.github.prolobjectlink.prolog.PrologTerm;
29  import ubc.cs.JLog.Terms.jInteger;
30  import ubc.cs.JLog.Terms.jTerm;
31  
32  /**
33   * 
34   * @author Jose Zalacain
35   * @since 1.0
36   */
37  class JLogInteger extends JLogNumber implements PrologInteger {
38  
39  	JLogInteger(PrologProvider provider, Number value) {
40  		super(INTEGER_TYPE, provider, new jInteger(value.intValue()));
41  	}
42  
43  	JLogInteger(int type, PrologProvider provider, jTerm value) {
44  		super(type, provider, value);
45  	}
46  
47  	public final long getLongValue() {
48  		return (long) getIntegerValue();
49  	}
50  
51  	public final double getDoubleValue() {
52  		return (double) getIntegerValue();
53  	}
54  
55  	public final int getIntegerValue() {
56  		return ((jInteger) value).getIntegerValue();
57  	}
58  
59  	public final float getFloatValue() {
60  		return (float) getIntegerValue();
61  	}
62  
63  	public final PrologTerm[] getArguments() {
64  		return new JLogInteger[0];
65  	}
66  
67  }