!7

static withToList record Did$HappenBefore$(O event1, O event2) {}
static withToList record WhenDid$Happen(O event) {}
static withToList record $HappensAtSecond$(O event, O y) {}

static cached L<Class> recordClasses() { ret (L) myNonAbstractClassesImplementing(IFieldsToList); }

static cached LPair<Class, S> classesAndPatterns() {
  ret map(recordClasses(),
    c -> pair(c, dollarsToStarsAndSplitCamelCase(classNameRelativeToMC(c))));
}

sO parseArg(S s) { ret isInteger(s) ? parseInt(s) : s; }

sO parse(S s) {
  new Matches m;
  for (Pair<Class, S> p : classesAndPatterns()) {
    if (match3_plusBrackets_uncurly(p.b, s, m))
      ret nuObject(p.a, mapToObjectArray parseArg(m.m));
  }
  null;
}

p-exp {
  pnl(pairsB(classesAndPatterns()));
  testFunctionValues parse(
    "Did X happen before Y?" := Did$HappenBefore$("X", "Y"),
    "when did Z happen" := WhenDid$Happen("Z"),
    "{event 1} happens at second 100" := $HappensAtSecond$("event 1", 100)
  );
}

Began life as a copy of #1025431