Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Annotation of /sml/trunk/src/cm/paths/era.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 651 - (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