From 395b786f96cfb141bef4c0759e52a068880fecc1 Mon Sep 17 00:00:00 2001 From: Dale Henrichs Date: Wed, 18 Aug 2021 10:06:40 -0700 Subject: [PATCH] I realized that work on issue_321_xxx branch contained modifications to superdoit_devkit for early work on #321, so I'm starting over with the latest issue_260_2021 and restoring relevant files from issue_321_xxx branch ... keeping my promist to leave superdoit_devkit untouched --- shared/gemstone/bin/contexttest | 35 ++++ shared/gemstone/bin/newextent | 109 ++++++++++ shared/gemstone/bin/products | 69 +++++++ shared/gemstone/bin/restartnetldi | 173 ++++++++++++++++ shared/gemstone/bin/startnetldi | 190 ++++++++++++++++++ shared/gemstone/bin/startstone | 132 ++++++++++++ shared/gemstone/bin/stones | 142 +++++++++++++ shared/gemstone/bin/stopnetldi | 132 ++++++++++++ shared/gemstone/bin/stopstone | 148 ++++++++++++++ shared/gemstone/bin/versionReport.solo | 39 ++++ shared/gemstone/bin/versionReport.stone | 45 +++++ .../gemstone/dev/superDoitTodeInstall.stone | 51 +++++ .../repos/GsDevKit_SuperDoit/REAME.md | 0 .../rowan/components/GsDevKit.ston | 11 + .../GsDevKit_SuperDoit/rowan/project.ston | 10 + .../rowan/projects/README.md | 0 .../rowan/specs/GsDevKit.ston | 10 + .../GsDevKit_SuperDoit/rowan/src/.filetree | 2 + .../.filetree | 4 + .../README.md | 0 .../instance/baseline..st | 19 ++ .../instance/customProjectAttributes.st | 6 + .../instance/project.st | 5 + .../methodProperties.json | 6 + .../properties.json | 14 ++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../monticello.meta/version | 1 + .../properties.json | 2 + .../rowan/src/GsDevKit-Core.package/.filetree | 4 + .../README.md | 0 .../class/newForRegistry..st | 5 + .../instance/^equals.st | 5 + .../instance/excludedInstVarNames.st | 3 + .../instance/registry..st | 3 + .../instance/registry.st | 3 + .../instance/registryName..st | 4 + .../instance/registryName.st | 3 + .../methodProperties.json | 10 + .../properties.json | 15 ++ .../GsDevKitForeignStoneInfo.class/README.md | 0 .../createSessionDescriptionFor.for..st | 20 ++ .../instance/isForeignStone.st | 3 + .../methodProperties.json | 6 + .../properties.json | 14 ++ .../GsDevKitRegistry.class/README.md | 0 .../class/defaultRegistry.st | 8 + .../class/forGsDevKitOnPath..st | 10 + .../class/gsDevKitEnvironmentVariableName.st | 3 + .../class/initializeRegistries.st | 3 + .../class/registries.st | 3 + .../instance/defaultFileName.st | 3 + .../instance/defaultSourcePath.st | 5 + .../instance/excludedInstVarNames.st | 3 + .../GsDevKitRegistry.class/instance/groups.st | 3 + .../instance/gsDevKitRoot..st | 3 + .../instance/gsDevKitRoot.st | 3 + .../instance/initialize.st | 6 + .../instance/initializeSharedSourceRepo.st | 8 + .../instance/localStones.st | 3 + .../instance/modificationTime.st | 5 + .../instance/mostRecentModificationTime.st | 7 + .../newRemoteStoneWithRegistryName..st | 3 + ...wRemoteStoneWithRegistryName.stonePath..st | 6 + .../newSourceRepoWithRegistryName..st | 3 + ...newSourceRepoWithRegistryName.repoPath..st | 8 + ...oupWithRegistryName.stoneRegistryNames..st | 8 + ...oneRegistration.registryName.stonePath..st | 8 + .../instance/newStoneWithRegistryName..st | 3 + .../newStoneWithRegistryName.stonePath..st | 6 + .../instance/registry.st | 3 + .../instance/remoteStones.st | 3 + .../instance/sharedSourceRepo.st | 7 + .../instance/sourceRepoWithRegistryName..st | 5 + .../instance/sourceRepos.st | 3 + .../instance/stoneWithRegistryName..st | 5 + .../GsDevKitRegistry.class/instance/stones.st | 3 + .../methodProperties.json | 34 ++++ .../GsDevKitRegistry.class/properties.json | 17 ++ .../README.md | 0 .../methodProperties.json | 5 + .../properties.json | 14 ++ .../README.md | 0 .../instance/defaultSourcePath.st | 3 + .../methodProperties.json | 5 + .../properties.json | 14 ++ .../GsDevKitSerializable.class/README.md | 9 + .../class/importFrom..st | 3 + .../instance/defaultFileName.st | 5 + .../instance/defaultSourcePath.st | 7 + .../instance/defaultSourceReference.st | 6 + .../instance/deserializeOn..st | 3 + .../instance/export.st | 4 + .../instance/exportTo..st | 9 + .../instance/import.st | 4 + .../instance/importFrom..st | 6 + .../instance/initialize.st | 3 + .../instance/modificationTime..st | 3 + .../instance/modificationTime.st | 3 + .../instance/modified.st | 3 + .../instance/registry.st | 3 + .../resolveRegistryFileReferenceFrom..st | 11 + .../instance/serializeOn..st | 3 + .../instance/sourcePath..st | 3 + .../instance/sourcePath.st | 5 + .../instance/sourceReference..st | 3 + .../instance/sourceReference.st | 5 + .../instance/sync.st | 10 + .../instance/updateFrom..st | 3 + .../methodProperties.json | 25 +++ .../properties.json | 16 ++ .../GsDevKitShellEnvironment.class/README.md | 0 .../methodProperties.json | 5 + .../properties.json | 14 ++ .../README.md | 0 .../instance/defaultRepoPath.st | 3 + .../instance/defaultSourcePath.st | 4 + .../instance/repoPath..st | 4 + .../instance/repoPath.st | 3 + .../methodProperties.json | 8 + .../properties.json | 14 ++ .../GsDevKitSton.class/README.md | 0 .../GsDevKitSton.class/class/importFrom..st | 18 ++ .../instance/excludedInstVarNames.st | 3 + .../GsDevKitSton.class/instance/fromSton..st | 12 ++ .../instance/prettyPrintStonOn..st | 6 + .../instance/serializeOn..st | 3 + .../instance/stonInstVarNames.st | 6 + .../GsDevKitSton.class/instance/stonOn..st | 7 + .../instance/updateFrom..st | 8 + .../GsDevKitSton.class/methodProperties.json | 11 + .../GsDevKitSton.class/properties.json | 14 ++ .../GsDevKitStoneContext.class/README.md | 0 .../instance/asStoneContext.st | 3 + .../instance/authorId..st | 3 + .../instance/authorId.st | 3 + .../instance/backupDirectory..st | 5 + .../instance/backupDirectory.st | 3 + .../instance/dataDirectory..st | 5 + .../instance/dataDirectory.st | 3 + .../instance/defaultFileName.st | 3 + .../instance/defaultGemHost.st | 3 + .../instance/defaultGemTask.st | 3 + .../instance/defaultGemstoneVersion.st | 3 + .../instance/defaultNetLDI.st | 3 + .../instance/defaultPassword.st | 3 + .../instance/defaultSourcePath.st | 3 + .../instance/defaultStoneHost.st | 3 + .../instance/defaultStoneName.st | 3 + .../instance/defaultUserId.st | 3 + .../instance/environmentId..st | 3 + .../instance/environmentId.st | 3 + .../instance/excludeNetLDIPort..st | 3 + .../instance/excludeNetLDIPort.st | 3 + .../instance/excludedInstVarNames.st | 23 +++ .../instance/exportTo..st | 12 ++ .../instance/fileName.st | 3 + .../instance/fromSton..st | 12 ++ .../instance/gciLibraryName..st | 3 + .../instance/gciLibraryName.st | 4 + .../instance/gemHost..st | 3 + .../instance/gemHost.st | 3 + .../instance/gemNRS.st | 4 + .../instance/gemTask..st | 3 + .../instance/gemTask.st | 3 + .../instance/gemstoneVersion..st | 3 + .../instance/gemstoneVersion.st | 3 + .../instance/isGuest.st | 3 + .../instance/netLDI..st | 3 + .../instance/netLDI.st | 3 + .../instance/netLDIOrNetLDIPort.st | 5 + .../instance/netLDIPort..st | 3 + .../instance/netLDIPort.st | 3 + .../instance/netLDIPortRange..st | 3 + .../instance/netLDIPortRange.st | 3 + .../instance/netldiArgsOn..st | 33 +++ .../instance/osPassword..st | 3 + .../instance/osPassword.st | 3 + .../instance/osUserId..st | 3 + .../instance/osUserId.st | 3 + .../instance/password..st | 3 + .../instance/password.st | 3 + .../instance/snapshotDirectory..st | 5 + .../instance/snapshotDirectory.st | 5 + .../instance/stonProcessSubObjects..st | 6 + .../instance/stoneHost..st | 3 + .../instance/stoneHost.st | 3 + .../instance/stoneNRS.st | 3 + .../instance/stoneName..st | 3 + .../instance/stoneName.st | 3 + .../instance/userId..st | 3 + .../instance/userId.st | 3 + .../methodProperties.json | 63 ++++++ .../properties.json | 34 ++++ .../README.md | 0 .../instance/^equals.st | 3 + .../instance/initialize.st | 4 + .../instance/stoneRegistryNames..st | 4 + .../instance/stoneRegistryNames.st | 3 + .../methodProperties.json | 8 + .../properties.json | 14 ++ .../GsDevKitStoneInfo.class/README.md | 0 .../class/gsDownloadNameFor..st | 11 + .../class/importFrom..st | 3 + .../GsDevKitStoneInfo.class/class/isMacOSX.st | 3 + .../GsDevKitStoneInfo.class/class/isUnix.st | 3 + .../class/isWindows.st | 3 + .../addFieldsToSessionDescription..st | 16 ++ .../createSessionDescriptionFor.for..st | 23 +++ .../instance/excludedInstVarNames.st | 3 + .../instance/exportTo..st | 7 + .../instance/fromSton..st | 12 ++ .../instance/gsVers..st | 3 + .../instance/gsVers.st | 3 + .../instance/isAttached..st | 3 + .../instance/isAttached.st | 4 + .../instance/isForeignStone.st | 3 + .../instance/netLDI.st | 3 + .../instance/printOn..st | 5 + .../instance/stonInstVarNames.st | 6 + .../instance/stonOn..st | 7 + .../instance/stonProcessSubObjects..st | 6 + .../instance/stoneName..st | 3 + .../instance/stoneName.st | 3 + .../instance/username..st | 3 + .../instance/username.st | 4 + .../methodProperties.json | 27 +++ .../GsDevKitStoneInfo.class/properties.json | 17 ++ .../GsDevKitStoneRegistration.class/README.md | 0 .../instance/context.st | 5 + .../instance/defaultSourcePath.st | 4 + .../instance/defaultStonePath.st | 3 + .../instance/excludedInstVarNames.st | 3 + .../instance/reifyContext.st | 4 + .../instance/stonePath..st | 4 + .../instance/stonePath.st | 3 + .../methodProperties.json | 11 + .../properties.json | 15 ++ .../GsDevKitTopazini.class/README.md | 0 .../methodProperties.json | 5 + .../GsDevKitTopazini.class/properties.json | 14 ++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../monticello.meta/version | 1 + .../src/GsDevKit-Core.package/properties.json | 2 + .../TDSessionDescription.class/README.md | 0 .../class/importFrom..st | 9 + .../class/seaside.st | 10 + .../instance/adornmentColor..st | 3 + .../instance/adornmentColor.st | 3 + .../instance/asTDSessionDescription.st | 3 + .../instance/authorId..st | 3 + .../instance/authorId.st | 4 + .../instance/backupDirectory..st | 6 + .../instance/backupDirectory.st | 5 + .../instance/dataDirectory..st | 6 + .../instance/dataDirectory.st | 5 + .../instance/defaultGemHost.st | 4 + .../instance/defaultGemTask.st | 4 + .../instance/defaultGemstoneVersion.st | 4 + .../instance/defaultNetLDI.st | 4 + .../instance/defaultPassword.st | 4 + .../instance/defaultStoneHost.st | 4 + .../instance/defaultStoneName.st | 4 + .../instance/defaultUserId.st | 4 + .../instance/environmentId..st | 3 + .../instance/environmentId.st | 3 + .../instance/excludeNetLDIPort..st | 3 + .../instance/excludeNetLDIPort.st | 4 + .../instance/excludedInstVarNames.st | 24 +++ .../instance/exportTo..st | 3 + .../instance/exportTo.extension..st | 12 ++ .../instance/fromSton..st | 12 ++ .../instance/gciLibraryName..st | 3 + .../instance/gciLibraryName.st | 4 + .../instance/gemHost..st | 4 + .../instance/gemHost.st | 5 + .../instance/gemNRS.st | 6 + .../instance/gemTask..st | 4 + .../instance/gemTask.st | 5 + .../instance/gemstoneVersion..st | 7 + .../instance/gemstoneVersion.st | 4 + .../instance/isGuest.st | 4 + .../instance/name..st | 4 + .../instance/name.st | 6 + .../instance/netLDI..st | 4 + .../instance/netLDI.st | 5 + .../instance/netLDIOrNetLDIPort.st | 5 + .../instance/netLDIPort..st | 3 + .../instance/netLDIPort.st | 4 + .../instance/netLDIPortRange..st | 3 + .../instance/netLDIPortRange.st | 3 + .../instance/netldiArgsOn..st | 33 +++ .../instance/osPassword..st | 4 + .../instance/osPassword.st | 5 + .../instance/osUserId..st | 4 + .../instance/osUserId.st | 5 + .../instance/password..st | 4 + .../instance/password.st | 5 + .../instance/postCopy.st | 5 + .../instance/serverGitRoot..st | 3 + .../instance/serverGitRoot.st | 3 + .../instance/serverTodeRoot..st | 4 + .../instance/serverTodeRoot.st | 4 + .../instance/snapshotDirectory..st | 6 + .../instance/snapshotDirectory.st | 5 + .../instance/stonInstVarNames.st | 6 + .../instance/stonOn..st | 7 + .../instance/stonProcessSubObjects..st | 6 + .../instance/stoneHost..st | 4 + .../instance/stoneHost.st | 5 + .../instance/stoneNRS.st | 5 + .../instance/stoneName..st | 4 + .../instance/stoneName.st | 5 + .../instance/todeUserId..st | 3 + .../instance/todeUserId.st | 3 + .../instance/userId..st | 4 + .../instance/userId.st | 5 + .../methodProperties.json | 75 +++++++ .../properties.json | 37 ++++ .../src/GsDevKit-Tests.package/.filetree | 4 + .../GsDevKitRegistryTests.class/README.md | 0 .../instance/emptyRegistry.st | 7 + .../instance/registry.st | 3 + .../instance/registryFileSystem.st | 3 + .../instance/registryGroups.st | 11 + .../instance/registryRepos.st | 10 + .../instance/registryStones.st | 16 ++ .../instance/setUp.st | 4 + .../instance/setUpRegistry.st | 31 +++ .../instance/setUpRegistryFileSystem.st | 18 ++ .../instance/ston_registry.st | 50 +++++ .../instance/ston_registry_altered.st | 55 +++++ .../instance/ston_testStone1_registration.st | 6 + .../instance/tearDown.st | 6 + .../instance/testAddRemoteStone.st | 11 + .../instance/testAddSourceRepo.st | 11 + .../instance/testAddStone.st | 11 + .../instance/testAddStoneOutsideGsDevKit.st | 13 ++ .../instance/testDefaultRegistry.st | 19 ++ .../instance/testExportRegistry.st | 11 + .../instance/testLoadingRegistry.st | 22 ++ .../instance/testLocalStones.st | 8 + .../instance/testRegistryModification.st | 9 + .../instance/testRemoteStones.st | 8 + .../instance/testSharedSourceRepo.st | 14 ++ .../instance/testSync.st | 8 + .../methodProperties.json | 29 +++ .../properties.json | 15 ++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../monticello.meta/version | 1 + .../GsDevKit-Tests.package/properties.json | 2 + .../rowan/src/properties.st | 4 + shared/gemstone/repos/superDoit | 1 + 358 files changed, 3566 insertions(+) create mode 100755 shared/gemstone/bin/contexttest create mode 100755 shared/gemstone/bin/newextent create mode 100755 shared/gemstone/bin/products create mode 100755 shared/gemstone/bin/restartnetldi create mode 100755 shared/gemstone/bin/startnetldi create mode 100755 shared/gemstone/bin/startstone create mode 100755 shared/gemstone/bin/stones create mode 100755 shared/gemstone/bin/stopnetldi create mode 100755 shared/gemstone/bin/stopstone create mode 100755 shared/gemstone/bin/versionReport.solo create mode 100755 shared/gemstone/bin/versionReport.stone create mode 100755 shared/gemstone/dev/superDoitTodeInstall.stone create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/REAME.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/components/GsDevKit.ston create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/project.ston create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/projects/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/specs/GsDevKit.ston create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/.filetree create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/.filetree create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/baseline..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/customProjectAttributes.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/project.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/categories.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/initializers.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/package create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/version create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/.filetree create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/class/newForRegistry..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/^equals.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/createSessionDescriptionFor.for..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/isForeignStone.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/defaultRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/forGsDevKitOnPath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/gsDevKitEnvironmentVariableName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/initializeRegistries.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/registries.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultFileName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/groups.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initialize.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initializeSharedSourceRepo.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/localStones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/modificationTime.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/mostRecentModificationTime.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName.stonePath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName.repoPath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneGroupWithRegistryName.stoneRegistryNames..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneRegistration.registryName.stonePath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName.stonePath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/registry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/remoteStones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sharedSourceRepo.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepoWithRegistryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepos.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stoneWithRegistryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/class/importFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultFileName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourceReference.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/deserializeOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/export.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/exportTo..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/import.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/importFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/initialize.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modified.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/registry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/resolveRegistryFileReferenceFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/serializeOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sync.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/updateFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultRepoPath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/class/importFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/fromSton..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/prettyPrintStonOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/serializeOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/updateFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/asStoneContext.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultFileName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemTask.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemstoneVersion.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultNetLDI.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultPassword.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultUserId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/exportTo..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fileName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fromSton..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemNRS.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/isGuest.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIOrNetLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netldiArgsOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stonProcessSubObjects..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneNRS.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/^equals.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/initialize.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/gsDownloadNameFor..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/importFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isMacOSX.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isUnix.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isWindows.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/addFieldsToSessionDescription..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/createSessionDescriptionFor.for..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/exportTo..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/fromSton..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isForeignStone.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/netLDI.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/printOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonProcessSubObjects..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/context.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultSourcePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultStonePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/reifyContext.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/categories.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/initializers.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/package create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/version create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/importFrom..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/seaside.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/asTDSessionDescription.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemTask.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemstoneVersion.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultNetLDI.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultPassword.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultUserId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludedInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo.extension..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/fromSton..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemNRS.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/isGuest.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIOrNetLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netldiArgsOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/postCopy.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonInstVarNames.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonOn..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonProcessSubObjects..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneNRS.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId..st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/.filetree create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/README.md create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/emptyRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryFileSystem.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryGroups.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryRepos.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryStones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUp.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistryFileSystem.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry_altered.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_testStone1_registration.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/tearDown.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddRemoteStone.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddSourceRepo.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStone.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStoneOutsideGsDevKit.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testDefaultRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testExportRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLoadingRegistry.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLocalStones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRegistryModification.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRemoteStones.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSharedSourceRepo.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSync.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/methodProperties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/categories.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/initializers.st create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/package create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/version create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/properties.json create mode 100644 shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/properties.st create mode 160000 shared/gemstone/repos/superDoit diff --git a/shared/gemstone/bin/contexttest b/shared/gemstone/bin/contexttest new file mode 100755 index 00000000..e96a8973 --- /dev/null +++ b/shared/gemstone/bin/contexttest @@ -0,0 +1,35 @@ +#!/usr/bin/env superdoit_solo +instvars +% +usage +----- +USAGE $basename [--help | -h] [stoneName] + +DESCRIPTION + Script to test working with environments and stone contexts (groups of environment variables) + +OPTIONS + -h, --help display usage message + --debug display debugging messages + +EXAMPLES + $basename --help + $basename --debug myStone +----- +% +method +testContext + self stderr nextPutAll: 'PWD: ', (System gemEnvironmentVariable: 'PWD') asString; cr. +% +method +stoneContext + +% +method +findLocalStone + "Search from PWD up through the directory tree to find info.stone" +% +doit + self testContext. + self noResult +% diff --git a/shared/gemstone/bin/newextent b/shared/gemstone/bin/newextent new file mode 100755 index 00000000..5366a331 --- /dev/null +++ b/shared/gemstone/bin/newextent @@ -0,0 +1,109 @@ +#!/usr/bin/env superdoit_solo +instvars + gsListResult +% +usage +----- +USAGE $basename stone-name [snapshot-file] [mime-type] + +DESCRIPTION + Copy a new extent to the stones extent directory + +OPTIONS + -h, --help display usage message + +EXAMPLES + $basename --help + $basename myStone + $basename myStone /opt/snapshots/mySnapshop.dbf + $basename myStone /opt/snapshots/mySnapshot.dbf.gz x-gzip +----- +% +method +newExtent + | stream stoneDirectory extentFile | + stream := self stderr. + self positionalArgs size == 0 ifTrue: [ + ^ Error signal: 'Wrong number of arguments (' , self positionalArgs size printString , ')' ]. + stoneDirectory := self gs_stoneDirectory. + extentFile := stoneDirectory / 'extents' / 'extent0.dbf'. + extentFile exists + ifTrue: [ extentFile delete ]. + self mediaType = 'x-gzip' + ifTrue: [ self gunzipSnapshotExtent: stoneDirectory ] + ifFalse: [ self copySnapshotExtent: stoneDirectory ]. + + ^ self noResult +% +method +mediaType + self positionalArgs size < 3 ifTrue: [ ^ 'octet-stream' ]. + ^ self positionalArgs at: 3 +% +method +copySnapshotExtent: stoneDirectory + "use copydbf, so that any corruption in the extent file can be found at the outset" + + self copySnapshotExtent: self snapshotFile to: stoneDirectory for: self gsVers +% +method +copySnapshotExtent: snapshotExtentFile to: stoneDirectory for: aGsVersionString + "use copydbf, so that any corruption in the extent file can be found at the outset" + + | extentFile argsArray cmdPath | + self stderr nextPutAll: ('Copying extent file: ' , snapshotExtentFile pathString printString); cr. + extentFile := stoneDirectory / 'extents' / 'extent0.dbf'. + cmdPath := (aGsVersionString beginsWith: '2.4') + ifTrue: [ + "cannot use copydbf to copy extent from product tree, so unconditionally use `cp`" + '/bin/cp' ] + ifFalse: [ (self gemstoneBin / 'copydbf') pathString ]. + argsArray := {(snapshotExtentFile pathString). (extentFile pathString)}. + self stderr nextPutAll: (self runShellCommand: cmdPath args: argsArray); cr. + OSProcess command: 'chmod +w "' , extentFile pathString, '"' +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneName + ^ self positionalArgs at: 1 +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +gs_binDirectory + ^ (System gemEnvironmentVariable: 'GEMSTONE'), '/bin/' +% +method +gsListResult + ^ gsListResult ifNil: [ gsListResult := GsHostProcess execute: self gs_binDirectory, 'gslist -lc' ] +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] + on: Error + do: [ :ex | + ((self respondsTo: #'debug') and: [ self debug ]) + ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self newExtent +% diff --git a/shared/gemstone/bin/products b/shared/gemstone/bin/products new file mode 100755 index 00000000..c7323891 --- /dev/null +++ b/shared/gemstone/bin/products @@ -0,0 +1,69 @@ +#!/usr/bin/env superdoit_solo +instvars + installedProducts +% +usage +----- +USAGE $basename [--help | -h] + +DESCRIPTION + Provide information on the downloaded GemStone versions. + +OPTIONS + -h, --help display usage message + +EXAMPLES + $basename --help + $basename +----- +% +method +produceProductsReport + | stream | + stream := self stderr. + self installedProductsReportOn: stream +% +method +installedProductsReportOn: stream + stream + nextPutAll: 'Installed Products:'; + cr. + self installedProducts keys asSortedCollection + do: [ :gsVers | + stream + tab; + nextPutAll: gsVers; + cr ] +% +method +installedProducts + installedProducts + ifNil: [ + installedProducts := Dictionary new. + self gs_productsDirectory directories + do: [ :productDir | + | dirName | + dirName := productDir basename. + (dirName indexOfSubCollection: 'GemStone64Bit') == 1 + ifTrue: [ + | productVersion dashIndex | + dashIndex := dirName indexOf: $-. + productVersion := dirName copyFrom: 'GemStone64Bit' size + 1 to: dashIndex - 1. + installedProducts at: productVersion put: productDir ] + ifFalse: [ + (dirName indexOfSubCollection: 'GemBuilderC') == 1 + ifTrue: [ + | productVersion dashIndex | + dashIndex := dirName indexOf: $-. + productVersion := dirName copyFrom: 'GemBuilderC' size + 1 to: dashIndex - 1. + installedProducts at: productVersion put: productDir ] ] ] ]. + ^ installedProducts +% +method +gs_productsDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/shared/downloads/products') asFileReference +% +doit + self produceProductsReport. + ^ self noResult +% diff --git a/shared/gemstone/bin/restartnetldi b/shared/gemstone/bin/restartnetldi new file mode 100755 index 00000000..48058d52 --- /dev/null +++ b/shared/gemstone/bin/restartnetldi @@ -0,0 +1,173 @@ +#!/usr/bin/env superdoit_solo +instvars +% +usage +----- +USAGE: restartnetldi [-h] + +DESCRIPTION +Restart a running netldi process. + +OPTIONS + -h, --help display usage message + +EXAMPLES + $basename -h + $basename myStoneName +----- +% +projectshome +$GS_HOME/shared/gemstone/repos +% +specs +[ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} +] +% +method +globalNamed: aString + ^ self + globalNamed: aString + ifAbsent: [ self error: 'The global named ', aString printString, ' cannot be found.']. +% +method +restartNetldi + "If GemStone version if >= 3.3 netldi supports restarting with -r. + Older version need to be stopped and then started using the same arguments used to start it the first time" + + | result netldiArgs | + self stderr nextPutAll: 'SESS_HOME: ', (System gemEnvironmentVariable: 'GS_SYS_SESSIONS'). + self stoneInfo gsVers >= '3.3.0' ifTrue: [ + result := GsHostProcess execute: (self gs_binDirectory / 'startnetldi ') fullPath asString, ' -r ', self sessionDescription netLDI. + self stderr nextPutAll: result. + ] ifFalse: [ + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'stopNetldi ') fullPath asString, ' ', self stoneName. + self stderr nextPutAll: result. + netldiArgs := self netldiArgsStringFromArray: self netldiArgs. + result := GsHostProcess execute: (self gs_devKitBinDirectory / 'startNetldi ') fullPath asString, ' ', netldiArgs. + self stderr nextPutAll: result. + ]. +% +method +netldiArgs + | sess netldiArgs | + sess := self sessionDescription. + netldiArgs := OrderedCollection new. + self netldiArgsOn: netldiArgs. + (self scriptArgs size = 1 or: [ self scriptArgs size = 2 and: [ self privateRestart ] ]) + ifTrue: [ + self privateRestart ifTrue: [ netldiArgs add: '-r' ]. + sess netldiArgsOn: netldiArgs. + ] + ifFalse: [ + netldiArgs + addAll: (self scriptArgs copyFrom: 3 to: self scriptArgs size); + add: sess netLDI + ]. + ^ netldiArgs +% +method +netldiArgsOn: netldiArgs + | logDir | + logDir := self gs_logDirectory. + netldiArgs + add: '-l'; + add: (logDir / 'netldi.log') fullPath asString +% +method +netldiArgsStringFromArray: netldiArgsArray + ^ String streamContents: [ :stream | + netldiArgsArray + do: [ :item | stream nextPutAll: item asString ] + separatedBy: [ stream space ] + ] +% +method +sessionDescription + ^ self + sessionDescriptionIfAbsent: [ :sessionDescriptionReference | + Error signal: + 'Session description file ' , sessionDescriptionReference pathString printString , ' for ' , self stoneName printString + , ' not found.' ] +% +method +sessionDescriptionIfAbsent: absentBlock + ^self sessionDescriptionFor: self stoneName ifAbsent: absentBlock +% +method +sessionDescriptionFor: aStoneName ifAbsent: absentBlock + | sessionDescriptionReference | + sessionDescriptionReference := self sessionDescriptionHome / aStoneName. + sessionDescriptionReference exists + ifFalse: [ ^ absentBlock value: sessionDescriptionReference ]. + ^ (self globalNamed: 'TDSessionDescription') importFrom: sessionDescriptionReference pathString +% +method +sessionDescriptionHome + ^ (System gemEnvironmentVariable: 'GS_SYS_SESSIONS') asFileReference +% +method +gs_binDirectory + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference +% +method +gs_logDirectory + ^ (System gemEnvironmentVariable: 'GEMSTONE_LOGDIR') asFileReference +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_devKitBinDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/bin') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneInfoClass + ^ (self globalNamed: 'GsDevKitStoneInfo') +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +stoneInfo + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename +% +method +stoneName + ^ self positionalArgs at: 1 +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self preDoitSpecLoad. "load the GsDevKit_SuperDoit project from spec" + self restartNetldi. + ^ self noResult +% diff --git a/shared/gemstone/bin/startnetldi b/shared/gemstone/bin/startnetldi new file mode 100755 index 00000000..d18746fe --- /dev/null +++ b/shared/gemstone/bin/startnetldi @@ -0,0 +1,190 @@ +#!/usr/bin/env superdoit_solo +instvars +% +options +{ + SuperDoitOptionalOptionWithNoArg long: 'passArgumentsToNetldi' short: 'l'. + SuperDoitOptionalOptionWithNoArg long: 'privateGuestMode' short: 'g'. + SuperDoitOptionalOptionWithNoArg long: 'privateUserName' short: 'a'. + SuperDoitOptionalOptionWithNoArg long: 'privatePortNumber' short: 'P'. + SuperDoitOptionalOptionWithNoArg long: 'privateRestart' short: 'r'. +} +% +usage +----- +USAGE: startNetldi [-h] [] + +DESCRIPTION +Start the netldi process for the given stone. + +By default the netldi is started using the following commandline: + + startnetldi -l -g -a currentUserName + +If a port number is specified in the session description then the following command line is used: + + startnetldi -l -g -a currentUserName -P + +If you specify any , then the are passed +to the startnetldi command and none of the above defaults apply (except for the -l option): + + startnetldi -l + +OPTIONS + -h, --help display usage message + -l, --passThroughArguments Startup without transaction logs. + +EXAMPLES + $basename -h + $basename myStoneName + $basename -g myStoneName -A +----- +% +projectshome +$GS_HOME/shared/gemstone/repos +% +specs +[ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} +] +% +method +globalNamed: aString + ^ self + globalNamed: aString + ifAbsent: [ self error: 'The global named ', aString printString, ' cannot be found.']. +% +method +startNetldi + | netldiArgs result | + self shouldNotBeForeignStone. + netldiArgs := self netldiArgsStringFromArray: self netldiArgs. + result := GsHostProcess execute: (self gs_binDirectory / 'startnetldi ') fullPath asString, ' ', netldiArgs. + self stderr nextPutAll: result +% +method +shouldNotBeForeignStone + self stoneInfo isForeignStone + ifTrue: [ + ^ Error signal: + 'The stone ' , self stoneName printString , ' is a foreign stone and should not be controlled from GsDevKit_home.' ]. +% +method +netldiArgs + | sess netldiArgs | + sess := self sessionDescription. + netldiArgs := OrderedCollection new. + self netldiArgsOn: netldiArgs. + (self scriptArgs size = 1 or: [ self scriptArgs size = 2 and: [ self privateRestart ] ]) + ifTrue: [ + self privateRestart ifTrue: [ netldiArgs add: '-r' ]. + sess netldiArgsOn: netldiArgs. + ] + ifFalse: [ + netldiArgs + addAll: (self scriptArgs copyFrom: 3 to: self scriptArgs size); + add: sess netLDI + ]. + ^ netldiArgs +% +method +netldiArgsOn: netldiArgs + | logDir | + logDir := self gs_logDirectory. + netldiArgs + add: '-l'; + add: (logDir / 'netldi.log') fullPath asString +% +method +netldiArgsStringFromArray: netldiArgsArray + ^ String streamContents: [ :stream | + netldiArgsArray + do: [ :item | stream nextPutAll: item asString ] + separatedBy: [ stream space ] + ] +% +method +sessionDescription + ^ self + sessionDescriptionIfAbsent: [ :sessionDescriptionReference | + Error signal: + 'Session description file ' , sessionDescriptionReference pathString printString , ' for ' , self stoneName printString + , ' not found.' ] +% +method +sessionDescriptionIfAbsent: absentBlock + ^self sessionDescriptionFor: self stoneName ifAbsent: absentBlock +% +method +sessionDescriptionFor: aStoneName ifAbsent: absentBlock + | sessionDescriptionReference | + sessionDescriptionReference := self sessionDescriptionHome / aStoneName. + sessionDescriptionReference exists + ifFalse: [ ^ absentBlock value: sessionDescriptionReference ]. + ^ (self globalNamed: 'TDSessionDescription') importFrom: sessionDescriptionReference pathString +% +method +sessionDescriptionHome + ^ (System gemEnvironmentVariable: 'GS_SYS_SESSIONS') asFileReference +% +method +gs_binDirectory + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference +% +method +gs_logDirectory + ^ (System gemEnvironmentVariable: 'GEMSTONE_LOGDIR') asFileReference +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneInfoClass + ^ (self globalNamed: 'GsDevKitStoneInfo') +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +stoneInfo + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename +% +method +stoneName + ^ self positionalArgs at: 1 +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self startNetldi. + ^ self noResult + +% diff --git a/shared/gemstone/bin/startstone b/shared/gemstone/bin/startstone new file mode 100755 index 00000000..4f9e4fcc --- /dev/null +++ b/shared/gemstone/bin/startstone @@ -0,0 +1,132 @@ +#!/usr/bin/env superdoit_solo +instvars +% +options +{ + SuperDoitOptionalOptionWithNoArg long: 'both' short: 'b'. + SuperDoitOptionalOptionWithNoArg long: 'restart' short: 'r'. + SuperDoitOptionalOptionWithNoArg long: 'conversion' short: 'C'. + SuperDoitOptionalOptionWithNoArg long: 'notranslogs' short: 'N'. + SuperDoitOptionalOptionWithNoArg long: 'restore' short: 'R'. + SuperDoitOptionalOptionWithRequiredArg long: 'wait' short: 'w' default: '-1'. +} +% +usage +----- +USAGE: $basename [-h] [-b] [-C] [-N] [-R] [-r] [-w ] + +DESCRIPTION + Start the stone process for the given stone. + +OPTIONS + -h, --help display usage message + -N, --notranslogs Startup without transaction logs. + -R, --restore Startup for restore + +The following options not implemented here + -b, --both start both stone and netldi + -r, --restart Restart stone if running + -C, --conversion Startup for conversion. + -N, --notranslogs Startup without transaction logs. + -R, --restore Startup for restore + -w, --wait + if present wait up to minutes for the stone to + properly start + +EXAMPLES + $basename -h + $basename myStoneName + $basename -b myStoneName + $basename -w myStoneName +----- +% +projectshome +$GS_HOME/shared/gemstone/repos +% +specs +[ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} +] +% +method +startStone + | result | + (self positionalArgs size < 1 or: [ self positionalArgs size > 2 ]) + ifTrue: [ + ^ Error signal: 'Wrong number of arguments (' , self positionalArgs size printString , ')' ]. + self shouldNotBeForeignStone. + result := GsHostProcess execute: (self gs_binDirectory / 'startstone ') fullPath asString, ' ', self passThroughArguments, self positionalArgs first. + self stderr nextPutAll: result; cr. +% +method +shouldNotBeForeignStone + self stoneInfo isForeignStone + ifTrue: [ + ^ Error signal: + 'The stone ' , self stoneName printString , ' is a foreign stone and should not be controlled from GsDevKit_home.' ]. +% +method +passThroughArguments + ^ String streamContents: [ :stream | + self notranslogs ifTrue: [ stream nextPutAll: ' -N ' ] ifFalse: [ + self restore ifTrue: [ stream nextPutAll: ' -R '] + ] + ] +% +method +gs_binDirectory + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneInfoClass + ^ (self globalNamed: 'GsDevKitStoneInfo') +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +stoneInfo + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename +% +method +stoneName + ^ self positionalArgs at: 1 +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self startStone. + ^ self noResult + +% diff --git a/shared/gemstone/bin/stones b/shared/gemstone/bin/stones new file mode 100755 index 00000000..9bd1dc9c --- /dev/null +++ b/shared/gemstone/bin/stones @@ -0,0 +1,142 @@ +#!/usr/bin/env superdoit_solo +instvars + gsListResult +% +options +{ + SuperDoitOptionalOptionWithNoArg long: 'all' short: 'a'. + SuperDoitOptionalOptionWithNoArg long: 'installed' short: 'i'. + SuperDoitOptionalOptionWithNoArg long: 'running' short: 'r'. +} +% +usage +----- +USAGE $basename [--help | -h] [--all | -a] [--installed | -i] [--running | -r] + +DESCRIPTION + Provide information on the running and installed stones. + +OPTIONS + -h, --help display usage message + -a, --all display information on running and installed stones (default) + -i, --installed display information on installed stones + -r, --running display information on running stones + +EXAMPLES + $basename --help + $basename -a + $basename --installed + $basename -i -r + $basename +----- +% +method +produceStonesReport + | stream | + stream := self stderr. + self scriptArgs size == 0 ifTrue: [ self all: true ]. + (self all or: [self installed]) ifTrue: [ + self installedStoneReportOn: stream + ]. + (self all or: [self running]) ifTrue: [ + self + gsListReportNamed: 'Stones' matching: ' Stone' on: stream; + gsListReportNamed: 'NetLdis' matching: ' Netldi' on: stream. + ]. + ^ self noResult +% +method +installedStoneReportOn: stream + stream + nextPutAll: 'Installed Stones:'; + cr. + (self installedStones asSortedCollection: [ :a :b | a printString < b printString ]) + do: [ :info | + stream + tab; + nextPutAll: info gsVers; + tab; + nextPutAll: info stoneName. + info isForeignStone + ifTrue: [ + stream + tab; + nextPutAll: '(foreign)' ]. + info isAttached + ifTrue: [ + stream + tab; + nextPutAll: '(attached)' ]. + stream cr ] +% +method +installedStones + | installedStones | + installedStones := Set new. + self gs_stonesDirectory directories do: [ :stoneDir | + (stoneDir filesMatching: self stoneInfoFilename) + do: [ :infoFile | + | info | + info := GsDevKitStoneInfo importFrom: infoFile. + stoneDir isSymlink + ifTrue: [ info isAttached: true ]. + installedStones add: info ] ]. + ^ installedStones +% +method +gsListReportNamed: reportName matching: matchString on: stream + stream + nextPutAll: 'Running ', reportName, ':'; + cr. + (self gsListResult indexOfSubCollection: 'gslist[Info]: No GemStone servers') ~= 0 + ifTrue: [ ^ self ]. + stream + tab; + nextPutAll: 'Status Version Owner Pid Port Started Type Name'; + cr; + tab; + nextPutAll: '------- --------- --------- -------- ----- ------------ ------ ----'; + cr. + (gsListResult substrings: '', Character lf) + do: [ :line | + (line matchPattern: { $*. matchString. $*}) + ifTrue: [ + stream + tab; + nextPutAll: line; + cr ] ] +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +gs_binDirectory + ^ (System gemEnvironmentVariable: 'GEMSTONE'), '/bin/' +% +method +gsListResult + ^ gsListResult ifNil: [ gsListResult := GsHostProcess execute: self gs_binDirectory, 'gslist -lc' ] +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + ^ self produceStonesReport +% diff --git a/shared/gemstone/bin/stopnetldi b/shared/gemstone/bin/stopnetldi new file mode 100755 index 00000000..3e3391d3 --- /dev/null +++ b/shared/gemstone/bin/stopnetldi @@ -0,0 +1,132 @@ +#!/usr/bin/env superdoit_solo +instvars +% +usage +----- +USAGE: startNetldi [-h] [] + +DESCRIPTION +Stop the netldi process for the given stone. + +OPTIONS + -h, --help display usage message + +EXAMPLES + $basename -h + $basename myStoneName +----- +% +projectshome +$GS_HOME/shared/gemstone/repos +% +specs +[ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} +] +% +method +globalNamed: aString + ^ self + globalNamed: aString + ifAbsent: [ self error: 'The global named ', aString printString, ' cannot be found.']. +% +method +stopNetldi + | sess stoneInfo netldiArgs result | + (self positionalArgs size < 1) + ifTrue: [ + ^ Error signal: 'Wrong number of arguments (' , self positionalArgs size printString , ')' ]. + self shouldNotBeForeignStone. + sess := self sessionDescriptionIfAbsent: [ :ignored | ]. + stoneInfo := self stoneInfo. + netldiArgs := sess ifNil: [ stoneInfo netLDI ] ifNotNil: [ sess netLDI ]. + result := GsHostProcess execute: (self gs_binDirectory / 'stopnetldi ') fullPath asString, ' ', netldiArgs. + self stderr nextPutAll: result +% +method +shouldNotBeForeignStone + self stoneInfo isForeignStone + ifTrue: [ + ^ Error signal: + 'The stone ' , self stoneName printString , ' is a foreign stone and should not be controlled from GsDevKit_home.' ]. +% +method +sessionDescription + ^ self + sessionDescriptionIfAbsent: [ :sessionDescriptionReference | + Error signal: + 'Session description file ' , sessionDescriptionReference pathString printString , ' for ' , self stoneName printString + , ' not found.' ] +% +method +sessionDescriptionIfAbsent: absentBlock + ^self sessionDescriptionFor: self stoneName ifAbsent: absentBlock +% +method +sessionDescriptionFor: aStoneName ifAbsent: absentBlock + | sessionDescriptionReference | + sessionDescriptionReference := self sessionDescriptionHome / aStoneName. + sessionDescriptionReference exists + ifFalse: [ ^ absentBlock value: sessionDescriptionReference ]. + ^ (self globalNamed: 'TDSessionDescription') importFrom: sessionDescriptionReference pathString +% +method +sessionDescriptionHome + ^ (System gemEnvironmentVariable: 'GS_SYS_SESSIONS') asFileReference +% +method +gs_binDirectory + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneInfoClass + ^ (self globalNamed: 'GsDevKitStoneInfo') +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +stoneInfo + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename +% +method +stoneName + ^ self positionalArgs at: 1 +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^ self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self stopNetldi. + ^ self noResult +% diff --git a/shared/gemstone/bin/stopstone b/shared/gemstone/bin/stopstone new file mode 100755 index 00000000..32e70b84 --- /dev/null +++ b/shared/gemstone/bin/stopstone @@ -0,0 +1,148 @@ +#!/usr/bin/env superdoit_solo +instvars + stoneName +% +options +{ + SuperDoitOptionalOptionWithNoArg long: 'both' short: 'b'. +} +% +usage +----- +USAGE: $basename [-h] [-b] + +DESCRIPTION + Start the stone process for the given stone. + +OPTIONS + -h, --help display usage message + +The following options not implemented here + -b, --both start both stone and netldi + +EXAMPLES + $basename -h + $basename myStoneName + $basename -b myStoneName +----- +% +projectshome +$GS_HOME/shared/gemstone/repos +% +specs +[ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} +] +% +method +globalNamed: aString + ^ self + globalNamed: aString + ifAbsent: [ self error: 'The global named ', aString printString, ' cannot be found.']. +% +method +stopStone + | result | + (self positionalArgs size < 1 or: [ self positionalArgs size > 2 ]) + ifTrue: [ + ^ Error signal: 'Wrong number of arguments (' , self positionalArgs size printString , ')' ]. + self shouldNotBeForeignStone. + result := GsHostProcess execute: self stopStoneCommand. + self stderr nextPutAll: result. +% +method +stopStoneCommand + | topaziniDict | + topaziniDict := self topaziniDict. + ^ String streamContents: [ :stream | + stream + nextPutAll: (self gs_binDirectory / 'stopstone ') fullPath asString; + nextPut: Character space; + nextPutAll: self positionalArgs first; + nextPut: Character space; + nextPutAll: (topaziniDict at: 'user'); + nextPut: Character space; + nextPutAll: (topaziniDict at: 'password') + ] +% +method +shouldNotBeForeignStone + self stoneInfo isForeignStone + ifTrue: [ + ^ Error signal: + 'The stone ' , self stoneName printString , ' is a foreign stone and should not be controlled from GsDevKit_home.' ]. +% +method +gs_binDirectory + ^ ((System gemEnvironmentVariable: 'GEMSTONE'), '/bin') asFileReference +% +method +gs_stonesDirectory + ^ ((System gemEnvironmentVariable: 'GS_HOME'), '/server/stones') asFileReference +% +method +gs_stoneDirectory + ^ self gs_stonesDirectory / self stoneName +% +method +stoneName + stoneName ifNil: [ stoneName := self positionalArgs at: 1 ]. + ^ stoneName +% +method +stoneInfoClass + ^ (self globalNamed: 'GsDevKitStoneInfo') +% +method +stoneInfoFilename + ^ 'info.ston' +% +method +stoneInfo + ^ self stoneInfoClass importFrom: self gs_stoneDirectory / self stoneInfoFilename +% +method +topaziniFile + ^self gs_stoneDirectory / '.topazini' +% +method +topaziniDict + | dict topaziniData index| + dict := Dictionary new. + topaziniData := self topaziniFile contents. + dict at: 'user' put: (topaziniData + copyFrom: (index := topaziniData indexOfSubCollection: 'user') + 5 + to: (topaziniData indexOf: Character lf startingAt: index) - 1). + dict at: 'password' put: (topaziniData + copyFrom: (index := topaziniData indexOfSubCollection: 'password') + 9 + to: (topaziniData indexOf: Character lf startingAt: index) - 1). + ^ dict +% +method +doit + "override doit method, because ChildError does not exist in 3.6.0" + [ + self getAndVerifyOptions == self noResult + ifTrue: [ ^ self noResult ]. + ^self theDoit + ] on: Error do: [:ex | + self debug ifTrue: [ ex pass ]. + self + exit: ((ex respondsTo: #stderr) + ifTrue: [ ex stderr asString trimBoth ] + ifFalse: [ ex messageText ]) + withStatus: 1 "does not return" ]. +% +doit + self stopStone. + ^ self noResult +% diff --git a/shared/gemstone/bin/versionReport.solo b/shared/gemstone/bin/versionReport.solo new file mode 100755 index 00000000..85e21427 --- /dev/null +++ b/shared/gemstone/bin/versionReport.solo @@ -0,0 +1,39 @@ +#!/usr/bin/env superdoit_solo +# +# Standard options are always present unless customoptions section is used +#{ +# SuperDoitOptionalOptionWithNoArg long: 'help' short: 'h'. +# SuperDoitOptionalOptionWithNoArg long: 'debug' short: 'D'. +#} +# +usage +----- +USAGE $basename [--help | -h] [--debug | -D] +DESCRIPTION + Write the Gem Version report for the current solo extent on stdout. + +OPTIONS + -h, --help display usage message + -D, --debug bring up topaz debugger in the event of a script error + +EXAMPLES + $basename --help + $basename -h + $basename --debug + $basename -D + $basename + $basename -- gs_360 + $basename -- gs_360 -T 100000 +----- +% +doit + self stdout nextPutAll: '--------------------'; lf. + self stdout nextPutAll: 'Gem Version Report for ', self executionStoneName printString; lf. + self stdout nextPutAll: '--------------------'; lf. + System gemVersionReport keysAndValuesDo: [:key :value | + self stdout + nextPutAll: key asString ; lf; tab; nextPutAll: ' = ', value asString; lf ]. + self stdout nextPutAll: '--------------------'; lf. + + ^ self noResult +% diff --git a/shared/gemstone/bin/versionReport.stone b/shared/gemstone/bin/versionReport.stone new file mode 100755 index 00000000..08003ee1 --- /dev/null +++ b/shared/gemstone/bin/versionReport.stone @@ -0,0 +1,45 @@ +#!/usr/bin/env superdoit_stone +# +# Standard options are always present unless customoptions section is used +#{ +# SuperDoitOptionalOptionWithNoArg long: 'help' short: 'h'. +# SuperDoitOptionalOptionWithNoArg long: 'debug' short: 'D'. +#} +# +usage +----- +USAGE $basename [--help | -h] [--debug | -D] [-- [ [] ] ] + +DESCRIPTION + Write the Stone Version report for the current stone on stdout. + +OPTIONS + Name of the GsDevKit_home stone. argument + may be skipped if the script is run in a GsDevKit_home + stone directory (i.e., $GS_HOME/server/stones/ + topaz options that should be passed to topaz when running + running the script + -h, --help display usage message + -D, --debug bring up topaz debugger in the event of a script error + +EXAMPLES + $basename --help + $basename -h + $basename --debug + $basename -D + $basename + $basename -- gs_360 + $basename -- gs_360 -T 100000 +----- +% +doit + self stdout nextPutAll: '--------------------'; lf. + self stdout nextPutAll: 'Stone Version Report for ', self executionStoneName printString; lf. + self stdout nextPutAll: '--------------------'; lf. + System stoneVersionReport keysAndValuesDo: [:key :value | + self stdout + nextPutAll: key asString ; lf; tab; nextPutAll: ' = ', value asString; lf ]. + self stdout nextPutAll: '--------------------'; lf. + + ^ self noResult +% diff --git a/shared/gemstone/dev/superDoitTodeInstall.stone b/shared/gemstone/dev/superDoitTodeInstall.stone new file mode 100755 index 00000000..28021443 --- /dev/null +++ b/shared/gemstone/dev/superDoitTodeInstall.stone @@ -0,0 +1,51 @@ +#!/usr/bin/env superdoit_stone +# +# Standard options are always present unless customoptions section is used +#{ +# SuperDoitOptionalOptionWithNoArg long: 'help' short: 'h'. +# SuperDoitOptionalOptionWithNoArg long: 'debug' short: 'D'. +#} +# +usage +----- +USAGE $basename [--help | -h] [--debug | -D] [-- [ [] ] ] + +DESCRIPTION + Install GsDevKit_SuperDoit and superDoit from $GS_HOME/shared/gemstone/repos into a stone + with tODE installed. Useful for reading code when writing .solo and .stone scripts. + +OPTIONS + Name of the GsDevKit_home stone. argument + may be skipped if the script is run in a GsDevKit_home + stone directory (i.e., $GS_HOME/server/stones/ + topaz options that should be passed to topaz when running + running the script + -h, --help display usage message + -D, --debug bring up topaz debugger in the event of a script error + +EXAMPLES + $basename --help + $basename -h + $basename --debug + $basename -D + $basename + $basename -- gs_360 + $basename -- gs_360 -T 100000 +----- +% +doit + | metacello | + metacello := self + globalNamed: 'Metacello' + ifAbsent: [ self error: 'Metacello is required to run this script']. + metacello new + baseline: 'GsDevKit_SuperDoit'; + repository: 'filetree://$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src'; + load. + metacello new + baseline: 'SuperDoit'; + repository: 'filetree://$GS_HOME/shared/gemstone/repos/superDoit/packages/filetree'; + load. + System commit. + ^ self noResult +% diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/REAME.md b/shared/gemstone/repos/GsDevKit_SuperDoit/REAME.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/components/GsDevKit.ston b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/components/GsDevKit.ston new file mode 100644 index 00000000..006cca03 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/components/GsDevKit.ston @@ -0,0 +1,11 @@ +RwSimpleProjectLoadComponentV2 { + #name : 'GsDevKit', + #condition : 'common', + #projectNames : [ ], + #componentNames : [ ], + #packageNames : [ + 'GsDevKit-Core' + 'GsDevKit-TDSessionDescription' + ], + #comment : '' +} diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/project.ston b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/project.ston new file mode 100644 index 00000000..82fb290b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/project.ston @@ -0,0 +1,10 @@ +RwProjectSpecificationV2 { + #specName : 'project', + #projectSpecPath : 'rowan', + #componentsPath : 'rowan/components', + #packagesPath : 'rowan/src', + #projectsPath : 'rowan/projects', + #specsPath : 'rowan/specs', + #packageFormat : 'filetree', + #comment : '' +} diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/projects/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/projects/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/specs/GsDevKit.ston b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/specs/GsDevKit.ston new file mode 100644 index 00000000..7c6ffec7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/specs/GsDevKit.ston @@ -0,0 +1,10 @@ +RwLoadSpecificationV2 { + #specName : 'GsDevKit_SuperDoit', + #projectName : 'GsDevKit_SuperDoit', + #diskUrl : 'file:$GS_HOME/shared/gemstone/repos/GsDevKit_SuperDoit', + #projectSpecFile : 'rowan/project.ston', + #componentNames : [ + 'GsDevKit' + ], + #comment : 'loads GsDevKit support code in support of GsDevKit_home superDoit scripts' +} diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/.filetree b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/.filetree new file mode 100644 index 00000000..c6704e51 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/.filetree @@ -0,0 +1,2 @@ +{"packageExtension" : ".package", +"propertyFileExtension" : ".json" } \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/.filetree b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/.filetree new file mode 100644 index 00000000..8998102c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/baseline..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/baseline..st new file mode 100644 index 00000000..7a47325b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/baseline..st @@ -0,0 +1,19 @@ +baseline +baseline: spec + + spec + for: #'common' + do: [ + spec + package: 'GsDevKit-Core'; + package: 'GsDevKit-Tests' with: [ spec requires: #('GsDevKit-Core') ]. + spec + group: 'default' with: #('GsDevKit-Tests') ]. + spec + for: #'NeedsTDSessionDescription' + do: [ + spec + package: 'GsDevKit-TDSessionDescription'. + spec + group: 'default' with: #('GsDevKit-TDSessionDescription') ]. + diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/customProjectAttributes.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/customProjectAttributes.st new file mode 100644 index 00000000..af8b8935 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/customProjectAttributes.st @@ -0,0 +1,6 @@ +accessing +customProjectAttributes + projectAttributes := #(). + (Smalltalk classNamed: 'TDSessionDescription') + ifNil: [ projectAttributes := #( #'NeedsTDSessionDescription' ) ]. + ^ projectAttributes diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/project.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/project.st new file mode 100644 index 00000000..c8879695 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/instance/project.st @@ -0,0 +1,5 @@ +accessing +project + ^ super project + loadType: #'atomic'; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/methodProperties.json new file mode 100644 index 00000000..94da1f3b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "baseline:" : "jupiter 04/03/2021 13:58", + "project" : " 03/15/2021 14:47:27" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/properties.json new file mode 100644 index 00000000..41af96ee --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/BaselineOfGsDevKit_SuperDoit.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "BaselineOfGsDevKit_SuperDoit", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "BaselineOfGsDevKit_SuperDoit", + "pools" : [ + ], + "super" : "BaselineOf", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/categories.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/categories.st new file mode 100644 index 00000000..f1cc4c35 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'BaselineOfGsDevKit_SuperDoit'! diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/initializers.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/package b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/package new file mode 100644 index 00000000..909a2dd0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'BaselineOfGsDevKit_SuperDoit') diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/version b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/version new file mode 100644 index 00000000..10d738ee --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'BaselineOfGsDevKit_SuperDoit-jupiter.2' message 'add registry classes' id '6d3d42e5-73e7-43bf-91f9-61c5ae94141f' date '04/03/2021' time '14:01:00' author 'jupiter' ancestors ((name 'BaselineOfSuperDoit_GsDevKit-cypress.1' message 'fabricated from a Cypress format repository' id '041e7bb5-fca4-4a8a-917f-809abb5dda3d' date '03/24/2021' time '21:22:23' author '' ancestors () stepChildren ())) stepChildren ()) diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/properties.json new file mode 100644 index 00000000..f037444a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/BaselineOfGsDevKit_SuperDoit.package/properties.json @@ -0,0 +1,2 @@ +{ + } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/.filetree b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/.filetree new file mode 100644 index 00000000..8998102c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/class/newForRegistry..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/class/newForRegistry..st new file mode 100644 index 00000000..9add887b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/class/newForRegistry..st @@ -0,0 +1,5 @@ +instance creation +newForRegistry: aRegistry + ^ self new + registry: aRegistry; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/^equals.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/^equals.st new file mode 100644 index 00000000..3b17181d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/^equals.st @@ -0,0 +1,5 @@ +comparing += anObject + "GsDevKit Registrations are considered equal if their instance variables are equal" + + ^ anObject class == self class and: [ anObject registryName = registryName ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..a35470a8 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/excludedInstVarNames.st @@ -0,0 +1,3 @@ +ston +excludedInstVarNames + ^ super excludedInstVarNames , #(#'registry') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry..st new file mode 100644 index 00000000..3da527b4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry..st @@ -0,0 +1,3 @@ +Updating +registry: newValue + registry := newValue \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry.st new file mode 100644 index 00000000..f197c765 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registry.st @@ -0,0 +1,3 @@ +Accessing +registry + ^ registry \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName..st new file mode 100644 index 00000000..0ed63c7c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName..st @@ -0,0 +1,4 @@ +Updating +registryName: newValue + registryName := newValue. + self modified \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName.st new file mode 100644 index 00000000..174c1ef0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/instance/registryName.st @@ -0,0 +1,3 @@ +Accessing +registryName + ^registryName diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/methodProperties.json new file mode 100644 index 00000000..9a213476 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/methodProperties.json @@ -0,0 +1,10 @@ +{ + "class" : { + "newForRegistry:" : "jupiter 04/05/2021 16:22" }, + "instance" : { + "=" : "jupiter 04/05/2021 00:20", + "excludedInstVarNames" : "jupiter 04/07/2021 23:02", + "registry" : "jupiter 04/05/2021 16:39", + "registry:" : "jupiter 04/05/2021 15:48", + "registryName" : "jupiter 04/03/2021 14:50", + "registryName:" : "jupiter 04/08/2021 15:10" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/properties.json new file mode 100644 index 00000000..79a039df --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitAbstractRegistration.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "registry", + "registryName" ], + "name" : "GsDevKitAbstractRegistration", + "pools" : [ + ], + "super" : "GsDevKitSton", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/createSessionDescriptionFor.for..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/createSessionDescriptionFor.for..st new file mode 100644 index 00000000..1a955729 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/createSessionDescriptionFor.for..st @@ -0,0 +1,20 @@ +session descriptions +createSessionDescriptionFor: aGsDevKitCreateStoneCommanLine for: localHostName + | description defaultServerTodeHome | + defaultServerTodeHome := aGsDevKitCreateStoneCommanLine serverTodeHome + ifNil: [ nil ] + ifNotNil: [ :home | home pathString ]. + description := TDSessionDescription new + name: self stoneName; + gemstoneVersion: self gsVers; + stoneHost: localHostName; + stoneName: self stoneName; + gemHost: localHostName; + netLDI: ''; + netLDIPort: ''; + gemTask: 'gemnetobject'; + userId: aGsDevKitCreateStoneCommanLine gemstoneUserId; + password: aGsDevKitCreateStoneCommanLine gemstonePassword; + yourself. + self addFieldsToSessionDescription: description. + ^ description \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/isForeignStone.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/isForeignStone.st new file mode 100644 index 00000000..f712fd50 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/instance/isForeignStone.st @@ -0,0 +1,3 @@ +testing +isForeignStone + ^ true \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/methodProperties.json new file mode 100644 index 00000000..7a7e4a51 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/methodProperties.json @@ -0,0 +1,6 @@ +{ + "class" : { + }, + "instance" : { + "createSessionDescriptionFor:for:" : "jupiter 03/15/2021 11:24", + "isForeignStone" : "jupiter 03/15/2021 11:25" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/properties.json new file mode 100644 index 00000000..bcbef221 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitForeignStoneInfo.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GsDevKitForeignStoneInfo", + "pools" : [ + ], + "super" : "GsDevKitStoneInfo", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/defaultRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/defaultRegistry.st new file mode 100644 index 00000000..a3b149f4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/defaultRegistry.st @@ -0,0 +1,8 @@ +instance creation +defaultRegistry + "Answer a registry on the GsDevKit specified by the environment variable" + + ^ self + forGsDevKitOnPath: + (System gemEnvironmentVariable: self gsDevKitEnvironmentVariableName) + asFileReference \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/forGsDevKitOnPath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/forGsDevKitOnPath..st new file mode 100644 index 00000000..14b14d28 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/forGsDevKitOnPath..st @@ -0,0 +1,10 @@ +instance creation +forGsDevKitOnPath: fileReference + "Single point of access to registries allowing support for multiple registries tied to separate GsDevKit installations." + + ^ self registries + at: fileReference + ifAbsentPut: [ + self new + gsDevKitRoot: fileReference; + yourself ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/gsDevKitEnvironmentVariableName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/gsDevKitEnvironmentVariableName.st new file mode 100644 index 00000000..3c753c77 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/gsDevKitEnvironmentVariableName.st @@ -0,0 +1,3 @@ +environment +gsDevKitEnvironmentVariableName + ^ 'GS_HOME' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/initializeRegistries.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/initializeRegistries.st new file mode 100644 index 00000000..356995f0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/initializeRegistries.st @@ -0,0 +1,3 @@ +initialization +initializeRegistries + registries := Dictionary new \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/registries.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/registries.st new file mode 100644 index 00000000..19f13755 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/class/registries.st @@ -0,0 +1,3 @@ +accessing +registries + ^ registries ifNil: [ self initializeRegistries ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultFileName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultFileName.st new file mode 100644 index 00000000..cbf2c715 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultFileName.st @@ -0,0 +1,3 @@ +defaults +defaultFileName + ^ 'registry.ston' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..ff3b26c6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/defaultSourcePath.st @@ -0,0 +1,5 @@ +defaults +defaultSourcePath + "Answer a path relative to GsDevKit root directory" + + ^ Path * 'registry' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..fa833456 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/excludedInstVarNames.st @@ -0,0 +1,3 @@ +ston +excludedInstVarNames + ^ super excludedInstVarNames , #(#'gsDevKitRoot') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/groups.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/groups.st new file mode 100644 index 00000000..d0bfe879 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/groups.st @@ -0,0 +1,3 @@ +Accessing +groups + ^groups diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot..st new file mode 100644 index 00000000..5fef7b23 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot..st @@ -0,0 +1,3 @@ +Updating +gsDevKitRoot: aFileReference + gsDevKitRoot := aFileReference \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot.st new file mode 100644 index 00000000..e2760a54 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/gsDevKitRoot.st @@ -0,0 +1,3 @@ +Accessing +gsDevKitRoot + ^ gsDevKitRoot \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initialize.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initialize.st new file mode 100644 index 00000000..408d3cd7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initialize.st @@ -0,0 +1,6 @@ +initialization +initialize + super initialize. + sourceRepos := Array new. + stones := Array new. + groups := Array new \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initializeSharedSourceRepo.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initializeSharedSourceRepo.st new file mode 100644 index 00000000..3e1bde3e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/initializeSharedSourceRepo.st @@ -0,0 +1,8 @@ +initialization +initializeSharedSourceRepo + "Setup the Shared Source Repo. This is the default source repo that will be used when no other is speficied" + + | sharedSourceRepo | + sharedSourceRepo := self newSourceRepoWithRegistryName: 'shared'. + sharedSourceRepo sourceReference createDirectory. + ^ sharedSourceRepo \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/localStones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/localStones.st new file mode 100644 index 00000000..10a01d87 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/localStones.st @@ -0,0 +1,3 @@ +Accessing +localStones + ^ stones select: [ :stone | stone class == GsDevKitStoneRegistration ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/modificationTime.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/modificationTime.st new file mode 100644 index 00000000..ca3bcd53 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/modificationTime.st @@ -0,0 +1,5 @@ +Accessing +modificationTime + "Answer the most recent modification time of registry entries" + + ^ self mostRecentModificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/mostRecentModificationTime.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/mostRecentModificationTime.st new file mode 100644 index 00000000..28c3491d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/mostRecentModificationTime.st @@ -0,0 +1,7 @@ +Accessing +mostRecentModificationTime + "Answer the most recent modification time of registry entries" + + ^ ((self stones , self sourceRepos , self groups + collect: [ :registryObject | registryObject modificationTime ]) + asSortedCollection: [ :a :b | a < b ]) last \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName..st new file mode 100644 index 00000000..11233e55 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName..st @@ -0,0 +1,3 @@ +api +newRemoteStoneWithRegistryName: registryName + ^ self newRemoteStoneWithRegistryName: registryName stonePath: nil \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName.stonePath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName.stonePath..st new file mode 100644 index 00000000..d4356c2d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newRemoteStoneWithRegistryName.stonePath..st @@ -0,0 +1,6 @@ +api +newRemoteStoneWithRegistryName: registryName stonePath: aPathString + ^ self + newStoneRegistration: GsDevKitRemoteStoneRegistration + registryName: registryName + stonePath: aPathString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName..st new file mode 100644 index 00000000..082c45e0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName..st @@ -0,0 +1,3 @@ +api +newSourceRepoWithRegistryName: registryName + ^ self newSourceRepoWithRegistryName: registryName repoPath: nil \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName.repoPath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName.repoPath..st new file mode 100644 index 00000000..cdba81a7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newSourceRepoWithRegistryName.repoPath..st @@ -0,0 +1,8 @@ +api +newSourceRepoWithRegistryName: registryName repoPath: path + ^ self sourceRepos + add: + ((GsDevKitSourceRepoRegistration newForRegistry: self) + registryName: registryName; + repoPath: path; + yourself) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneGroupWithRegistryName.stoneRegistryNames..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneGroupWithRegistryName.stoneRegistryNames..st new file mode 100644 index 00000000..9f8af658 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneGroupWithRegistryName.stoneRegistryNames..st @@ -0,0 +1,8 @@ +api +newStoneGroupWithRegistryName: registryName stoneRegistryNames: stoneRegistryNames + ^ self groups + add: + ((GsDevKitStoneGroupRegistration newForRegistry: self) + registryName: registryName; + stoneRegistryNames: stoneRegistryNames; + yourself) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneRegistration.registryName.stonePath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneRegistration.registryName.stonePath..st new file mode 100644 index 00000000..60842878 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneRegistration.registryName.stonePath..st @@ -0,0 +1,8 @@ +private +newStoneRegistration: registrationClass registryName: registryName stonePath: path + ^ self stones + add: + ((registrationClass newForRegistry: self) + registryName: registryName; + stonePath: path; + yourself) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName..st new file mode 100644 index 00000000..4d4feaea --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName..st @@ -0,0 +1,3 @@ +api +newStoneWithRegistryName: registryName + ^ self newStoneWithRegistryName: registryName stonePath: nil \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName.stonePath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName.stonePath..st new file mode 100644 index 00000000..6cfbb568 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/newStoneWithRegistryName.stonePath..st @@ -0,0 +1,6 @@ +api +newStoneWithRegistryName: registryName stonePath: aPathString + ^ self + newStoneRegistration: GsDevKitStoneRegistration + registryName: registryName + stonePath: aPathString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/registry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/registry.st new file mode 100644 index 00000000..45c7491f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/registry.st @@ -0,0 +1,3 @@ +Accessing +registry + ^ self \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/remoteStones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/remoteStones.st new file mode 100644 index 00000000..57bf0d1d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/remoteStones.st @@ -0,0 +1,3 @@ +Accessing +remoteStones + ^ stones select: [ :stone | stone class == GsDevKitRemoteStoneRegistration ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sharedSourceRepo.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sharedSourceRepo.st new file mode 100644 index 00000000..1aa88847 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sharedSourceRepo.st @@ -0,0 +1,7 @@ +defaults +sharedSourceRepo + "Answer the shared source repo. This is the default repo is no other is specified" + + ^ self sourceRepos + detect: [ :repo | repo registryName = 'shared' ] + ifNone: [ self initializeSharedSourceRepo ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepoWithRegistryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepoWithRegistryName..st new file mode 100644 index 00000000..fc0ad4ca --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepoWithRegistryName..st @@ -0,0 +1,5 @@ +api +sourceRepoWithRegistryName: registryName + ^ sourceRepos + detect: [ :sourceRepo | sourceRepo registryName = registryName ] + ifNone: [ nil ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepos.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepos.st new file mode 100644 index 00000000..1cfbee76 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/sourceRepos.st @@ -0,0 +1,3 @@ +Accessing +sourceRepos + ^sourceRepos diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stoneWithRegistryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stoneWithRegistryName..st new file mode 100644 index 00000000..4303289a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stoneWithRegistryName..st @@ -0,0 +1,5 @@ +api +stoneWithRegistryName: registryName + ^ stones + detect: [ :stone | stone registryName = registryName ] + ifNone: [ nil ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stones.st new file mode 100644 index 00000000..17ac38c1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/instance/stones.st @@ -0,0 +1,3 @@ +Accessing +stones + ^stones diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/methodProperties.json new file mode 100644 index 00000000..f9e75496 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/methodProperties.json @@ -0,0 +1,34 @@ +{ + "class" : { + "defaultRegistry" : "jupiter 04/06/2021 19:15", + "forGsDevKitOnPath:" : "jupiter 04/08/2021 01:43", + "gsDevKitEnvironmentVariableName" : "jupiter 04/06/2021 18:06", + "initializeRegistries" : "jupiter 04/06/2021 19:10", + "registries" : "jupiter 04/06/2021 19:09" }, + "instance" : { + "defaultFileName" : "jupiter 04/08/2021 00:03", + "defaultSourcePath" : "jupiter 04/07/2021 23:24", + "excludedInstVarNames" : "jupiter 04/07/2021 14:09", + "groups" : "jupiter 04/03/2021 14:37", + "gsDevKitRoot" : "jupiter 04/05/2021 17:07", + "gsDevKitRoot:" : "jupiter 04/05/2021 16:19", + "initialize" : "jupiter 04/05/2021 04:53", + "initializeSharedSourceRepo" : "jupiter 04/08/2021 13:46", + "localStones" : "jupiter 04/08/2021 12:26", + "modificationTime" : "jupiter 04/08/2021 17:52", + "mostRecentModificationTime" : "jupiter 04/08/2021 17:55", + "newRemoteStoneWithRegistryName:" : "jupiter 04/05/2021 16:53", + "newRemoteStoneWithRegistryName:stonePath:" : "jupiter 04/07/2021 23:14", + "newSourceRepoWithRegistryName:" : "jupiter 04/08/2021 12:54", + "newSourceRepoWithRegistryName:repoPath:" : "jupiter 04/05/2021 16:54", + "newStoneGroupWithRegistryName:stoneRegistryNames:" : "jupiter 04/05/2021 21:23", + "newStoneRegistration:registryName:stonePath:" : "jupiter 04/05/2021 16:54", + "newStoneWithRegistryName:" : "jupiter 04/05/2021 16:55", + "newStoneWithRegistryName:stonePath:" : "jupiter 04/07/2021 23:16", + "registry" : "jupiter 04/05/2021 17:05", + "remoteStones" : "jupiter 04/08/2021 12:26", + "sharedSourceRepo" : "jupiter 04/08/2021 13:54", + "sourceRepoWithRegistryName:" : "jupiter 04/08/2021 04:26", + "sourceRepos" : "jupiter 04/03/2021 14:37", + "stoneWithRegistryName:" : "jupiter 04/06/2021 19:59", + "stones" : "jupiter 04/03/2021 14:37" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/properties.json new file mode 100644 index 00000000..8f783288 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRegistry.class/properties.json @@ -0,0 +1,17 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + "registries" ], + "commentStamp" : "", + "instvars" : [ + "gsDevKitRoot", + "sourceRepos", + "stones", + "groups" ], + "name" : "GsDevKitRegistry", + "pools" : [ + ], + "super" : "GsDevKitSton", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/methodProperties.json new file mode 100644 index 00000000..0e4a6622 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/properties.json new file mode 100644 index 00000000..36b12ae1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneContext.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GsDevKitRemoteStoneContext", + "pools" : [ + ], + "super" : "GsDevKitStoneContext", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..3256265e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/instance/defaultSourcePath.st @@ -0,0 +1,3 @@ +defaults +defaultSourcePath + ^ Path * ('remoteStones/' , self registryName) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/methodProperties.json new file mode 100644 index 00000000..b414c7a7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + "defaultSourcePath" : "jupiter 04/08/2021 12:43" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/properties.json new file mode 100644 index 00000000..69c138a2 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitRemoteStoneRegistration.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GsDevKitRemoteStoneRegistration", + "pools" : [ + ], + "super" : "GsDevKitStoneRegistration", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/README.md new file mode 100644 index 00000000..cf1833ae --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/README.md @@ -0,0 +1,9 @@ +GsDevKitStonSourcedObject represents an object that can be optionally read from and written to a file in STON format. + +Instance Variables: + +sourcePath - A String representing a path pointing to the directory containing the STON file, or to the STON file itself. If the path starts with '/' it is relative to the file system root, otherwise it is relative to GsDevKitRegistry-#gsDevKitRoot. If no file name is specified in the path, subclasses can provide a default file name. + +sourceReference - A fully resolved FileReference to the STON file itself + +modificationTime - A SmallDateAndTime indicating the last time the sourced object was modifyed in the image. \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/class/importFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/class/importFrom..st new file mode 100644 index 00000000..474f6917 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/class/importFrom..st @@ -0,0 +1,3 @@ +importing +importFrom: fileReference + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultFileName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultFileName.st new file mode 100644 index 00000000..81c68031 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultFileName.st @@ -0,0 +1,5 @@ +defaults +defaultFileName + "Answer a default fileName used only if a fileName is not included in sourse path" + + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..244db21e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourcePath.st @@ -0,0 +1,7 @@ +defaults +defaultSourcePath + "Answer an instance of Path representing the default directory in which the file will be stored. + The path can be absolute, or relative to the registry's #gsDevKitRoot. Either way, the file system will always be the #gsDevKitRoot file system. + The path can optionally include a fileName, otherwise #defaultFileName will be used when resolving the file reference." + + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourceReference.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourceReference.st new file mode 100644 index 00000000..71e09622 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/defaultSourceReference.st @@ -0,0 +1,6 @@ +defaults +defaultSourceReference + "Answer an instance of FileReference locating the file that stores my serialised representation. + By default this reference will be resolved from sourcePath (which may be relative to the registry's GsDevKitRoot) with the defaultFileName if one isn't provided in sourcePath." + + ^ self resolveRegistryFileReferenceFrom: self sourcePath \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/deserializeOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/deserializeOn..st new file mode 100644 index 00000000..f5a7c59c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/deserializeOn..st @@ -0,0 +1,3 @@ +importing +deserializeOn: stream + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/export.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/export.st new file mode 100644 index 00000000..49bfe96c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/export.st @@ -0,0 +1,4 @@ +exporting +export + self exportTo: self sourceReference. + modificationTime := self sourceReference modificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/exportTo..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/exportTo..st new file mode 100644 index 00000000..7460f250 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/exportTo..st @@ -0,0 +1,9 @@ +exporting +exportTo: fileReference + | fileRef stream | + fileRef := self resolveRegistryFileReferenceFrom: fileReference. + fileRef exists + ifTrue: [ fileRef delete ]. + stream := fileRef writeStream. + self serializeOn: stream. + stream close \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/import.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/import.st new file mode 100644 index 00000000..82706e68 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/import.st @@ -0,0 +1,4 @@ +importing +import + self importFrom: self sourceReference. + modificationTime := self sourceReference modificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/importFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/importFrom..st new file mode 100644 index 00000000..2b784940 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/importFrom..st @@ -0,0 +1,6 @@ +importing +importFrom: fileReference + | fileRef result | + fileRef := self resolveRegistryFileReferenceFrom: fileReference. + result := self class importFrom: fileRef. + self updateFrom: result \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/initialize.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/initialize.st new file mode 100644 index 00000000..7ec0d03c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/initialize.st @@ -0,0 +1,3 @@ +initialization +initialize + super initialize \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime..st new file mode 100644 index 00000000..b32dd92a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime..st @@ -0,0 +1,3 @@ +updating +modificationTime: aSmallDateAndTime + modificationTime := aSmallDateAndTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime.st new file mode 100644 index 00000000..0aaca535 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modificationTime.st @@ -0,0 +1,3 @@ +accessing +modificationTime + ^ modificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modified.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modified.st new file mode 100644 index 00000000..6344932a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/modified.st @@ -0,0 +1,3 @@ +utilities +modified + self modificationTime: SmallDateAndTime now \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/registry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/registry.st new file mode 100644 index 00000000..712b04cb --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/registry.st @@ -0,0 +1,3 @@ +accessing +registry + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/resolveRegistryFileReferenceFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/resolveRegistryFileReferenceFrom..st new file mode 100644 index 00000000..2d5b5387 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/resolveRegistryFileReferenceFrom..st @@ -0,0 +1,11 @@ +utilities +resolveRegistryFileReferenceFrom: fileReferenceOrPath + "resolve a reference to a registry file." + + | fileRef | + fileRef := fileReferenceOrPath. + fileRef isRelative + ifTrue: [ fileRef := self registry gsDevKitRoot / fileRef pathString ]. + fileRef isDirectory + ifTrue: [ fileRef := fileRef / self defaultFileName ]. + ^ fileRef diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/serializeOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/serializeOn..st new file mode 100644 index 00000000..e1502090 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/serializeOn..st @@ -0,0 +1,3 @@ +exporting +serializeOn: stream + ^ self subclassResponsibility \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath..st new file mode 100644 index 00000000..35f173a2 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath..st @@ -0,0 +1,3 @@ +updating +sourcePath: aPath + sourcePath := aPath \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath.st new file mode 100644 index 00000000..310a39e0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourcePath.st @@ -0,0 +1,5 @@ +accessing +sourcePath + "Answer the sourcePath or the default source path" + + ^ sourcePath ifNil: [ sourcePath := self defaultSourcePath ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference..st new file mode 100644 index 00000000..d97c3f4d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference..st @@ -0,0 +1,3 @@ +updating +sourceReference: aFileReference + sourceReference := aFileReference \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference.st new file mode 100644 index 00000000..8091619c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sourceReference.st @@ -0,0 +1,5 @@ +accessing +sourceReference + "Answer the sourceReference or the default source path" + + ^ sourceReference ifNil: [ sourceReference := self defaultSourceReference ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sync.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sync.st new file mode 100644 index 00000000..b5dd3684 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/sync.st @@ -0,0 +1,10 @@ +utilities +sync + "If lastModifiedTime is different from sourceReference modificationTime, update the oldest version" + + (self sourceReference exists not + or: [ self sourceReference modificationTime < self modificationTime ]) + ifTrue: [ self export ] + ifFalse: [ + self sourceReference modificationTime = self modificationTime + ifFalse: [ self import ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/updateFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/updateFrom..st new file mode 100644 index 00000000..7229d89b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/instance/updateFrom..st @@ -0,0 +1,3 @@ +utilities +updateFrom: aSerializable + self modificationTime: aSerializable modificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/methodProperties.json new file mode 100644 index 00000000..2ac7efd9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/methodProperties.json @@ -0,0 +1,25 @@ +{ + "class" : { + "importFrom:" : "jupiter 04/07/2021 18:47" }, + "instance" : { + "defaultFileName" : "jupiter 04/07/2021 16:24", + "defaultSourcePath" : "jupiter 04/07/2021 16:53", + "defaultSourceReference" : "jupiter 04/08/2021 00:51", + "deserializeOn:" : "jupiter 04/07/2021 18:32", + "export" : "jupiter 04/08/2021 02:04", + "exportTo:" : "jupiter 04/07/2021 18:30", + "import" : "jupiter 04/08/2021 02:04", + "importFrom:" : "jupiter 04/07/2021 18:44", + "initialize" : "jupiter 04/08/2021 15:16", + "modificationTime" : "jupiter 04/08/2021 15:06", + "modificationTime:" : "jupiter 04/08/2021 02:14", + "modified" : "jupiter 04/08/2021 15:08", + "registry" : "jupiter 04/07/2021 16:21", + "resolveRegistryFileReferenceFrom:" : "jupiter 04/08/2021 01:02", + "serializeOn:" : "jupiter 04/07/2021 17:00", + "sourcePath" : "jupiter 04/07/2021 16:21", + "sourcePath:" : "jupiter 04/08/2021 02:12", + "sourceReference" : "jupiter 04/07/2021 16:21", + "sourceReference:" : "jupiter 04/08/2021 02:13", + "sync" : "jupiter 04/07/2021 17:17", + "updateFrom:" : "jupiter 04/07/2021 19:44" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/properties.json new file mode 100644 index 00000000..770c849c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSerializable.class/properties.json @@ -0,0 +1,16 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "jupiter 04/07/2021 16:21", + "instvars" : [ + "sourcePath", + "sourceReference", + "modificationTime" ], + "name" : "GsDevKitSerializable", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/methodProperties.json new file mode 100644 index 00000000..0e4a6622 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/properties.json new file mode 100644 index 00000000..387b012e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitShellEnvironment.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "jupiter 04/07/2021 21:11", + "instvars" : [ + ], + "name" : "GsDevKitShellEnvironment", + "pools" : [ + ], + "super" : "GsDevKitSerializable", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultRepoPath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultRepoPath.st new file mode 100644 index 00000000..b679b4bc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultRepoPath.st @@ -0,0 +1,3 @@ +defauts +defaultRepoPath + ^ self defaultSourcePath pathString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..4c92de7d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/defaultSourcePath.st @@ -0,0 +1,4 @@ +defauts +defaultSourcePath + repoPath ifNil: [ ^ Path * ('repos/' , self registryName) ]. + ^ Path from: repoPath \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath..st new file mode 100644 index 00000000..1b1d74e0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath..st @@ -0,0 +1,4 @@ +Updating +repoPath: newValue + repoPath := newValue. + self modified \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath.st new file mode 100644 index 00000000..d453020b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/instance/repoPath.st @@ -0,0 +1,3 @@ +Accessing +repoPath + ^ repoPath ifNil: [ repoPath := self defaultRepoPath ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/methodProperties.json new file mode 100644 index 00000000..a6ff996a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/methodProperties.json @@ -0,0 +1,8 @@ +{ + "class" : { + }, + "instance" : { + "defaultRepoPath" : "jupiter 04/08/2021 12:39", + "defaultSourcePath" : "jupiter 04/08/2021 12:52", + "repoPath" : "jupiter 04/08/2021 13:41", + "repoPath:" : "jupiter 04/08/2021 15:11" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/properties.json new file mode 100644 index 00000000..fb147505 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSourceRepoRegistration.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "repoPath" ], + "name" : "GsDevKitSourceRepoRegistration", + "pools" : [ + ], + "super" : "GsDevKitAbstractRegistration", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/class/importFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/class/importFrom..st new file mode 100644 index 00000000..31f5abef --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/class/importFrom..st @@ -0,0 +1,18 @@ +importing +importFrom: fileReference + "Import ston file from fileRefernceOrPathString in fileSystem. If the fileRefernceOrPathString is a directory, load file with defaultFileName from filePath" + + | result | + [ result := STON fromString: fileReference contents ] + on: Error + do: [ :ex | + ^ self + error: + 'An error occured while attempting to import the ' , self asString + , ' file on path "' , fileReference pathString , '". ' + , ex messageText ]. + result + sourcePath: fileReference path; + sourceReference: fileReference; + modificationTime: fileReference modificationTime. + ^ result \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..42cbf994 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/excludedInstVarNames.st @@ -0,0 +1,3 @@ +ston +excludedInstVarNames + ^ #(#'sourcePath' #'sourceReference' #'modificationTime') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/fromSton..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/fromSton..st new file mode 100644 index 00000000..ca51b88b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/fromSton..st @@ -0,0 +1,12 @@ +ston +fromSton: stonReader + stonReader + parseMapDo: [ :instVarName :value | + | index | + (index := self class offsetOfInstVar: instVarName) > 0 + ifTrue: [ + [ self instVarAt: index put: value ] + on: Error + do: [ :ex | + "If the instance variable for a GsDevKitStonSerializable is missing ... it is for a good reason ... keep on truckin'" + ] ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/prettyPrintStonOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/prettyPrintStonOn..st new file mode 100644 index 00000000..2d3e6165 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/prettyPrintStonOn..st @@ -0,0 +1,6 @@ +ston +prettyPrintStonOn: stream + (STONWriter new + prettyPrint: true; + on: stream; + yourself) nextPut: self \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/serializeOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/serializeOn..st new file mode 100644 index 00000000..5260efd9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/serializeOn..st @@ -0,0 +1,3 @@ +exporting +serializeOn: stream + self prettyPrintStonOn: stream \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonInstVarNames.st new file mode 100644 index 00000000..058da617 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonInstVarNames.st @@ -0,0 +1,6 @@ +ston +stonInstVarNames + | orderedInstVars | + orderedInstVars := self class allInstVarNames asOrderedCollection. + orderedInstVars removeAll: self excludedInstVarNames. + ^ orderedInstVars \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonOn..st new file mode 100644 index 00000000..00b40940 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/stonOn..st @@ -0,0 +1,7 @@ +ston +stonOn: stonWriter + stonWriter + writeObject: self + streamMap: [ :dictionary | + self stonInstVarNames + do: [ :each | dictionary at: each asSymbol put: (self instVarNamed: each) ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/updateFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/updateFrom..st new file mode 100644 index 00000000..32df3da7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/instance/updateFrom..st @@ -0,0 +1,8 @@ +updating +updateFrom: aSerializable + super updateFrom: aSerializable. + self stonInstVarNames + do: [ :instVarName | + | index | + (index := self class offsetOfInstVar: instVarName) > 0 + ifTrue: [ self instVarAt: index put: (aSerializable instVarAt: index) ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/methodProperties.json new file mode 100644 index 00000000..a19b1dee --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/methodProperties.json @@ -0,0 +1,11 @@ +{ + "class" : { + "importFrom:" : "jupiter 04/08/2021 01:41" }, + "instance" : { + "excludedInstVarNames" : "jupiter 04/07/2021 21:12", + "fromSton:" : "jupiter 04/07/2021 21:12", + "prettyPrintStonOn:" : "jupiter 04/07/2021 21:12", + "serializeOn:" : "jupiter 04/07/2021 21:12", + "stonInstVarNames" : "jupiter 04/07/2021 21:12", + "stonOn:" : "jupiter 04/07/2021 21:12", + "updateFrom:" : "jupiter 04/07/2021 21:12" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/properties.json new file mode 100644 index 00000000..52bb797b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitSton.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "jupiter 04/07/2021 21:12", + "instvars" : [ + ], + "name" : "GsDevKitSton", + "pools" : [ + ], + "super" : "GsDevKitSerializable", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/asStoneContext.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/asStoneContext.st new file mode 100644 index 00000000..2ebcf038 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/asStoneContext.st @@ -0,0 +1,3 @@ +converting +asStoneContext + ^ self \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId..st new file mode 100644 index 00000000..f6f431ca --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId..st @@ -0,0 +1,3 @@ +updating +authorId: newValue + authorId := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId.st new file mode 100644 index 00000000..67aab6fe --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/authorId.st @@ -0,0 +1,3 @@ +accessing +authorId + ^ authorId ifNil: [ authorId := '' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory..st new file mode 100644 index 00000000..6882893d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory..st @@ -0,0 +1,5 @@ +updating +backupDirectory: aPathString + (aPathString isEmpty or: [ aPathString last = $/ ]) + ifTrue: [ backupDirectory := aPathString ] + ifFalse: [ backupDirectory := aPathString , '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory.st new file mode 100644 index 00000000..ddf35244 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/backupDirectory.st @@ -0,0 +1,3 @@ +accessing +backupDirectory + ^ backupDirectory ifNil: [ backupDirectory := '' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory..st new file mode 100644 index 00000000..a8551648 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory..st @@ -0,0 +1,5 @@ +updating +dataDirectory: aPathString + (aPathString isEmpty or: [ aPathString last = $/ ]) + ifTrue: [ dataDirectory := aPathString ] + ifFalse: [ dataDirectory := aPathString , '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory.st new file mode 100644 index 00000000..2cc8d3fb --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/dataDirectory.st @@ -0,0 +1,3 @@ +accessing +dataDirectory + ^ dataDirectory ifNil: [ dataDirectory := '' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultFileName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultFileName.st new file mode 100644 index 00000000..4506d617 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultFileName.st @@ -0,0 +1,3 @@ +defaults +defaultFileName + ^ 'stone.context' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemHost.st new file mode 100644 index 00000000..4eaead74 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemHost.st @@ -0,0 +1,3 @@ +defaults +defaultGemHost + ^ 'localhost' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemTask.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemTask.st new file mode 100644 index 00000000..780adeae --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemTask.st @@ -0,0 +1,3 @@ +defaults +defaultGemTask + ^ 'gemnetobject' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemstoneVersion.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemstoneVersion.st new file mode 100644 index 00000000..06f6e18e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultGemstoneVersion.st @@ -0,0 +1,3 @@ +defaults +defaultGemstoneVersion + ^ '3.6.0' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultNetLDI.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultNetLDI.st new file mode 100644 index 00000000..09229eb4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultNetLDI.st @@ -0,0 +1,3 @@ +defaults +defaultNetLDI + ^ '50377' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultPassword.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultPassword.st new file mode 100644 index 00000000..ffea2a61 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultPassword.st @@ -0,0 +1,3 @@ +defaults +defaultPassword + ^ 'swordfish' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..dd17c2f0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultSourcePath.st @@ -0,0 +1,3 @@ +defaults +defaultSourcePath + ^ Path * ('stones/' , self stoneName) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneHost.st new file mode 100644 index 00000000..55ac117b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneHost.st @@ -0,0 +1,3 @@ +defaults +defaultStoneHost + ^ 'localhost' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneName.st new file mode 100644 index 00000000..996a4c1e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultStoneName.st @@ -0,0 +1,3 @@ +defaults +defaultStoneName + ^ 'untitled_' , (self gemstoneVersion copyReplaceAll: '.' with: '') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultUserId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultUserId.st new file mode 100644 index 00000000..313eb363 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/defaultUserId.st @@ -0,0 +1,3 @@ +defaults +defaultUserId + ^ 'DataCurator' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId..st new file mode 100644 index 00000000..de374949 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId..st @@ -0,0 +1,3 @@ +updating +environmentId: newValue + environmentId := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId.st new file mode 100644 index 00000000..ac4c88d8 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/environmentId.st @@ -0,0 +1,3 @@ +accessing +environmentId + ^ environmentId ifNil: [ environmentId := 0 ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort..st new file mode 100644 index 00000000..0c08db3a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort..st @@ -0,0 +1,3 @@ +updating +excludeNetLDIPort: newValue + excludeNetLDIPort := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort.st new file mode 100644 index 00000000..3ed943c5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludeNetLDIPort.st @@ -0,0 +1,3 @@ +accessing +excludeNetLDIPort + ^ excludeNetLDIPort ifNil: [ excludeNetLDIPort := true ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..28e876d8 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/excludedInstVarNames.st @@ -0,0 +1,23 @@ +ston +excludedInstVarNames + | excluded | + excluded := super excludedInstVarNames , #(#'registry'). + excluded add: #'excludeNetLDIPort'. + self netLDIPortRange ifNil: [ excluded add: #'netLDIPortRange' ]. + self excludeNetLDIPort + ifTrue: [ + "when excludeNetLDIPort is true, avoid exporting netLDIPort and + netLDIPortRange i.v.s because we may be passing the description + to an older version of tode" + self netLDIPort isEmpty + ifTrue: [ excluded add: #'netLDIPort' ]. + self netLDIPortRange + ifNotNil: [ :range | + range isEmpty + ifTrue: [ excluded add: #'netLDIPortRange' ] ]. + self authorId isEmpty + ifTrue: [ excluded add: #'authorId' ] ]. + self snapshotDirectory isEmpty + ifTrue: [ excluded add: #'snapshotDirectory' ]. + environmentId ifNil: [ excluded add: #'environmentId' ]. + ^ excluded \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/exportTo..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/exportTo..st new file mode 100644 index 00000000..066da04d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/exportTo..st @@ -0,0 +1,12 @@ +exporting +exportTo: filepath + | stream old | + old := self excludeNetLDIPort. + [ + "when exporting to file system, we are interested in including netLDIPort.. i.v.s" + self excludeNetLDIPort: false. + stream := FileStream forceNewFileNamed: filepath , self fileName. + stream lineEndConvention: #'lf'. + (STONWriter on: stream) nextPut: self. + stream close ] + ensure: [ self excludeNetLDIPort: old ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fileName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fileName.st new file mode 100644 index 00000000..a91d7e99 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fileName.st @@ -0,0 +1,3 @@ +exporting +fileName + ^ 'stone.context' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fromSton..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fromSton..st new file mode 100644 index 00000000..d9ce9655 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/fromSton..st @@ -0,0 +1,12 @@ +importing +fromSton: stonReader + stonReader + parseMapDo: [ :instVarName :value | + | index | + (index := self class offsetOfInstVar: instVarName) > 0 + ifTrue: [ + [ self instVarAt: index put: value ] + on: Error + do: [ :ex | + "If the instance variable for a TodeClient is missing ... it is for a good reason ... keep on truckin'" + ] ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName..st new file mode 100644 index 00000000..78dc6eb4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName..st @@ -0,0 +1,3 @@ +updating +gciLibraryName: newValue + gciLibraryName := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName.st new file mode 100644 index 00000000..d9afcb07 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gciLibraryName.st @@ -0,0 +1,4 @@ +accessing +gciLibraryName + ^ gciLibraryName + ifNil: [ gciLibraryName := 'libgcirpc-' , self gemstoneVersion , '-64' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost..st new file mode 100644 index 00000000..e4e730b9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost..st @@ -0,0 +1,3 @@ +updating +gemHost: newValue + gemHost := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost.st new file mode 100644 index 00000000..615473e0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemHost.st @@ -0,0 +1,3 @@ +accessing +gemHost + ^ gemHost ifNil: [ gemHost := self defaultGemHost ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemNRS.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemNRS.st new file mode 100644 index 00000000..1e69b773 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemNRS.st @@ -0,0 +1,4 @@ +accessing +gemNRS + ^ '!tcp@' , self gemHost , '#netldi:' , self netLDIOrNetLDIPort , '#task!' + , self gemTask \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask..st new file mode 100644 index 00000000..dd9dbcdc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask..st @@ -0,0 +1,3 @@ +updating +gemTask: newValue + gemTask := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask.st new file mode 100644 index 00000000..3ad6b407 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemTask.st @@ -0,0 +1,3 @@ +accessing +gemTask + ^ gemTask ifNil: [ gemTask := self defaultGemTask ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion..st new file mode 100644 index 00000000..079fb679 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion..st @@ -0,0 +1,3 @@ +updating +gemstoneVersion: newValue + gemstoneVersion := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion.st new file mode 100644 index 00000000..63c6b8b1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/gemstoneVersion.st @@ -0,0 +1,3 @@ +accessing +gemstoneVersion + ^ gemstoneVersion ifNil: [ gemstoneVersion := self defaultGemstoneVersion ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/isGuest.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/isGuest.st new file mode 100644 index 00000000..defe545b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/isGuest.st @@ -0,0 +1,3 @@ +testing +isGuest + ^ osUserId isNil \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI..st new file mode 100644 index 00000000..90233939 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI..st @@ -0,0 +1,3 @@ +updating +netLDI: newValue + netLDI := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI.st new file mode 100644 index 00000000..e91a44ab --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDI.st @@ -0,0 +1,3 @@ +accessing +netLDI + ^ netLDI ifNil: [ netLDI := self defaultNetLDI ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIOrNetLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIOrNetLDIPort.st new file mode 100644 index 00000000..0dd9befc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIOrNetLDIPort.st @@ -0,0 +1,5 @@ +accessing +netLDIOrNetLDIPort + ^ self netLDIPort isEmpty + ifTrue: [ self netLDI ] + ifFalse: [ self netLDIPort ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort..st new file mode 100644 index 00000000..7bad8f64 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort..st @@ -0,0 +1,3 @@ +updating +netLDIPort: newValue + netLDIPort := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort.st new file mode 100644 index 00000000..8e85110f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPort.st @@ -0,0 +1,3 @@ +accessing +netLDIPort + ^ netLDIPort ifNil: [ netLDIPort := '' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange..st new file mode 100644 index 00000000..6edf8941 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange..st @@ -0,0 +1,3 @@ +updating +netLDIPortRange: newValue + netLDIPortRange := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange.st new file mode 100644 index 00000000..ce9b65c1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netLDIPortRange.st @@ -0,0 +1,3 @@ +accessing +netLDIPortRange + ^netLDIPortRange diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netldiArgsOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netldiArgsOn..st new file mode 100644 index 00000000..3018515c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/netldiArgsOn..st @@ -0,0 +1,33 @@ +exporting +netldiArgsOn: netldiArgs + netldiArgs + add: '-g'; + add: '-a'; + add: self osUserId. + self netLDIPort isEmpty + ifFalse: [ + netldiArgs + add: '-P'; + add: self netLDIPort ]. + self netLDIPortRange + ifNotNil: [ :range | + | vrsnAr | + vrsnAr := self gemstoneVersion findTokens: '.'. + ((vrsnAr at: 1) asNumber < 3 + or: [ (vrsnAr at: 1) asNumber = 3 and: [ (vrsnAr at: 2) asNumber < 2 ] ]) + ifTrue: [ + "after GemStone 3.2, port range no longer accepted by netldi" + range isEmpty + ifFalse: [ + netldiArgs + add: '-p'; + add: range ] ] + ifFalse: [ + Error + signal: + 'port range: ' , range printString + , + ' no longer needed for netldi in GemStone versions 3.2 and later' ] ]. + netldiArgs + add: self netLDI; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword..st new file mode 100644 index 00000000..a80aa60f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword..st @@ -0,0 +1,3 @@ +updating +osPassword: newValue + osPassword := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword.st new file mode 100644 index 00000000..6c17c483 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osPassword.st @@ -0,0 +1,3 @@ +accessing +osPassword + ^ osPassword ifNil: [ osPassword := '' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId..st new file mode 100644 index 00000000..83fc1dbc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId..st @@ -0,0 +1,3 @@ +updating +osUserId: newValue + osUserId := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId.st new file mode 100644 index 00000000..14188163 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/osUserId.st @@ -0,0 +1,3 @@ +accessing +osUserId + ^ osUserId ifNil: [ osUserId := System gemEnvironmentVariable: 'USER' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password..st new file mode 100644 index 00000000..4a561834 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password..st @@ -0,0 +1,3 @@ +updating +password: newValue + password := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password.st new file mode 100644 index 00000000..d98cea64 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/password.st @@ -0,0 +1,3 @@ +accessing +password + ^ password ifNil: [ password := self defaultPassword ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory..st new file mode 100644 index 00000000..a56119f7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory..st @@ -0,0 +1,5 @@ +updating +snapshotDirectory: aPathString + (aPathString isEmpty or: [ aPathString last = $/ ]) + ifTrue: [ snapshotDirectory := aPathString ] + ifFalse: [ snapshotDirectory := aPathString , '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory.st new file mode 100644 index 00000000..e842260e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/snapshotDirectory.st @@ -0,0 +1,5 @@ +accessing +snapshotDirectory + snapshotDirectory == nil + ifTrue: [ snapshotDirectory := '' ]. + ^ snapshotDirectory \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stonProcessSubObjects..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stonProcessSubObjects..st new file mode 100644 index 00000000..95ef5342 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stonProcessSubObjects..st @@ -0,0 +1,6 @@ +exporting +stonProcessSubObjects: block + "#stonInstVarNames are the only instance variables that need to be processed..." + + self stonInstVarNames + do: [ :ivName | self instVarNamed: ivName put: (block value: (self instVarNamed: ivName)) ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost..st new file mode 100644 index 00000000..98af5c78 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost..st @@ -0,0 +1,3 @@ +updating +stoneHost: newValue + stoneHost := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost.st new file mode 100644 index 00000000..0ef28637 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneHost.st @@ -0,0 +1,3 @@ +accessing +stoneHost + ^ stoneHost ifNil: [ stoneHost := self defaultStoneHost ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneNRS.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneNRS.st new file mode 100644 index 00000000..4c2c99ef --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneNRS.st @@ -0,0 +1,3 @@ +accessing +stoneNRS + ^ '!tcp@' , self stoneHost , '#server!' , self stoneName \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName..st new file mode 100644 index 00000000..8b7ddf8a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName..st @@ -0,0 +1,3 @@ +updating +stoneName: newValue + stoneName := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName.st new file mode 100644 index 00000000..4e8535ff --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/stoneName.st @@ -0,0 +1,3 @@ +accessing +stoneName + ^ stoneName ifNil: [ stoneName := self defaultStoneName ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId..st new file mode 100644 index 00000000..bcce4c46 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId..st @@ -0,0 +1,3 @@ +updating +userId: newValue + userId := newValue diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId.st new file mode 100644 index 00000000..c72e6fd3 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/instance/userId.st @@ -0,0 +1,3 @@ +accessing +userId + ^ userId ifNil: [ userId := self defaultUserId ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/methodProperties.json new file mode 100644 index 00000000..5b32034d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/methodProperties.json @@ -0,0 +1,63 @@ +{ + "class" : { + }, + "instance" : { + "asStoneContext" : "jupiter 03/25/2021 20:32", + "authorId" : "jupiter 03/25/2021 20:37", + "authorId:" : "jupiter 03/25/2021 20:29", + "backupDirectory" : "jupiter 03/25/2021 20:37", + "backupDirectory:" : "jupiter 03/25/2021 20:34", + "dataDirectory" : "jupiter 03/25/2021 20:38", + "dataDirectory:" : "jupiter 03/25/2021 20:35", + "defaultFileName" : "jupiter 04/06/2021 19:00", + "defaultGemHost" : "jupiter 03/25/2021 20:50", + "defaultGemTask" : "jupiter 03/25/2021 20:54", + "defaultGemstoneVersion" : "jupiter 03/25/2021 20:52", + "defaultNetLDI" : "jupiter 03/25/2021 21:09", + "defaultPassword" : "jupiter 03/25/2021 21:14", + "defaultSourcePath" : "jupiter 04/07/2021 22:15", + "defaultStoneHost" : "jupiter 03/25/2021 20:50", + "defaultStoneName" : "jupiter 03/25/2021 21:26", + "defaultUserId" : "jupiter 03/25/2021 21:31", + "environmentId" : "jupiter 03/25/2021 20:36", + "environmentId:" : "jupiter 03/25/2021 20:29", + "excludeNetLDIPort" : "jupiter 03/25/2021 20:39", + "excludeNetLDIPort:" : "jupiter 03/25/2021 20:29", + "excludedInstVarNames" : "jupiter 04/08/2021 12:23", + "exportTo:" : "jupiter 03/25/2021 20:45", + "fileName" : "jupiter 03/25/2021 20:45", + "fromSton:" : "jupiter 03/25/2021 20:43", + "gciLibraryName" : "jupiter 03/25/2021 20:47", + "gciLibraryName:" : "jupiter 03/25/2021 20:29", + "gemHost" : "jupiter 03/25/2021 20:49", + "gemHost:" : "jupiter 03/25/2021 20:29", + "gemNRS" : "jupiter 03/25/2021 21:01", + "gemTask" : "jupiter 03/25/2021 20:59", + "gemTask:" : "jupiter 03/25/2021 20:29", + "gemstoneVersion" : "jupiter 03/25/2021 20:52", + "gemstoneVersion:" : "jupiter 03/25/2021 20:29", + "isGuest" : "jupiter 03/25/2021 21:01", + "netLDI" : "jupiter 03/25/2021 21:02", + "netLDI:" : "jupiter 03/25/2021 20:29", + "netLDIOrNetLDIPort" : "jupiter 03/25/2021 21:12", + "netLDIPort" : "jupiter 03/25/2021 21:10", + "netLDIPort:" : "jupiter 03/25/2021 20:29", + "netLDIPortRange" : "jupiter 03/25/2021 20:29", + "netLDIPortRange:" : "jupiter 03/25/2021 20:29", + "netldiArgsOn:" : "jupiter 03/25/2021 21:12", + "osPassword" : "jupiter 03/25/2021 21:10", + "osPassword:" : "jupiter 03/25/2021 20:29", + "osUserId" : "jupiter 03/25/2021 21:13", + "osUserId:" : "jupiter 03/25/2021 20:29", + "password" : "jupiter 03/25/2021 21:14", + "password:" : "jupiter 03/25/2021 20:29", + "snapshotDirectory" : "jupiter 03/25/2021 20:36", + "snapshotDirectory:" : "jupiter 03/25/2021 20:36", + "stonProcessSubObjects:" : "jupiter 03/25/2021 21:34", + "stoneHost" : "jupiter 03/25/2021 21:16", + "stoneHost:" : "jupiter 03/25/2021 20:29", + "stoneNRS" : "jupiter 03/25/2021 21:28", + "stoneName" : "jupiter 03/25/2021 21:17", + "stoneName:" : "jupiter 03/25/2021 20:29", + "userId" : "jupiter 03/25/2021 21:31", + "userId:" : "jupiter 03/25/2021 20:29" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/properties.json new file mode 100644 index 00000000..3388c25f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneContext.class/properties.json @@ -0,0 +1,34 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "stoneHost", + "stoneName", + "gemHost", + "netLDI", + "netLDIPort", + "netLDIPortRange", + "gemTask", + "userId", + "password", + "osUserId", + "osPassword", + "dataDirectory", + "backupDirectory", + "snapshotDirectory", + "gemstoneVersion", + "gciLibraryName", + "excludeNetLDIPort", + "authorId", + "environmentId", + "topazini", + "environmentVariables" ], + "name" : "GsDevKitStoneContext", + "pools" : [ + ], + "super" : "GsDevKitSton", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/^equals.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/^equals.st new file mode 100644 index 00000000..2c0a81e8 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/^equals.st @@ -0,0 +1,3 @@ +comparing += anObject + ^ super = anObject and: [ anObject stoneRegistryNames = stoneRegistryNames ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/initialize.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/initialize.st new file mode 100644 index 00000000..1693e36f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/initialize.st @@ -0,0 +1,4 @@ +initialization +initialize + super initialize. + stoneRegistryNames := Array new \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames..st new file mode 100644 index 00000000..fe109282 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames..st @@ -0,0 +1,4 @@ +Updating +stoneRegistryNames: newValue + stoneRegistryNames := newValue. + self modified \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames.st new file mode 100644 index 00000000..7c0c7491 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/instance/stoneRegistryNames.st @@ -0,0 +1,3 @@ +Accessing +stoneRegistryNames + ^stoneRegistryNames diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/methodProperties.json new file mode 100644 index 00000000..9405e7c2 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/methodProperties.json @@ -0,0 +1,8 @@ +{ + "class" : { + }, + "instance" : { + "=" : "jupiter 04/03/2021 18:33", + "initialize" : "jupiter 04/07/2021 22:59", + "stoneRegistryNames" : "jupiter 04/03/2021 14:33", + "stoneRegistryNames:" : "jupiter 04/08/2021 15:12" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/properties.json new file mode 100644 index 00000000..bdaac8a3 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneGroupRegistration.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "stoneRegistryNames" ], + "name" : "GsDevKitStoneGroupRegistration", + "pools" : [ + ], + "super" : "GsDevKitAbstractRegistration", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/gsDownloadNameFor..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/gsDownloadNameFor..st new file mode 100644 index 00000000..a93a813d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/gsDownloadNameFor..st @@ -0,0 +1,11 @@ +accessing +gsDownloadNameFor: aGsVersionString + self isMacOS + ifTrue: [ ^ 'GemStone64Bit' , aGsVersionString , '-i386.Darwin' ] + ifFalse: [ + self isUnix + ifTrue: [ ^ 'GemStone64Bit' , aGsVersionString , '-x86_64.Linux' ] + ifFalse: [ + self isWindows + ifTrue: [ ^ 'GemBuilderC' , aGsVersionString , '-x86.Windows_NT' ] ] ]. + ^ '' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/importFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/importFrom..st new file mode 100644 index 00000000..9c2e4354 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/importFrom..st @@ -0,0 +1,3 @@ +instance creation +importFrom: aFileReference + ^ STON fromString: aFileReference contents \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isMacOSX.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isMacOSX.st new file mode 100644 index 00000000..e8dfc598 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isMacOSX.st @@ -0,0 +1,3 @@ +testing +isMacOSX + ^ (System gemVersionAt: 'osName') = 'Darwin' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isUnix.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isUnix.st new file mode 100644 index 00000000..60520dce --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isUnix.st @@ -0,0 +1,3 @@ +testing +isUnix + ^ (System gemVersionAt: 'osName') = 'Linux' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isWindows.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isWindows.st new file mode 100644 index 00000000..87b8aa0e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/class/isWindows.st @@ -0,0 +1,3 @@ +testing +isWindows + ^ (System gemVersionAt: 'osName') = 'Windows' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/addFieldsToSessionDescription..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/addFieldsToSessionDescription..st new file mode 100644 index 00000000..406ce575 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/addFieldsToSessionDescription..st @@ -0,0 +1,16 @@ +session descriptions +addFieldsToSessionDescription: description + | vrsnAr | + vrsnAr := description gemstoneVersion findTokens: '.'. + ((vrsnAr at: 1) asNumber < 3 + or: [ (vrsnAr at: 1) asNumber = 3 and: [ (vrsnAr at: 2) asNumber < 2 ] ]) + ifTrue: [ + "after GemStone 3.2, port range no longer accepted by startnetldi" + description netLDIPortRange: ''. + (vrsnAr at: 1) asNumber = 2 + ifTrue: [ + | vrsnStr | + vrsnStr := WriteStream on: String new. + vrsnAr do: [ :each | vrsnStr nextPutAll: each ]. + description gciLibraryName: 'libgcirpc64-' , vrsnStr contents ] ]. + ^ description \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/createSessionDescriptionFor.for..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/createSessionDescriptionFor.for..st new file mode 100644 index 00000000..256df4d5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/createSessionDescriptionFor.for..st @@ -0,0 +1,23 @@ +session descriptions +createSessionDescriptionFor: aGsDevKitCreateStoneCommanLine for: localHostName + | description defaultServerTodeHome | + defaultServerTodeHome := aGsDevKitCreateStoneCommanLine serverTodeHome + ifNil: [ nil ] + ifNotNil: [ :home | home pathString ]. + description := TDSessionDescription new + name: self stoneName; + gemstoneVersion: self gsVers; + stoneHost: localHostName; + stoneName: self stoneName; + gemHost: localHostName; + netLDI: self stoneName , '_ldi'; + netLDIPort: ''; + gemTask: 'gemnetobject'; + userId: aGsDevKitCreateStoneCommanLine gemstoneUserId; + password: aGsDevKitCreateStoneCommanLine gemstonePassword; + backupDirectory: aGsDevKitCreateStoneCommanLine backupsHome pathString; + snapshotDirectory: aGsDevKitCreateStoneCommanLine snapshotsHome pathString; + serverTodeRoot: defaultServerTodeHome; + yourself. + self addFieldsToSessionDescription: description. + ^ description \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..3270d2c6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/excludedInstVarNames.st @@ -0,0 +1,3 @@ +ston +excludedInstVarNames + ^ #(#'isAttached') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/exportTo..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/exportTo..st new file mode 100644 index 00000000..b2c20a02 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/exportTo..st @@ -0,0 +1,7 @@ +ston +exportTo: aFileReference + FileStream + forceNewFileNamed: aFileReference pathString + do: [ :stream | + stream lineEndConvention: #'lf'. + STON put: self onStreamPretty: stream ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/fromSton..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/fromSton..st new file mode 100644 index 00000000..c772b8d1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/fromSton..st @@ -0,0 +1,12 @@ +ston +fromSton: stonReader + stonReader + parseMapDo: [ :instVarName :value | + | index | + (index := self class offsetOfInstVar: instVarName) > 0 + ifTrue: [ + [ self instVarAt: index put: value ] + on: Error + do: [ :ex | + "If the instance variable for a TodeClient is missing ... it is for a good reason ... keep on truckin'" + ] ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers..st new file mode 100644 index 00000000..7f0aee65 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers..st @@ -0,0 +1,3 @@ +accessing +gsVers: anObject + gsVers := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers.st new file mode 100644 index 00000000..70a494ca --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/gsVers.st @@ -0,0 +1,3 @@ +accessing +gsVers + ^ gsVers \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached..st new file mode 100644 index 00000000..1711adef --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached..st @@ -0,0 +1,3 @@ +accessing +isAttached: anObject + isAttached := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached.st new file mode 100644 index 00000000..e544c4a6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isAttached.st @@ -0,0 +1,4 @@ +accessing +isAttached + isAttached ifNil: [ isAttached := false ]. + ^ isAttached \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isForeignStone.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isForeignStone.st new file mode 100644 index 00000000..270c570a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/isForeignStone.st @@ -0,0 +1,3 @@ +testing +isForeignStone + ^ false \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/netLDI.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/netLDI.st new file mode 100644 index 00000000..b82dd20b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/netLDI.st @@ -0,0 +1,3 @@ +accessing +netLDI + ^ self stoneName , '_ldi' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/printOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/printOn..st new file mode 100644 index 00000000..c2e37d46 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/printOn..st @@ -0,0 +1,5 @@ +printing +printOn: aStream + aStream + nextPutAll: + 'Stone ' , self stoneName printString , ' version ' , self gsVers printString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonInstVarNames.st new file mode 100644 index 00000000..00cd6365 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonInstVarNames.st @@ -0,0 +1,6 @@ +ston +stonInstVarNames + | oc | + oc := self class allInstVarNames asOrderedCollection. + oc removeAll: self excludedInstVarNames. + ^ oc \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonOn..st new file mode 100644 index 00000000..00b40940 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonOn..st @@ -0,0 +1,7 @@ +ston +stonOn: stonWriter + stonWriter + writeObject: self + streamMap: [ :dictionary | + self stonInstVarNames + do: [ :each | dictionary at: each asSymbol put: (self instVarNamed: each) ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonProcessSubObjects..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonProcessSubObjects..st new file mode 100644 index 00000000..7c4861b7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stonProcessSubObjects..st @@ -0,0 +1,6 @@ +ston +stonProcessSubObjects: block + "#stonInstVarNames are the only instance variables that need to be processed..." + + self stonInstVarNames + do: [ :ivName | self instVarNamed: ivName put: (block value: (self instVarNamed: ivName)) ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName..st new file mode 100644 index 00000000..7c608f3c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName..st @@ -0,0 +1,3 @@ +accessing +stoneName: anObject + stoneName := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName.st new file mode 100644 index 00000000..1e8d0d40 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/stoneName.st @@ -0,0 +1,3 @@ +accessing +stoneName + ^ stoneName \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username..st new file mode 100644 index 00000000..7757b4aa --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username..st @@ -0,0 +1,3 @@ +accessing +username: anObject + username := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username.st new file mode 100644 index 00000000..223cdc15 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/instance/username.st @@ -0,0 +1,4 @@ +accessing +username + username ifNil: [ username := System gemEnvironmentVariable: 'USER' ]. + ^ username \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/methodProperties.json new file mode 100644 index 00000000..81b4d520 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/methodProperties.json @@ -0,0 +1,27 @@ +{ + "class" : { + "gsDownloadNameFor:" : "jupiter 03/15/2021 14:46", + "importFrom:" : "jupiter 03/16/2021 20:22", + "isMacOSX" : "jupiter 03/15/2021 14:52", + "isUnix" : "jupiter 03/15/2021 14:52", + "isWindows" : "jupiter 03/15/2021 14:52" }, + "instance" : { + "addFieldsToSessionDescription:" : "jupiter 03/15/2021 11:20", + "createSessionDescriptionFor:for:" : "jupiter 03/15/2021 11:20", + "excludedInstVarNames" : "jupiter 03/15/2021 11:21", + "exportTo:" : "jupiter 03/15/2021 11:21", + "fromSton:" : "jupiter 03/17/2021 04:44", + "gsVers" : "jupiter 03/15/2021 11:16", + "gsVers:" : "jupiter 03/15/2021 11:17", + "isAttached" : "jupiter 03/15/2021 11:17", + "isAttached:" : "jupiter 03/15/2021 11:17", + "isForeignStone" : "jupiter 03/15/2021 11:23", + "netLDI" : "jupiter 03/15/2021 11:17", + "printOn:" : "jupiter 03/15/2021 11:19", + "stonInstVarNames" : "jupiter 03/15/2021 11:21", + "stonOn:" : "jupiter 03/15/2021 11:21", + "stonProcessSubObjects:" : "jupiter 03/15/2021 11:22", + "stoneName" : "jupiter 03/15/2021 11:17", + "stoneName:" : "jupiter 03/15/2021 11:17", + "username" : "jupiter 03/15/2021 11:18", + "username:" : "jupiter 03/15/2021 11:18" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/properties.json new file mode 100644 index 00000000..faa4f003 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneInfo.class/properties.json @@ -0,0 +1,17 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "stoneName", + "gsVers", + "username", + "isAttached" ], + "name" : "GsDevKitStoneInfo", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/context.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/context.st new file mode 100644 index 00000000..2f65be7f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/context.st @@ -0,0 +1,5 @@ +accessing +context + "Answer the stone context or reify one if no context exists" + + ^ context ifNil: [ context := self reifyContext ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultSourcePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultSourcePath.st new file mode 100644 index 00000000..ac3ebe22 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultSourcePath.st @@ -0,0 +1,4 @@ +defaults +defaultSourcePath + stonePath ifNil: [ ^ Path * ('stones/' , self registryName) ]. + ^ Path from: stonePath \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultStonePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultStonePath.st new file mode 100644 index 00000000..d55eaba3 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/defaultStonePath.st @@ -0,0 +1,3 @@ +defaults +defaultStonePath + ^ self defaultSourcePath pathString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..b7488113 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/excludedInstVarNames.st @@ -0,0 +1,3 @@ +ston +excludedInstVarNames + ^ super excludedInstVarNames , #(#'context') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/reifyContext.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/reifyContext.st new file mode 100644 index 00000000..14ade822 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/reifyContext.st @@ -0,0 +1,4 @@ +accessing +reifyContext + "Load context from disk if it exists, or create a new one" + diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath..st new file mode 100644 index 00000000..a609da29 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath..st @@ -0,0 +1,4 @@ +Updating +stonePath: newValue + stonePath := newValue. + self modified \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath.st new file mode 100644 index 00000000..d8229abc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/instance/stonePath.st @@ -0,0 +1,3 @@ +Accessing +stonePath + ^ stonePath ifNil: [ stonePath := self defaultStonePath ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/methodProperties.json new file mode 100644 index 00000000..f83c2eb7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/methodProperties.json @@ -0,0 +1,11 @@ +{ + "class" : { + }, + "instance" : { + "context" : "jupiter 04/04/2021 23:43", + "defaultSourcePath" : "jupiter 04/08/2021 12:51", + "defaultStonePath" : "jupiter 04/08/2021 12:40", + "excludedInstVarNames" : "jupiter 04/07/2021 23:03", + "reifyContext" : "jupiter 04/04/2021 23:45", + "stonePath" : "jupiter 04/07/2021 23:17", + "stonePath:" : "jupiter 04/08/2021 15:10" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/properties.json new file mode 100644 index 00000000..67190f7d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitStoneRegistration.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "stonePath", + "context" ], + "name" : "GsDevKitStoneRegistration", + "pools" : [ + ], + "super" : "GsDevKitAbstractRegistration", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/methodProperties.json new file mode 100644 index 00000000..0e4a6622 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/methodProperties.json @@ -0,0 +1,5 @@ +{ + "class" : { + }, + "instance" : { + } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/properties.json new file mode 100644 index 00000000..d58f58fd --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/GsDevKitTopazini.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "GsDevKit-Core", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "GsDevKitTopazini", + "pools" : [ + ], + "super" : "GsDevKitSerializable", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/categories.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/categories.st new file mode 100644 index 00000000..c2570c12 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'GsDevKit-Core'! diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/initializers.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/package b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/package new file mode 100644 index 00000000..ddb3bf86 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'GsDevKit-Core') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/version b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/version new file mode 100644 index 00000000..eaf3403c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'GsDevKit-Core-jupiter.22' message 'WIP - initial registry classes and tests' id '4cd6ff46-7213-4b2a-be05-1a92c89a5ee1' date '04/08/2021' time '19:40:29' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.21' message 'add registry classes' id 'bdd7c8c1-e9ae-4235-935b-8e9bf5c46a7b' date '04/03/2021' time '14:01:00' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.20' message 'fix netldiArgsOn: to answer the array of args' id 'f4bffa07-8715-4b55-831a-8780aacac749' date '03/21/2021' time '19:05:07' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.19' message 'add osUserId to TDSessionDescription' id '62e82ef0-dd08-4326-9461-8e3281780906' date '03/21/2021' time '16:45:46' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.18' message 'add netdliArgsOn: to TDSessionDescription' id '6631d30e-c1a6-41f6-b4e1-c1158e45f11e' date '03/21/2021' time '16:39:39' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.17' message 'use STON fromString: to avoid ''not currently implemented'' error when importing fromStream:' id '5f82e3c4-c213-4566-9eff-e04d0b90fc62' date '03/21/2021' time '15:46:37' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.16' message 'wip debug session import' id '0a67575c-708c-456c-89c6-dbf51f55f805' date '03/21/2021' time '15:22:17' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.15' message 'debug session importer' id '8b65164c-3617-4caf-ac83-6dbad160cafa' date '03/21/2021' time '15:19:20' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.14' message 'user offsetOfInstVar: rather than index position in instVarNames' id '1691ec40-fee0-4195-85d4-ae2d45a14248' date '03/17/2021' time '04:47:03' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.13' message 'instVarNamed* is from squeak. use: self instVarAt: (self class instVarNames indexOf: instVarName) put: value ' id 'c67ea9f1-2731-4710-8874-0e21d3fad20a' date '03/16/2021' time '22:42:52' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.12' message 'take 3' id 'e0718e68-7ba0-4bf3-830c-04bee6ac95b6' date '03/16/2021' time '22:30:59' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.11' message 'revert' id 'f7dd6af0-c4eb-4cd7-a1dd-c5fd611c0757' date '03/16/2021' time '22:29:20' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.10' message 'bugfix in GsDevKitStoneInfo fromSton:' id 'ac371c3e-53be-474e-b0be-60772333f0e1' date '03/16/2021' time '22:23:10' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.9' message 'testing: pass exceptions in fromSton: to try and debug why it''s not loading info.ston' id '10726dd2-0ae8-4522-8cfb-9ca915a68572' date '03/16/2021' time '22:19:37' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.8' message 'GsDevKitStoneInfo now uses GsFileSystem for import' id '0458d45a-5fc0-4caf-987c-adc892f33d06' date '03/16/2021' time '20:23:12' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.7' message 'TDSessionDescription now uses GsFileSystem for importing' id '238c7db9-b9a5-41ab-bd93-10ef4ddf0457' date '03/16/2021' time '20:15:32' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.6' message 'remove reference to Smalltalk' id 'a0e09aca-12ed-46df-9f12-c587efeafc94' date '03/15/2021' time '15:30:04' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.5' message 'replace TodeObjectSerializer with straight STON for now. needs tests.' id 'dd5c3cde-cfc9-43db-a348-a035e48c2b9b' date '03/15/2021' time '15:28:02' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.4' message 'platform tests using gemVersion. this will likely move to somewhere more generic if other scripts require platform switches' id 'c6242e09-2d75-4c8d-a113-a3720c9fd8b9' date '03/15/2021' time '14:54:40' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.3' message 'remove use of Color in adornmentColor which is likely obsolete - never sent was and only set in TDSessionDescription class>seaside.' id '31e2c0eb-a4d4-4535-99b8-e01dcf20ed5b' date '03/15/2021' time '14:27:36' author 'jupiter' ancestors ((name 'GsDevKit-Core-jupiter.2' message 'add GsDevKit-Core initial classes' id 'af2cd61e-0b30-4826-ae24-7a0a08b7b97c' date '03/15/2021' time '11:59:10' author 'jupiter' ancestors ((name 'GsDevKit-Core-cypress.1' message 'fabricated from a Cypress format repository' id '38a28751-91ed-4898-b1e0-d4cb28ff1d0c' date '03/15/2021' time '11:02:46' author '' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ()) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/properties.json new file mode 100644 index 00000000..f037444a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Core.package/properties.json @@ -0,0 +1,2 @@ +{ + } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/importFrom..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/importFrom..st new file mode 100644 index 00000000..6a5290dc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/importFrom..st @@ -0,0 +1,9 @@ +instance creation +importFrom: filePath + [ ^ STON fromString: filePath asFileReference contents ] + on: Error + do: [ :ex | + self + error: + 'An error occured while attempting to import the ' , self class name asString + , ' file on path "' , filePath asString , '". ' , ex messageText ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/seaside.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/seaside.st new file mode 100644 index 00000000..806b6111 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/class/seaside.st @@ -0,0 +1,10 @@ +instance creation +seaside + ^ self new + name: 'seaside'; + gemstoneVersion: '3.2.0'; + gciLibraryName: 'libgcirpc-3.2.0-32'; + stoneHost: 'localhost'; + stoneName: 'seaside'; + gemHost: 'localhost'; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor..st new file mode 100644 index 00000000..1558d332 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor..st @@ -0,0 +1,3 @@ +accessing +adornmentColor: anObject + adornmentColor := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor.st new file mode 100644 index 00000000..989f359d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/adornmentColor.st @@ -0,0 +1,3 @@ +accessing +adornmentColor + ^ adornmentColor \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/asTDSessionDescription.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/asTDSessionDescription.st new file mode 100644 index 00000000..a36248af --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/asTDSessionDescription.st @@ -0,0 +1,3 @@ +conversion +asTDSessionDescription + ^ self \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId..st new file mode 100644 index 00000000..7d21a332 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId..st @@ -0,0 +1,3 @@ +accessing +authorId: anObject + authorId := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId.st new file mode 100644 index 00000000..88cbef45 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/authorId.st @@ -0,0 +1,4 @@ +accessing +authorId + authorId ifNil: [ authorId := '' ]. + ^ authorId \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory..st new file mode 100644 index 00000000..2ad34d0a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory..st @@ -0,0 +1,6 @@ +accessing +backupDirectory: aString + + (aString isEmpty or: [ aString last = $/ ]) + ifTrue: [ backupDirectory := aString ] + ifFalse: [ backupDirectory := aString, '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory.st new file mode 100644 index 00000000..3c777885 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/backupDirectory.st @@ -0,0 +1,5 @@ +accessing +backupDirectory + + backupDirectory == nil ifTrue: [ backupDirectory := '' ]. + ^backupDirectory \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory..st new file mode 100644 index 00000000..ac80d214 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory..st @@ -0,0 +1,6 @@ +accessing +dataDirectory: aString + + (aString isEmpty or: [ aString last = $/ ]) + ifTrue: [ dataDirectory := aString ] + ifFalse: [ dataDirectory := aString, '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory.st new file mode 100644 index 00000000..bb010a7f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/dataDirectory.st @@ -0,0 +1,5 @@ +accessing +dataDirectory + + dataDirectory == nil ifTrue: [ dataDirectory := '' ]. + ^dataDirectory \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemHost.st new file mode 100644 index 00000000..9956e2d4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemHost.st @@ -0,0 +1,4 @@ +defaults +defaultGemHost + + ^'glass' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemTask.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemTask.st new file mode 100644 index 00000000..556de3da --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemTask.st @@ -0,0 +1,4 @@ +defaults +defaultGemTask + + ^'gemnetobject' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemstoneVersion.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemstoneVersion.st new file mode 100644 index 00000000..5fc29180 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultGemstoneVersion.st @@ -0,0 +1,4 @@ +defaults +defaultGemstoneVersion + + ^'3.2.0' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultNetLDI.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultNetLDI.st new file mode 100644 index 00000000..66669694 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultNetLDI.st @@ -0,0 +1,4 @@ +defaults +defaultNetLDI + + ^'50377' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultPassword.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultPassword.st new file mode 100644 index 00000000..75423e48 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultPassword.st @@ -0,0 +1,4 @@ +defaults +defaultPassword + + ^'swordfish' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneHost.st new file mode 100644 index 00000000..3a73e490 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneHost.st @@ -0,0 +1,4 @@ +defaults +defaultStoneHost + + ^'glass' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneName.st new file mode 100644 index 00000000..4e8bda62 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultStoneName.st @@ -0,0 +1,4 @@ +defaults +defaultStoneName + + ^'seaside' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultUserId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultUserId.st new file mode 100644 index 00000000..b11ed7c6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/defaultUserId.st @@ -0,0 +1,4 @@ +defaults +defaultUserId + + ^'DataCurator' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId..st new file mode 100644 index 00000000..1cd050c5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId..st @@ -0,0 +1,3 @@ +accessing +environmentId: anObject + environmentId := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId.st new file mode 100644 index 00000000..ac4c88d8 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/environmentId.st @@ -0,0 +1,3 @@ +accessing +environmentId + ^ environmentId ifNil: [ environmentId := 0 ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort..st new file mode 100644 index 00000000..4d6b62f5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort..st @@ -0,0 +1,3 @@ +accessing +excludeNetLDIPort: anObject + excludeNetLDIPort := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort.st new file mode 100644 index 00000000..acdd1886 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludeNetLDIPort.st @@ -0,0 +1,4 @@ +accessing +excludeNetLDIPort + excludeNetLDIPort ifNil: [ excludeNetLDIPort := true ]. + ^ excludeNetLDIPort \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludedInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludedInstVarNames.st new file mode 100644 index 00000000..d1dc097e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/excludedInstVarNames.st @@ -0,0 +1,24 @@ +ston +excludedInstVarNames + | excluded | + excluded := Set new. + excluded add: #excludeNetLDIPort. + self netLDIPortRange ifNil: [ excluded add: #netLDIPortRange ]. + self excludeNetLDIPort + ifTrue: [ + "when excludeNetLDIPort is true, avoid exporting netLDIPort and + netLDIPortRange i.v.s because we may be passing the description + to an older version of tode" + self netLDIPort isEmpty + ifTrue: [ excluded add: #netLDIPort ]. + self netLDIPortRange + ifNotNil: [ :range | + range isEmpty + ifTrue: [ excluded add: #netLDIPortRange ] ]. + self authorId isEmpty + ifTrue: [ excluded add: #authorId ] ]. + self snapshotDirectory isEmpty + ifTrue: [ excluded add: #snapshotDirectory ]. + environmentId ifNil: [ excluded add: #environmentId ]. + todeUserId ifNil: [ excluded add: #todeUserId ]. + ^ excluded \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo..st new file mode 100644 index 00000000..a66d8312 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo..st @@ -0,0 +1,3 @@ +accessing +exportTo: filepath + self exportTo: filepath extension: '' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo.extension..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo.extension..st new file mode 100644 index 00000000..52ef2d7b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/exportTo.extension..st @@ -0,0 +1,12 @@ +accessing +exportTo: filepath extension: extension + | stream old | + old := self excludeNetLDIPort. + [ + "when exporting to file system, we are interested in including netLDIPort.. i.v.s" + self excludeNetLDIPort: false. + stream := FileStream forceNewFileNamed: filepath , self name , extension. + stream lineEndConvention: #'lf'. + (STONWriter on: stream) nextPut: self. + stream close ] + ensure: [ self excludeNetLDIPort: old ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/fromSton..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/fromSton..st new file mode 100644 index 00000000..c772b8d1 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/fromSton..st @@ -0,0 +1,12 @@ +ston +fromSton: stonReader + stonReader + parseMapDo: [ :instVarName :value | + | index | + (index := self class offsetOfInstVar: instVarName) > 0 + ifTrue: [ + [ self instVarAt: index put: value ] + on: Error + do: [ :ex | + "If the instance variable for a TodeClient is missing ... it is for a good reason ... keep on truckin'" + ] ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName..st new file mode 100644 index 00000000..9db088c9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName..st @@ -0,0 +1,3 @@ +accessing +gciLibraryName: anObject + gciLibraryName := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName.st new file mode 100644 index 00000000..d44c8243 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gciLibraryName.st @@ -0,0 +1,4 @@ +accessing +gciLibraryName + gciLibraryName ifNil: [ gciLibraryName := 'libgcirpc-' , self gemstoneVersion , '-32' ]. + ^ gciLibraryName \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost..st new file mode 100644 index 00000000..f1b9f9be --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost..st @@ -0,0 +1,4 @@ +accessing +gemHost: aString + + gemHost := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost.st new file mode 100644 index 00000000..9ece9982 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemHost.st @@ -0,0 +1,5 @@ +accessing +gemHost + + gemHost == nil ifTrue: [ gemHost := self defaultGemHost ]. + ^gemHost \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemNRS.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemNRS.st new file mode 100644 index 00000000..deb2c879 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemNRS.st @@ -0,0 +1,6 @@ +nrs +gemNRS + + ^'!tcp@' , self gemHost, + '#netldi:' , self netLDIOrNetLDIPort, + '#task!' , self gemTask. \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask..st new file mode 100644 index 00000000..dcc46435 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask..st @@ -0,0 +1,4 @@ +accessing +gemTask: aString + + gemTask := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask.st new file mode 100644 index 00000000..e5f5c67c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemTask.st @@ -0,0 +1,5 @@ +accessing +gemTask + + gemTask == nil ifTrue: [ gemTask := self defaultGemTask ]. + ^gemTask \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion..st new file mode 100644 index 00000000..055277d6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion..st @@ -0,0 +1,7 @@ +accessing +gemstoneVersion: aString + | tokens | + tokens := aString findTokens: '.'. + tokens size <= 2 + ifTrue: [ self error: 'GemStone version must have a minimum of three version fields: ''3.2.0''' ]. + gemstoneVersion := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion.st new file mode 100644 index 00000000..5f5a660a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/gemstoneVersion.st @@ -0,0 +1,4 @@ +accessing +gemstoneVersion + gemstoneVersion ifNil: [ gemstoneVersion := self defaultGemstoneVersion ]. + ^ gemstoneVersion \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/isGuest.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/isGuest.st new file mode 100644 index 00000000..0c47de52 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/isGuest.st @@ -0,0 +1,4 @@ +testing +isGuest + + ^ osUserId isNil \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name..st new file mode 100644 index 00000000..44185269 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name..st @@ -0,0 +1,4 @@ +accessing +name: aString + + name := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name.st new file mode 100644 index 00000000..7ac657bc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/name.st @@ -0,0 +1,6 @@ +accessing +name + + ^name == nil + ifTrue: [ self class label ] + ifFalse: [ name ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI..st new file mode 100644 index 00000000..bee2d3ef --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI..st @@ -0,0 +1,4 @@ +accessing +netLDI: aString + + netLDI := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI.st new file mode 100644 index 00000000..96713cd0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDI.st @@ -0,0 +1,5 @@ +accessing +netLDI + + netLDI == nil ifTrue: [ netLDI := self defaultNetLDI ]. + ^netLDI \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIOrNetLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIOrNetLDIPort.st new file mode 100644 index 00000000..9ad1f824 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIOrNetLDIPort.st @@ -0,0 +1,5 @@ +accessing +netLDIOrNetLDIPort + ^ self netLDIPort isEmpty + ifTrue: [ self netLDI ] + ifFalse: [ self netLDIPort ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort..st new file mode 100644 index 00000000..9d5b1d1d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort..st @@ -0,0 +1,3 @@ +accessing +netLDIPort: anObject + netLDIPort := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort.st new file mode 100644 index 00000000..4ff574df --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPort.st @@ -0,0 +1,4 @@ +accessing +netLDIPort + netLDIPort ifNil: [ netLDIPort := '' ]. + ^ netLDIPort \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange..st new file mode 100644 index 00000000..10b2725a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange..st @@ -0,0 +1,3 @@ +accessing +netLDIPortRange: aString + netLDIPortRange := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange.st new file mode 100644 index 00000000..6b1faeec --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netLDIPortRange.st @@ -0,0 +1,3 @@ +accessing +netLDIPortRange + ^ netLDIPortRange \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netldiArgsOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netldiArgsOn..st new file mode 100644 index 00000000..e18abdae --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/netldiArgsOn..st @@ -0,0 +1,33 @@ +nrs +netldiArgsOn: netldiArgs + netldiArgs + add: '-g'; + add: '-a'; + add: self osUserId. + self netLDIPort isEmpty + ifFalse: [ + netldiArgs + add: '-P'; + add: self netLDIPort ]. + self netLDIPortRange + ifNotNil: [ :range | + | vrsnAr | + vrsnAr := self gemstoneVersion findTokens: '.'. + ((vrsnAr at: 1) asNumber < 3 + or: [ (vrsnAr at: 1) asNumber = 3 and: [ (vrsnAr at: 2) asNumber < 2 ] ]) + ifTrue: [ + "after GemStone 3.2, port range no longer accepted by netldi" + range isEmpty + ifFalse: [ + netldiArgs + add: '-p'; + add: range ] ] + ifFalse: [ + Error + signal: + 'port range: ' , range printString + , + ' no longer needed for netldi in GemStone versions 3.2 and later' ] ]. + netldiArgs + add: self netLDI; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword..st new file mode 100644 index 00000000..9017e9f4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword..st @@ -0,0 +1,4 @@ +accessing +osPassword: aString + + osPassword := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword.st new file mode 100644 index 00000000..8bfcaafe --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osPassword.st @@ -0,0 +1,5 @@ +accessing +osPassword + + osPassword == nil ifTrue: [ osPassword := '' ]. + ^osPassword \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId..st new file mode 100644 index 00000000..d16504ac --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId..st @@ -0,0 +1,4 @@ +accessing +osUserId: aString + + osUserId := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId.st new file mode 100644 index 00000000..2121b7fc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/osUserId.st @@ -0,0 +1,5 @@ +user +osUserId + osUserId == nil + ifTrue: [ ^ System gemEnvironmentVariable: 'USER' ]. + ^ osUserId \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password..st new file mode 100644 index 00000000..bf494292 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password..st @@ -0,0 +1,4 @@ +accessing +password: aString + + password := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password.st new file mode 100644 index 00000000..bdcf59b2 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/password.st @@ -0,0 +1,5 @@ +accessing +password + + password == nil ifTrue: [ password := self defaultPassword ]. + ^password \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/postCopy.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/postCopy.st new file mode 100644 index 00000000..37926467 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/postCopy.st @@ -0,0 +1,5 @@ +copying +postCopy + + super postCopy. + self name: self name, ' copy' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot..st new file mode 100644 index 00000000..baa6e418 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot..st @@ -0,0 +1,3 @@ +accessing +serverGitRoot: anObject + serverGitRoot := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot.st new file mode 100644 index 00000000..6395249f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverGitRoot.st @@ -0,0 +1,3 @@ +accessing +serverGitRoot + ^ serverGitRoot \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot..st new file mode 100644 index 00000000..cc417d62 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot..st @@ -0,0 +1,4 @@ +accessing +serverTodeRoot: anObject + + serverTodeRoot := anObject \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot.st new file mode 100644 index 00000000..50b1f54d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/serverTodeRoot.st @@ -0,0 +1,4 @@ +accessing +serverTodeRoot + serverTodeRoot ifNil: [ serverTodeRoot := '$GS_HOME/tode' ]. + ^ serverTodeRoot \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory..st new file mode 100644 index 00000000..0db52d62 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory..st @@ -0,0 +1,6 @@ +accessing +snapshotDirectory: aString + + (aString isEmpty or: [ aString last = $/ ]) + ifTrue: [ snapshotDirectory := aString ] + ifFalse: [ snapshotDirectory := aString, '/' ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory.st new file mode 100644 index 00000000..e0cc5589 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/snapshotDirectory.st @@ -0,0 +1,5 @@ +accessing +snapshotDirectory + + snapshotDirectory == nil ifTrue: [ snapshotDirectory := '' ]. + ^snapshotDirectory \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonInstVarNames.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonInstVarNames.st new file mode 100644 index 00000000..00cd6365 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonInstVarNames.st @@ -0,0 +1,6 @@ +ston +stonInstVarNames + | oc | + oc := self class allInstVarNames asOrderedCollection. + oc removeAll: self excludedInstVarNames. + ^ oc \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonOn..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonOn..st new file mode 100644 index 00000000..00b40940 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonOn..st @@ -0,0 +1,7 @@ +ston +stonOn: stonWriter + stonWriter + writeObject: self + streamMap: [ :dictionary | + self stonInstVarNames + do: [ :each | dictionary at: each asSymbol put: (self instVarNamed: each) ] ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonProcessSubObjects..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonProcessSubObjects..st new file mode 100644 index 00000000..7c4861b7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stonProcessSubObjects..st @@ -0,0 +1,6 @@ +ston +stonProcessSubObjects: block + "#stonInstVarNames are the only instance variables that need to be processed..." + + self stonInstVarNames + do: [ :ivName | self instVarNamed: ivName put: (block value: (self instVarNamed: ivName)) ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost..st new file mode 100644 index 00000000..a7a88095 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost..st @@ -0,0 +1,4 @@ +accessing +stoneHost: aString + + stoneHost := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost.st new file mode 100644 index 00000000..04ad56e5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneHost.st @@ -0,0 +1,5 @@ +accessing +stoneHost + + stoneHost == nil ifTrue: [ stoneHost := self defaultStoneHost ]. + ^stoneHost \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneNRS.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneNRS.st new file mode 100644 index 00000000..ad28e28a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneNRS.st @@ -0,0 +1,5 @@ +nrs +stoneNRS + + ^'!tcp@' , self stoneHost , + '#server!' , self stoneName. \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName..st new file mode 100644 index 00000000..12bf30c7 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName..st @@ -0,0 +1,4 @@ +accessing +stoneName: aString + + stoneName := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName.st new file mode 100644 index 00000000..360e0847 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/stoneName.st @@ -0,0 +1,5 @@ +accessing +stoneName + + stoneName == nil ifTrue: [ stoneName := self defaultStoneName ]. + ^stoneName \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId..st new file mode 100644 index 00000000..b630e9ec --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId..st @@ -0,0 +1,3 @@ +accessing +todeUserId: aString + todeUserId := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId.st new file mode 100644 index 00000000..b3e659fa --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/todeUserId.st @@ -0,0 +1,3 @@ +accessing +todeUserId + ^ todeUserId ifNil: [ self userId ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId..st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId..st new file mode 100644 index 00000000..c8900c13 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId..st @@ -0,0 +1,4 @@ +accessing +userId: aString + + userId := aString \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId.st new file mode 100644 index 00000000..f51efa15 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/instance/userId.st @@ -0,0 +1,5 @@ +accessing +userId + + userId == nil ifTrue: [ userId := self defaultUserId ]. + ^userId \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/methodProperties.json new file mode 100644 index 00000000..a42b119e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/methodProperties.json @@ -0,0 +1,75 @@ +{ + "class" : { + "importFrom:" : "jupiter 04/03/2021 13:25", + "seaside" : "jupiter 03/15/2021 14:24" }, + "instance" : { + "adornmentColor" : "jupiter 03/15/2021 14:24", + "adornmentColor:" : "dkh 5/28/2014 06:35", + "asTDSessionDescription" : "dkh 5/28/2014 06:39", + "authorId" : "dkh 10/19/2015 20:02", + "authorId:" : "dkh 10/19/2015 19:42", + "backupDirectory" : "dkh 5/28/2014 06:35", + "backupDirectory:" : "dkh 5/28/2014 06:35", + "dataDirectory" : "dkh 5/28/2014 06:35", + "dataDirectory:" : "dkh 5/28/2014 06:35", + "defaultGemHost" : "dkh 5/28/2014 06:35", + "defaultGemTask" : "dkh 5/28/2014 06:35", + "defaultGemstoneVersion" : "dkh 5/28/2014 06:35", + "defaultNetLDI" : "dkh 5/28/2014 06:35", + "defaultPassword" : "dkh 5/28/2014 06:35", + "defaultStoneHost" : "dkh 5/28/2014 06:35", + "defaultStoneName" : "dkh 5/28/2014 06:35", + "defaultUserId" : "dkh 5/28/2014 06:35", + "environmentId" : "dkh 12/23/2016 15:22", + "environmentId:" : "dkh 12/23/2016 15:22", + "excludeNetLDIPort" : "dlh 10/6/2015 11:40", + "excludeNetLDIPort:" : "dlh 10/6/2015 11:40", + "excludedInstVarNames" : "dkh 12/27/2016 09:50", + "exportTo:" : "dkh 5/28/2014 06:35", + "exportTo:extension:" : "jupiter 03/15/2021 15:25", + "fromSton:" : "jupiter 03/17/2021 04:45", + "gciLibraryName" : "dkh 5/28/2014 06:35", + "gciLibraryName:" : "dkh 5/28/2014 06:35", + "gemHost" : "dkh 5/28/2014 06:35", + "gemHost:" : "dkh 5/28/2014 06:35", + "gemNRS" : "dkh 9/29/2015 11:31", + "gemTask" : "dkh 5/28/2014 06:35", + "gemTask:" : "dkh 5/28/2014 06:35", + "gemstoneVersion" : "dkh 5/28/2014 06:35", + "gemstoneVersion:" : "dkh 5/28/2014 06:35", + "isGuest" : "dkh 9/28/2015 19:53", + "name" : "dkh 5/28/2014 06:35", + "name:" : "dkh 5/28/2014 06:35", + "netLDI" : "dkh 5/28/2014 06:35", + "netLDI:" : "dkh 5/28/2014 06:35", + "netLDIOrNetLDIPort" : "dkh 9/29/2015 11:32", + "netLDIPort" : "dkh 9/28/2015 20:23", + "netLDIPort:" : "dkh 9/28/2015 20:21", + "netLDIPortRange" : "dkh 9/28/2015 20:24", + "netLDIPortRange:" : "dkh 9/28/2015 20:24", + "netldiArgsOn:" : "jupiter 03/21/2021 19:04", + "osPassword" : "dkh 5/28/2014 06:35", + "osPassword:" : "dkh 5/28/2014 06:35", + "osUserId" : "jupiter 03/21/2021 16:45", + "osUserId:" : "dkh 5/28/2014 06:35", + "password" : "dkh 5/28/2014 06:35", + "password:" : "dkh 5/28/2014 06:35", + "postCopy" : "dkh 5/28/2014 06:35", + "serverGitRoot" : "dkh 10/17/2015 20:00", + "serverGitRoot:" : "dkh 5/28/2014 06:35", + "serverTodeRoot" : "dkh 3/16/2015 12:32", + "serverTodeRoot:" : "dkh 05/28/2014 11:39", + "snapshotDirectory" : "dkh 3/22/2015 20:52", + "snapshotDirectory:" : "dkh 3/22/2015 20:53", + "stonInstVarNames" : "dkh 10/1/2015 13:41", + "stonOn:" : "dkh 10/1/2015 13:44", + "stonProcessSubObjects:" : "dkh 10/1/2015 13:40", + "stoneHost" : "dkh 5/28/2014 06:35", + "stoneHost:" : "dkh 5/28/2014 06:35", + "stoneNRS" : "dkh 5/28/2014 06:35", + "stoneName" : "dkh 5/28/2014 06:35", + "stoneName:" : "dkh 5/28/2014 06:35", + "todeUserId" : "dkh 12/23/2016 15:22", + "todeUserId:" : "dkh 12/23/2016 15:22", + "userId" : "dkh 5/28/2014 06:35", + "userId:" : "dkh 5/28/2014 06:35" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/properties.json new file mode 100644 index 00000000..7831ab4e --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-TDSessionDescription.package/TDSessionDescription.class/properties.json @@ -0,0 +1,37 @@ +{ + "category" : "GsDevKit-TDSessionDescription", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "name", + "stoneHost", + "stoneName", + "gemHost", + "netLDI", + "netLDIPort", + "netLDIPortRange", + "gemTask", + "userId", + "password", + "osUserId", + "osPassword", + "dataDirectory", + "backupDirectory", + "snapshotDirectory", + "gemstoneVersion", + "gciLibraryName", + "adornmentColor", + "serverGitRoot", + "serverTodeRoot", + "excludeNetLDIPort", + "authorId", + "environmentId", + "todeUserId" ], + "name" : "TDSessionDescription", + "pools" : [ + ], + "super" : "Object", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/.filetree b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/.filetree new file mode 100644 index 00000000..8998102c --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/README.md b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/README.md new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/emptyRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/emptyRegistry.st new file mode 100644 index 00000000..34fd4162 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/emptyRegistry.st @@ -0,0 +1,7 @@ +resources +emptyRegistry + ^ GsDevKitRegistry + forGsDevKitOnPath: + (FileReference + fileSystem: self registryFileSystem + path: (Path from: '/GsDevKitRoot')) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registry.st new file mode 100644 index 00000000..125a56f9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registry.st @@ -0,0 +1,3 @@ +resources +registry + ^ registry ifNil: [ self setUpRegistry ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryFileSystem.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryFileSystem.st new file mode 100644 index 00000000..de5de6f6 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryFileSystem.st @@ -0,0 +1,3 @@ +resources +registryFileSystem + ^ registryFileSystem ifNil: [ self setUpRegistryFileSystem ] \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryGroups.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryGroups.st new file mode 100644 index 00000000..4a5010d5 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryGroups.st @@ -0,0 +1,11 @@ +resources +registryGroups + ^ {(GsDevKitStoneGroupRegistration new + registryName: 'testStone1-group'; + stoneRegistryNames: #('testStone1' 'testStone1-remote'); + yourself). + (GsDevKitStoneGroupRegistration new + registryName: 'all-stones-group'; + stoneRegistryNames: + #('testStone1' 'secondStone' 'testStone1-remote' 'testStone3'); + yourself)} \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryRepos.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryRepos.st new file mode 100644 index 00000000..9c79aab0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryRepos.st @@ -0,0 +1,10 @@ +resources +registryRepos + ^ {(GsDevKitSourceRepoRegistration new + registryName: 'testRepo1'; + repoPath: 'repos/testRepo1'; + yourself). + (GsDevKitSourceRepoRegistration new + registryName: 'testRepo2'; + repoPath: '/git'; + yourself)} \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryStones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryStones.st new file mode 100644 index 00000000..e7a8a629 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/registryStones.st @@ -0,0 +1,16 @@ +resources +registryStones + ^ {(GsDevKitStoneRegistration new + registryName: 'testStone1'; + yourself). + (GsDevKitStoneRegistration new + registryName: 'secondStone'; + stonePath: '/outside/stones/testStone2'; + yourself). + (GsDevKitRemoteStoneRegistration new + registryName: 'testStone1-remote'; + yourself). + (GsDevKitRemoteStoneRegistration new + registryName: 'testStone3'; + stonePath: '/productionStones/testStone3'; + yourself)} \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUp.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUp.st new file mode 100644 index 00000000..55cc3adc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUp.st @@ -0,0 +1,4 @@ +setUp +setUp + super setUp. + GsDevKitRegistry initializeRegistries \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistry.st new file mode 100644 index 00000000..5b06ece4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistry.st @@ -0,0 +1,31 @@ +setUp +setUpRegistry + registry := GsDevKitRegistry + forGsDevKitOnPath: + (FileReference + fileSystem: self registryFileSystem + path: (Path from: '/GsDevKitRoot')). + self registryRepos + do: [ :sourceRepoRegistration | + registry + newSourceRepoWithRegistryName: sourceRepoRegistration registryName + repoPath: sourceRepoRegistration repoPath ]. + self registryStones + do: [ :stoneRegistration | + stoneRegistration class == GsDevKitStoneRegistration + ifTrue: [ + registry + newStoneWithRegistryName: stoneRegistration registryName + stonePath: stoneRegistration stonePath ] + ifFalse: [ + stoneRegistration class == GsDevKitRemoteStoneRegistration + ifTrue: [ + registry + newRemoteStoneWithRegistryName: stoneRegistration registryName + stonePath: stoneRegistration stonePath ] ] ]. + self registryGroups + do: [ :stoneGroupRegistration | + registry + newStoneGroupWithRegistryName: stoneGroupRegistration registryName + stoneRegistryNames: stoneGroupRegistration stoneRegistryNames ]. + ^ registry \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistryFileSystem.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistryFileSystem.st new file mode 100644 index 00000000..ed728d2b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/setUpRegistryFileSystem.st @@ -0,0 +1,18 @@ +setUp +setUpRegistryFileSystem + ^ registryFileSystem := FileSystem memory + createDirectory: 'GsDevKitRoot'; + createDirectory: 'GsDevKitRoot/registry'; + createDirectory: 'GsDevKitRoot/repos'; + createDirectory: 'GsDevKitRoot/repos/testRepo1'; + createDirectory: 'GsDevKitRoot/stones'; + createDirectory: 'GsDevKitRoot/stones/testStone1'; + createDirectory: 'GsDevKitRoot/remoteStones'; + createDirectory: 'GsDevKitRoot/remoteStones/testStone1'; + createDirectory: 'myProject'; + createDirectory: 'myProject/stones'; + createDirectory: 'myProject/stones/testStone2'; + createDirectory: 'productionStones'; + createDirectory: 'productionStones/testStone3'; + createDirectory: 'gitRepos'; + yourself \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry.st new file mode 100644 index 00000000..7e39bfc9 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry.st @@ -0,0 +1,50 @@ +resources +ston_registry + ^ 'GsDevKitRegistry { + #sourceRepos : [ + GsDevKitSourceRepoRegistration { + #registryName : ''testRepo1'', + #repoPath : ''repos/testRepo1'' + }, + GsDevKitSourceRepoRegistration { + #registryName : ''testRepo2'', + #repoPath : ''/git'' + } + ], + #stones : [ + GsDevKitStoneRegistration { + #registryName : ''testStone1'', + #stonePath : ''stones/testStone1'' + }, + GsDevKitStoneRegistration { + #registryName : ''secondStone'', + #stonePath : ''/outside/stones/testStone2'' + }, + GsDevKitRemoteStoneRegistration { + #registryName : ''testStone1-remote'', + #stonePath : ''stones/testStone1-remote'' + }, + GsDevKitRemoteStoneRegistration { + #registryName : ''testStone3'', + #stonePath : ''/productionStones/testStone3'' + } + ], + #groups : [ + GsDevKitStoneGroupRegistration { + #registryName : ''testStone1-group'', + #stoneRegistryNames : [ + ''testStone1'', + ''testStone1-remote'' + ] + }, + GsDevKitStoneGroupRegistration { + #registryName : ''all-stones-group'', + #stoneRegistryNames : [ + ''testStone1'', + ''secondStone'', + ''testStone1-remote'', + ''testStone3'' + ] + } + ] +}' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry_altered.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry_altered.st new file mode 100644 index 00000000..9f319463 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_registry_altered.st @@ -0,0 +1,55 @@ +resources +ston_registry_altered + "Altered registry + - Stone testStone1 path altered to stones/testStone1-altered + - Group noStones-group added + - testStone2 removed" + + ^ 'GsDevKitRegistry { + #sourceRepos : [ + GsDevKitSourceRepoRegistration { + #registryName : ''testRepo1'', + #repoPath : ''repos/testRepo1'' + }, + GsDevKitSourceRepoRegistration { + #registryName : ''testRepo2'', + #repoPath : ''/git'' + } + ], + #stones : [ + GsDevKitStoneRegistration { + #registryName : ''testStone1'', + #stonePath : ''stones/testStone1-altered'' + }, + GsDevKitStoneRegistration { + #registryName : ''secondStone'', + #stonePath : ''/outside/stones/testStone2'' + }, + GsDevKitRemoteStoneRegistration { + #registryName : ''testStone1-remote'', + #stonePath : ''stones/testStone1-remote'' + }, + ], + #groups : [ + GsDevKitStoneGroupRegistration { + #registryName : ''testStone1-group'', + #stoneRegistryNames : [ + ''testStone1'', + ''testStone1-remote'' + ] + }, + GsDevKitStoneGroupRegistration { + #registryName : ''noStones-group'', + #stoneRegistryNames : [ ] + }, + GsDevKitStoneGroupRegistration { + #registryName : ''all-stones-group'', + #stoneRegistryNames : [ + ''testStone1'', + ''secondStone'', + ''testStone1-remote'', + ''testStone3'' + ] + } + ] +}' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_testStone1_registration.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_testStone1_registration.st new file mode 100644 index 00000000..d4bc10e0 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/ston_testStone1_registration.st @@ -0,0 +1,6 @@ +resources +ston_testStone1_registration + ^ 'GsDevKitStoneRegistration { + #registryName : ''testStone1'', + #path : ''/stones/testStone1'' +}' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/tearDown.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/tearDown.st new file mode 100644 index 00000000..e4dc599f --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/tearDown.st @@ -0,0 +1,6 @@ +tearDown +tearDown + super tearDown. + registry := nil. + registryFileSystem := nil. + FileSystem memory \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddRemoteStone.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddRemoteStone.st new file mode 100644 index 00000000..5dd09e77 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddRemoteStone.st @@ -0,0 +1,11 @@ +tests +testAddRemoteStone + | r s s1 | + r := self emptyRegistry. + s := r newRemoteStoneWithRegistryName: 'testStone1-remote'. + s1 := r stoneWithRegistryName: 'testStone1-remote'. + self assert: s1 class == GsDevKitRemoteStoneRegistration. + self assert: s == s1. + self assert: s registryName = 'testStone1-remote'. + self assert: s sourcePath = (Path * 'remoteStones/testStone1-remote'). + self assert: s stonePath = 'remoteStones/testStone1-remote' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddSourceRepo.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddSourceRepo.st new file mode 100644 index 00000000..1d04b382 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddSourceRepo.st @@ -0,0 +1,11 @@ +tests +testAddSourceRepo + | r s s1 | + r := self emptyRegistry. + s := r newSourceRepoWithRegistryName: 'testRepo1'. + s1 := r sourceRepoWithRegistryName: 'testRepo1'. + self assert: s1 class == GsDevKitSourceRepoRegistration. + self assert: s == s1. + self assert: s registryName = 'testRepo1'. + self assert: s sourcePath = (Path * 'repos/testRepo1'). + self assert: s repoPath = 'repos/testRepo1' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStone.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStone.st new file mode 100644 index 00000000..8754a0e3 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStone.st @@ -0,0 +1,11 @@ +tests +testAddStone + | r s s1 | + r := self emptyRegistry. + s := r newStoneWithRegistryName: 'testStone1'. + s1 := r stoneWithRegistryName: 'testStone1'. + self assert: s1 class == GsDevKitStoneRegistration. + self assert: s == s1. + self assert: s registryName = 'testStone1'. + self assert: s sourcePath = (Path * 'stones/testStone1'). + self assert: s stonePath = 'stones/testStone1' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStoneOutsideGsDevKit.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStoneOutsideGsDevKit.st new file mode 100644 index 00000000..04639758 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testAddStoneOutsideGsDevKit.st @@ -0,0 +1,13 @@ +tests +testAddStoneOutsideGsDevKit + | r s s1 | + r := self emptyRegistry. + s := r + newStoneWithRegistryName: 'secondStone' + stonePath: '/outside/stones/secondStonePath'. + s1 := r stoneWithRegistryName: 'secondStone'. + self assert: s1 class == GsDevKitStoneRegistration. + self assert: s == s1. + self assert: s registryName = 'secondStone'. + self assert: s sourcePath = (Path from: '/outside/stones/secondStonePath'). + self assert: s stonePath = '/outside/stones/secondStonePath' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testDefaultRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testDefaultRegistry.st new file mode 100644 index 00000000..36965709 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testDefaultRegistry.st @@ -0,0 +1,19 @@ +tests +testDefaultRegistry + | defaultRegistry | + self assert: GsDevKitRegistry registries isEmpty. + defaultRegistry := GsDevKitRegistry defaultRegistry. + self + assert: + (GsDevKitRegistry + forGsDevKitOnPath: + (System gemEnvironmentVariable: GsDevKitRegistry gsDevKitEnvironmentVariableName) + asFileReference) + == defaultRegistry. + self assert: GsDevKitRegistry registries size == 1. + self assert: GsDevKitRegistry registries values first == defaultRegistry. + self + assert: + defaultRegistry gsDevKitRoot asString + = + (System gemEnvironmentVariable: GsDevKitRegistry gsDevKitEnvironmentVariableName) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testExportRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testExportRegistry.st new file mode 100644 index 00000000..0e1da9cf --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testExportRegistry.st @@ -0,0 +1,11 @@ +tests +testExportRegistry + | exportedRegistry | + self setUpRegistry. + registry export. + self + assert: + (FileReference + fileSystem: self registryFileSystem + path: '/GsDevKitRoot/registry/registry.ston') contents + = self ston_registry \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLoadingRegistry.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLoadingRegistry.st new file mode 100644 index 00000000..02793dae --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLoadingRegistry.st @@ -0,0 +1,22 @@ +tests +testLoadingRegistry + | loadedRegistry | + self registry export. + loadedRegistry := GsDevKitRegistry + importFrom: + (FileReference + fileSystem: self registryFileSystem + path: (Path from: '/GsDevKitRoot/registry/registry.ston')). + self assert: loadedRegistry stones size = self registry stones size. + self + assert: + (loadedRegistry stones + allSatisfy: [ :each | self registry stones includes: each ]). + self + assert: + (loadedRegistry groups + allSatisfy: [ :each | self registry groups includes: each ]). + self + assert: + (loadedRegistry sourceRepos + allSatisfy: [ :each | self registry sourceRepos includes: each ]) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLocalStones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLocalStones.st new file mode 100644 index 00000000..59ff3270 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testLocalStones.st @@ -0,0 +1,8 @@ +tests +testLocalStones + self setUpRegistry. + self assert: registry localStones size == 2. + self + assert: + (registry localStones + allSatisfy: [ :stone | stone class == GsDevKitStoneRegistration ]) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRegistryModification.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRegistryModification.st new file mode 100644 index 00000000..ddf269f4 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRegistryModification.st @@ -0,0 +1,9 @@ +tests +testRegistryModification + | s mt | + self setUpRegistry. + mt := registry modificationTime. + s := self registry stoneWithRegistryName: 'testStone1'. + self assert: registry modificationTime ~= s modificationTime. + s registryName: 'newTestStone1'. + self assert: registry modificationTime == s modificationTime \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRemoteStones.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRemoteStones.st new file mode 100644 index 00000000..3ead9395 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testRemoteStones.st @@ -0,0 +1,8 @@ +tests +testRemoteStones + self setUpRegistry. + self assert: registry remoteStones size == 2. + self + assert: + (registry remoteStones + allSatisfy: [ :stone | stone class == GsDevKitRemoteStoneRegistration ]) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSharedSourceRepo.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSharedSourceRepo.st new file mode 100644 index 00000000..3a6eeb1a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSharedSourceRepo.st @@ -0,0 +1,14 @@ +tests +testSharedSourceRepo + | r sr s1 | + r := self emptyRegistry. + sr := r sharedSourceRepo. + self assert: sr class == GsDevKitSourceRepoRegistration. + self assert: sr registryName = 'shared'. + self assert: sr sourcePath = (Path * 'repos/shared'). + self assert: sr repoPath = 'repos/shared'. + self + assert: + (FileReference + fileSystem: self registryFileSystem + path: (Path from: '/GsDevKitRoot/repos/shared')) exists \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSync.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSync.st new file mode 100644 index 00000000..f4107595 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/instance/testSync.st @@ -0,0 +1,8 @@ +tests +testSync + | registryFile | + self setUpRegistry. + registry sync. + registryFile := FileReference + fileSystem: self registryFileSystem + path: '/GsDevKitRoot/registry/registry.ston' \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/methodProperties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/methodProperties.json new file mode 100644 index 00000000..8c15020b --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/methodProperties.json @@ -0,0 +1,29 @@ +{ + "class" : { + }, + "instance" : { + "emptyRegistry" : "jupiter 04/07/2021 22:52", + "registry" : "jupiter 04/08/2021 15:53", + "registryFileSystem" : "jupiter 04/08/2021 15:53", + "registryGroups" : "jupiter 04/07/2021 23:49", + "registryRepos" : "jupiter 04/05/2021 21:51", + "registryStones" : "jupiter 04/07/2021 23:47", + "setUp" : "jupiter 04/06/2021 19:13", + "setUpRegistry" : "jupiter 04/08/2021 15:53", + "setUpRegistryFileSystem" : "jupiter 04/08/2021 15:52", + "ston_registry" : "jupiter 04/08/2021 01:27", + "ston_registry_altered" : "jupiter 04/08/2021 04:57", + "ston_testStone1_registration" : "jupiter 04/03/2021 17:30", + "tearDown" : "jupiter 04/08/2021 00:04", + "testAddRemoteStone" : "jupiter 04/08/2021 14:06", + "testAddSourceRepo" : "jupiter 04/08/2021 12:44", + "testAddStone" : "jupiter 04/08/2021 12:41", + "testAddStoneOutsideGsDevKit" : "jupiter 04/08/2021 12:46", + "testDefaultRegistry" : "jupiter 04/08/2021 00:21", + "testExportRegistry" : "jupiter 04/07/2021 23:55", + "testLoadingRegistry" : "jupiter 04/08/2021 02:10", + "testLocalStones" : "jupiter 04/08/2021 12:29", + "testRegistryModification" : "jupiter 04/08/2021 18:02", + "testRemoteStones" : "jupiter 04/08/2021 12:31", + "testSharedSourceRepo" : "jupiter 04/08/2021 13:56", + "testSync" : "jupiter 04/08/2021 04:46" } } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/properties.json new file mode 100644 index 00000000..71e6a3bc --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/GsDevKitRegistryTests.class/properties.json @@ -0,0 +1,15 @@ +{ + "category" : "GsDevKit-Tests", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + "registry", + "registryFileSystem" ], + "name" : "GsDevKitRegistryTests", + "pools" : [ + ], + "super" : "TestCase", + "type" : "normal" } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/categories.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/categories.st new file mode 100644 index 00000000..c4ab351d --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'GsDevKit-Tests'! diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/initializers.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/initializers.st new file mode 100644 index 00000000..e69de29b diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/package b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/package new file mode 100644 index 00000000..288658dd --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'GsDevKit-Tests') \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/version b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/version new file mode 100644 index 00000000..1e4e3824 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/monticello.meta/version @@ -0,0 +1 @@ +(name 'GsDevKit-Tests-jupiter.1' message 'WIP - initial registry classes and tests' id '8c573548-ff3f-4c55-b23e-23928b513bbb' date '04/08/2021' time '19:40:29' author 'jupiter' ancestors () stepChildren ()) \ No newline at end of file diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/properties.json b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/properties.json new file mode 100644 index 00000000..f037444a --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/GsDevKit-Tests.package/properties.json @@ -0,0 +1,2 @@ +{ + } diff --git a/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/properties.st b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/properties.st new file mode 100644 index 00000000..9d048ce3 --- /dev/null +++ b/shared/gemstone/repos/GsDevKit_SuperDoit/rowan/src/properties.st @@ -0,0 +1,4 @@ +{ + #format : 'filetree', + #convention : 'RowanHybrid' +} diff --git a/shared/gemstone/repos/superDoit b/shared/gemstone/repos/superDoit new file mode 160000 index 00000000..f6c2823c --- /dev/null +++ b/shared/gemstone/repos/superDoit @@ -0,0 +1 @@ +Subproject commit f6c2823c44a09e493fac07c0204982bd70602fe3