!7

static int linesToLookAt = 10;

sS rules = [[
  Fire once: (Text is X) => (for each token Y in X: contains token Y)
  Fire once: contains token "{" => It's a method
]];

sS bla = [[
  wrqnygxvjvtpyiwc - Fire once: X
  wziyypnyayfphdxs - (X) => (Y)
  chkfkshhwshoauan - X => Y
  jfucnngqsmgrrgdm - for each token X in Y: Z
  yrzzucwknlfazxnb - Line X is Y.
  ljlpioyodpulgpid - Text is X
  egulideahjsbmivq - contains token X
  nizymecojotccctz - It's a method
  qmyuofoszplvpdpt - Rule fired: X
]];

p {
  centerBigTTConsole();
  myTruth(bla);
  aiStandardHandlers();
  
  // for each token X in Y: Z
  addAlwaysRuleHandler("jfucnngqsmgrrgdm", voidfunc(Lisp l) {
    S tokenVar = l.raw(0), text = l.unq(1);
    Lisp out = l.get(2);
    S ruleID = applyAlwaysRules_ruleID();
    print("for each: " + text + " => " + out);
    for (S token : javaTokC(text))
      emit(lispReplaceVars(out, litmap(tokenVar, lisp(token))), ruleID);
    unemit(ruleID);
  });
  
  L<S> lines = toLines(getServerTranspilation(#1008203));
  lines = takeFirst(linesToLookAt, [S line : lines | eq(firstJavaToken(line), "static")]);
  //printNumberedLines(lines);
  for (S line : lines)
    if (lispBackwardRaw("yrzzucwknlfazxnb", quote(line)) == null)
      emit(lisp("yrzzucwknlfazxnb", aGlobalID(), quote(line)));
  L<Lisp> parsedRules = linesToLisp(rules);
  for (Lisp lineIs : lispTruth2("yrzzucwknlfazxnb")) {
    S id = lineIs.raw(0);
    S text = lineIs.unq(1);
    ThoughtSpace ts = getOrAddThoughtSpace(id);
    ts.addStatement(lisp("ljlpioyodpulgpid", quote(text)));
    ts.addStatements(parsedRules);
    processRules(ts);
  }
  printThoughtSpaces/*_englishOnly*/();
}

svoid processRules(ThoughtSpace ts) {
  withThoughtSpace(ts, r {
    applyAlwaysRules(100);
    // Delete intermediate stuff
    unemitHeads("wrqnygxvjvtpyiwc", "egulideahjsbmivq");
  });
}