// MultiSimple.java

import se.sics.jasper.Jasper;
import se.sics.jasper.Query;
import se.sics.jasper.Prolog;
import java.util.HashMap;

public class MultiSimple
{
    class Client extends Thread
    {
        Prolog jp;
        String qs;

        Client(Prolog p,String queryString)
        {
            jp = p;
            qs = queryString;
        }
        public void run()
        {
            HashMap WayMap = new HashMap();
            try {
                synchronized(jp) {
                    Query query = jp.openPrologQuery(qs, WayMap);
                    try {
                        while (query.nextSolution()) {
                            System.out.println(WayMap);
                        }
                    } finally {
                        query.close();
                    }
                }
            } catch ( Exception e ) {
                e.printStackTrace();
            }
        }
    }

    {
        try {
            Prolog jp = Jasper.newProlog(argv,null,"train.sav");

            Client c1 =
                new Client(jp,"connected('Örebro', 'Hallsberg',
                           Way1, Way1).");
            c1.start();
            // The prolog variable names are different from above 
            // so we can tell which query gives what solution.
            Client c2 =
                new Client(jp,"connected('Stockholm', 'Hallsberg', 
                           Way2, Way2).");
            c2.start();
        }
        catch ( Exception e ) {
            e.printStackTrace();
        }
    }

    public static void main(String argv[])
    {
        new MultiSimple(argv);
    }
}