forked from GsDevKit/GsDevKit
-
Notifications
You must be signed in to change notification settings - Fork 2
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
Issue GsDevKit#58: get rid of some of the undefined globals and sent …
…but not implemented methods
- Loading branch information
1 parent
b55918c
commit f8df3b4
Showing
5 changed files
with
30 additions
and
23 deletions.
There are no files selected for viewing
16 changes: 11 additions & 5 deletions
16
.../Zinc-WebSocket-Core.package/ZnWebSocketStatusHandler.class/instance/systemVersionInfo.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,7 +1,13 @@ | ||
accessing | ||
systemVersionInfo | ||
^ String streamContents: [ :stream | | ||
stream | ||
print: SystemVersion current; | ||
nextPutAll: ' - '; | ||
nextPutAll: ZnConstants defaultServerString ] | ||
| versionReport | | ||
versionReport := System stoneVersionReport. | ||
^ String | ||
streamContents: [ :stream | | ||
stream | ||
print: | ||
'GemStone ' , (versionReport at: 'gsRelease') , ' of ' | ||
, (versionReport at: 'gsBuildDate') , ' build ' | ||
, (versionReport at: 'gsBuildSerialNum'); | ||
nextPutAll: ' - '; | ||
nextPutAll: ZnConstants defaultServerString ] |
23 changes: 12 additions & 11 deletions
23
repository/Zinc-WebSocket-Core.package/ZnWebSocketStatusHandler.class/instance/value..st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,14 +1,15 @@ | ||
accessing | ||
value: webSocket | ||
"I stream status messages to a WebSocket client, once every second | ||
"I stream status messages to a WebSocket client, once every second | ||
until ConnectionClosed or no longer isConnected" | ||
|
||
[ | ||
webSocket log info: 'Started status streaming'. | ||
[ | ||
webSocket sendMessage: self status. | ||
1 second asDelay wait. | ||
webSocket isConnected ] whileTrue ] | ||
on: ConnectionClosed | ||
do: [ webSocket log debug: 'Ignoring connection close' ]. | ||
webSocket log info: 'Stopping status streaming' | ||
|
||
[ | ||
webSocket log info: 'Started status streaming'. | ||
[ | ||
webSocket sendMessage: self status. | ||
(Delay forSeconds: 1) wait. | ||
webSocket isConnected ] | ||
whileTrue ] | ||
on: ConnectionClosed | ||
do: [ webSocket log debug: 'Ignoring connection close' ]. | ||
webSocket log info: 'Stopping status streaming' |
6 changes: 3 additions & 3 deletions
6
repository/Zinc-WebSocket-Core.package/ZnWebSocketStatusHandler.class/instance/vmStats.st
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -1,5 +1,5 @@ | ||
accessing | ||
vmStats | ||
^ [ SmalltalkImage current vm statisticsReport ] | ||
on: MessageNotUnderstood | ||
do: [ SmalltalkImage current vmStatisticsReportString ] | ||
"augmentation needed" | ||
|
||
^ SystemRepository fileSizeReport |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters