<> <> <> <> DIRECTORY IFSFilePrivate USING [IORequest, IORequestBlock]; IFSFileImplD: MONITOR EXPORTS IFSFilePrivate = BEGIN OPEN IFSFilePrivate; <> freeList: IORequest; <> InitializeFreeList: PUBLIC PROC = { freeList _ NIL; }; FinalizeFreeList: PUBLIC PROC = { UNTIL freeList = NIL DO request: IORequest _ freeList; freeList _ freeList.link; request.link _ NIL; ENDLOOP; }; GetIORequestBlock: PUBLIC ENTRY PROC RETURNS [request: IORequest] = { IF freeList ~= NIL THEN {request _ freeList; freeList _ request.link} ELSE request _ NEW[IORequestBlock]; }; FreeIORequestBlock: PUBLIC ENTRY PROC [request: IORequest] = { request.link _ freeList; freeList _ request; }; END.