Skip to content

Commit

Permalink
Issue #5: start implementation of ServiceVmGemServer
Browse files Browse the repository at this point in the history
  • Loading branch information
@dalehenrich
dalehenrich committed Dec 13, 2014
1 parent 7364278 commit 471efea
Show file tree
Hide file tree
Showing 15 changed files with 52 additions and 8 deletions.
15 changes: 9 additions & 6 deletions repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/instance/baseline..st
View file
Original file line number Diff line number Diff line change
Expand Up @@ -5,22 +5,25 @@ baseline: spec
for: #'common'
do: [
spec
configuration: 'Seaside3'
baseline: 'Seaside3'
with: [
spec
version: #'release3.1';
loads: #('default' 'Zinc' 'Seaside-GemStone-ServiceTask');
repository:
'http://www.smalltalkhub.com/mc/Seaside/MetacelloConfigurations/main' ];
loads:
#('default' 'Zinc' 'Seaside-GemStone-ServiceTask' 'Seaside-GemStone-GemServer');
repository: 'github://GsDevKit/Seaside31:3.1.?/repository' ];
yourself.
spec
package: 'Seaside-GemStone-ServiceVM-Support'
with: [ spec requires: #('Seaside3') ];
package: 'Seaside-GemStone-ServiceExamples'
with: [ spec requires: #('Seaside-GemStone-ServiceVM-Support') ];
package: 'Seaside-GemStone-ServiceVM-GemServer'
with: [ spec requires: #('Seaside3') ];
yourself.
spec
group: 'default' with: #('Core' 'Example');
group: 'Core' with: #('Seaside-GemStone-ServiceVM-Support');
group: 'Core'
with:
#('Seaside-GemStone-ServiceVM-Support' 'Seaside-GemStone-ServiceVM-GemServer');
group: 'Example' with: #('Seaside-GemStone-ServiceExamples');
group: 'Tests' with: #() yourself ]
2 changes: 1 addition & 1 deletion repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/methodProperties.json
View file
Original file line number Diff line number Diff line change
Expand Up @@ -2,4 +2,4 @@
"class" : {
},
"instance" : {
"baseline:" : "dkh 06/12/2014 23:05" } }
"baseline:" : "dkh 12/13/2014 15:38" } }
2 changes: 1 addition & 1 deletion repository/BaselineOfServiceVM.package/monticello.meta/version
View file
Original file line number Diff line number Diff line change
@@ -1 +1 @@
(name 'BaselineOfServiceVM-dkh.7' message 'load ''default'' + Zinc, etc. from Seaside3...oh and include the Seaside-GemStone-ServiceExamples, too' id 'bb7fef7c-3c52-4291-8829-51d9f3ca760d' date '06/12/2014' time '23:06:14' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.6' message 'correct Seaside3 symbolic version' id '28fef02b-9382-440a-854d-73205e125fe7' date '06/12/2014' time '22:59:33' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.5' message 'update baseline with preferred way to reference Seaside3 project (via configuration and using the #release31 version)' id '3f9fcc79-94f0-42ad-9f85-6128c71d2646' date '06/12/2014' time '13:40:36' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.4' message 'Seaside-GemStone-ServiceTask is already in Seaside31 config' id '928e39ce-6004-4f46-bcc6-459c6fd802a8' date '06/08/2014' time '15:26:31' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.3' message 'simplification of ServiceVM example without breaking existing stuff- build new vm hierarchy under WAGemStoneAbstractServiceVM which is basically WAGemStoneServiceVMTask reafactored to support multiple subclasses - new classes WAGemStoneServiceExampleVM (for old example) and WAGemStoneServiceVM (for new example which will be built upon Nick''s WAGemStoneServiceTask; block-based and much simpler- restore Seaside-GemStone-ServiceTask-NickAger.20 - implementation of WAGemStoneServiceVMTask left alone in case folks are using it in production ... evenutally they should convert and until then ..' id 'bc871cb0-1433-4400-888a-19011c13cd9c' date '06/08/2014' time '14:26:15' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.2' message 'oops ... forgot the class' id '24ab19b3-b944-4dd8-806b-93b69622682a' date '06/06/2014' time '11:32:03' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.1' message 'initial baseline' id 'afc70878-fed8-4cc5-b6fa-411dbdcdb02b' date '06/06/2014' time '08:29:24' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
(name 'BaselineOfServiceVM-dkh.8' message 'Issue #5: start implementation of ServiceVmGemServer' id '1708798c-123e-4e7d-85e0-fd658d646dce' date '12/13/2014' time '15:59:38' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.7' message 'load ''default'' + Zinc, etc. from Seaside3...oh and include the Seaside-GemStone-ServiceExamples, too' id 'bb7fef7c-3c52-4291-8829-51d9f3ca760d' date '06/12/2014' time '23:06:14' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.6' message 'correct Seaside3 symbolic version' id '28fef02b-9382-440a-854d-73205e125fe7' date '06/12/2014' time '22:59:33' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.5' message 'update baseline with preferred way to reference Seaside3 project (via configuration and using the #release31 version)' id '3f9fcc79-94f0-42ad-9f85-6128c71d2646' date '06/12/2014' time '13:40:36' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.4' message 'Seaside-GemStone-ServiceTask is already in Seaside31 config' id '928e39ce-6004-4f46-bcc6-459c6fd802a8' date '06/08/2014' time '15:26:31' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.3' message 'simplification of ServiceVM example without breaking existing stuff- build new vm hierarchy under WAGemStoneAbstractServiceVM which is basically WAGemStoneServiceVMTask reafactored to support multiple subclasses - new classes WAGemStoneServiceExampleVM (for old example) and WAGemStoneServiceVM (for new example which will be built upon Nick''s WAGemStoneServiceTask; block-based and much simpler- restore Seaside-GemStone-ServiceTask-NickAger.20 - implementation of WAGemStoneServiceVMTask left alone in case folks are using it in production ... evenutally they should convert and until then ..' id 'bc871cb0-1433-4400-888a-19011c13cd9c' date '06/08/2014' time '14:26:15' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.2' message 'oops ... forgot the class' id '24ab19b3-b944-4dd8-806b-93b69622682a' date '06/06/2014' time '11:32:03' author 'dkh' ancestors ((name 'BaselineOfServiceVM-dkh.1' message 'initial baseline' id 'afc70878-fed8-4cc5-b6fa-411dbdcdb02b' date '06/06/2014' time '08:29:24' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
Expand Down
4 changes: 4 additions & 0 deletions repository/Seaside-GemStone-ServiceVM-GemServer.package/.filetree
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
{
"noMethodMetaData" : true,
"separateMethodMetaAndSource" : false,
"useCypressPropertiesFile" : true }
Empty file added ...Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/README.md
View file
Empty file.
3 changes: 3 additions & 0 deletions ...easide-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/delayTimeMs.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
delayTimeMs
^ 200
3 changes: 3 additions & 0 deletions .../Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/taskClass.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
taskClass
^ WAGemStoneServiceVMTask
6 changes: 6 additions & 0 deletions ...-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/instance/startServerOn..st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
service instance-server
startServerOn: port
"start server in current vm. for gemstone, not expected to return."

self taskClass vmStartup.
super startServerOn: port
6 changes: 6 additions & 0 deletions ...aside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/methodProperties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
{
"class" : {
"delayTimeMs" : "dkh 12/13/2014 15:31",
"taskClass" : "dkh 12/13/2014 15:29" },
"instance" : {
"startServerOn:" : "dkh 12/13/2014 15:47" } }
14 changes: 14 additions & 0 deletions ...ory/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "Seaside-GemStone-ServiceVM-GemServer",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "",
"instvars" : [
],
"name" : "ServiceVmGemServer",
"pools" : [
],
"super" : "WAGemStoneAbstractTaskGemServer",
"type" : "normal" }
1 change: 1 addition & 0 deletions repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/categories.st
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
SystemOrganization addCategory: #'Seaside-GemStone-ServiceVM-GemServer'!
Empty file added repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/initializers.st
View file
Empty file.
1 change: 1 addition & 0 deletions repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/package
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'Seaside-GemStone-ServiceVM-GemServer')
1 change: 1 addition & 0 deletions repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/version
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'Seaside-GemStone-ServiceVM-GemServer-dkh.1' message 'Issue #5: start implementation of ServiceVmGemServer' id '8d0f0457-16d5-481a-89f4-5f973ffc4973' date '12/13/2014' time '15:59:38' author 'dkh' ancestors () stepChildren ())
2 changes: 2 additions & 0 deletions repository/Seaside-GemStone-ServiceVM-GemServer.package/properties.json
View file
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{
}

0 comments on commit 471efea

Please sign in to comment.