srecord noeq LCMerger(LineCompReader lc1, LineCompReader lc2) { new LineCompReader lcOut; Map pairIndex; Map literalIndex; new Map lc2map; int newLiterals; // number of literals added compared to lc1 int newPairs; run { lcOut.byteMode = lc1.byteMode; pairIndex = indexList(lc1.pairs); literalIndex = indexList(lc1.literals); // make lcOut.literals & literalIndex lcOut.literals = cloneList(lc1.literals); for (int i = 0; i < l(lc2.literals); i++) { S c = lc2.literals.get(i); Int iLit = literalIndex.get(c); if (iLit == null) { iLit = addAndReturnIndex(lcOut.literals, c); literalIndex.put(c, iLit); } lc2map.put(i, iLit); } newLiterals = l(lcOut.literals)-l(lc1.literals); // clone lc1.pairs into lcOut.pairs, add lc2.pairs new Map map2; lcOut.pairs = map(lc1.pairs, p -> intPair(adjust1(p.a), adjust1(p.b))); for (int i = 0; i < l(lc2.pairs); i++) { IntPair p = lc2.pairs.get(i); Int iPair = pairIndex.get(p); if (iPair == null) { // new pair iPair = addAndReturnIndex(lcOut.pairs, p); pairIndex.put(p, iPair); } lc2map.put(l(lc2.literals)+i, l(lcOut.literals)+iPair); } newPairs = l(lcOut.pairs)-l(lc1.pairs); // copy files lcOut.versions = new LinkedHashMap; for (S name, L encoding : lc1.versions) { lcOut.versions.put(name, lmap adjust1(encoding)); } for (S name, L encoding : lc2.versions) { if (lcOut.versions.containsKey(name)) continue with print("Warning: Duplicate file name " + name); lcOut.versions.put(name, lmap adjust2(encoding)); } } // convert symbols from lc1 to lcOut int adjust1(int i) { if (i >= l(lc1.literals)) if (i >= l(lc1.literals)+l(lc1.pairs)) ret i+newLiterals+newPairs; else ret i+newLiterals; ret i; } int adjust2(int i) { ret lookupOrKeep(lc2map, i); } }