I am continuing the quest to allow pathnames relative to the image for the repository in order to make things more portable. Fixes attached for repository create/delete.
best regards
Keith
Excellent. Thanks Keith, I have merged these changes and they will be in the very next (queries beta) release.
PS - For some reason, your file-out did not have Squeak carriage returns (13), just line-feeds I think. Normally I would NEVER reformat someones code but, in this case 1) I think you intended for it to be formatted, 2) it was butt-ugly unformatted. :)
- Chris
--- Keith Hodges Keith.Hodges@warwick.ac.uk wrote:
I am continuing the quest to allow pathnames relative to the image for the repository in order to make things more portable. Fixes attached for repository create/delete.
best regards
Keith
'From Squeak3.8 of ''5 May 2005'' [latest update: #6665] on 4
August
2006 at 1:29:33 am'!
!MagmaRepositoryController class methodsFor: 'utilities' stamp: 'kph 8/4/2006 01:27'! create: localNameOrFullyQualifiedPathString "Creates a repository with an initial root of nil. I #assureExistence of the localNameOrFullyQualifiedPathString."
| fd |
fd _ FileDirectory on: (FileDirectory default fullNameFor: localNameOrFullyQualifiedPathString).
self validateCanCreateIn: fd. self new createRepositoryAt: fd! !
!MagmaRepositoryController class methodsFor: 'utilities' stamp: 'kph 8/4/2006 01:26'! delete: localNameOrFullyQualifiedPathString "Delete the just the files in fullyQualifiedPathString that are part of the Magma repository that resides there." | fd |
fd _ FileDirectory on: (FileDirectory default fullNameFor: localNameOrFullyQualifiedPathString).
(fd exists and: [ fd fileExists: MaObjectFiler objectsFilename ]) ifFalse: [ (MagmaNotification new messageText: fd pathName , ' does not exist, nothing to delete.') signal. ^ self ]. (self filesFor: fd pathName), { (MaRecoveryManager commitPackagesFilename) } do: [ : each | fd deleteFileNamed: each asString ifAbsent: [ MagmaNotification signal: 'Couldn''t find ' , each asString ] ]! !
Magma mailing list Magma@lists.squeakfoundation.org http://lists.squeakfoundation.org/mailman/listinfo/magma
magma@lists.squeakfoundation.org