reader/readLinkStore.cc

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