!7

set flag DynModule. // for transpilation

sclass BottomUpParser > DynPrintLogWithInput {
  transient S lastOutput;
  
  start {
    dm_useLocallyCopiedMechLists(); set flag NoFancyMechParsing.
    ai_parser_activateStandardFunctions();
    doEvery(5000, r { if (dm_isShowingAndOSInForeground()) update(inputChooser.input()) });
  }
  
  void update(fS s) {
    temp enter();
    
    S rendered = hijackPrint(r {
      print("\n> " + s + "\n");
      PTElement root = ai_parseToTreeWithGuessing(s); //ai_parseBottomUpToTree(s);
      if (root == null) ret with print("No parse");
      print("Have parse: " + className(root) + " - " + root);
      
      print("SIMPLIFIED > " + ai_parseTree_simplifiedText(root));
      print();
      
      Collection<S> all = ai_parseTree_simplifiedTexts(root);
      pnl(all);
    });

    bool shouldPrint = neq(rendered, lastOutput);
    lastOutput = rendered;
    if (shouldPrint) print(rendered);
  }
}