Skip to content

Commit

Permalink
Merge pull request #23 from GsDevKit/dev
Browse files Browse the repository at this point in the history
Issue #22: if GEMSTONE_LOG_DIR not defined use /opt/gemstone/log for Gem...
  • Loading branch information
dalehenrich committed Jan 27, 2015
2 parents 9320fab + 5721e4a commit 577953c
Show file tree
Hide file tree
Showing 26 changed files with 29 additions and 27 deletions.
Original file line number Diff line number Diff line change
Expand Up @@ -2,5 +2,7 @@ service instance-private
gemPidFileName: portOrResourceName
"must match bin/stopGemServerGem script"

^ (GsFile _expandEnvVariable: 'GEMSTONE_LOGDIR' isClient: false) , '/'
, self name , '_server-' , portOrResourceName asString , '.pid'
| logDir |
logDir := (GsFile _expandEnvVariable: 'GEMSTONE_LOGDIR' isClient: false)
ifNil: [ '/opt/gemstone/log' ].
^ logDir , '/' , self name , '_server-' , portOrResourceName asString , '.pid'
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
server specialization
isRunning
^self serverClass isRunning
^self serverClass isRunning
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@ accessing
name

name == nil ifTrue: [ ^self serverClass name ].
^name
^name
Original file line number Diff line number Diff line change
Expand Up @@ -42,7 +42,7 @@
"executeStartGemCommand:" : "dkh 01/06/2015 15:31",
"executeStatusGemCommand:" : "dkh 12/20/2014 21:46",
"executeStopGemCommand:" : "dkh 01/06/2015 15:30",
"gemPidFileName:" : "dkh 01/06/2015 15:29",
"gemPidFileName:" : "dkh 01/26/2015 15:07",
"gemServer:" : "dkh 12/30/2014 16:10",
"gemServer:beforeUnwind:" : "dkh 12/30/2014 16:11",
"gemServer:beforeUnwind:ensure:" : "dkh 12/30/2014 16:11",
Expand Down
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
block: anObject

block := anObject
block := anObject
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
nativeProcess: anObject

nativeProcess := anObject
nativeProcess := anObject
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
nativeProcess

^nativeProcess
^nativeProcess
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
nativeSemaphore: anObject

nativeSemaphore := anObject
nativeSemaphore := anObject
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
portableProcess: anObject

portableProcess := anObject
portableProcess := anObject
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
portableProcess

^portableProcess
^portableProcess
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
accessing
portableSemaphore: anObject

portableSemaphore := anObject
portableSemaphore := anObject
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
gem server querying
gemServerNamed: aString
^self singleton serverNamed: aString
^self singleton serverNamed: aString
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
gem server querying
gemServerNames
^self singleton names asSortedCollection
^self singleton names asSortedCollection
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
instance creation
new
^self singleton
^self singleton
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
registration
removeGemServerNamed: aName
self singleton removeServer: aName
.
.
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
gem server querying
serverGems
^self singleton servers
^self singleton servers
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
gem server querying
serversOnPort: aPortNumber
^self singleton serversOnPort: aPortNumber
^self singleton serversOnPort: aPortNumber
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@ accessing
singleton

Singleton isNil ifTrue: [self initSingleton].
^Singleton
^Singleton
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,4 @@ addServer: aServer
(self serverNamed: aServer name) notNil
ifTrue: [^Error error: 'Server with that name already exists!'].

self servers add: aServer
self servers add: aServer
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
other
names

^self servers collect:[:each | each name].
^self servers collect:[:each | each name].
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@ other
removeServer: aName
|server|
server :=self serverNamed:aName.
server == nil ifFalse:[ servers remove: server]
server == nil ifFalse:[ servers remove: server]
Original file line number Diff line number Diff line change
@@ -1,4 +1,4 @@
other
serverClasses

^self servers collect:[:each | each serverClass].
^self servers collect:[:each | each serverClass].
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
other
serverNamed: aString
^self servers detect:[:each | each name = aString] ifNone:[nil]
^self servers detect:[:each | each name = aString] ifNone:[nil]
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
other
servers
^servers
^servers
Original file line number Diff line number Diff line change
@@ -1,3 +1,3 @@
other
serversOfClass: aClassName
^servers select: [:each | each serverClass name = aClassName]
^servers select: [:each | each serverClass name = aClassName]

Large diffs are not rendered by default.

0 comments on commit 577953c

Please sign in to comment.