Merge branch 'dev'

Author: dalehenrich

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/instance/waitForStartGems..st

@@ -0,0 +1,17 @@
+service instance-control
+waitForStartGems: timeOutSeconds
+  | pidList count |
+  pidList := ''.
+  count := 0.
+  self logControlEvent: 'Wait for Gems: ' , self name.
+  self portOrResourceNameList
+    do: [ :portOrResourceName | 
+      | pidFilePath file |
+      pidFilePath := self gemPidFileName: portOrResourceName.
+      [ GsFile existsOnServer: pidFilePath ]
+        whileFalse: [ 
+          (Delay forSeconds: 1) wait.
+          count := count + 1.
+          count > timeOutSeconds
+            ifTrue: [ ^ false ] ] ].
+  ^ true

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",
@@ -132,4 +132,5 @@
 		"transactionMutex" : "dkh 12/22/2014 14:48",
 		"unregister" : "dkh 01/06/2015 13:39",
 		"validateName:" : "dkh 11/26/2014 18:29",
+		"waitForStartGems:" : "dkh 05/28/2015 00:47",
 		"writeGemLogEntryFor:titled:" : "dkh 01/06/2015 16:49" } }

repository/GsApplicationTools-Server.package/monticello.meta/version

@@ -6,4 +6,8 @@ startGems: gemServer
       self
         notify:
           'evaluate on server: abort; /home/gemserver/example --start=Test_Server' ]
-    ifFalse: [ gemServer startGems ]
+    ifFalse: [ 
+      gemServer startGems.
+      self
+        waitForGemServer: gemServer
+        message: 'Gems did not start ' , self gemServerName ]

repository/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/startGems..st

@@ -1,6 +1,4 @@
 private
 stopGems: gemServer
   self staticRemoteServer
-    ifFalse: [ 
-      gemServer stopGems.
-      (Delay forSeconds: 3) wait ]
+    ifFalse: [ gemServer stopGems ]

repository/GsApplicationTools-Test.package/GemServerRemoteVMTests.class/instance/stopGems..st

@@ -0,0 +1,8 @@
+private
+waitForGemServer: gemServer message: message
+  (gemServer waitForStartGems: 20)
+    ifFalse: [ 
+      Transcript
+        cr;
+        show: message.
+      self assert: false ]