-- VultureOps.mesa-- Scavanger for Mail Archive files.-- Maurice Herlihy August 7, 1982DIRECTORY	BodyDefs,	Rope,	Space,	VultureDefs;VultureOps: DEFINITIONS	IMPORTS Rope, Space, BodyDefs	= {			-- Public types.	Item: TYPE = LONG POINTER TO BodyDefs.ItemHeader;		-- Opaque types	ItemStream: TYPE = REF ItemStreamRep;	ItemStreamRep: TYPE;	DirStream: TYPE = REF DirStreamRep;	DirStreamRep: TYPE;		ROPE: TYPE = Rope.ROPE;EndOfStream:  ERROR;BadFormat: ERROR;OpenDirStream: PROC [space: Space.Handle] RETURNS [dirstream: DirStream] -- Signals EndOfStream --;-- Creates a DirStream from given space. EndOfStream => file VERY broken.NextDirectory: PROC [dirSteam: DirStream] RETURNS [directory: VultureDefs.Directory]	-- Signals EndOfStream --;CloseDirStream: PROC [dirSteam: DirStream];-- Mark any unseen directories as deleted.OpenItemStream: PROC [space: Space.Handle] RETURNS [ItemStream]-- Signals EndOfStream --;-- Creates an item stream from given space.NextItem: PROC [stream: ItemStream] RETURNS [item: Item] -- Signals EndOfStream, BadFormat --;FindPostmark: PROC [stream: ItemStream] RETURNS [INT] -- Signals EndOfStream --;NoMoreItems: PROC [stream: ItemStream] RETURNS [BOOL];ParseItem: PUBLIC PROC [item: Item] RETURNS [ROPE];Reset: PUBLIC PROC [stream: ItemStream, address: INT] -- signals EndOfStream--;Current: PUBLIC PROC [stream: ItemStream] RETURNS [INT]; 	}.    №  -- Return next directory in stream.-- Returns next item in stream.-- Moves stream ahead to next apparent postmark item.-- Any items left in the stream?-- Prints item type.-- Sets current stream address to address.-- Current stream addressЭ╩╬  Ц"Mesa" styleШ procЪ&╧cZЬ╧k	Ь6ЮЬЮЬ ЭЬЮЬЮЬЮЬЮЬЭЬЮЬЮЬ ЮЬЮЬЮЬЮЬЮЬЮЬЮЬШ╖KЪЬЮЬШKЪЬЮЬШЪ╨bnЬЮЬЮЬЭЬШcKЪЭЬ	Э3ШIЧЪЯЬЮЬЮЬ%ЭЬШpKЪЭ#Щ#ЧЪЯЬЮЬШ+KЪЭ+Ш+ЧЪЯЬЮЬЮЬЭШYKЪЭ,Ш,ЧЪЯЬЮЬЮЬЭ$ЬШ^KЪЭ Щ ЧЪ
ЯЬЮЬЮЬЮЬЭЬШPKЪЭ5Щ5ЧЪЯЬЮЬЮЬЮЬШ6KЪЭ Щ ЧЪ
╧n	ЬЮЬЮЬЮЬЮЬШ3KЪЭЩЧЪ
аЬЮЬЮЬЮЬЭЬШOKЪЭ*Щ*ЧЪ
аЬЮЬЮЬЮЬЮЬШ8KЪЭЩЧЧKЪЬШЧ ЕЧ    И  R  