Add GitDirectoryAssetLoader and GitMCRepositoryAssetLoader

src/Squot.package/GitDirectoryAssetLoader.class/class/newWithName.on..st

@@ -0,0 +1,5 @@
+instance creation
+newWithName: aString on: anFSReference
+	^ (self newWithName: aString)
+		directory: anFSReference;
+		yourself

src/Squot.package/GitDirectoryAssetLoader.class/instance/assetAt..st

@@ -0,0 +1,3 @@
+accessing
+assetAt: aPath
+	^ self assetsCache at: aPath ifAbsentPut: [self readAsset: aPath]

src/Squot.package/GitDirectoryAssetLoader.class/instance/assetFSPaths.st

@@ -0,0 +1,3 @@
+accessing
+assetFSPaths
+	^ self mappers keys

src/Squot.package/GitDirectoryAssetLoader.class/instance/assetsCache..st

@@ -0,0 +1,3 @@
+accessing
+assetsCache: aDictionary
+	assetsCache := aDictionary.

src/Squot.package/GitDirectoryAssetLoader.class/instance/assetsCache.st

@@ -0,0 +1,3 @@
+accessing
+assetsCache
+	^ assetsCache

src/Squot.package/GitDirectoryAssetLoader.class/instance/directory..st

@@ -0,0 +1,3 @@
+accessing
+directory: anFSReference
+	directory := anFSReference

src/Squot.package/GitDirectoryAssetLoader.class/instance/directory.st

@@ -0,0 +1,3 @@
+accessing
+directory
+	^ directory

src/Squot.package/GitDirectoryAssetLoader.class/instance/initialize.st

@@ -0,0 +1,4 @@
+initialize-release
+initialize
+	super initialize.
+	self assetsCache: Dictionary new.

src/Squot.package/GitDirectoryAssetLoader.class/instance/mapperAt..st

@@ -0,0 +1,3 @@
+accessing
+mapperAt: aPath
+	^ self mappers at: aPath ifAbsent: [nil]

src/Squot.package/GitDirectoryAssetLoader.class/instance/mappers.st

@@ -0,0 +1,3 @@
+accessing
+mappers
+	^ mappersCache ifNil: [mappersCache := self readMappers].

src/Squot.package/GitDirectoryAssetLoader.class/instance/readAsset..st

@@ -0,0 +1,6 @@
+accessing
+readAsset: aPath
+	"Ideally, we could use SquotAssetMapper>>loadVersionFrom: here, but that takes a FileSystem
+	that is rooted at the repository root. We can't easily provide that, since the asset is stored on
+	disk and the disk FileSystem is not rooted at the repository root."
+	^ self readStreamOn: aPath do: [:stream | ((self mapperAt: aPath) ifNil: [^ nil]) readVersionFrom: stream]

src/Squot.package/GitDirectoryAssetLoader.class/instance/readMappers.st

@@ -0,0 +1,9 @@
+accessing
+readMappers
+	"Ideally, we could use SquotMappersMapper>>loadMappersFromFileSystem: here, but that takes a FileSystem
+	that is rooted at the repository root. We can't easily provide that, since the asset is stored on
+	disk and the disk FileSystem is not rooted at the repository root."
+	^ Dictionary newFrom:
+		(((self readStreamOn: SquotMappersMapper path do: [:stream | STON fromStream: stream])
+			select: [:each | each isKindOf: SquotAssetMapper])
+			collect: [:each | each path -> each])

src/Squot.package/GitDirectoryAssetLoader.class/instance/readStreamOn.do..st

@@ -0,0 +1,3 @@
+accessing
+readStreamOn: aPath do: aBlock
+	^ (self directory resolve: (aPath relativeTo: FSPath root)) readStreamDo: aBlock

src/Squot.package/GitDirectoryAssetLoader.class/methodProperties.json

@@ -0,0 +1,16 @@
+{
+	"class" : {
+		"newWithName:on:" : "mad 6/12/2024 15:37" },
+	"instance" : {
+		"assetAt:" : "mad 6/12/2024 15:32",
+		"assetFSPaths" : "mad 6/12/2024 15:36",
+		"assetsCache" : "mad 6/12/2024 15:54",
+		"assetsCache:" : "mad 6/12/2024 15:54",
+		"directory" : "mad 6/12/2024 15:48",
+		"directory:" : "mad 6/12/2024 15:48",
+		"initialize" : "mad 6/12/2024 15:54",
+		"mapperAt:" : "mad 6/12/2024 15:35",
+		"mappers" : "mad 6/12/2024 15:33",
+		"readAsset:" : "mad 6/12/2024 16:30",
+		"readMappers" : "mad 6/12/2024 16:31",
+		"readStreamOn:do:" : "mad 6/12/2024 16:21" } }

