Method main

src/examples/java/thread/PrologMT.java:26–63

(String argv[])

	}

	public static void main(String argv[]) {
		int max = 20;
		int runs = 1;
		ArrayList<Thread> threads = new ArrayList<Thread>();

		// Provide ssh server in the process.  Connect using ssh -p 2020 localhost
		if ( new Query("exists_source(library(ssh_server))").hasSolution() ) {
			new Query("use_module(library(ssh_server))").hasSolution();
			new Query("ssh_server(2020)").hasSolution();
		}

		new Query("consult(program)").hasSolution();

		if ( argv.length > 0 )
		  max = Integer.parseInt(argv[0]);
		if ( argv.length > 1 )
		  runs = Integer.parseInt(argv[1]);

		for (int r = 0; r < runs; r++ ) {
			  long t0 = System.currentTimeMillis();
			  for (int i = 0; i < max; i++) {
				  Thread t = new PrologMT(i);
				  t.start();
				  threads.add(t);
			  }
			  long t1 = System.currentTimeMillis()-t0;
			  System.out.println("Created "+max+" threads in "+t1+"ms; waiting (pid="+pid()+") ...");
			  for (int i = 0; i < threads.size(); i++)
			  { try {
				  threads.get(i).join();
			    } catch(Exception e) {
				  System.out.println("Join failed");
			    }
			  }
			  long t2 = System.currentTimeMillis()-t0;
			  System.out.println("All done in "+t2+"ms");
		}
	}

/** Run a Java thread with a Prolog engine attached during the life time
 *  of the thread.  The thread must call Prolog.destroy_engine() before