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 (22 years, 1 month 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
	val era = ref (ref ())
	fun newEra () = era := ref ()
	fun thisEra () = !era
	fun isThisEra e = e = !era

ViewVC Help
Powered by ViewVC 1.0.0