1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22 package io.github.prolobjectlink.prolog.tuprolog;
23
24 import io.github.prolobjectlink.prolog.AbstractClause;
25 import io.github.prolobjectlink.prolog.PrologClause;
26 import io.github.prolobjectlink.prolog.PrologIndicator;
27 import io.github.prolobjectlink.prolog.PrologProvider;
28 import io.github.prolobjectlink.prolog.PrologTerm;
29
30
31
32
33
34
35 final class TuPrologClause extends AbstractClause implements PrologClause {
36
37 private PrologIndicator indicator;
38
39 TuPrologClause(PrologProvider provider, PrologTerm head, boolean dynamic, boolean multifile,
40 boolean discontiguous) {
41 super(provider, head, dynamic, multifile, discontiguous);
42 this.indicator = new TuPrologIndicator(head.getFunctor(), head.getArity());
43 }
44
45 TuPrologClause(PrologProvider provider, PrologTerm head, PrologTerm body, boolean dynamic, boolean multifile,
46 boolean discontiguous) {
47 super(provider, head, body, dynamic, multifile, discontiguous);
48 this.indicator = new TuPrologIndicator(head.getFunctor(), head.getArity());
49 }
50
51 public PrologIndicator getPrologIndicator() {
52 return indicator;
53 }
54
55 }