!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;

  }

}