Rewrite jagidir compiler to call external javac.

[jagi.git] / src / jagi / event / Driver.java

package jagi.event;

import java.util.*;
import java.util.logging.*;
import java.util.concurrent.*;
import java.io.*;
import java.nio.*;
import java.nio.channels.*;
import java.nio.channels.spi.*;

public class Driver {
    private static final Logger log = Logger.getLogger("jagi.event");
    private static final Logger hlog = Logger.getLogger("jagi.event.handler");
    private static final ThreadLocal<Driver> current = new ThreadLocal<>();
    private final Map<SelectorProvider, SelectPool> selectors = new HashMap<>();
    private final ExecutorService worker = new ThreadPoolExecutor(0, Runtime.getRuntime().availableProcessors(),
								  5, TimeUnit.SECONDS, new LinkedBlockingQueue<Runnable>(128),
								  this::thread);

    protected Thread thread(Runnable tgt) {
	return(new Thread(tgt));
    }

    protected void handle(Watcher w, int evs) {
	try {
	    current.set(this);
	    w.handle(evs);
	} catch(Throwable t) {
	    error(w, t, "handling event");
	} finally {
	    current.remove();
	}
    }

    protected void close(Watcher w) {
	try {
	    current.set(this);
	    w.close();
	} catch(Throwable t) {
	    error(w, t, "closing");
	} finally {
	    current.remove();
	}
    }

    protected void submit(Runnable task) {
	worker.submit(task);
    }

    protected void error(Watcher w, Throwable t, String thing) {
	hlog.log(Level.WARNING, w + ": uncaught error when " + thing, t);
	remove(w);
    }

    class SelectPool implements Runnable {
	final SelectorProvider provider;
	final Selector poll;
	final Map<Watcher, SelectionKey> watching = new IdentityHashMap<>();
	final Heap<Watcher, Double> timeheap = new Heap<>(Comparator.naturalOrder());
	final Map<Watcher, Object> paused = new IdentityHashMap<>();
	final Collection<SelectionKey> cancelled = new HashSet<>();

	SelectPool(SelectorProvider provider) {
	    this.provider = provider;
	    try {
		this.poll = provider.openSelector();
	    } catch(IOException e) {
		/* I think this counts more as an assertion error. */
		throw(new RuntimeException(e));
	    }
	}

	void handle(Watcher w, int evs) {
	    if(!watching.containsKey(w))
		return;
	    try {
		pause(w);
		submit(() -> {
			try {
			    Driver.this.handle(w, evs);
			} finally {
			    resume(w);
			}
		    });
	    } catch(Throwable t) {
		try {
		    synchronized(selectors) {
			remove(w);
		    }
		} catch(Exception e) {
		    t.addSuppressed(e);
		}
		log.log(Level.SEVERE, "unexpected error when submitting event", t);
	    }
	}

	void start() {
	    thread(this).start();
	}

	public void run() {
	    boolean quit = false;
	    Throwable error = null;
	    try {
		double now = time();
		while(true) {
		    long timeout = 0;
		    synchronized(selectors) {
			Double first = timeheap.keypeek();
			if((first == null) && watching.isEmpty()) {
			    quit = true;
			    selectors.remove(provider);
			    return;
			}
			if(first != null)
			    timeout = Math.max((long)Math.ceil((first - now) * 1000), 1);
		    }
		    Collection<SelectionKey> precancelled;
		    synchronized(cancelled) {
			precancelled = new ArrayList<>(cancelled);
		    }
		    if(!precancelled.isEmpty())
			timeout = 1;
		    poll.selectedKeys().clear();
		    try {
			poll.select(timeout);
		    } catch(IOException e) {
			throw(new RuntimeException(e));
		    }
		    if(!precancelled.isEmpty()) {
			synchronized(cancelled) {
			    cancelled.removeAll(precancelled);
			    cancelled.notifyAll();
			}
		    }
		    for(SelectionKey key : poll.selectedKeys())
			handle((Watcher)key.attachment(), key.readyOps());
		    now = time();
		    while(true) {
			Double first = timeheap.keypeek();
			if((first == null) || (first > now))
			    break;
			handle(timeheap.remove(), 0);
		    }
		}
	    } catch(Throwable t) {
		error = t;
		throw(t);
	    } finally {
		if(!quit)
		    log.log(Level.SEVERE, "selector exited abnormally", error);
	    }
	}

