DIRECTORY AlpineEnvironment, AlpineImport, AlpineZones USING [static], BasicTime USING [earliestGMT, Now], Rope USING [Equal]; AlpineImportMapImpl: MONITOR IMPORTS AlpineZones, BasicTime, Rope EXPORTS AlpineImport = BEGIN head: AlpineImport.Handle _ NIL; Register: PUBLIC ENTRY PROC [server: AlpineEnvironment.FileStore] RETURNS [AlpineImport.Handle] = { handle: AlpineImport.Handle; FOR handle _ head, handle.rest UNTIL handle = NIL DO IF Rope.Equal[s1: handle.first.server, s2: server, case: FALSE] THEN { handle.first.mostRecentRegister _ BasicTime.Now[]; RETURN[handle] }; ENDLOOP; handle _ AlpineZones.static.CONS[rest: head, first: [ server: server, mostRecentBind: BasicTime.earliestGMT, mostRecentRegister: BasicTime.Now[]]]; head _ handle; RETURN[handle]; }; END.--AlpineImportMapImpl όAlpineImportMapImpl.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last edited by MBrown on January 30, 1984 3:18:42 pm PST Hauser, March 7, 1985 2:16:22 pm PST Hauser, March 7, 1985 2:16:09 pm PST Nodified, added copyright. Κ^˜šœ™Icodešœ Οmœ1™<—šœ™Jšœ)™)K™$—˜šΟk ˜ J˜J˜ Jšœ žœ ˜Jšœ žœ˜#Jšœžœ ˜J˜——šœž˜šž˜J˜ J˜ J˜—šž˜J˜ —Jšœž˜J˜Jšœžœ˜ J˜šΟnœžœžœžœ&˜AJšžœ˜ —šœ˜J˜šžœžœ žœž˜4šžœ7žœžœ˜FJ˜2Jšžœ ˜—Jšžœ˜—šœžœ˜5J˜J˜&J˜&—J˜Jšžœ ˜J˜J˜—JšžœΟc˜—™$K™—K™—…—"|