Issue #4: copy TDSessionDescription from tODE ... needed to create se…

…ssion descriptions

rowan/components/Core.ston

@@ -3,10 +3,11 @@ RwSimpleProjectLoadComponentV2 {
 	#condition : 'common',
 	#projectNames : [ ],
 	#componentNames : [
+		'Tode',
 		'XDGB'
 	],
 	#packageNames : [
 		'GsDevKit_stones-Core'
 	],
 	#comment : ''
-}
+}

rowan/components/Tode.ston

@@ -0,0 +1,10 @@
+RwSimpleProjectLoadComponentV2 {
+	#name : 'Tode',
+	#condition : 'common',
+	#projectNames : [ ],
+	#componentNames : [ ],
+	#packageNames : [
+		'GsDevKit_stones-Tode'
+	],
+	#comment : 'Shared classes between GsDevKit_stones and Tode'
+}

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/class/importFrom..st

@@ -0,0 +1,13 @@
+instance creation
+importFrom: filepath
+  [ 
+  FileStream
+    readOnlyFileNamed: filepath
+    do: [ :fileStream | 
+      ^ ((Rowan globalNamed: 'TodeObjectSerializer') preferredSerializer fromString: fileStream contents)
+        asTDSessionDescription ] ]
+    on: ((Rowan globalNamed: 'Smalltalk') at: #'FileDoesNotExistException' ifAbsent: [ Error ])
+    do: [ :ex | 
+      self
+        error:
+          'The session description file ' , filepath printString , ' cannot be found.' ]

src/GsDevKit_stones-Tode.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

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/adornmentColor..st

@@ -0,0 +1,3 @@
+accessing
+adornmentColor: anObject
+	adornmentColor := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/adornmentColor.st

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

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/asTDSessionDescription.st

@@ -0,0 +1,3 @@
+conversion
+asTDSessionDescription
+	^ self

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/authorId..st

@@ -0,0 +1,3 @@
+accessing
+authorId: anObject
+	authorId := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/authorId.st

@@ -0,0 +1,4 @@
+accessing
+authorId
+	authorId ifNil: [ authorId := '' ].
+	^ authorId

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/backupDirectory..st

@@ -0,0 +1,6 @@
+accessing
+backupDirectory: aString
+
+	(aString isEmpty or: [ aString last = $/ ])
+		ifTrue: [ backupDirectory := aString ]
+		ifFalse: [ backupDirectory := aString, '/' ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/backupDirectory.st

@@ -0,0 +1,5 @@
+accessing
+backupDirectory
+
+	backupDirectory == nil ifTrue: [ backupDirectory := '' ].
+	^backupDirectory

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/dataDirectory..st

@@ -0,0 +1,6 @@
+accessing
+dataDirectory: aString
+
+	(aString isEmpty or: [ aString last = $/ ])
+		ifTrue: [ dataDirectory := aString ]
+		ifFalse: [ dataDirectory := aString, '/' ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/dataDirectory.st

@@ -0,0 +1,5 @@
+accessing
+dataDirectory
+
+	dataDirectory == nil ifTrue: [ dataDirectory := '' ].
+	^dataDirectory

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultGemHost.st

@@ -0,0 +1,4 @@
+defaults
+defaultGemHost
+
+	^'glass'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultGemTask.st

@@ -0,0 +1,4 @@
+defaults
+defaultGemTask
+
+	^'gemnetobject'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultGemstoneVersion.st

@@ -0,0 +1,4 @@
+defaults
+defaultGemstoneVersion
+
+	^'3.2.0'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultNetLDI.st

@@ -0,0 +1,4 @@
+defaults
+defaultNetLDI
+
+	^'50377'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultPassword.st

@@ -0,0 +1,4 @@
+defaults
+defaultPassword
+
+	^'swordfish'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultStoneHost.st

@@ -0,0 +1,4 @@
+defaults
+defaultStoneHost
+
+	^'glass'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultStoneName.st

@@ -0,0 +1,4 @@
+defaults
+defaultStoneName
+
+	^'seaside'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/defaultUserId.st

@@ -0,0 +1,4 @@
+defaults
+defaultUserId
+
+	^'DataCurator'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/environmentId..st

@@ -0,0 +1,3 @@
+accessing
+environmentId: anObject
+  environmentId := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/environmentId.st

@@ -0,0 +1,3 @@
+accessing
+environmentId
+  ^ environmentId ifNil: [ environmentId := 0 ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/excludeNetLDIPort..st

@@ -0,0 +1,3 @@
+accessing
+excludeNetLDIPort: anObject
+	excludeNetLDIPort := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/excludeNetLDIPort.st

@@ -0,0 +1,4 @@
+accessing
+excludeNetLDIPort
+	excludeNetLDIPort ifNil: [ excludeNetLDIPort := true ].
+	^ excludeNetLDIPort

src/GsDevKit_stones-Tode.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

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/exportTo..st

@@ -0,0 +1,3 @@
+accessing
+exportTo: filepath
+	self exportTo: filepath extension: ''

src/GsDevKit_stones-Tode.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.
+	stream nextPutAll: ((Rowan globalNamed: 'TodeObjectSerializer') preferredSerializer toStringPretty: self).
+	stream close ]
+		ensure: [ self excludeNetLDIPort: old ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/fromSton..st

@@ -0,0 +1,9 @@
+ston
+fromSton: stonReader
+  stonReader
+    parseMapDo: [ :instVarName :value | 
+      [ self instVarNamed: instVarName put: value ]
+        on: Error
+        do: [ :ignored | 
+          "If the instance variable for a TDsessionDescription is missing ... it is for a good reason ... keep on truckin' ... if it's critical let's find out during execution rather than during import"
+           ] ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gciLibraryName..st

@@ -0,0 +1,3 @@
+accessing
+gciLibraryName: anObject
+	gciLibraryName := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gciLibraryName.st

@@ -0,0 +1,4 @@
+accessing
+gciLibraryName
+	gciLibraryName ifNil: [ gciLibraryName := 'libgcirpc-' , self gemstoneVersion , '-32' ].
+	^ gciLibraryName

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemHost..st

@@ -0,0 +1,4 @@
+accessing
+gemHost: aString
+
+	gemHost := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemHost.st

@@ -0,0 +1,5 @@
+accessing
+gemHost
+
+	gemHost == nil ifTrue: [ gemHost := self defaultGemHost ].
+	^gemHost

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemNRS.st

@@ -0,0 +1,6 @@
+nrs
+gemNRS
+
+	^'!tcp@' , self gemHost, 
+		'#netldi:' , self netLDIOrNetLDIPort, 
+		'#task!' , self gemTask.

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemTask..st

@@ -0,0 +1,4 @@
+accessing
+gemTask: aString
+
+	gemTask := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemTask.st

@@ -0,0 +1,5 @@
+accessing
+gemTask
+
+	gemTask == nil ifTrue: [ gemTask := self defaultGemTask ].
+	^gemTask

src/GsDevKit_stones-Tode.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

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/gemstoneVersion.st

@@ -0,0 +1,4 @@
+accessing
+gemstoneVersion
+	gemstoneVersion ifNil: [ gemstoneVersion := self defaultGemstoneVersion ].
+	^ gemstoneVersion

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/isGuest.st

@@ -0,0 +1,4 @@
+testing
+isGuest
+
+	^ osUserId isNil

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/name..st

@@ -0,0 +1,4 @@
+accessing
+name: aString
+
+	name := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/name.st

@@ -0,0 +1,6 @@
+accessing
+name
+
+	^name == nil
+		ifTrue: [ self class label ]
+		ifFalse: [ name ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDI..st

@@ -0,0 +1,4 @@
+accessing
+netLDI: aString
+
+	netLDI := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDI.st

@@ -0,0 +1,5 @@
+accessing
+netLDI
+
+	netLDI == nil ifTrue: [ netLDI := self defaultNetLDI ].
+	^netLDI

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDIOrNetLDIPort.st

@@ -0,0 +1,5 @@
+accessing
+netLDIOrNetLDIPort
+	^ self netLDIPort isEmpty
+		ifTrue: [ self netLDI ]
+		ifFalse: [ self netLDIPort ]

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDIPort..st

@@ -0,0 +1,3 @@
+accessing
+netLDIPort: anObject
+	netLDIPort := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDIPort.st

@@ -0,0 +1,4 @@
+accessing
+netLDIPort
+	netLDIPort ifNil: [ netLDIPort := '' ].
+	^ netLDIPort

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDIPortRange..st

@@ -0,0 +1,3 @@
+accessing
+netLDIPortRange: aString
+	netLDIPortRange := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/netLDIPortRange.st

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

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/osPassword..st

@@ -0,0 +1,4 @@
+accessing
+osPassword: aString
+
+	osPassword := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/osPassword.st

@@ -0,0 +1,5 @@
+accessing
+osPassword
+
+	osPassword == nil ifTrue: [ osPassword := '' ].
+	^osPassword

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/osUserId..st

@@ -0,0 +1,4 @@
+accessing
+osUserId: aString
+
+	osUserId := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/password..st

@@ -0,0 +1,4 @@
+accessing
+password: aString
+
+	password := aString

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/password.st

@@ -0,0 +1,5 @@
+accessing
+password
+
+	password == nil ifTrue: [ password := self defaultPassword ].
+	^password

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/postCopy.st

@@ -0,0 +1,5 @@
+copying
+postCopy
+
+	super postCopy.
+	self name: self name, ' copy'

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/serverGitRoot..st

@@ -0,0 +1,3 @@
+accessing
+serverGitRoot: anObject
+	serverGitRoot := anObject

src/GsDevKit_stones-Tode.package/TDSessionDescription.class/instance/serverGitRoot.st

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