From 471efeacd66873b7012fa7a410c9727f88cbf723 Mon Sep 17 00:00:00 2001 From: Dale Henrichs Date: Sat, 13 Dec 2014 15:59:39 -0800 Subject: [PATCH] Issue #5: start implementation of ServiceVmGemServer --- .../instance/baseline..st | 15 +++++++++------ .../methodProperties.json | 2 +- .../monticello.meta/version | 2 +- .../.filetree | 4 ++++ .../ServiceVmGemServer.class/README.md | 0 .../ServiceVmGemServer.class/class/delayTimeMs.st | 3 +++ .../ServiceVmGemServer.class/class/taskClass.st | 3 +++ .../instance/startServerOn..st | 6 ++++++ .../methodProperties.json | 6 ++++++ .../ServiceVmGemServer.class/properties.json | 14 ++++++++++++++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../monticello.meta/version | 1 + .../properties.json | 2 ++ 15 files changed, 52 insertions(+), 8 deletions(-) create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/.filetree create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/README.md create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/delayTimeMs.st create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/taskClass.st create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/instance/startServerOn..st create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/methodProperties.json create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/properties.json create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/categories.st create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/package create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/version create mode 100644 repository/Seaside-GemStone-ServiceVM-GemServer.package/properties.json diff --git a/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/instance/baseline..st b/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/instance/baseline..st index 63cf3a5..0cc40df 100644 --- a/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/instance/baseline..st +++ b/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/instance/baseline..st @@ -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 ] \ No newline at end of file diff --git a/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/methodProperties.json b/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/methodProperties.json index 766d9ab..bb65e1b 100644 --- a/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/methodProperties.json +++ b/repository/BaselineOfServiceVM.package/BaselineOfServiceVM.class/methodProperties.json @@ -2,4 +2,4 @@ "class" : { }, "instance" : { - "baseline:" : "dkh 06/12/2014 23:05" } } + "baseline:" : "dkh 12/13/2014 15:38" } } diff --git a/repository/BaselineOfServiceVM.package/monticello.meta/version b/repository/BaselineOfServiceVM.package/monticello.meta/version index 64dfd6e..402e0d9 100644 --- a/repository/BaselineOfServiceVM.package/monticello.meta/version +++ b/repository/BaselineOfServiceVM.package/monticello.meta/version @@ -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 ()) \ No newline at end of file +(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 ()) \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/.filetree b/repository/Seaside-GemStone-ServiceVM-GemServer.package/.filetree new file mode 100644 index 0000000..8998102 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/.filetree @@ -0,0 +1,4 @@ +{ + "noMethodMetaData" : true, + "separateMethodMetaAndSource" : false, + "useCypressPropertiesFile" : true } diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/README.md b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/README.md new file mode 100644 index 0000000..e69de29 diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/delayTimeMs.st b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/delayTimeMs.st new file mode 100644 index 0000000..a331a19 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/delayTimeMs.st @@ -0,0 +1,3 @@ +accessing +delayTimeMs + ^ 200 \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/taskClass.st b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/taskClass.st new file mode 100644 index 0000000..80113a5 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/class/taskClass.st @@ -0,0 +1,3 @@ +accessing +taskClass + ^ WAGemStoneServiceVMTask \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/instance/startServerOn..st b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/instance/startServerOn..st new file mode 100644 index 0000000..6e4b6db --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/instance/startServerOn..st @@ -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 \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/methodProperties.json b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/methodProperties.json new file mode 100644 index 0000000..05aef53 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/methodProperties.json @@ -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" } } diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/properties.json b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/properties.json new file mode 100644 index 0000000..40b5a21 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/ServiceVmGemServer.class/properties.json @@ -0,0 +1,14 @@ +{ + "category" : "Seaside-GemStone-ServiceVM-GemServer", + "classinstvars" : [ + ], + "classvars" : [ + ], + "commentStamp" : "", + "instvars" : [ + ], + "name" : "ServiceVmGemServer", + "pools" : [ + ], + "super" : "WAGemStoneAbstractTaskGemServer", + "type" : "normal" } diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/categories.st b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/categories.st new file mode 100644 index 0000000..ab3e9b3 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Seaside-GemStone-ServiceVM-GemServer'! diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/initializers.st b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/initializers.st new file mode 100644 index 0000000..e69de29 diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/package b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/package new file mode 100644 index 0000000..3bfd576 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-GemStone-ServiceVM-GemServer') \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/version b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/version new file mode 100644 index 0000000..cba6c4a --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/monticello.meta/version @@ -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 ()) \ No newline at end of file diff --git a/repository/Seaside-GemStone-ServiceVM-GemServer.package/properties.json b/repository/Seaside-GemStone-ServiceVM-GemServer.package/properties.json new file mode 100644 index 0000000..f037444 --- /dev/null +++ b/repository/Seaside-GemStone-ServiceVM-GemServer.package/properties.json @@ -0,0 +1,2 @@ +{ + }