!752

static L<S> thescript = toLinesFullTrim([[
  match("Hi Eleutheria");
  say("Hi there!");
  match("Hi Eleutheria");
  say("You have said that before :)");
]]);

static class PerUser {
  S dialogID;
  long position;
}

static new Map<S, PerUser> perUserMap;
static new ThreadLocal<PerUser> puCurrent;

static O mainBot;
  
p {
  load("perUserMap");
  makeBot("A Dialog Bot");
  printList(thescript);
}

// does not increase the index
static FC parseFunctionCall() {
  ret parseFunctionCall(currentScriptLine());
}

static S currentScriptLine() {
  int idx = (int) (u().position % l(thescript));
  ret thescript.get(idx);
}

synchronized answer {
  S dialogID = cast call(mainBot, "getDialogID");
  if (dialogID == null) ret null; // need a dialog id now
  PerUser pu = perUserMap.get(dialogID);
  if (pu == null) {
    pu = new PerUser;
    pu.dialogID = dialogID;
    printFormat("Created new dialog: *", dialogID);
    perUserMap.put(dialogID, pu);
  }
  puCurrent.set(pu);
  
  int safety = 0;
  while (safety++ < 1000) try {
    FC fc = parseFunctionCall();
    S f = fc.f;
    if (eq(f, "match")) {
      S pat = getString(fc.args, 0);
      if (!match(pat, s, m)) {
        softFail("I only understand: *", pat);
        null;
      }
      nextPosition(); // only after match succeeds, otherwise stay at that point
    } else if (eq(f, "say")) {
      nextPosition();
      S answer = getString(fc.args, 0);
      ret answer;
    } else
      throw fail("Unknown function in script: *", fc.f);
  } catch (Throwable e) {
    printFormat("Was parsing: *", currentScriptLine());
    throw asRuntimeException(e);
  }
  fail("hard limit reached - 1000 script lines at once - possible endless loop?");
}

// a parsed function call
static class FC {
  int idx; // index of next token
  S f;
  new L args;
}

static FC parseFunctionCall(S s) {
  L<S> tok = javaTok(s);
  new FC fc;
  fc.f = assertIsIdentifier(tok.get(1));
  int i = 5;
  assertEquals("(", tok.get(3));
  while (i < l(tok) && !eq(tok.get(i), ")")) {
    fc.args.add(unquote(tok.get(i)));
    i += 2;
    if (tok.get(i).equals(",")) // otherwise it's kinda mangled, eh. well! we just keep on parsing...
      i += 2;
  }
  if (eq(tok.get(i), ")")) // we even allow a missing closing bracket!
    i += 2;
  fc.idx = i; // save index so some other parser can continue parsing
  ret fc;
}

static void nextPosition() {
  ++u().position;
  save("perUserMap");
  print("Position in script now: " + u().position % l(thescript));
}

// get per-user data for current thread
static PerUser u() {
  ret puCurrent.get();
}

Began life as a copy of #1002205