reader/readNewLinkStore.cc

   1 #include "reader/module.ih"
   2
   3 namespace odc {
   4
   5 Store *Reader::readNewLinkStore() {
   6         throw "Reader::readNewLinkStore() not implemented";
   7 }
   8 //              ELSIF kind = newlink THEN
   9 //                      rd.ReadInt(id); rd.ReadInt(comment); rd.ReadInt(next);
  10 //                      rd.st.end := rd.Pos();
  11 //                      IF (next > 0) OR ((next = 0) & ODD(comment)) THEN rd.st.next := rd.st.end + next ELSE rd.st.next := 0 END;
  12 //                      x := ThisStore(rd.sDict, id)
  13
  14 } // namespace odc