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

SCM Repository

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

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

Parent Directory Parent Directory | Revision Log Revision Log


Revision 369 - (download) (annotate)
Sun Jul 4 12:55:20 1999 UTC (20 years, 3 months ago) by blume
File size: 533 byte(s)
bfc_fetch_xxx bogosity eliminated; more fleshing out of CM
(*
 * A new "era" starts when something substantial happens that potentially
 * invalidates existing pathname elaborations.  This includes system
 * startup, changes to the path configuration, or extensive moving-about
 * of files in the filesystem.
 *
 * Copyright (c) 1999 by Lucent Technologies, Bell Laboratories
 *
 * Author: Matthias Blume (blume@cs.princeton.edu)
 *)
structure Era = struct
    local
	val era = ref (ref ())
    in
	fun newEra () = era := ref ()
	fun thisEra () = !era
	fun isThisEra e = e = !era
    end
end

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