<br />
<b>Warning</b>:  session_start(): open(/var/lib/php/sessions/sess_e0j2enn9t8gbq6rb191i7vi0co, O_RDWR) failed: No space left on device (28) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
<br />
<b>Warning</b>:  session_start(): Failed to read session data: files (path: /var/lib/php/sessions) in <b>/var/www/tb-usercake/models/config.php</b> on line <b>51</b><br />
!7

cprint CompressorSpike {
  switchable S snippetID = #1020763;
  LinkedHashMap<S> versions;
  
  start-thread {
    print("Snippet ID: " + snippetID);
    dm_onFieldChange snippetID(r { setField(versions := null); dm_reload() });
    if (versions == null) {
      versions = mapToLinkedHashMap(textChangesOfSnippet(snippetID), sv -> pair(str(sv.versionID), sv.previousValue));
      versions.put("latest", loadSnippet(snippetID));
      versions = mapValuesToLinkedHashMap toLinesAndBack(versions); // canonicalize line breaks
      change();
    }
    print("Have " + nVersions(versions) + " with a total of " + nLines(totalLineCount(values(versions))));
    
    new Compressor().run();
  }
  
  abstract sclass Chunk {}
  srecord CPair(int i1, int i2) > Chunk {}
  srecord CPrim(S s) > Chunk {}
  
  class Compressor {
    Map<S, LS> textIDToLines = mapValuesToLinkedHashMap lines(versions);
    LS allUniqueLines;
    new L<Chunk> chunks;
    Map<S, Int> lineIndex;
    
    run {
      allUniqueLines = uniquify(concatLists(values(textIDToLines)));
      for (S line : allUniqueLines)
        chunks.add(new CPrim(line));
      lineIndex = listIndex(collect s(chunks));
      for (S id, lines : textIDToLines) {
        print(id + ": " + joinWithSpace(map(lines, line -> lineIndex.get(line))));
      }
    }
  }
}