!7

module LLtoNL > DynRecordingTextArea {
  S output;
  transient S calcedInput;
  transient ReliableSingleThread rstCalc;
  
  visualize {
    ret jvsplit(
      jSection("INPUT (LL)", super.visualize()),
      jSection("OUTPUT (NL)", dm_fieldTextArea('output)));
  }
  
  start {
    doEvery(0.5, rstCalc = dm_rst(this, r calc));
  }
  
  void calc enter {
    if (neq(text, calcedInput)) {
      calcedInput = text;
      new LS out;
      final new MultiMap<S, LS> definitions;
      for (S s : tlft(text)) {
        LS tok = javaTokWithAllBrackets(s);
        continue unless isSquareBracketed(second(tok));
        S id = second(tok);
        tok = subList(tok, 2);
        if (eq(":", second(tok))) tok = subList(tok, 2);
        clearToken(tok, 0);
        definitions.put(id, tok);
        //out.add(join(tok));
      }
      //out.add("Keys: " + keys(definitions));
      out.addAll(map joinIfStringList(getEmits(r { render(definitions) })));
      setField(output := lines(out));
    }
  }
  
  void render(MultiMap<S, LS> definitions) {
    definitions = mapMultiMapValues(definitions, func(LS tok) -> LS {
      new Matches m;
      if (matchStart("there is", tok, m))
        ret javaTokWithAllBrackets(m.rest());
      ret tok;
    });

    LL<S> bla = definitions.get("[1]");
    if (l(bla) < 2) ret;
    
    // Make the first line
    
    LS line = concatLists(
      ll(dropSuffixICTrim("(definition)", join(first(bla))),
        " means: "), second(bla));
    emit(join(line));
    
    for i to 10: {
      LS line2 = expandLine(line, definitions);
      if (line2 == null) break;
      emit(join(line2));
      line = line2;
    }
  }
  
  // Expand [2] etc. in the line
  LS expandLine(LS line, MultiMap<S, LS> definitions) {
    new LS line2;
    for (S s : line) {
      LS def = last(definitions.get(s));
      if (def != null)
        line2.addAll(def);
      else
        line2.add(s);
    }
    ret eq(join(line), join(line2)) ? null : line2;
  }
}