package orc.trace;

import orc.error.SourceLocation;
import orc.error.runtime.TokenException;
import orc.trace.events.BeforeEvent;
import orc.trace.events.Event;
import orc.trace.events.PullEvent;
import orc.trace.events.StoreEvent;

/**
 * Wrap a tracer to ignore all but the events essential to reconstruct
 * the trace using the same (deterministic) engine. The necessary events are:
 * <ul>
 * <li>fork: to match the thread structure
 * <li>receive: to record the timing and value of site responses
 * <li>die: to record tokens killed during site calls
 * <li>error: to record token errors during site calls
 * </ul>
 * 
 * @author quark
 */
public class MinimizeTracer extends DerivedTracer {
	private boolean inSend = false;
	public MinimizeTracer(Tracer tracer) {
		super(tracer);
	}

	@Override
	public void after(BeforeEvent before) {}

	@Override
	public BeforeEvent before() {
		return null;
	}

	@Override
	public void block(PullEvent pull) {}

	@Override
	public void choke(StoreEvent store) {}

	@Override
	public void print(String value, boolean newline) {}

	@Override
	public void publish(Object value) {}

	@Override
	public PullEvent pull() {
		return null;
	}

	@Override
	public void setSourceLocation(SourceLocation location) {}

	@Override
	public StoreEvent store(PullEvent event, Object value) {
		return null;
	}

	@Override
	public void unblock(StoreEvent store) {}

	@Override
	public void send(Object site, Object[] arguments) {
		inSend = true;
	}

	@Override
	public void receive(Object value) {
		super.receive(value);
		inSend = false;
	}

	@Override
	public void die() {
		if (inSend) super.die();
	}

	@Override
	public void error(TokenException error) {
		if (inSend) super.error(error);
	}
}

@@ -1719,11 +1719,93 @@
 ror);%0A%09%7D
+%0A%0A%09@Override%0A%09public Tracer fork() %7B%0A%09%09return new MinimizeTracer(super.fork());%0A%09%7D
 %0A%7D%0A

Fix bug with MinimizeTracer.