43 lines
1.3 KiB
Java
43 lines
1.3 KiB
Java
|
package jpl.test;
|
||
|
|
|
||
|
|
import jpl.Query;
|
||
|
|
import jpl.fli.Prolog;
|
||
|
|
|
||
|
|
public class Masstest extends Thread {
|
||
|
|
public static void main(String[] args) {
|
||
|
|
// String[] dia = Prolog.get_default_init_args();
|
||
|
|
// String s = "default init args: ";
|
||
|
|
// for (int i = 0; i < dia.length; i++) {
|
||
|
|
// s += " " + dia[i];
|
||
|
|
// }
|
||
|
|
// System.out.println(s);
|
||
|
|
//
|
||
|
|
// Prolog.set_default_init_args(new String[] { "libpl.dll", "-f", "none", "-g", "true", "-q" });
|
||
|
|
// empirically, needs this at least:
|
||
|
|
// Prolog.set_default_init_args(new String[] { "libpl.dll" });
|
||
|
|
// Prolog.set_default_init_args(new String[] { "pl" });
|
||
|
|
//
|
||
|
|
// (new Query("assert(diagnose_declaration(_,_,_,[not,a,real,error]))")).hasSolution();
|
||
|
|
//
|
||
|
|
int STUDENTSNUMBER = 5;
|
||
|
|
Masstest[] threads = new Masstest[STUDENTSNUMBER];
|
||
|
|
for (int i = 0; i < STUDENTSNUMBER; i++) {
|
||
|
|
threads[i] = new Masstest();
|
||
|
|
threads[i].start();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
public void predQuery() {
|
||
|
|
String st = "diagnose_declaration(1,[(sp, 'prefix', [('arg1', '+', 'list', 'Liste1'), ('arg2', '+', 'list', 'Liste2')])], DecMap, ErrorList)";
|
||
|
|
Query stQuery = new Query(st);
|
||
|
|
String errString = stQuery.oneSolution().get("ErrorList").toString();
|
||
|
|
System.out.println("errString=" + errString);
|
||
|
|
}
|
||
|
|
public void run() {
|
||
|
|
try {
|
||
|
|
predQuery();
|
||
|
|
} catch (Exception e) {
|
||
|
|
System.err.println("ERROR: " + e);
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|