--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCSMCacheRepository.st	Wed Nov 22 14:22:43 2006 +0100
@@ -0,0 +1,106 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+MCFileBasedRepository subclass:#MCSMCacheRepository
+	instanceVariableNames:'smCache'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Repositories'
+!
+
+MCSMCacheRepository comment:'I am a Monticello repository that reflects the caching of SqueakMap v2.
+
+I refer write attempts to the default MCCacheRepository.'
+!
+
+
+!MCSMCacheRepository class methodsFor:'instance creation'!
+
+description
+	^ 'SqueakMap Cache'
+!
+
+morphicConfigure
+	^self new
+! !
+
+!MCSMCacheRepository methodsFor:'accessing'!
+
+allFileNames
+	^self allFullFileNames collect: [ :ea | self directory localNameFor: ea ]
+!
+
+allFullFileNames
+	| cachedPackages |
+	cachedPackages _ smCache map installedPackages select: [ :ea | ea isCached ].
+	^Array streamContents: [ :s |
+		cachedPackages do: [ :ea | | d |
+			d _ ea cacheDirectory.
+			(d fileNamesMatching: '*.mcz') do: [ :fn | s nextPut: (d fullNameFor: fn) ]]]
+!
+
+description
+	^ smCache directory pathName
+!
+
+directory
+	^ smCache directory
+!
+
+directory: aDirectory
+!
+
+fullNameFor: aFileName
+	^self allFullFileNames detect: [ :ffn | (self directory localNameFor: ffn) = aFileName ] ifNone: []
+!
+
+smCache
+	^smCache
+!
+
+smCache: aSMFileCache
+	| |
+	smCache := aSMFileCache.
+	self directory: aSMFileCache directory.
+! !
+
+!MCSMCacheRepository methodsFor:'comparing'!
+
+hash
+	^ smCache hash
+! !
+
+!MCSMCacheRepository methodsFor:'file streaming'!
+
+readStreamForFileNamed: aString do: aBlock
+	| file fileName |
+	fileName _ self fullNameFor: aString.
+	fileName ifNil: [
+		"assume that this will come from the cache."
+		^MCCacheRepository default readStreamForFileNamed: aString do: aBlock ].
+	file _ FileStream readOnlyFileNamed: fileName.
+	^[ aBlock value: file ] ensure: [ file close ].
+!
+
+writeStreamForFileNamed: aString replace: aBoolean do: aBlock
+	"Can't write into the SM cache, so..."
+	^MCCacheRepository default writeStreamForFileNamed: aString replace: aBoolean do: aBlock
+! !
+
+!MCSMCacheRepository methodsFor:'initialize-release'!
+
+initialize
+	super initialize.
+	smCache _ SMSqueakMap default cache.
+! !
+
+!MCSMCacheRepository methodsFor:'testing'!
+
+isValid
+	^smCache notNil and: [ self directory exists ]
+! !
+
+!MCSMCacheRepository class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSMCacheRepository.st,v 1.1 2006-11-22 13:22:43 cg Exp $'
+! !