1 21 22 package org.armedbear.lisp; 23 24 public class ControlC implements Runnable  25 { 26 public static native void installControlCHandler(); 27 28 public static void callback() 29 { 30 Lisp.setInterrupted(true); 31 } 32 33 public void run() { 34 installControlCHandler(); } 36 37 public static void initialize() 38 { 39 Thread t = new Thread (new ControlC()); 40 t.setDaemon(true); 41 t.setPriority(Thread.MAX_PRIORITY); 42 t.start(); 43 } 44 } 45 | Popular Tags |