Issue #4: TDExternalSessionClient is now functional and passes tODE c…

…ommands along to remote tODE image ... superDoit does not do well with passing args with embedded spaces, so going with plan B

bin/todeIt.solo

@@ -77,8 +77,8 @@ doit
 			stoneSpec := (self globalNamed: 'GDKAbstractRegistryStore') fromPath: specFile ifAbsent: [] ].
 	sessionDescription := (self globalNamed: 'TDSessionDescription') 
 		fromFile: stoneSpec todeHome asFileReference / 'sys' / 'local' / 'sessions' / stoneSpec stoneName.
-	(self globalNamed: 'TDShell')
+	^ (self globalNamed: 'TDShell')
 		sessionDescription: sessionDescription 
-		evaluate: '3+4' 
+		evaluate: (self positionalArgs at: 1)
 		debugMode: self debug
 %

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

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

src/GsDevKit_stones-Tode.package/TDExternalSessionClient.class/instance/evaluateCommand.batchMode..st

@@ -1,9 +1,8 @@
 evaluation
 evaluateCommand: command batchMode: batchBool
 	| stonString |
-	stonString := (STON toString: command) encodeAsUTF8.
+	stonString := STON toString: command.
 	^ self session
-		executeStringExpectingStringNB:
-			'(' , self todeServerAccessString , ' for: ' , self shell shellId asString , ') evaluateSTONCommand:'
-				, stonString printString
-		envId: self environmentId
+		executeString:
+			'(' , self todeServerAccessString , ' for: ' , self shell shellId asString
+				, ') evaluateSTONCommand:' , stonString printString

src/GsDevKit_stones-Tode.package/TDExternalSessionClient.class/instance/login.st

@@ -1,15 +1,15 @@
 session management
 login
-	| sess gemNRS stoneNRS sessionDescription |
+	| gemNRS stoneNRS sessionDescription |
 	sessionDescription := self sessionDescription.
 	gemNRS := GsNetworkResourceString
 		gemNRSForNetLDI: sessionDescription netLDIPort
 		onHost: sessionDescription gemHost.
 	stoneNRS := GsNetworkResourceString
 		stoneNRSForStoneName: sessionDescription stoneName
 		onHost: sessionDescription stoneHost.
-	sess := GsTsExternalSession
+	^ (GsTsExternalSession
 		gemNRS: gemNRS
 		stoneNRS: stoneNRS
 		username: sessionDescription userId
-		password: sessionDescription password
+		password: sessionDescription password) login

src/GsDevKit_stones-Tode.package/TDExternalSessionClient.class/instance/todeServerAccessString.st

@@ -0,0 +1,3 @@
+accessing
+todeServerAccessString
+	^ 'TDTopezServer'

src/GsDevKit_stones-Tode.package/TDShell.class/instance/shellId.st

@@ -1,4 +1,4 @@
 stash
 shellId
-  shellId ifNil: [ shellId := self windowStatus nextShellWindowId ].
-  ^ shellId
+	shellId ifNil: [ shellId := 1 ].
+	^ shellId