!7

sclass SmoothHTMLTemplater {
  // input
  S template;

  // internal
  LS tok;
  L<IntRange> commentRanges;
  LS comments;
  
  *() {}
  *(S *template) {}
  
  srecord Replacement(S exampleValue, S actualValue) {
    S replaceIn(S text) {
      ret replace(text, exampleValue, actualValue);
    }
  }
  
  S render() {
    tok = htmlTok(template);
    commentRanges = charRangesOfHTMLComments(template);
    comments = map(commentRanges, r -> htmlCommentContents(substring(template, r)));
    new Matches m;
    new LPair<IntRange, S> replacements;
    for i over comments: {
      S comment = comments.get(i);
      if (match("start * block", comment, m)) {
        S type = $1;
        S endPat = format3("end * block", type);
        int j = indexOfMatches(endPat, comments, i+1);
        if (j < 0) continue with warn("End of block comment not found: " + endPat);
        if (!isEntity(type)) continue with print("Not an entity: " + type);
        LL<Replacement> entries = getEntries(type);
        IntRange r1 = commentRanges.get(i), r2 = commentRanges.get(j);
        
        S contents = substring(template, r1.end, r2.start);
        addPair(replacements, intRange(r1.end, r2.start),
          lines(map(entries, entry -> rewriteEntry(contents, entry))));
        i = j;
      }
    }
    ret replaceCharRanges(template, replacements);
  }

  bool isEntity(S type) { true; }
  
  // TODO: avoid multi-replacements
  S rewriteEntry(S text, L<Replacement> entry) {
    fOr (Replacement r : entry)
      text = r.replaceIn(text);
    ret text;
  }
  
  LL<Replacement> getEntries(S type) {
    null;
  }
}

cmodule2 TemplaterTest > DynPrintLogAndWeb {
  set flag NoNanoHTTPD.
  !include #1029545 // API for Eleu

  S html(IWebRequest req) {
    S template = loadPage("https://pays5.com/text/2559");
    SmoothHTMLTemplater templater = new(template);
    ret templater.render();
  }
}