src/Squot.package/GitDirectoryAssetLoader.class/properties.json

@@ -0,0 +1,16 @@
+{
+	"category" : "Squot-Mapper-Asset",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"directory",
+		"mappersCache",
+		"assetsCache" ],
+	"name" : "GitDirectoryAssetLoader",
+	"pools" : [
+		 ],
+	"super" : "GitNamedAssetLoader",
+	"type" : "normal" }

src/Squot.package/GitMCRepositoryAssetLoader.class/class/newWithName.on..st

@@ -0,0 +1,5 @@
+as yet unclassified
+newWithName: aString on: aRepository
+	^ (self newWithName: aString)
+		repository: aRepository;
+		yourself

src/Squot.package/GitMCRepositoryAssetLoader.class/class/scanFor.ifAbsent..st

@@ -0,0 +1,9 @@
+as yet unclassified
+scanFor: aString ifAbsent: aBlock
+	| repository |
+	repository := MCRepositoryGroup default repositories
+		detect: [:each |
+			(each isKindOf: MCFilesystemFetchOnlyRepository)
+				and: [each projectPath endsWith: '/', aString]]
+		ifNone: [^ aBlock value].
+	^ self newWithName: aString on: repository

src/Squot.package/GitMCRepositoryAssetLoader.class/instance/directory.st

@@ -0,0 +1,6 @@
+accessing
+directory
+	self directory: (self repository
+		projectDirectoryFrom: self repository projectPath
+		version: self repository projectVersion) asFSReference.
+	^ super directory

src/Squot.package/GitMCRepositoryAssetLoader.class/instance/repository..st

@@ -0,0 +1,3 @@
+accessing
+repository: anMCFilesystemFetchOnlyRepository
+	repository := anMCFilesystemFetchOnlyRepository

src/Squot.package/GitMCRepositoryAssetLoader.class/instance/repository.st

@@ -0,0 +1,3 @@
+accessing
+repository
+	^ repository

src/Squot.package/GitMCRepositoryAssetLoader.class/methodProperties.json

@@ -0,0 +1,8 @@
+{
+	"class" : {
+		"newWithName:on:" : "mad 6/12/2024 15:49",
+		"scanFor:ifAbsent:" : "mad 6/12/2024 15:49" },
+	"instance" : {
+		"directory" : "mad 6/12/2024 16:03",
+		"repository" : "mad 6/12/2024 15:53",
+		"repository:" : "mad 6/12/2024 15:53" } }

src/Squot.package/GitMCRepositoryAssetLoader.class/properties.json

@@ -0,0 +1,14 @@
+{
+	"category" : "Squot-Mapper-Asset",
+	"classinstvars" : [
+		 ],
+	"classvars" : [
+		 ],
+	"commentStamp" : "",
+	"instvars" : [
+		"repository" ],
+	"name" : "GitMCRepositoryAssetLoader",
+	"pools" : [
+		 ],
+	"super" : "GitDirectoryAssetLoader",
+	"type" : "normal" }

src/Squot.package/SquotMappersMapper.class/class/path.st

@@ -0,0 +1,3 @@
+as yet unclassified
+path
+	^ FSPath / '.squot-materialize'

src/Squot.package/SquotMappersMapper.class/instance/path.st

@@ -1,3 +1,3 @@
 accessing
 path
-	^ FSPath / '.squot-materialize'
+	^ self class path

src/Squot.package/SquotMappersMapper.class/methodProperties.json

@@ -1,6 +1,6 @@
 {
 	"class" : {
-		 },
+		"path" : "mad 6/12/2024 15:29" },
 	"instance" : {
 		"addToSar:" : "mad 1/8/2024 20:54",
 		"canBeRemoved" : "mad 2/20/2024 15:42",
@@ -21,5 +21,5 @@
 		"mappedPaths" : "mad 10/21/2023 22:52",
 		"mergeCommit:into:withBase:" : "mad 2/20/2024 15:11",
 		"mergeCommit:into:withBase:in:" : "mad 2/20/2024 15:17",
-		"path" : "mad 9/20/2023 11:53",
+		"path" : "mad 6/12/2024 15:29",
 		"referenceIn:" : "mad 9/20/2023 11:54" } }