View Javadoc

1   /*-
2    * #%L
3    * prolobjectlink-jpi-jpl
4    * %%
5    * Copyright (C) 2012 - 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 Lesser General Public License as
9    * published by the Free Software Foundation, either version 2.1 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 Lesser Public License for more details.
16   * 
17   * You should have received a copy of the GNU General Lesser Public
18   * License along with this program.  If not, see
19   * <http://www.gnu.org/licenses/lgpl-2.1.html>.
20   * #L%
21   */
22  package io.github.prolobjectlink.prolog.jpl;
23  
24  import static io.github.prolobjectlink.prolog.PrologTermType.OBJECT_TYPE;
25  
26  import io.github.prolobjectlink.prolog.PrologProvider;
27  import io.github.prolobjectlink.prolog.PrologReference;
28  import io.github.prolobjectlink.prolog.PrologTerm;
29  import jpl.JPL;
30  import jpl.Term;
31  
32  public final class JplReference extends JplTerm implements PrologReference {
33  
34  	JplReference(PrologProvider provider, Term reference) {
35  		super(OBJECT_TYPE, provider, reference);
36  	}
37  
38  	JplReference(PrologProvider provider, Object reference) {
39  		super(OBJECT_TYPE, provider, JPL.newJRef(reference));
40  	}
41  
42  	@Override
43  	public Class<?> getReferenceType() {
44  		Object object = getObject();
45  		if (object != null) {
46  			object.getClass();
47  		}
48  		return null;
49  	}
50  
51  	@Override
52  	public int getArity() {
53  		return value.arity();
54  	}
55  
56  	@Override
57  	public String getFunctor() {
58  		return value.name();
59  	}
60  
61  	@Override
62  	public PrologTerm[] getArguments() {
63  		return toTermArray(value.args(), PrologTerm[].class);
64  	}
65  
66  	public Object getObject() {
67  		if (value.isJFalse()) {
68  			return Boolean.FALSE;
69  		} else if (value.isJTrue()) {
70  			return Boolean.TRUE;
71  		} else if (value.isJVoid()) {
72  			return void.class;
73  		} else if (value.isJRef()) {
74  			return value.jrefToObject();
75  		}
76  		return null;
77  	}
78  
79  }