1 #include "reader/module.ih"
5 Store
*Reader::readLinkStore() {
6 throw "Reader::readLinkStore() not implemented";
8 // ELSIF kind = link 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.eDict, id)