Annotation of /sml/trunk/src/cm/paths/era.sml

Parent Directory | Revision Log

---

Revision 369 - (view) (download)

1 :	blume	369	(*
2 :			* A new "era" starts when something substantial happens that potentially
3 :			* invalidates existing pathname elaborations. This includes system
4 :			* startup, changes to the path configuration, or extensive moving-about
5 :			* of files in the filesystem.
6 :			*
7 :			* Copyright (c) 1999 by Lucent Technologies, Bell Laboratories
8 :			*
9 :			* Author: Matthias Blume (blume@cs.princeton.edu)
10 :			*)
11 :			structure Era = struct
12 :			local
13 :			val era = ref (ref ())
14 :			in
15 :			fun newEra () = era := ref ()
16 :			fun thisEra () = !era
17 :			fun isThisEra e = e = !era
18 :			end
19 :			end

---

root@smlnj-gforge.cs.uchicago.edu	ViewVC Help
Powered by ViewVC 1.0.0