TestStop.java

package alice.tuprolog;

class PrologThread extends Thread {
	
	Prolog core;
	String goal;
	
	PrologThread(Prolog core, String goal){
		this.core = core;
		this.goal = goal;
	}

	@Override
	public void run() {
		try {
			System.out.println("STARTING...");
			SolveInfo info = core.solve(goal);
			System.out.println(info);
			System.out.println("STOP.");
		} catch (Exception ex){
			ex.printStackTrace();			
		}
	}	
}

public class TestStop {

	public static void main(String[] args) throws Exception {
		
		Prolog core = new Prolog();
		
		Theory th = new Theory(
			"rec(X):- current_thread <- sleep(X), X1 is X + 100, rec(X1).\n"
		);
		core.setTheory(th);
		
		
		new PrologThread(core,"rec(100).").start();
		
		Thread.sleep(2000);
		
		System.out.println("STOPPING...");
		
		core.solveHalt();
		
		Thread.sleep(2000);
		
		System.out.println("OK.");
	}
}