-- VultureDefs.mesa
-- Maurice Herlihy August 12, 1982
-- Everything you need to know about Grapevine archive files.
-- Mostly taken from [indigo]<Grapevine>MS>Spiller.mesa

DIRECTORY
    BodyDefs,
    Space,
    VMDefs;

VultureDefs: DEFINITIONS = {

    DirEntry: TYPE = MACHINE DEPENDENT RECORD[
        bodyStart:  LONG CARDINAL,            -- words from start of file; 0 for deleted --
        bodyLength: LONG CARDINAL,        -- words --
        textStart:  LONG CARDINAL,            -- words from start of file, for MTP --
        textLength: BodyDefs.ItemLength        -- bytes, for MTP -- 
         ];
    
    Directory: PUBLIC TYPE = LONG POINTER TO DirEntry;

    DirHeader: TYPE = MACHINE DEPENDENT RECORD[spare: CARDINAL];

    entriesPerPage:  INT = (VMDefs.pageSize-SIZE[DirHeader]) / SIZE[DirEntry];

    DirPageContents: TYPE = MACHINE DEPENDENT RECORD[
         header: DirHeader, entries: ARRAY [0..entriesPerPage) OF DirEntry ];

    DirPage: TYPE = LONG POINTER TO DirPageContents;

    DirArray: TYPE = ARRAY [0..LAST[CARDINAL]] OF DirPageContents;
    DirPages: TYPE = LONG POINTER TO DirArray;

    }.