diff --git a/src/Squot.package/SqueakWorkingCopy.class/class/deriveName..st b/src/Squot.package/SqueakWorkingCopy.class/class/deriveName..st new file mode 100644 index 000000000..1c2cbe250 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/class/deriveName..st @@ -0,0 +1,9 @@ +registering +deriveName: aString + | current suffix | + current := aString. + suffix := 2. + [self isNameRegistered: current] whileTrue: [ + current := aString, suffix. + suffix := suffix + 1]. + ^ current \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/allMappers.st b/src/Squot.package/SqueakWorkingCopy.class/instance/allMappers.st index dbbd98634..53f579d73 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/allMappers.st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/allMappers.st @@ -1,3 +1,3 @@ accessing allMappers - ^ self mappers, {self mappersMapper} \ No newline at end of file + ^ self mappers, {self metadataMapper} \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommit.toFSCommit..st b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommit.toFSCommit..st index 2b1fbf9c3..080407577 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommit.toFSCommit..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommit.toFSCommit..st @@ -1,6 +1,6 @@ changes-creation changeSetsFromFSCommit: anFSCommit toFSCommit: anotherFSCommit - ^ self mappersMapper + ^ self metadataMapper changeSetsFromFSCommit: anFSCommit toFSCommit: anotherFSCommit in: self \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommitToImage..st b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommitToImage..st index a0ecdd14c..e23ce73ab 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommitToImage..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromFSCommitToImage..st @@ -1,3 +1,3 @@ changes-creation changeSetsFromFSCommitToImage: anFSCommit - ^ self mappersMapper changeSetsFromFSCommit: anFSCommit toImage: self \ No newline at end of file + ^ self metadataMapper changeSetsFromFSCommit: anFSCommit toImage: self \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromImageToFSCommit..st b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromImageToFSCommit..st index 5a5fb63e0..6f96639b0 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromImageToFSCommit..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/changeSetsFromImageToFSCommit..st @@ -1,3 +1,3 @@ changes-creation changeSetsFromImageToFSCommit: anFSCommit - ^ self mappersMapper changeSetsFromImage: self toFSCommit: anFSCommit \ No newline at end of file + ^ self metadataMapper changeSetsFromImage: self toFSCommit: anFSCommit \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/commitImportedMappers.on..st b/src/Squot.package/SqueakWorkingCopy.class/instance/commitImportedMappers.on..st index 0f1e0b287..1b597049a 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/commitImportedMappers.on..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/commitImportedMappers.on..st @@ -3,7 +3,7 @@ commitImportedMappers: aCollection on: aCommit | commitMessage emptyChangeSets mappersChangeSet | emptyChangeSets := Dictionary newFrom: (aCollection collect: [:each | each -> (SquotEmptyChangeSet withMapper: each)]). - mappersChangeSet := self mappersMapper + mappersChangeSet := self metadataMapper changeSetFromMappers: {} removing: {} changeSets: emptyChangeSets. diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/deriveName..st b/src/Squot.package/SqueakWorkingCopy.class/instance/deriveName..st new file mode 100644 index 000000000..d940f8659 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/deriveName..st @@ -0,0 +1,6 @@ +accessing +deriveName: aString + | derived | + derived := self class deriveName: aString. + self name: derived. + ^ derived \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/importSquotContentsFromCommit..st b/src/Squot.package/SqueakWorkingCopy.class/instance/importSquotContentsFromCommit..st index 4a3c4316d..b36d316f8 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/importSquotContentsFromCommit..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/importSquotContentsFromCommit..st @@ -2,7 +2,7 @@ importing importSquotContentsFromCommit: aCommit | filesystem readStream loadOrder newMappers | filesystem := self filesystemOn: aCommit. - (self mappersMapper hasMappersFile: filesystem) ifTrue: [^ nil]. + (self metadataMapper hasAnyFile: filesystem) ifTrue: [^ nil]. readStream := [filesystem readStreamOn: '.squot'] on: FileDoesNotExist do: [^ nil]. loadOrder := STON fromStream: readStream. loadOrder ifEmpty: [^ nil]. diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/mappersMapper.st b/src/Squot.package/SqueakWorkingCopy.class/instance/mappersMapper.st deleted file mode 100644 index 0252da206..000000000 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/mappersMapper.st +++ /dev/null @@ -1,3 +0,0 @@ -mappers -mappersMapper - ^ SquotMappersMapper new \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/mergeFSCommit.into.withBase..st b/src/Squot.package/SqueakWorkingCopy.class/instance/mergeFSCommit.into.withBase..st index 86c766351..678aaefe3 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/mergeFSCommit.into.withBase..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/mergeFSCommit.into.withBase..st @@ -1,6 +1,6 @@ git-operations mergeFSCommit: rightFSCommit into: leftFSCommit withBase: baseFSCommit - ^ self mappersMapper + ^ self metadataMapper mergeCommit: rightFSCommit into: leftFSCommit withBase: baseFSCommit diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/metadata..st b/src/Squot.package/SqueakWorkingCopy.class/instance/metadata..st new file mode 100644 index 000000000..cb2d36b13 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/metadata..st @@ -0,0 +1,5 @@ +accessing +metadata: aMetadata + self + nameIfTakenDeriveAndInform: aMetadata name; + mappers: aMetadata mappers copy. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/metadata.st b/src/Squot.package/SqueakWorkingCopy.class/instance/metadata.st new file mode 100644 index 000000000..df9670b3f --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/metadata.st @@ -0,0 +1,6 @@ +accessing +metadata + ^ SquotMetadata new + name: self name; + mappers: self mappers copy; + yourself \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/metadataMapper.st b/src/Squot.package/SqueakWorkingCopy.class/instance/metadataMapper.st new file mode 100644 index 000000000..dfae0289f --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/metadataMapper.st @@ -0,0 +1,3 @@ +mappers +metadataMapper + ^ SquotMetadataMapper new \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/name..st b/src/Squot.package/SqueakWorkingCopy.class/instance/name..st index 0492e8d0f..e1aa1a69a 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/instance/name..st +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/name..st @@ -1,10 +1,3 @@ accessing name: aString - self name = aString ifTrue: [^ self]. - self isRegistered ifFalse: [^ self basicName: aString]. - (self class isNameRegistered: aString) - ifTrue: [^ self error: 'Cannot rename to a name that is already taken.']. - self - unregister; - basicName: aString; - register. \ No newline at end of file + self name: aString ifTaken: [self error: 'Cannot rename to a name that is already taken.']. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTaken..st b/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTaken..st new file mode 100644 index 000000000..cde0c9c75 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTaken..st @@ -0,0 +1,9 @@ +accessing +name: aString ifTaken: aBlock + self name = aString ifTrue: [^ self]. + self isRegistered ifFalse: [^ self basicName: aString]. + (self class isNameRegistered: aString) ifTrue: [^ aBlock value]. + self + unregister; + basicName: aString; + register. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTakenDeriveAnd..st b/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTakenDeriveAnd..st new file mode 100644 index 000000000..8da70d607 --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/name.ifTakenDeriveAnd..st @@ -0,0 +1,5 @@ +accessing +name: aString ifTakenDeriveAnd: aBlock + self name: aString ifTaken: [ | derived | + derived := self deriveName: aString. + aBlock cull: derived]. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/instance/nameIfTakenDeriveAndInform..st b/src/Squot.package/SqueakWorkingCopy.class/instance/nameIfTakenDeriveAndInform..st new file mode 100644 index 000000000..8cf5b965a --- /dev/null +++ b/src/Squot.package/SqueakWorkingCopy.class/instance/nameIfTakenDeriveAndInform..st @@ -0,0 +1,5 @@ +accessing +nameIfTakenDeriveAndInform: aString + self name: aString ifTakenDeriveAnd: [:derived | + self inform: ('The project name {1} is already taken. The project has been renamed to {2}.' + format: {aString printString. derived printString})]. \ No newline at end of file diff --git a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json index 75f64ffbc..aef757951 100644 --- a/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json +++ b/src/Squot.package/SqueakWorkingCopy.class/methodProperties.json @@ -4,6 +4,7 @@ "cloneFrom:to:named:" : "mad 9/19/2023 11:53", "cloneFromUserAndRegister" : "mad 6/12/2024 11:59", "defaultDirectoryForName:" : "mad 10/22/2023 00:24", + "deriveName:" : "mad 6/12/2024 13:28", "doPostUpdateMigrations" : "mad 11/21/2023 16:06", "gitSuffix" : "mad 11/13/2023 12:03", "handleMovedImageFrom:to:" : "mad 11/28/2023 19:23", @@ -33,7 +34,7 @@ "instance" : { "actionAddRemote" : "mad 10/16/2023 20:49", "addMapper:" : "mad 9/20/2023 17:30", - "allMappers" : "mad 10/21/2023 22:58", + "allMappers" : "mad 6/11/2024 18:29", "allReferences" : "mad 11/30/2023 21:44", "basicHeadRef" : "mad 11/30/2023 13:15", "basicName:" : "mad 12/8/2023 17:30", @@ -42,11 +43,11 @@ "buildSar" : "mad 11/14/2023 18:33", "changeSetsFromCommit:toCommit:" : "mad 9/6/2023 19:28", "changeSetsFromCommitToImage:" : "mad 9/6/2023 19:28", - "changeSetsFromFSCommit:toFSCommit:" : "mad 9/20/2023 12:51", - "changeSetsFromFSCommitToImage:" : "mad 9/20/2023 12:42", + "changeSetsFromFSCommit:toFSCommit:" : "mad 6/11/2024 18:29", + "changeSetsFromFSCommitToImage:" : "mad 6/11/2024 18:29", "changeSetsFromHeadCommitToImage" : "mad 9/6/2023 19:29", "changeSetsFromImageToCommit:" : "mad 9/6/2023 19:29", - "changeSetsFromImageToFSCommit:" : "mad 9/20/2023 12:44", + "changeSetsFromImageToFSCommit:" : "mad 6/11/2024 18:30", "changeSetsFromImageToHeadCommit" : "mad 4/7/2024 15:33", "checkCanDeleteRef:" : "mad 10/16/2023 22:52", "checkForMissingHead" : "mad 3/19/2024 21:45", @@ -57,13 +58,14 @@ "cloneFrom:" : "mad 5/23/2024 21:00", "commitChangeSets:message:additionalParents:onlyAdditionalParents:" : "mad 4/29/2024 20:55", "commitChangeSets:onCommit:message:additionalParents:onlyAdditionalParents:" : "mad 4/5/2024 00:19", - "commitImportedMappers:on:" : "mad 4/29/2024 22:24", + "commitImportedMappers:on:" : "mad 6/11/2024 18:30", "computeRefsForCommits" : "mad 9/11/2023 16:47", "createBranchNamed:at:" : "mad 10/16/2023 21:32", "credentials" : "mad 9/18/2023 12:52", "credentials:" : "mad 9/18/2023 12:52", "currentHeadTarget" : "mad 11/30/2023 13:17", "currentSymbolicHeadTarget" : "mad 11/30/2023 13:17", + "deriveName:" : "mad 6/12/2024 13:32", "doImageHashMigration" : "mad 11/29/2023 15:09", "doPostUpdateMigrations" : "mad 11/29/2023 15:07", "emptyCommit" : "mad 5/20/2023 21:22", @@ -94,7 +96,7 @@ "imageHash" : "mad 11/28/2023 19:19", "import" : "mad 4/29/2024 20:40", "importSquotContents:from:into:fallbackSerializer:" : "mad 4/29/2024 21:39", - "importSquotContentsFromCommit:" : "mad 4/29/2024 21:41", + "importSquotContentsFromCommit:" : "mad 6/12/2024 13:37", "importSquotContentsFromHeadCommit" : "mad 4/29/2024 20:55", "initialRemoteRefNameFor:" : "mad 9/18/2023 13:58", "initialize" : "mad 11/28/2023 19:19", @@ -113,7 +115,6 @@ "mappedPaths" : "mad 10/21/2023 22:58", "mappers" : "mad 6/1/2023 22:35", "mappers:" : "mad 3/19/2024 21:25", - "mappersMapper" : "mad 9/20/2023 12:47", "mappersOfKind:" : "mad 9/20/2023 17:29", "materializeChangeSets:" : "mad 4/29/2024 23:00", "materializeCommit:" : "mad 9/6/2023 19:27", @@ -125,10 +126,16 @@ "materializedMappers" : "mad 6/1/2023 22:36", "mergeCommit:into:withBase:" : "mad 8/23/2023 19:49", "mergeCommitIntoHead:withBase:" : "mad 4/5/2024 15:00", - "mergeFSCommit:into:withBase:" : "mad 9/20/2023 13:01", + "mergeFSCommit:into:withBase:" : "mad 6/11/2024 18:30", + "metadata" : "mad 6/11/2024 18:37", + "metadata:" : "mad 6/12/2024 13:34", + "metadataMapper" : "mad 6/11/2024 18:29", "moveToNewRepositoryLocation:" : "mad 12/22/2023 17:50", "name" : "mad 9/19/2023 11:52", - "name:" : "mad 12/8/2023 17:31", + "name:" : "mad 6/12/2024 13:25", + "name:ifTaken:" : "mad 6/12/2024 13:25", + "name:ifTakenDeriveAnd:" : "mad 6/12/2024 13:33", + "nameIfTakenDeriveAndInform:" : "mad 6/12/2024 13:35", "pushRef:force:" : "mad 5/18/2024 11:31", "refChanged:" : "mad 5/15/2024 21:20", "refName:" : "mad 6/3/2023 14:17", diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/materializeIn..st b/src/Squot.package/SquotMappersChangeSet.class/instance/materializeIn..st deleted file mode 100644 index 07f8f8422..000000000 --- a/src/Squot.package/SquotMappersChangeSet.class/instance/materializeIn..st +++ /dev/null @@ -1,3 +0,0 @@ -operations -materializeIn: aWorkingCopy - aWorkingCopy mappers: (self newMappersAfterMaterializeIn: aWorkingCopy). \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterMaterializeIn..st b/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterMaterializeIn..st new file mode 100644 index 000000000..3f8e74040 --- /dev/null +++ b/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterMaterializeIn..st @@ -0,0 +1,3 @@ +accessing +newValueAfterMaterializeIn: aWorkingCopy + ^ self newMappersAfterMaterializeIn: aWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterSerializeInto..st b/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterSerializeInto..st new file mode 100644 index 000000000..faf10fd46 --- /dev/null +++ b/src/Squot.package/SquotMappersChangeSet.class/instance/newValueAfterSerializeInto..st @@ -0,0 +1,3 @@ +accessing +newValueAfterSerializeInto: aFileSystem + ^ self newMappersAfterSerializeInto: aFileSystem \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/property.st b/src/Squot.package/SquotMappersChangeSet.class/instance/property.st new file mode 100644 index 000000000..15e181552 --- /dev/null +++ b/src/Squot.package/SquotMappersChangeSet.class/instance/property.st @@ -0,0 +1,3 @@ +accessing +property + ^ #mappers \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/serializeInto..st b/src/Squot.package/SquotMappersChangeSet.class/instance/serializeInto..st deleted file mode 100644 index 93a4eb8f9..000000000 --- a/src/Squot.package/SquotMappersChangeSet.class/instance/serializeInto..st +++ /dev/null @@ -1,4 +0,0 @@ -operations -serializeInto: aFileSystem - (self referenceIn: aFileSystem) writeStreamDo: [:stream | - STON put: (self newMappersAfterSerializeInto: aFileSystem) onStreamPretty: stream]. \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/methodProperties.json b/src/Squot.package/SquotMappersChangeSet.class/methodProperties.json index 4e8eb4f4c..521b585a7 100644 --- a/src/Squot.package/SquotMappersChangeSet.class/methodProperties.json +++ b/src/Squot.package/SquotMappersChangeSet.class/methodProperties.json @@ -9,14 +9,14 @@ "changes" : "mad 9/20/2023 12:04", "mapperChangeSets" : "mad 2/20/2024 14:51", "mapperChangeSets:" : "mad 2/20/2024 14:51", - "materializeIn:" : "mad 2/20/2024 15:50", "newMappers" : "mad 2/20/2024 15:30", "newMappersAfterMaterializeIn:" : "mad 2/20/2024 15:32", "newMappersAfterSerializeInto:" : "mad 2/20/2024 15:31", "newMappersWithRemovalCheck:" : "mad 2/20/2024 15:30", + "newValueAfterMaterializeIn:" : "mad 6/12/2024 14:06", + "newValueAfterSerializeInto:" : "mad 6/12/2024 14:06", "oldMappers" : "mad 9/20/2023 12:00", "oldMappers:" : "mad 9/20/2023 12:00", "potentiallyRemovedMappers" : "mad 2/20/2024 15:00", "potentiallyRemovedMappers:" : "mad 2/20/2024 15:00", - "referenceIn:" : "mad 9/20/2023 12:02", - "serializeInto:" : "mad 2/20/2024 15:31" } } + "property" : "mad 6/12/2024 14:12" } } diff --git a/src/Squot.package/SquotMappersChangeSet.class/properties.json b/src/Squot.package/SquotMappersChangeSet.class/properties.json index 17f689b82..6d646fe4c 100644 --- a/src/Squot.package/SquotMappersChangeSet.class/properties.json +++ b/src/Squot.package/SquotMappersChangeSet.class/properties.json @@ -12,5 +12,5 @@ "name" : "SquotMappersChangeSet", "pools" : [ ], - "super" : "SquotChangeSet", + "super" : "SquotMetadataPropertyChangeSet", "type" : "normal" } diff --git a/src/Squot.package/SquotMappersMapper.class/instance/hasMappersFile..st b/src/Squot.package/SquotMappersMapper.class/instance/hasMappersFile..st deleted file mode 100644 index 411c1dedc..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/hasMappersFile..st +++ /dev/null @@ -1,3 +0,0 @@ -testing -hasMappersFile: aFileSystem - ^ (self referenceIn: aFileSystem) exists \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFSCommit..st b/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFSCommit..st deleted file mode 100644 index 861c120c8..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFSCommit..st +++ /dev/null @@ -1,3 +0,0 @@ -mappers-creation -loadMappersFromFSCommit: anFSCommit - ^ self loadMappersFromFileSystem: anFSCommit filesystem \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFileSystem..st b/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFileSystem..st deleted file mode 100644 index ce754da3c..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromFileSystem..st +++ /dev/null @@ -1,6 +0,0 @@ -mappers-creation -loadMappersFromFileSystem: aFileSystem - ^ [(self referenceIn: aFileSystem) readStreamDo: [:stream | - STON fromStream: stream]] - on: FileDoesNotExist - do: [^ {}] \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromWorkingCopy..st b/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromWorkingCopy..st deleted file mode 100644 index f6a103833..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/loadMappersFromWorkingCopy..st +++ /dev/null @@ -1,3 +0,0 @@ -mappers-creation -loadMappersFromWorkingCopy: aWorkingCopy - ^ aWorkingCopy mappers copy \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/mappedPaths.st b/src/Squot.package/SquotMappersMapper.class/instance/mappedPaths.st deleted file mode 100644 index 9c2e9ebc0..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/mappedPaths.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -mappedPaths - ^ {self path} \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/referenceIn..st b/src/Squot.package/SquotMappersMapper.class/instance/referenceIn..st deleted file mode 100644 index 6b2c85ef7..000000000 --- a/src/Squot.package/SquotMappersMapper.class/instance/referenceIn..st +++ /dev/null @@ -1,3 +0,0 @@ -filesystem -referenceIn: aFileSystem - ^ aFileSystem referenceTo: self path \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/methodProperties.json b/src/Squot.package/SquotMappersMapper.class/methodProperties.json deleted file mode 100644 index 8ba401dab..000000000 --- a/src/Squot.package/SquotMappersMapper.class/methodProperties.json +++ /dev/null @@ -1,25 +0,0 @@ -{ - "class" : { - }, - "instance" : { - "addToSar:" : "mad 1/8/2024 20:54", - "canBeRemoved" : "mad 2/20/2024 15:42", - "canBeRemovedAfterMaterializeIn:" : "mad 2/20/2024 15:42", - "canBeRemovedAfterSerializeInto:" : "mad 2/20/2024 15:42", - "changeSetFromFSCommit:toFSCommit:" : "mad 2/20/2024 15:08", - "changeSetFromFSCommit:toImage:" : "mad 2/20/2024 15:09", - "changeSetFromImage:toFSCommit:" : "mad 2/20/2024 15:09", - "changeSetFromMappers:removing:changeSets:" : "mad 2/20/2024 15:07", - "changeSetsFromFSCommit:toFSCommit:in:" : "mad 9/20/2023 12:50", - "changeSetsFromFSCommit:toImage:" : "mad 9/20/2023 12:51", - "changeSetsFromImage:toFSCommit:" : "mad 9/20/2023 12:51", - "changeSetsFromMappers:toMappers:old:common:new:in:" : "mad 4/29/2024 23:15", - "hasMappersFile:" : "mad 4/18/2024 18:33", - "loadMappersFromFSCommit:" : "mad 9/20/2023 12:05", - "loadMappersFromFileSystem:" : "mad 9/20/2023 12:05", - "loadMappersFromWorkingCopy:" : "mad 9/20/2023 12:09", - "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", - "referenceIn:" : "mad 9/20/2023 11:54" } } diff --git a/src/Squot.package/SquotMappersMapper.class/README.md b/src/Squot.package/SquotMetadata.class/README.md similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/README.md rename to src/Squot.package/SquotMetadata.class/README.md diff --git a/src/Squot.package/SquotMetadata.class/class/currentVersion.st b/src/Squot.package/SquotMetadata.class/class/currentVersion.st new file mode 100644 index 000000000..d371f3425 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/class/currentVersion.st @@ -0,0 +1,3 @@ +accessing +currentVersion + ^ 1 \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/^equals.st b/src/Squot.package/SquotMetadata.class/instance/^equals.st new file mode 100644 index 000000000..0bbe8e402 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/^equals.st @@ -0,0 +1,6 @@ +comparing += anObject + self class = anObject class ifFalse: [^ false]. + self name = anObject name ifFalse: [^ false]. + self mappers asSet = anObject mappers asSet ifFalse: [^ false]. + ^ true \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/hash.st b/src/Squot.package/SquotMetadata.class/instance/hash.st new file mode 100644 index 000000000..0acb28b1e --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/hash.st @@ -0,0 +1,3 @@ +comparing +hash + ^ self name hash bitXor: self mappers asSet hash \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/initialize.st b/src/Squot.package/SquotMetadata.class/instance/initialize.st new file mode 100644 index 000000000..69dd9811a --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialize-release +initialize + super initialize. + self version ifNotNil: [self setCurrentVersion]. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/mappers..st b/src/Squot.package/SquotMetadata.class/instance/mappers..st new file mode 100644 index 000000000..7d8a2f556 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/mappers..st @@ -0,0 +1,3 @@ +accessing +mappers: anOrderedCollection + mappers := anOrderedCollection \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/mappers.st b/src/Squot.package/SquotMetadata.class/instance/mappers.st new file mode 100644 index 000000000..4fd54249a --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/mappers.st @@ -0,0 +1,3 @@ +accessing +mappers + ^ mappers \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/name..st b/src/Squot.package/SquotMetadata.class/instance/name..st new file mode 100644 index 000000000..e8cfe90d7 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/name..st @@ -0,0 +1,3 @@ +accessing +name: aString + name := aString \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/name.st b/src/Squot.package/SquotMetadata.class/instance/name.st new file mode 100644 index 000000000..22077c208 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/name.st @@ -0,0 +1,3 @@ +accessing +name + ^ name \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/setCurrentVersion.st b/src/Squot.package/SquotMetadata.class/instance/setCurrentVersion.st new file mode 100644 index 000000000..c8773de1b --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/setCurrentVersion.st @@ -0,0 +1,3 @@ +accessing +setCurrentVersion + self version: self class currentVersion. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/version..st b/src/Squot.package/SquotMetadata.class/instance/version..st new file mode 100644 index 000000000..f5b01e057 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/version..st @@ -0,0 +1,3 @@ +accessing +version: aNumber + version := aNumber \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/instance/version.st b/src/Squot.package/SquotMetadata.class/instance/version.st new file mode 100644 index 000000000..a043da51a --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/instance/version.st @@ -0,0 +1,3 @@ +accessing +version + ^ version \ No newline at end of file diff --git a/src/Squot.package/SquotMetadata.class/methodProperties.json b/src/Squot.package/SquotMetadata.class/methodProperties.json new file mode 100644 index 000000000..eed210729 --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/methodProperties.json @@ -0,0 +1,14 @@ +{ + "class" : { + "currentVersion" : "mad 6/12/2024 13:40" }, + "instance" : { + "=" : "mad 6/11/2024 18:50", + "hash" : "mad 6/11/2024 18:51", + "initialize" : "mad 6/12/2024 14:22", + "mappers" : "mad 6/12/2024 13:54", + "mappers:" : "mad 6/12/2024 13:54", + "name" : "mad 6/12/2024 13:54", + "name:" : "mad 6/12/2024 13:54", + "setCurrentVersion" : "mad 6/12/2024 14:22", + "version" : "mad 6/12/2024 13:54", + "version:" : "mad 6/12/2024 13:55" } } diff --git a/src/Squot.package/SquotMetadata.class/properties.json b/src/Squot.package/SquotMetadata.class/properties.json new file mode 100644 index 000000000..6dbc46a0a --- /dev/null +++ b/src/Squot.package/SquotMetadata.class/properties.json @@ -0,0 +1,16 @@ +{ + "category" : "Squot-Mapper", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "version", + "name", + "mappers" ], + "name" : "SquotMetadata", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/src/Squot.package/SquotMetadataChange.class/README.md b/src/Squot.package/SquotMetadataChange.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/src/Squot.package/SquotMetadataChange.class/methodProperties.json b/src/Squot.package/SquotMetadataChange.class/methodProperties.json new file mode 100644 index 000000000..0e4a66223 --- /dev/null +++ b/src/Squot.package/SquotMetadataChange.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + } } diff --git a/src/Squot.package/SquotMetadataChange.class/properties.json b/src/Squot.package/SquotMetadataChange.class/properties.json new file mode 100644 index 000000000..735110b13 --- /dev/null +++ b/src/Squot.package/SquotMetadataChange.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Squot-Mapper", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SquotMetadataChange", + "pools" : [ + ], + "super" : "SquotChange", + "type" : "normal" } diff --git a/src/Squot.package/SquotMetadataChangeSet.class/README.md b/src/Squot.package/SquotMetadataChangeSet.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/buildMetadata..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/buildMetadata..st new file mode 100644 index 000000000..a79eac009 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/buildMetadata..st @@ -0,0 +1,9 @@ +as yet unclassified +buildMetadata: aCollection + | metadata | + metadata := self newMetadata copy. + metadata setCurrentVersion. + aCollection do: [:each | + (self changeSetForProperty: each key) ifNotNil: [:changeSet | + metadata perform: each key asSimpleSetter with: (each value value: changeSet)]]. + ^ metadata \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemoved.st b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemoved.st new file mode 100644 index 000000000..1871f43c6 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemoved.st @@ -0,0 +1,3 @@ +testing +canMapperBeRemoved + ^ self mapper canBeRemoved \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterMaterializeIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterMaterializeIn..st new file mode 100644 index 000000000..9bbd4b325 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterMaterializeIn..st @@ -0,0 +1,3 @@ +testing +canMapperBeRemovedAfterMaterializeIn: aWorkingCopy + ^ self canMapperBeRemoved \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterSerializeInto..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterSerializeInto..st new file mode 100644 index 000000000..40b3f2e6c --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/canMapperBeRemovedAfterSerializeInto..st @@ -0,0 +1,3 @@ +testing +canMapperBeRemovedAfterSerializeInto: aFileSystem + ^ self canMapperBeRemoved \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/changeSetForProperty..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/changeSetForProperty..st new file mode 100644 index 000000000..00c88d830 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/changeSetForProperty..st @@ -0,0 +1,3 @@ +as yet unclassified +changeSetForProperty: aSymbol + ^ self changeSets detect: [:changeSet | changeSet property = aSymbol] ifNone: [nil] \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/changes.st b/src/Squot.package/SquotMetadataChangeSet.class/instance/changes.st new file mode 100644 index 000000000..1f34ade24 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/changes.st @@ -0,0 +1,3 @@ +accessing +changes + ^ self changeSets gather: #changes \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/legacyMappersFileReferenceIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/legacyMappersFileReferenceIn..st new file mode 100644 index 000000000..6a8ac781d --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/legacyMappersFileReferenceIn..st @@ -0,0 +1,3 @@ +as yet unclassified +legacyMappersFileReferenceIn: aFileSystem + ^ self mapper legacyMappersFileReferenceIn: aFileSystem \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/materializeIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/materializeIn..st new file mode 100644 index 000000000..0fc5eac27 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/materializeIn..st @@ -0,0 +1,3 @@ +as yet unclassified +materializeIn: aWorkingCopy + aWorkingCopy metadata: (self newMetadataAfterSerializeInto: aWorkingCopy). \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/metadataFileReferenceIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/metadataFileReferenceIn..st new file mode 100644 index 000000000..f1b742009 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/metadataFileReferenceIn..st @@ -0,0 +1,3 @@ +as yet unclassified +metadataFileReferenceIn: aFileSystem + ^ self mapper metadataFileReferenceIn: aFileSystem \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata..st new file mode 100644 index 000000000..ec1ef7312 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata..st @@ -0,0 +1,3 @@ +accessing +newMetadata: aMetadata + newMetadata := aMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata.st b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata.st new file mode 100644 index 000000000..68d64390d --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadata.st @@ -0,0 +1,3 @@ +accessing +newMetadata + ^ newMetadata \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterMaterializeIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterMaterializeIn..st new file mode 100644 index 000000000..c96e1c85e --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterMaterializeIn..st @@ -0,0 +1,6 @@ +as yet unclassified +newMetadataAfterMaterializeIn: aWorkingCopy + ^ self buildMetadata: { + #name -> #nameToWrite. + #mappers -> [:changeSet | changeSet newMappersAfterMaterializeIn: aWorkingCopy]. + } \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterSerializeInto..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterSerializeInto..st new file mode 100644 index 000000000..f9721718f --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/newMetadataAfterSerializeInto..st @@ -0,0 +1,6 @@ +as yet unclassified +newMetadataAfterSerializeInto: aFileSystem + ^ self buildMetadata: { + #name -> #nameToWrite. + #mappers -> [:changeSet | changeSet newMappersAfterSerializeInto: aFileSystem]. + } \ No newline at end of file diff --git a/src/Squot.package/SquotMappersChangeSet.class/instance/referenceIn..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/referenceIn..st similarity index 76% rename from src/Squot.package/SquotMappersChangeSet.class/instance/referenceIn..st rename to src/Squot.package/SquotMetadataChangeSet.class/instance/referenceIn..st index 25bf2eafc..99677eb89 100644 --- a/src/Squot.package/SquotMappersChangeSet.class/instance/referenceIn..st +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/referenceIn..st @@ -1,3 +1,3 @@ -accessing +as yet unclassified referenceIn: aFileSystem ^ self mapper referenceIn: aFileSystem \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/instance/serializeInto..st b/src/Squot.package/SquotMetadataChangeSet.class/instance/serializeInto..st new file mode 100644 index 000000000..56695c54b --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/instance/serializeInto..st @@ -0,0 +1,5 @@ +as yet unclassified +serializeInto: aFileSystem + (self legacyMappersFileReferenceIn: aFileSystem) ensureDeleted. + (self metadataFileReferenceIn: aFileSystem) writeStreamDo: [:stream | + STON put: (self newMetadataAfterSerializeInto: aFileSystem) onStreamPretty: stream]. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataChangeSet.class/methodProperties.json b/src/Squot.package/SquotMetadataChangeSet.class/methodProperties.json new file mode 100644 index 000000000..dec38853f --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/methodProperties.json @@ -0,0 +1,19 @@ +{ + "class" : { + }, + "instance" : { + "buildMetadata:" : "mad 6/12/2024 14:22", + "canMapperBeRemoved" : "mad 6/11/2024 19:44", + "canMapperBeRemovedAfterMaterializeIn:" : "mad 6/11/2024 19:44", + "canMapperBeRemovedAfterSerializeInto:" : "mad 6/11/2024 19:45", + "changeSetForProperty:" : "mad 6/12/2024 14:19", + "changes" : "mad 6/12/2024 13:45", + "legacyMappersFileReferenceIn:" : "mad 6/11/2024 19:51", + "materializeIn:" : "mad 6/12/2024 13:53", + "metadataFileReferenceIn:" : "mad 6/11/2024 19:50", + "newMetadata" : "mad 6/11/2024 19:46", + "newMetadata:" : "mad 6/11/2024 19:46", + "newMetadataAfterMaterializeIn:" : "mad 6/12/2024 14:21", + "newMetadataAfterSerializeInto:" : "mad 6/12/2024 14:21", + "referenceIn:" : "mad 6/11/2024 19:49", + "serializeInto:" : "mad 6/11/2024 19:53" } } diff --git a/src/Squot.package/SquotMetadataChangeSet.class/properties.json b/src/Squot.package/SquotMetadataChangeSet.class/properties.json new file mode 100644 index 000000000..53e13f2c5 --- /dev/null +++ b/src/Squot.package/SquotMetadataChangeSet.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Squot-Mapper", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "changeSets", + "newMetadata" ], + "name" : "SquotMetadataChangeSet", + "pools" : [ + ], + "super" : "SquotChangeSet", + "type" : "normal" } diff --git a/src/Squot.package/SquotMetadataMapper.class/README.md b/src/Squot.package/SquotMetadataMapper.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/src/Squot.package/SquotMappersMapper.class/instance/addToSar..st b/src/Squot.package/SquotMetadataMapper.class/instance/addToSar..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/addToSar..st rename to src/Squot.package/SquotMetadataMapper.class/instance/addToSar..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/canBeRemoved.st b/src/Squot.package/SquotMetadataMapper.class/instance/canBeRemoved.st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/canBeRemoved.st rename to src/Squot.package/SquotMetadataMapper.class/instance/canBeRemoved.st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/canBeRemovedAfterMaterializeIn..st b/src/Squot.package/SquotMetadataMapper.class/instance/canBeRemovedAfterMaterializeIn..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/canBeRemovedAfterMaterializeIn..st rename to src/Squot.package/SquotMetadataMapper.class/instance/canBeRemovedAfterMaterializeIn..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/canBeRemovedAfterSerializeInto..st b/src/Squot.package/SquotMetadataMapper.class/instance/canBeRemovedAfterSerializeInto..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/canBeRemovedAfterSerializeInto..st rename to src/Squot.package/SquotMetadataMapper.class/instance/canBeRemovedAfterSerializeInto..st diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromChangeSets..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromChangeSets..st new file mode 100644 index 000000000..7f4ceadb4 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromChangeSets..st @@ -0,0 +1,7 @@ +changes-creation +changeSetFromChangeSets: aCollection + ^ (SquotChangeSet allEmpty: aCollection) + ifTrue: [SquotEmptyChangeSet withMapper: self] + ifFalse: [SquotMetadataChangeSet + withMapper: self + changeSets: (aCollection reject: #isEmpty)] \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetFromFSCommit.toFSCommit..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromFSCommit.toFSCommit..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetFromFSCommit.toFSCommit..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromFSCommit.toFSCommit..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetFromFSCommit.toImage..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromFSCommit.toImage..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetFromFSCommit.toImage..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromFSCommit.toImage..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetFromImage.toFSCommit..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromImage.toFSCommit..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetFromImage.toFSCommit..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromImage.toFSCommit..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetFromMappers.removing.changeSets..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromMappers.removing.changeSets..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetFromMappers.removing.changeSets..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromMappers.removing.changeSets..st diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromMetadata.to.mappersChangeSet..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromMetadata.to.mappersChangeSet..st new file mode 100644 index 000000000..0ac04c0c6 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetFromMetadata.to.mappersChangeSet..st @@ -0,0 +1,5 @@ +changes-creation +changeSetFromMetadata: fromMetadata to: toMetadata mappersChangeSet: aChangeSet + | nameChangeSet | + nameChangeSet := self changeSetFromName: fromMetadata name to: toMetadata name. + ^ self changeSetFromChangeSets: {aChangeSet. nameChangeSet} \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st similarity index 69% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st index 406ba73bc..a56e06bfe 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toFSCommit.in..st @@ -1,8 +1,8 @@ changes-creation changeSetsFromFSCommit: anFSCommit toFSCommit: anotherFSCommit in: aWorkingCopy ^ self - changeSetsFromMappers: (self loadMappersFromFSCommit: anFSCommit) - toMappers: (self loadMappersFromFSCommit: anotherFSCommit) + changeSetsFromMetadata: (self loadMetadataFromFSCommit: anFSCommit in: aWorkingCopy) + toMetadata: (self loadMetadataFromFSCommit: anotherFSCommit in: aWorkingCopy) old: [:old :empty | old changeSetFromFSCommit: anFSCommit toFSCommit: empty] common: [:common | common changeSetFromFSCommit: anFSCommit toFSCommit: anotherFSCommit] new: [:new :empty | new changeSetFromFSCommit: empty toFSCommit: anotherFSCommit] diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toImage..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toImage..st similarity index 69% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toImage..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toImage..st index 3d0dc51a4..7ae37d9bb 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromFSCommit.toImage..st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromFSCommit.toImage..st @@ -1,8 +1,8 @@ changes-creation changeSetsFromFSCommit: anFSCommit toImage: aWorkingCopy ^ self - changeSetsFromMappers: (self loadMappersFromFSCommit: anFSCommit) - toMappers: (self loadMappersFromWorkingCopy: aWorkingCopy) + changeSetsFromMetadata: (self loadMetadataFromFSCommit: anFSCommit in: aWorkingCopy) + toMetadata: (self loadMetadataFromWorkingCopy: aWorkingCopy) old: [:old :empty | old changeSetFromFSCommit: anFSCommit toFSCommit: empty] common: [:common | common changeSetFromFSCommit: anFSCommit toImage: aWorkingCopy] new: [:new :empty | new changeSetFromFSCommit: empty toImage: aWorkingCopy] diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromImage.toFSCommit..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromImage.toFSCommit..st similarity index 69% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromImage.toFSCommit..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromImage.toFSCommit..st index 5ecb45882..3862088e0 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromImage.toFSCommit..st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromImage.toFSCommit..st @@ -1,8 +1,8 @@ changes-creation changeSetsFromImage: aWorkingCopy toFSCommit: anFSCommit ^ self - changeSetsFromMappers: (self loadMappersFromWorkingCopy: aWorkingCopy) - toMappers: (self loadMappersFromFSCommit: anFSCommit) + changeSetsFromMetadata: (self loadMetadataFromWorkingCopy: aWorkingCopy) + toMetadata: (self loadMetadataFromFSCommit: anFSCommit in: aWorkingCopy) old: [:old :empty | old changeSetFromImage: aWorkingCopy toFSCommit: empty] common: [:common | common changeSetFromImage: aWorkingCopy toFSCommit: anFSCommit] new: [:new :empty | new changeSetFromFSCommit: empty toFSCommit: anFSCommit] diff --git a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromMappers.toMappers.old.common.new.in..st b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromMetadata.toMetadata.old.common.new.in..st similarity index 55% rename from src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromMappers.toMappers.old.common.new.in..st rename to src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromMetadata.toMetadata.old.common.new.in..st index 63d9c8dd3..3aae1c64d 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/changeSetsFromMappers.toMappers.old.common.new.in..st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/changeSetsFromMetadata.toMetadata.old.common.new.in..st @@ -1,28 +1,32 @@ changes-creation -changeSetsFromMappers: fromMappersCollection -toMappers: toMappersCollection +changeSetsFromMetadata: fromMetadata +toMetadata: toMetadata old: oldBlock common: commonBlock new: newBlock in: aWorkingCopy - | emptyCommit mapperChangeSets potentiallyRemovedMappers mappersChangeSet | + | emptyCommit mapperChangeSets potentiallyRemovedMappers mappersChangeSet metadataChangeSet | emptyCommit := aWorkingCopy emptyCommit. mapperChangeSets := Dictionary new. - potentiallyRemovedMappers := fromMappersCollection difference: toMappersCollection. + potentiallyRemovedMappers := fromMetadata mappers difference: toMetadata mappers. 'Gathering changes' displayProgressFrom: 1 - to: potentiallyRemovedMappers size + toMappersCollection size + to: potentiallyRemovedMappers size + toMetadata mappers size during: [:bar | | index next | index := 1. next := [bar value: index. index := index + 1]. potentiallyRemovedMappers do: [:old | mapperChangeSets at: old put: (oldBlock value: old value: emptyCommit). next value]. - (toMappersCollection intersection: fromMappersCollection) do: [:common | + (toMetadata mappers intersection: fromMetadata mappers) do: [:common | mapperChangeSets at: common put: (commonBlock value: common). next value]. - (toMappersCollection difference: fromMappersCollection) do: [:new | + (toMetadata mappers difference: fromMetadata mappers) do: [:new | mapperChangeSets at: new put: (newBlock value: new value: emptyCommit). next value]]. mappersChangeSet := self - changeSetFromMappers: fromMappersCollection + changeSetFromMappers: fromMetadata mappers removing: potentiallyRemovedMappers changeSets: mapperChangeSets. - ^ mapperChangeSets values copyWith: mappersChangeSet \ No newline at end of file + metadataChangeSet := self + changeSetFromMetadata: fromMetadata + toMetadata: toMetadata + mappersChangeSet: mappersChangeSet. + ^ mapperChangeSets values copyWith: metadataChangeSet \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/hasAnyFile..st b/src/Squot.package/SquotMetadataMapper.class/instance/hasAnyFile..st new file mode 100644 index 000000000..26a8f3512 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/hasAnyFile..st @@ -0,0 +1,3 @@ +testing +hasAnyFile: aFileSystem + ^ (self hasMetadataFile: aFileSystem) or: [self hasLegacyMappersFile: aFileSystem] \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/hasLegacyMappersFile..st b/src/Squot.package/SquotMetadataMapper.class/instance/hasLegacyMappersFile..st new file mode 100644 index 000000000..4e22c557f --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/hasLegacyMappersFile..st @@ -0,0 +1,3 @@ +testing +hasLegacyMappersFile: aFileSystem + ^ (self legacyMappersFileReferenceIn: aFileSystem) exists \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/hasMetadataFile..st b/src/Squot.package/SquotMetadataMapper.class/instance/hasMetadataFile..st new file mode 100644 index 000000000..9796c30d2 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/hasMetadataFile..st @@ -0,0 +1,3 @@ +testing +hasMetadataFile: aFileSystem + ^ (self metadataFileReferenceIn: aFileSystem) exists \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/path.st b/src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFilePath.st similarity index 65% rename from src/Squot.package/SquotMappersMapper.class/instance/path.st rename to src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFilePath.st index 6b9bac339..a52d59f4e 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/path.st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFilePath.st @@ -1,3 +1,3 @@ accessing -path +legacyMappersFilePath ^ FSPath / '.squot-materialize' \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFileReferenceIn..st b/src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFileReferenceIn..st new file mode 100644 index 000000000..64c983df6 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/legacyMappersFileReferenceIn..st @@ -0,0 +1,3 @@ +filesystem +legacyMappersFileReferenceIn: aFileSystem + ^ aFileSystem referenceTo: self legacyMappersFilePath \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/loadLegacyMappersFromFileSystem..st b/src/Squot.package/SquotMetadataMapper.class/instance/loadLegacyMappersFromFileSystem..st new file mode 100644 index 000000000..eb5e478fe --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/loadLegacyMappersFromFileSystem..st @@ -0,0 +1,6 @@ +mappers-creation +loadLegacyMappersFromFileSystem: aFileSystem + ^ [(self legacyMappersFileReferenceIn: aFileSystem) readStreamDo: [:stream | + STON fromStream: stream]] + on: FileDoesNotExist + do: [^ {}] \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFSCommit.in..st b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFSCommit.in..st new file mode 100644 index 000000000..4afd98186 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFSCommit.in..st @@ -0,0 +1,3 @@ +mappers-creation +loadMetadataFromFSCommit: anFSCommit in: aWorkingCopy + ^ self loadMetadataFromFileSystem: anFSCommit filesystem in: aWorkingCopy \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFileSystem.in..st b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFileSystem.in..st new file mode 100644 index 000000000..f88b64137 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromFileSystem.in..st @@ -0,0 +1,8 @@ +mappers-creation +loadMetadataFromFileSystem: aFileSystem in: aWorkingCopy + ^ [(self metadataFileReferenceIn: aFileSystem) readStreamDo: [:stream | + STON fromStream: stream]] + on: FileDoesNotExist + do: [^ (self loadMetadataFromWorkingCopy: aWorkingCopy) + mappers: (self loadLegacyMappersFromFileSystem: aFileSystem) + yourself] \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromWorkingCopy..st b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromWorkingCopy..st new file mode 100644 index 000000000..46a883eb9 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/loadMetadataFromWorkingCopy..st @@ -0,0 +1,3 @@ +mappers-creation +loadMetadataFromWorkingCopy: aWorkingCopy + ^ aWorkingCopy metadata \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/mappedPaths.st b/src/Squot.package/SquotMetadataMapper.class/instance/mappedPaths.st new file mode 100644 index 000000000..c3b66db70 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/mappedPaths.st @@ -0,0 +1,3 @@ +accessing +mappedPaths + ^ {self metadataFilePath. self legacyMappersFilePath} \ No newline at end of file diff --git a/src/Squot.package/SquotMappersMapper.class/instance/mergeCommit.into.withBase..st b/src/Squot.package/SquotMetadataMapper.class/instance/mergeCommit.into.withBase..st similarity index 100% rename from src/Squot.package/SquotMappersMapper.class/instance/mergeCommit.into.withBase..st rename to src/Squot.package/SquotMetadataMapper.class/instance/mergeCommit.into.withBase..st diff --git a/src/Squot.package/SquotMappersMapper.class/instance/mergeCommit.into.withBase.in..st b/src/Squot.package/SquotMetadataMapper.class/instance/mergeCommit.into.withBase.in..st similarity index 62% rename from src/Squot.package/SquotMappersMapper.class/instance/mergeCommit.into.withBase.in..st rename to src/Squot.package/SquotMetadataMapper.class/instance/mergeCommit.into.withBase.in..st index 81ff3c514..54e6c7144 100644 --- a/src/Squot.package/SquotMappersMapper.class/instance/mergeCommit.into.withBase.in..st +++ b/src/Squot.package/SquotMetadataMapper.class/instance/mergeCommit.into.withBase.in..st @@ -1,12 +1,12 @@ merging mergeCommit: rightFSCommit into: leftFSCommit withBase: baseFSCommit in: aWorkingCopy - | emptyCommit commits mappersForCommits commitsForMappers potentiallyRemovedMappers mapperChangeSets mappersChangeSet | + | emptyCommit commits metadataForCommits commitsForMappers potentiallyRemovedMappers mapperChangeSets mappersChangeSet metadataChangeSet | emptyCommit := aWorkingCopy emptyCommit. commits := {rightFSCommit. leftFSCommit. baseFSCommit}. - mappersForCommits := commits collect: [:each | self loadMappersFromFSCommit: each]. + metadataForCommits := commits collect: [:each | self loadMetadataFromFSCommit: each in: aWorkingCopy]. commitsForMappers := Dictionary new. commits withIndexDo: [:commit :index | - (mappersForCommits at: index) do: [:mapper | + (metadataForCommits at: index) mappers do: [:mapper | (commitsForMappers at: mapper ifAbsentPut: [{emptyCommit. emptyCommit. emptyCommit}]) at: index put: commit]]. potentiallyRemovedMappers := commitsForMappers keys select: [:mapper | | commitsForMapper | @@ -21,7 +21,12 @@ mergeCommit: rightFSCommit into: leftFSCommit withBase: baseFSCommit in: aWorkin into: mapperCommits second withBase: mapperCommits third)]. mappersChangeSet := self - changeSetFromMappers: mappersForCommits second + changeSetFromMappers: metadataForCommits second mappers removing: potentiallyRemovedMappers changeSets: mapperChangeSets. - ^ mapperChangeSets values copyWith: mappersChangeSet \ No newline at end of file + metadataChangeSet := self + mergeMetadata: metadataForCommits second + into: metadataForCommits first + withBase: metadataForCommits third + mappersChangeSet: mappersChangeSet. + ^ mapperChangeSets values copyWith: metadataChangeSet \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/mergeMetadata.into.withBase.mappersChangeSet..st b/src/Squot.package/SquotMetadataMapper.class/instance/mergeMetadata.into.withBase.mappersChangeSet..st new file mode 100644 index 000000000..cd9823545 --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/mergeMetadata.into.withBase.mappersChangeSet..st @@ -0,0 +1,8 @@ +merging +mergeMetadata: rightMetadata into: leftMetadata withBase: baseMetadata mappersChangeSet: aChangeSet + | nameChangeSet | + nameChangeSet := self + mergeName: rightMetadata name + into: leftMetadata name + withBase: baseMetadata name. + ^ self changeSetFromChangeSets: {nameChangeSet. aChangeSet} \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/mergeName.into.withBase..st b/src/Squot.package/SquotMetadataMapper.class/instance/mergeName.into.withBase..st new file mode 100644 index 000000000..0926a685e --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/mergeName.into.withBase..st @@ -0,0 +1,3 @@ +merging +mergeName: rightString into: leftString withBase: baseString + \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/metadataFilePath.st b/src/Squot.package/SquotMetadataMapper.class/instance/metadataFilePath.st new file mode 100644 index 000000000..84f40f11e --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/metadataFilePath.st @@ -0,0 +1,3 @@ +accessing +metadataFilePath + ^ FSPath / '.squot-metadata' \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/instance/metadataFileReferenceIn..st b/src/Squot.package/SquotMetadataMapper.class/instance/metadataFileReferenceIn..st new file mode 100644 index 000000000..280d4df3f --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/instance/metadataFileReferenceIn..st @@ -0,0 +1,3 @@ +filesystem +metadataFileReferenceIn: aFileSystem + ^ aFileSystem referenceTo: self metadataFilePath \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataMapper.class/methodProperties.json b/src/Squot.package/SquotMetadataMapper.class/methodProperties.json new file mode 100644 index 000000000..25921bbfd --- /dev/null +++ b/src/Squot.package/SquotMetadataMapper.class/methodProperties.json @@ -0,0 +1,34 @@ +{ + "class" : { + }, + "instance" : { + "addToSar:" : "mad 1/8/2024 20:54", + "canBeRemoved" : "mad 2/20/2024 15:42", + "canBeRemovedAfterMaterializeIn:" : "mad 2/20/2024 15:42", + "canBeRemovedAfterSerializeInto:" : "mad 2/20/2024 15:42", + "changeSetFromChangeSets:" : "mad 6/12/2024 14:20", + "changeSetFromFSCommit:toFSCommit:" : "mad 2/20/2024 15:08", + "changeSetFromFSCommit:toImage:" : "mad 2/20/2024 15:09", + "changeSetFromImage:toFSCommit:" : "mad 2/20/2024 15:09", + "changeSetFromMappers:removing:changeSets:" : "mad 6/11/2024 19:05", + "changeSetFromMetadata:to:mappersChangeSet:" : "mad 6/12/2024 14:03", + "changeSetsFromFSCommit:toFSCommit:in:" : "mad 6/12/2024 13:59", + "changeSetsFromFSCommit:toImage:" : "mad 6/12/2024 13:59", + "changeSetsFromImage:toFSCommit:" : "mad 6/12/2024 14:00", + "changeSetsFromMetadata:toMetadata:old:common:new:in:" : "mad 6/12/2024 13:51", + "hasAnyFile:" : "mad 6/12/2024 13:37", + "hasLegacyMappersFile:" : "mad 6/12/2024 13:36", + "hasMetadataFile:" : "mad 6/11/2024 18:34", + "legacyMappersFilePath" : "mad 6/11/2024 19:52", + "legacyMappersFileReferenceIn:" : "mad 6/11/2024 19:52", + "loadLegacyMappersFromFileSystem:" : "mad 6/11/2024 19:52", + "loadMetadataFromFSCommit:in:" : "mad 6/12/2024 13:59", + "loadMetadataFromFileSystem:in:" : "mad 6/12/2024 14:01", + "loadMetadataFromWorkingCopy:" : "mad 6/11/2024 18:37", + "mappedPaths" : "mad 6/11/2024 19:52", + "mergeCommit:into:withBase:" : "mad 2/20/2024 15:11", + "mergeCommit:into:withBase:in:" : "mad 6/12/2024 14:00", + "mergeMetadata:into:withBase:mappersChangeSet:" : "mad 6/12/2024 14:04", + "mergeName:into:withBase:" : "mad 6/12/2024 14:05", + "metadataFilePath" : "mad 6/11/2024 18:33", + "metadataFileReferenceIn:" : "mad 6/11/2024 18:33" } } diff --git a/src/Squot.package/SquotMappersMapper.class/properties.json b/src/Squot.package/SquotMetadataMapper.class/properties.json similarity index 85% rename from src/Squot.package/SquotMappersMapper.class/properties.json rename to src/Squot.package/SquotMetadataMapper.class/properties.json index 3bc991c69..52f1fc964 100644 --- a/src/Squot.package/SquotMappersMapper.class/properties.json +++ b/src/Squot.package/SquotMetadataMapper.class/properties.json @@ -7,7 +7,7 @@ "commentStamp" : "", "instvars" : [ ], - "name" : "SquotMappersMapper", + "name" : "SquotMetadataMapper", "pools" : [ ], "super" : "SquotMapper", diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/README.md b/src/Squot.package/SquotMetadataNameChangeSet.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName..st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName..st new file mode 100644 index 000000000..0d615f4d3 --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName..st @@ -0,0 +1,3 @@ +accessing +newName: aString + newName := aString \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName.st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName.st new file mode 100644 index 000000000..a0feda0af --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newName.st @@ -0,0 +1,3 @@ +accessing +newName + ^ newName \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterMaterializeIn..st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterMaterializeIn..st new file mode 100644 index 000000000..602ec791f --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterMaterializeIn..st @@ -0,0 +1,3 @@ +accessing +newValueAfterMaterializeIn: aWorkingCopy + ^ self newName \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterSerializeInto..st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterSerializeInto..st new file mode 100644 index 000000000..eee8b8d18 --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/newValueAfterSerializeInto..st @@ -0,0 +1,3 @@ +accessing +newValueAfterSerializeInto: aFileSystem + ^ self newName \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName..st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName..st new file mode 100644 index 000000000..0fe89675c --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName..st @@ -0,0 +1,3 @@ +accessing +oldName: aString + oldName := aString \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName.st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName.st new file mode 100644 index 000000000..60904b003 --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/oldName.st @@ -0,0 +1,3 @@ +accessing +oldName + ^ oldName \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/instance/property.st b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/property.st new file mode 100644 index 000000000..215166eca --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/instance/property.st @@ -0,0 +1,3 @@ +accessing +property + ^ #name \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/methodProperties.json b/src/Squot.package/SquotMetadataNameChangeSet.class/methodProperties.json new file mode 100644 index 000000000..fb167593a --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/methodProperties.json @@ -0,0 +1,11 @@ +{ + "class" : { + }, + "instance" : { + "newName" : "mad 6/12/2024 14:13", + "newName:" : "mad 6/12/2024 14:13", + "newValueAfterMaterializeIn:" : "mad 6/12/2024 14:12", + "newValueAfterSerializeInto:" : "mad 6/12/2024 14:13", + "oldName" : "mad 6/12/2024 14:13", + "oldName:" : "mad 6/12/2024 14:13", + "property" : "mad 6/12/2024 14:12" } } diff --git a/src/Squot.package/SquotMetadataNameChangeSet.class/properties.json b/src/Squot.package/SquotMetadataNameChangeSet.class/properties.json new file mode 100644 index 000000000..a5653914e --- /dev/null +++ b/src/Squot.package/SquotMetadataNameChangeSet.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "Squot-Mapper", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "oldName", + "newName" ], + "name" : "SquotMetadataNameChangeSet", + "pools" : [ + ], + "super" : "SquotMetadataPropertyChangeSet", + "type" : "normal" } diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/README.md b/src/Squot.package/SquotMetadataPropertyChangeSet.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/materializeIn..st b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/materializeIn..st new file mode 100644 index 000000000..7ec1c0b5d --- /dev/null +++ b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/materializeIn..st @@ -0,0 +1,3 @@ +operations +materializeIn: aWorkingCopy + self shouldNotImplement. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/property.st b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/property.st new file mode 100644 index 000000000..c43026373 --- /dev/null +++ b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/property.st @@ -0,0 +1,3 @@ +accessing +property + self subclassResponsibility. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/serializeInto..st b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/serializeInto..st new file mode 100644 index 000000000..4f9bfdaf1 --- /dev/null +++ b/src/Squot.package/SquotMetadataPropertyChangeSet.class/instance/serializeInto..st @@ -0,0 +1,3 @@ +operations +serializeInto: aFileSystem + self shouldNotImplement. \ No newline at end of file diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/methodProperties.json b/src/Squot.package/SquotMetadataPropertyChangeSet.class/methodProperties.json new file mode 100644 index 000000000..af54732dc --- /dev/null +++ b/src/Squot.package/SquotMetadataPropertyChangeSet.class/methodProperties.json @@ -0,0 +1,7 @@ +{ + "class" : { + }, + "instance" : { + "materializeIn:" : "mad 6/12/2024 13:44", + "property" : "mad 6/12/2024 14:12", + "serializeInto:" : "mad 6/12/2024 13:43" } } diff --git a/src/Squot.package/SquotMetadataPropertyChangeSet.class/properties.json b/src/Squot.package/SquotMetadataPropertyChangeSet.class/properties.json new file mode 100644 index 000000000..a83e64f3f --- /dev/null +++ b/src/Squot.package/SquotMetadataPropertyChangeSet.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Squot-Mapper", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "SquotMetadataPropertyChangeSet", + "pools" : [ + ], + "super" : "SquotChangeSet", + "type" : "normal" }