	void pause(Watcher w) {
	    if(paused.containsKey(w))
		throw(new IllegalStateException(w + ": already paused"));
	    SelectionKey wc = watching.get(w);
	    Object tc = timeheap.remove(w);
	    if((wc == null) && (tc == null))
		throw(new IllegalStateException(w + ": not registered"));
	    if(wc != null)
		wc.interestOps(0);
	    paused.put(w, this);
	}

	void resume(Watcher w) {
	    if(paused.remove(w) == null)
		return;
	    SelectionKey wc = watching.get(w);
	    int evs = w.events();
	    double timeout = w.timeout();
	    boolean hastime = timeout < Double.POSITIVE_INFINITY;
	    if(evs < 0) {
		remove(w);
		return;
	    }
	    wc.interestOps(evs);
	    if(hastime)
		timeheap.add(w, timeout);
	    poll.wakeup();
	}

	void add(Watcher w, SelectableChannel ch) {
	    if(watching.containsKey(w) || paused.containsKey(w) || timeheap.contains(w))
		throw(new IllegalStateException(w + ": already registered"));
	    try {
		ch.configureBlocking(false);
	    } catch(IOException e) {
		throw(new RuntimeException(ch + ": could not make non-blocking", e));
	    }
	    int evs = w.events();
	    double timeout = w.timeout();
	    boolean hastime = timeout < Double.POSITIVE_INFINITY;
	    if(evs < 0) {
		submit(() -> close(w));
		return;
	    }
	    w.added(Driver.this);
	    try {
		watching.put(w, ch.register(poll, evs, w));
	    } catch(ClosedChannelException e) {
		throw(new RuntimeException("attempted to watch closed channel", e));
	    }
	    if(hastime)
		timeheap.add(w, timeout);
	    poll.wakeup();
	}

	void remove(Watcher w) {
	    SelectionKey wc = watching.remove(w);
	    Object tc = timeheap.remove(w);
	    Object pc = paused.remove(w);
	    if(wc != null) {
		synchronized(cancelled) {
		    cancelled.add(wc);
		    wc.cancel();
		    poll.wakeup();
		    boolean irq = false;
		    while(cancelled.contains(wc)) {
			try {
			    cancelled.wait();
			} catch(InterruptedException e) {
			    irq = true;
			}
		    }
		    if(irq)
			Thread.currentThread().interrupt();
		}
	    }
	    if(((wc != null) || (tc != null)) && (pc != null))
		throw(new RuntimeException(w + ": inconsistent internal state"));
	    if(wc == null)
		throw(new IllegalStateException(w + ": not registered"));
	    submit(() -> close(w));
	}

	void update(Watcher w) {
	    SelectionKey wc = watching.get(w);
	    if(wc == null)
		throw(new IllegalStateException(w + ": not registered"));
	    int evs = w.events();
	    double timeout = w.timeout();
	    boolean hastime = timeout < Double.POSITIVE_INFINITY;
	    if(evs < 0) {
		remove(w);
		return;
	    }
	    wc.interestOps(evs);
	    if(hastime)
		timeheap.set(w, timeout);
	    else
		timeheap.remove(w);
	    poll.wakeup();
	}
    }

    private SelectPool pool(SelectorProvider provider) {
	SelectPool pool = selectors.get(provider);
	if(pool == null) {
	    pool = new SelectPool(provider);
	    selectors.put(provider, pool);
	    pool.start();
	}
	return(pool);
    }

    public void add(Watcher w) {
	SelectableChannel ch = w.channel();
	synchronized(selectors) {
	    pool(ch.provider()).add(w, ch);
	}
    }

    public void remove(Watcher w) {
	SelectableChannel ch = w.channel();
	synchronized(selectors) {
	    pool(ch.provider()).remove(w);
	}
    }

    public void update(Watcher w) {
	SelectableChannel ch = w.channel();
	synchronized(selectors) {
	    pool(ch.provider()).update(w);
	}
    }

    public double time() {
	return(rtime());
    }

    private static final long rtimeoff = System.nanoTime();
    public static double rtime() {
	return((System.nanoTime() - rtimeoff) / 1e9);
    }

    private static Driver global = null;
    public static Driver get() {
	if(global == null) {
	    synchronized(Driver.class) {
		if(global == null)
		    global = new Driver();
	    }
	}
	return(global);
    }

    public static Driver current() {
	Driver ret = current.get();
	if(ret == null)
	    throw(new IllegalStateException("no current driver"));
	return(ret);
    }
}