// IfsLookupFileRes.bcpl -- low-cost file cache validation for CIFS
// Copyright Xerox Corporation 1982
// Last modified July 24, 1982  5:19 PM by Taft

get "IfsLookupFileServ.decl"
get "Pup1.decl"

external
[
// outgoing procedures
LookupFileEvent

// incoming procedures
HandleLookupFilePBI
Dequeue; QueueEvent

// outgoing statics
lfs

// incoming statics
]

static [ @lfs = 0 ]

//----------------------------------------------------------------------------
let LookupFileEvent(ecb) be
//----------------------------------------------------------------------------
[
while lfs>>LFS.soc>>PupSoc.iQ.head ne 0 do
   HandleLookupFilePBI(Dequeue(lv lfs>>LFS.soc>>PupSoc.iQ))
QueueEvent(ecb, 10)  // 100 ms
]