[Sicstus] Prologbeans et binding Java

bonjour
je débute avec Sicstus Prolog (imposé), je tente de faire une interface java qui communique avec un serveur prolog.
j'ai lu les exemples qui se trouve dans la doc de Sicstus(notament EvaluateGUI).

j'ai pris un petit programme prolog qui permet de calculer le PGCD :

Code:

---

gcd(X,Y,G)

---

où G est le pgcd de x et y.

mais maintenant je bloque au niveau du binding java : je ne sais pas s'il faut réaliser un bind par variable (x et y) ou s'il faut les mettre dans un seul bind. voici ce que j'ai essayé de faire :

Code:

---

1 2 3 4 5 6 7 8 9

int i=63; int j=36; Bindings a = new Bindings().bind("I,J",i+','+j+'.'); QueryAnswer answer = session.executeQuery("pgcd(I,J,G)",a); Term result = answer.getValue("G"); if (result!= null) {System.out.println(result); } else{ System.out.println("ERREUR"); };

---

et du coté de prolog :

Code:

---

register_query(pgcd(X,Y,G), gcd(X,Y,G))

---

evidement, aprés exécution, le seul message qui s'affiche, c'est "erreur" :aie:

merci d'avance pour votre aide. :)

java :

Code:

---

1 2 3 4 5 6 7 8 9

public String PGCD(String i,String j) throws IOException{ Bindings B = new Bindings().bind("L","["+i+","+j+"]."); QueryAnswer answer = session.executeQuery("pgcd(L,G)",B); G = answer.getValue("G"); System.out.println(G); return G.toString();     };

---

prolog :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

:-module(pgcd,[main/0,ppgcd/2,gcd/3]). :-use_module(library(prologbeans)). :- use_module(library(charsio),[read_from_chars/2]).   main:- register_query(pgcd(L,G), ppgcd(L,G)),   start.       % ppgcd(L,G):-read_from_chars(L, LL), slic(LL,1,X),slic(LL,2,Y). %,gcd(X,Y,G).   ppgcd(L,G):-read_from_chars(L, LL), aeee(LL,G). aeee([X,Y],G):-gcd(X,Y,G).   gcd(X,0,X) :- X > 0. gcd(X,Y,G) :- Y > 0, Z is X mod Y, gcd(Y,Z,G).     % Declare gcd as an arithmetic function; so you can use it % like this: ?- G is gcd(36,63). % tiré de https://staff.hti.bfh.ch/hew1/informatik3/prolog/p-99/   %% % ( c ) john DEUA %%   :- arithmetic_function(gcd/2).

---

Désolé, mais peu de forumeurs utilisent Sicstus Prolog :cry: