Issue #255: add handlers for exit status 1 and 2 (information and warning) for startnetldi, stopnetldi, and stopstone commands

Author: dalehenrich

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitStartnetldiCommandLineHandler.class/instance/activate.st

@@ -14,6 +14,6 @@ activate
 		show: (self runShellCommand: (self gemstoneBin / 'startnetldi') pathString args: argsArray exitStatus: [:proc |
 			| es |
 			es := (proc exitStatus bitAnd: 16rFF00) >> 8.
-			proc isComplete and: [ es == 0 or: [ es == 2 ] ] ]);
+			proc isComplete and: [ es == 0 or: [ es == 1 "information" or: [ es == 2 "warning"] ] ] ]);
 		cr.
 	self exitSuccess

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

@@ -3,7 +3,7 @@
 		"commandName" : "dkh 7/18/2014 14:09",
 		"description" : "dkh 7/18/2014 14:10" },
 	"instance" : {
-		"activate" : "dkh 1/24/2019 18:37",
+		"activate" : "dkh 9/19/2019 16:11",
 		"netldiArgsOn:" : "dkh 5/20/2016 11:57",
 		"produceNetldiArgs" : "dkh 11/6/2016 17:49",
 		"stoneName" : "dkh 7/18/2014 13:06" } }

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

@@ -9,4 +9,4 @@
 		"installedStones" : "dlh 10/3/2015 11:19",
 		"produceStonesReport" : "dlh 10/2/2015 18:08",
 		"runningNetldiReportOn:" : "dkh 1/25/2019 08:58",
-		"runningStoneReportOn:" : "dkh 1/25/2019 08:57" } }
+		"runningStoneReportOn:" : "dkh 1/25/2019 10:10" } }

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitStopnetldiCommandLineHandler.class/instance/activate.st

@@ -21,6 +21,9 @@ activate
 	argsArray := sess ifNil: [ {(stoneInfo netLDI)} ] ifNotNil: [ {(sess netLDI)} ].
 	Transcript
 		cr;
-		show: (self runShellCommand: (self gemstoneBin / 'stopnetldi') pathString args: argsArray);
+		show: (self runShellCommand: (self gemstoneBin / 'stopnetldi') pathString args: argsArray exitStatus: [:proc |
+			| es |
+			es := (proc exitStatus bitAnd: 16rFF00) >> 8.
+			proc isComplete and: [ es == 0 or: [ es == 1 "information" or: [ es == 2 "warning"] ] ] ]);
 		cr.
 	self exitSuccess

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

@@ -3,5 +3,5 @@
 		"commandName" : "dkh 3/24/2015 07:29",
 		"description" : "dkh 3/24/2015 07:29" },
 	"instance" : {
-		"activate" : "dkh 4/3/2016 15:01",
+		"activate" : "dkh 9/23/2019 11:24",
 		"stoneName" : "dkh 3/24/2015 07:28" } }

shared/repos/todeClient/GsDevKit-CommandLine.package/GsDevKitStopstoneCommandLineHandler.class/instance/activate.st

@@ -15,6 +15,10 @@ activate
 	argsArray := #().
 	Transcript
 		cr;
-		show: (self runShellCommand: (self gs_serverBinGs / 'stopGemstone') pathString args: argsArray);
+		show: (self runShellCommand: (self gs_serverBinGs / 'stopGemstone') pathString args: argsArray exitStatus: [:proc |
+			| es ans |
+			es := (proc exitStatus bitAnd: 16rFF00) >> 8.
+			ans := proc isComplete and: [ es == 0 or: [ es == 1  "information" or: [ es == 2  "warning"] ] ].
+			ans ]);
 		cr.
 	self exitSuccess

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

@@ -3,5 +3,5 @@
 		"commandName" : "dkh 10/2/2015 14:42",
 		"description" : "dkh 10/2/2015 14:43" },
 	"instance" : {
-		"activate" : "dkh 4/3/2016 15:01",
+		"activate" : "dkh 9/19/2019 16:10",
 		"stoneName" : "dkh 10/2/2015 14:41" } }