mrun.cpp

#include "mrun.h"


bool Breakpoint::hit(int s, Environment& e) {
  if (step >= 0 && step != s) return false;
  return cond->eval(e).b();
}

int ExecutionContext::breakpoint() {
  Environment& e = envs.back();
  for (int i=0; i<brks.size(); i++)
    if (brks[i].hit(step, e)) return i;
  return 0;
}
  // GOTO, GOSUB, RETURN, TGOTO, FGOTO,
  // PCALL, PRETURN

int ExecutionContext::stepInto() {
  int s = ++step;
  Environment& e = envs.back();
  Ast *a = prog->steps[s];
  switch (a->t) {
    // case GOTO:   step = a->l;
    // case GOTOC:  if (a->c->eval().b()) step = a->l;
    // case GOSUBC: if (a->c->eval().b()) { rets.push_back(step); step = a->l; }
    // case RETURN: step = rets.size()? rets.back() : -1; rets.pop_back();
    // case CALLP:
    //   
    // case 

  }
  return breakpoint();
}