// 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 ]