!7

static void tok_recordDecls(L<S> tok) {

  int i;

  bool re = false;

  while ((i = jfind(tok, "record <id>(")) >= 0) {

    int argsFrom = i+6, argsTo = findCodeTokens(tok, i, false, ")");

    int idx = findCodeTokens(tok, argsTo, false, "{");

    int j = findEndOfBracketPart(tok, idx);

    S name = tok.get(i+2);

    bool noEq = eq(get(tok, i-2), "noeq");

    if (noEq) tok.set(i-2, "");

    bool noToString = eq(get(tok, i-2), "noToString");

    if (noToString) tok.set(i-2, "");

    new StringBuilder buf;

    L<S> tArgs = subList(tok, argsFrom-1, argsTo);

    L<Pair<S>> args = tok_typesAndNamesOfParams(tArgs);

    L<S> contents = subList(tok, idx+1, j);

    for (Pair<S> p : args)

      buf.append("\n  " + jreplace(p.a, "...", "[]") + " " + p.b + ";");

    buf.append("\n  *() {}");

    buf.append("\n  *(" + joinWithComma(map(args, func(Pair<S> p) -> S {

      dropPrefix("new ", p.a) + " *" + p.b })) + ") {}");

    if (!noToString && !(jfind(contents, "toString {") >= 0 || jfind(contents, "toString()") >= 0))

      buf.append("\n  toString { ret " 

        + quote(name + "(")

        + " + "

        + join([[ + ", " + ]], secondOfPairs(args))

        + " + \")\"; }");

    if (!noEq) {

      //buf.append("\n  [stdEq]");

      buf.append(tok_genEqualsAndHashCode(name, args));

    }

    tok.set(idx, "{" + buf);

    tok.set(i, "class");

    clearTokens(tok, argsFrom-2, argsTo+1);

    reTok(tok, i, idx+1);

    tok_addFieldOrder(tok, i);

    set re;

  }

  if (re) reTok(tok);

}

static bool allVarNames_debug = true;

static L<S> allVarNames(L<S> tok) {

  print(join(tok));

  bool debug = allVarNames_debug;

  Map<Int, Int> bracketMap = getBracketMap(tok);

  new L<S> varNames;

  for (int i = 3; i < tok.size(); i += 2) {

    S t = tok.get(i);

    print("Got token: " + t);

    if (eqOneOf(t, "=", ";", ",")) {

      S v = tok.get(i-2);

      if (isIdentifier(v))

        varNames.add(v);

      if (eq(t, "=")) {

        i = scanToEndOfInitializer(tok, bracketMap, i)+1;

        assertTrue(odd(i));

      }

    } else if (eq(t, "<")) {

      i = findEndOfTypeArgs(tok, i)+1;

      if (debug)

        print("Skipped type args: " + struct(subList(tok, i)));

    } else if (eqOneOf(t, "{", "(")) {

      int j = findEndOfBracketPart(tok, i)-1; // skip function/class bodies

      if (debug) print("Skipping body " + (j-i)/2);

      i = j;

    }

  }

  return varNames;

}

p-exp {

  LS tok = javaTok([[record Definition(S word, S definition) {}]]);

  tok_recordDecls(tok);

  print(join(tok));

  assertTrue(join(tok).contains([[_fieldOrder = "word definition"]]));

  print("OK");

}