Issue #161: add gemnetid line to generated .topazini file during cr…

…eateStone. The gemnetid specifies the name of the netldi to use when logging in. Makes it unnecessary to use `-l` whenever running `startTopaz`

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractCommandLineHandler.class/instance/serverTodeSysLocalServerStones.st

@@ -0,0 +1,3 @@
+accessing
+serverTodeSysLocalServerStones
+	^ self serverTodeSysLocalServer / 'stones'

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractCommandLineHandler.class/methodProperties.json

@@ -36,6 +36,7 @@
 		"serverTodeSysLocalServerGemStoneTemplates" : "dkh 10/13/2015 13:25",
 		"serverTodeSysLocalServerHome" : "dkh 10/13/2015 13:26",
 		"serverTodeSysLocalServerProjects" : "dkh 10/13/2015 13:26",
+		"serverTodeSysLocalServerStones" : "dkh 1/27/2017 10:37",
 		"serverTodeSysLocalServerTemplates" : "dkh 10/13/2015 13:27",
 		"serverTodeSysLocalTemplates" : "dkh 9/24/2015 07:10",
 		"serverTodeSysStones" : "dkh 10/13/2015 13:28",

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractStoneCommandLineHandler.class/instance/createSysLocalStonesLn..st

@@ -0,0 +1,11 @@
+actions
+createSysLocalStonesLn: stoneDirectory
+	| sysLocalStonesStoneStoneNameDir todeLnName |
+	todeLnName := 'tode'.
+	sysLocalStonesStoneStoneNameDir := self serverTodeSysLocalServerStones / self stoneName.
+	Transcript
+		cr;
+		tab;
+		show: 'Creating ' , todeLnName , ' symbolic link to ' , sysLocalStonesStoneStoneNameDir pathString.
+	OSProcess
+		command: 'ln -sf ' , sysLocalStonesStoneStoneNameDir pathString , ' ' , (stoneDirectory / todeLnName) pathString

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractStoneCommandLineHandler.class/instance/createTodeDescription..st

@@ -2,4 +2,5 @@ actions
 createTodeDescription: theStoneInfo
 	| description |
 	description := theStoneInfo createSessionDescriptionFor: self for: self localHostName.
-	description exportTo: self sessionDescriptionHome pathString , '/'
+	description exportTo: self sessionDescriptionHome pathString , '/'.
+	^ description

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractStoneCommandLineHandler.class/instance/createTopaziniFile..st

@@ -1,18 +1,3 @@
 actions
 createTopaziniFile: stoneDirectory
-	| topaziniFile |
-	Transcript
-		cr;
-		tab;
-		show: 'Create .topazini file'.
-	topaziniFile := stoneDirectory / '.topazini'.
-	FileStream
-		forceNewFileNamed: topaziniFile
-		do: [ :stream | 
-			stream
-				nextPutAll: 'SET GEMSTONE ' , self stoneName;
-				lf;
-				nextPutAll: 'set user ', self gemstoneUserId;
-				lf;
-				nextPutAll: 'set password ', self gemstonePassword;
-				lf ]
+	self createTopaziniFile: stoneDirectory sessionDescription: nil

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractStoneCommandLineHandler.class/instance/createTopaziniFile.sessionDescription..st

@@ -0,0 +1,23 @@
+actions
+createTopaziniFile: stoneDirectory sessionDescription: aSessionDescriptionOrNil
+	| topaziniFile |
+	Transcript
+		cr;
+		tab;
+		show: 'Create .topazini file'.
+	topaziniFile := stoneDirectory / '.topazini'.
+	FileStream
+		forceNewFileNamed: topaziniFile
+		do: [ :stream | 
+			stream
+				nextPutAll: 'SET GEMSTONE ' , self stoneName;
+				lf;
+				nextPutAll: 'set user ' , self gemstoneUserId;
+				lf;
+				nextPutAll: 'set password ' , self gemstonePassword;
+				lf.
+			aSessionDescriptionOrNil
+				ifNotNil: [ 
+					stream
+						nextPutAll: 'set gemnetid ' , aSessionDescriptionOrNil gemNRS;
+						lf ] ]

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitAbstractStoneCommandLineHandler.class/methodProperties.json

@@ -11,8 +11,10 @@
 		"createEmptyStatsSubDirectories:" : "dkh 7/19/2014 17:31",
 		"createEmptySubDirectories:" : "dkh 7/19/2014 07:50",
 		"createProductLn:" : "dkh 11/20/2015 14:18",
-		"createTodeDescription:" : "dkh 2/18/2016 09:53",
-		"createTopaziniFile:" : "dkh 11/6/2016 16:00",
+		"createSysLocalStonesLn:" : "dkh 1/27/2017 10:38",
+		"createTodeDescription:" : "dkh 1/27/2017 10:26",
+		"createTopaziniFile:" : "dkh 1/27/2017 10:30",
+		"createTopaziniFile:sessionDescription:" : "dkh 1/27/2017 10:30",
 		"extentsHome" : "dkh 9/24/2015 07:19",
 		"gemStoneTemplateFileRefForFile:" : "dkh 10/13/2015 13:23",
 		"gitHome" : "dkh 9/24/2015 07:19",

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitCreateStoneCommandLineHandler.class/instance/doCreateStone.st

@@ -1,6 +1,6 @@
 activations
 doCreateStone
-	| stoneDirectory newStoneInfo |
+	| stoneDirectory newStoneInfo newSessionDescription |
 	Transcript
 		cr;
 		show: 'Creating stone ' , self stoneName.
@@ -26,14 +26,15 @@ doCreateStone
 		createEmptyStatsSubDirectories: stoneDirectory;
 		copyTemplateSystemConf: stoneDirectory;
 		copyTemplateFiles: stoneDirectory;
-		createTopaziniFile: stoneDirectory;
 		createDefStoneLn: stoneDirectory;
+		createSysLocalStonesLn: stoneDirectory;
 		yourself.
 	(newStoneInfo := self stoneInfoClass new
 		stoneName: self stoneName;
 		gsVers: self gsVers;
 		yourself) exportTo: stoneDirectory / self stoneInfoFilename.
-	self createTodeDescription: newStoneInfo.
+	newSessionDescription := self createTodeDescription: newStoneInfo.
+	self createTopaziniFile: stoneDirectory sessionDescription: newSessionDescription.
 	Transcript
 		cr;
 		tab;

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitCreateStoneCommandLineHandler.class/methodProperties.json

@@ -4,6 +4,6 @@
 		"description" : "dkh 10/2/2015 14:11" },
 	"instance" : {
 		"activate" : "dkh 2/17/2015 13:55",
-		"createStone" : "dkh 4/4/2016 06:22",
-		"doCreateStone" : "dkh 4/4/2016 06:16",
+		"createStone" : "dkh 4/3/2016 15:56",
+		"doCreateStone" : "dkh 1/27/2017 10:33",
 		"gsVers" : "dkh 7/17/2014 13:39" } }