proposed bugfixes for Issue #32 and Issue #30 ...

Issue #32 fix involves waiting until the gem process has well an truly stopped .. changes made to stopGemServerGem and removal of delay in GemServer>>restartGems
Issue #30 involves using #printString and well-placed `"` for command line argument creation in GemServer>>executeStartGemCommand: and changes to stopGemServerGem and startGemServerGems to strip the `'` character from file names while leaving it for use in Smalltalk code ...

bin/startGemServerGem

@@ -2,6 +2,7 @@
 
 GemServer="$1"
 Port="$2"
+PortName=`echo ${Port} | sed "s/'//g"`  #strip ' off in case of a non-integer argument
 
 set -e # exit on error
 
@@ -52,7 +53,7 @@ logDir=${GEMSTONE_LOGDIR}
 if [ "${logDir}x" = "x" ] ; then
   logDir=/opt/gemstone/log
 fi
-logFile="${logDir}/${GemServer}_server-${Port}.log"
+logFile="${logDir}/${GemServer}_server-${PortName}.log"
 
 username=$GEMSTONE_USER_NAME
 if [ "${GEMSTONE_USER_NAME}x" = "x" ] ; then
@@ -78,11 +79,11 @@ run
 | logEntry |
 System beginTransaction.
 (logEntry := ObjectLogEntry
-  fatal: '${GemServer}_server_${Port}: topaz exit'
+  fatal: '${GemServer}_server_${PortName}: topaz exit'
   object:
     'pid: ', (System gemVersionReport at: 'processId') printString) addToLog.
 (GemServerRegistry gemServerNamed: '$GemServer')
-  ifNotNil: [:gemServer | gemServer crashLog add: (${Port}) asString -> logEntry ].
+  ifNotNil: [:gemServer | gemServer crashLog add: (${PortName}) asString -> logEntry ].
 System commitTransaction.
 %
 

bin/stopGemServerGem

@@ -2,20 +2,24 @@
 
 GemServer="$1"
 Port="$2"
+PortName=`echo ${Port} | sed "s/'//g"`  #strip ' off in case of a non-integer argument
 
 # must match GemServer>>gemPidFileName:
 
 logDir=${GEMSTONE_LOGDIR}
 if [ "${logDir}x" = "x" ] ; then
   logDir=/opt/gemstone/log
 fi
-pidfile="${logDir}/${GemServer}_server-${Port}.pid"
+pidfile="${logDir}/${GemServer}_server-${PortName}.pid"
 
 if [ -e $pidfile ]; then
   pid=`cat $pidfile`
   rm $pidfile
   echo "   Stopping topaz PID $pid running on port $port"
   kill $pid
+  while [[ ( -d /proc/$pid ) && ( -z `grep zombie /proc/$pid/status` ) ]]; do
+      sleep 1
+  done
 else
   echo "   No PID file found for gem on port $port, not running?"
 fi

repository/GsApplicationTools-Server.package/GemServer.class/instance/executeStartGemCommand..st

@@ -1,6 +1,6 @@
 server specialization
 executeStartGemCommand: portOrResourceName
   | commandLine |
-  commandLine := self startScriptPath , ' ' , self name , ' '
-    , portOrResourceName asString , ' "' , self exeConfPath , '"'.
+  commandLine := self startScriptPath , ' ' , self name , ' "'
+    , portOrResourceName printString , '" "' , self exeConfPath , '"'.
   self performOnServer: commandLine

repository/GsApplicationTools-Server.package/GemServer.class/instance/restartGems.st

@@ -2,5 +2,4 @@ service instance-control
 restartGems
   self logControlEvent: 'Restart Gems: ' , self name.
   self stopGems.
-  (Delay forSeconds: 3) wait.	"give gem a chance to close sockets"
   self startGems

repository/GsApplicationTools-Server.package/GemServer.class/methodProperties.json

@@ -39,7 +39,7 @@
 		"enableRemoteBreakpoints" : "dkh 12/10/2014 17:01",
 		"enableRemoteBreakpoints:" : "dkh 11/26/2014 19:16",
 		"exeConfPath" : "dkh 01/01/2015 16:54",
-		"executeStartGemCommand:" : "dkh 01/06/2015 15:31",
+		"executeStartGemCommand:" : "dkh 05/27/2015 17:02",
 		"executeStatusGemCommand:" : "dkh 12/20/2014 21:46",
 		"executeStopGemCommand:" : "dkh 01/06/2015 15:30",
 		"gemPidFileName:" : "dkh 01/26/2015 15:07",
@@ -99,7 +99,7 @@
 		"reentryAllowed" : "dkh 01/09/2015 13:12",
 		"reentryDisallowed" : "dkh 01/09/2015 13:11",
 		"register" : "dkh 01/06/2015 13:39",
-		"restartGems" : "dkh 12/06/2014 13:04",
+		"restartGems" : "dkh 05/27/2015 16:24",
 		"saveContinuationFor:titled:inTransactionDo:" : "dkh 12/30/2014 07:25",
 		"scriptBinDirPath" : "dkh 11/29/2014 09:44",
 		"scriptLogEvent:object:" : "dkh 01/09/2015 17:18",