Skip to content

Commit

Permalink
files corresponding to SOAP 0.233 release
Browse files Browse the repository at this point in the history
  • Loading branch information
dalehenrich committed Jun 15, 2014
1 parent 0be1885 commit a98c17a
Show file tree
Hide file tree
Showing 1,998 changed files with 14,379 additions and 1 deletion.
5 changes: 4 additions & 1 deletion README.md
Original file line number Diff line number Diff line change
Expand Up @@ -3,4 +3,7 @@ SOAP

Port to GemStone/S 3.x in progress...

Original repository: http://squeaksource.blueplane.jp/SOAP/
Original repositories:

* http://squeaksource.blueplane.jp/SOAP/
* http://squeaksource.blueplane.jp/SoXML.html
2 changes: 2 additions & 0 deletions repository/.filetree
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{"packageExtension" : ".package",
"propertyFileExtension" : ".json" }
4 changes: 4 additions & 0 deletions repository/ConfigurationOfGsSOAP.package/.filetree
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
{
"noMethodMetaData" : true,
"separateMethodMetaAndSource" : false,
"useCypressPropertiesFile" : true }
Empty file.
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
private
bootstrapPackage: aString from: aPath
| repository version |
repository := MCHttpRepository
location: aPath
user: ''
password: ''.
repository
versionReaderForFileNamed: aString , '.mcz'
do: [:reader |
version := reader version.
version load.
version workingCopy repositoryGroup addRepository: repository]
Original file line number Diff line number Diff line change
@@ -0,0 +1,17 @@
private
ensureMetacello
"Minimum package versions from which to boot Metacello. Corresponds to version 1.0-beta.6"

Smalltalk at: #MetacelloProject ifAbsent: [
Smalltalk at: #Gofer ifAbsent: [
"Minimum version of Gofer from which to bootstrap"
self bootstrapPackage: 'Gofer-lr.70' from: 'http://source.lukas-renggli.ch/flair' ].
Smalltalk at: #Gofer ifPresent: [:gofer |
gofer new
url: 'http://seaside.gemstone.com/ss/metacello';
addVersion: 'Metacello-Core-dkh.277'; "Minimum version from which to bootstrap Metacello"
addVersion: 'Metacello-MC-dkh.209'; "Minimum version from which to bootstrap Metacello"
addPackage: 'ConfigurationOfMetacello'; "Loads latest version of configuration package"
load ].
"load latest version of Metacello, load a specific version if desired"
(Smalltalk at: #ConfigurationOfMetacello) loadLatestVersion ]
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
metacello tool support
isMetacelloConfig
"Answer true and the Metacello tools will operate on you"

^true
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
project

^self new project
Original file line number Diff line number Diff line change
@@ -0,0 +1,47 @@
baselines
baseline0231: spec
<version: '0.231-baseline'>

spec for: #common do: [
spec blessing: #baseline.
spec repositories: [
spec
repository: 'http://seaside.gemstone.com/ss/SOAP';
repository: 'http://seaside.gemstone.com/ss/SoXML' ]].
spec for: #gemstone do: [
spec
package: 'SoXML' with: [ spec requires: #('Core') ];
package: 'SOAP-Core' with: [
spec
file: 'SOAP-Core.g';
requires: #('SoXML' 'Hyper') ];
package: 'SOAP-Client' with: [
spec
file: 'SOAP-Client.g';
requires: #('SOAP-Core') ];
package: 'SOAP-Server' with: [
spec
file: 'SOAP-Server.g';
requires: #('SOAP-Core') ];
package: 'SOAP-Example' with: [
spec
file: 'SOAP-Example.g';
requires: #('SOAP-Client' 'SOAP-Server') ];
package: 'SOAP-TestCases' with: [ spec requires: #('SOAP-Client' 'SOAP-Server') ];
yourself.
spec
project: 'Core' with: [
spec
className: 'ConfigurationOfGsCore';
projectPackage: [
spec
name: 'ConfigurationOfGsCore';
repository: 'http://seaside.gemstone.com/ss/GLASSproject' ]];
project: 'Hyper' with: [
spec
className: 'ConfigurationOfGsHyper';
projectPackage: [
spec
name: 'ConfigurationOfGsHyper';
repository: 'http://seaside.gemstone.com/ss/hyper' ]];
yourself.].
Original file line number Diff line number Diff line change
@@ -0,0 +1,29 @@
baselines
baseline0232: spec
<version: '0.232-baseline' imports: #('0.231-baseline' )>

spec for: #gemstone do: [
spec
package: 'SoXML' with: [
spec
file: 'SoXML.g';
requires: #('XML-Parser' 'Utf8Encoding') ];
yourself.
spec
project: 'XML-Parser' with: [
spec
className: 'ConfigurationOfGsMisc';
loads: #('XML-Parser');
projectPackage: [
spec
name: 'ConfigurationOfGsMisc';
repository: 'http://seaside.gemstone.com/ss/MetacelloRepository' ]];
project: 'Utf8Encoding' with: [
spec
className: 'ConfigurationOfGsMisc';
loads: #('Utf8Encoding');
projectPackage: [
spec
name: 'ConfigurationOfGsMisc';
repository: 'http://seaside.gemstone.com/ss/MetacelloRepository' ]];
yourself].
Original file line number Diff line number Diff line change
@@ -0,0 +1,9 @@
accessing
project

^ project ifNil: [ | constructor |
"Bootstrap Metacello if it is not already loaded"
self class ensureMetacello.
"Construct Metacello project"
constructor := (Smalltalk at: #MetacelloVersionConstructor) on: self.
project := constructor project ]
Original file line number Diff line number Diff line change
@@ -0,0 +1,19 @@
versions
version0231: spec
<version: '0.231' imports: #('0.231-baseline' )>

spec for: #common do: [
spec blessing: #beta ].
spec for: #gemstone do: [
spec
project: 'Core' with: '0.231';
project: 'Hyper' with: '0.231';
yourself.
spec
package: 'SoXML' with: 'SoXML.g-dkh.19';
package: 'SOAP-Core' with: 'SOAP-Core.g-dkh.75';
package: 'SOAP-Client' with: 'SOAP-Client.g-dkh.15';
package: 'SOAP-Server' with: 'SOAP-Server.g-dkh.20';
package: 'SOAP-Example' with: 'SOAP-Example.g-dkh.18';
package: 'SOAP-TestCases' with: 'SOAP-TestCases-dkh.46';
yourself].
Original file line number Diff line number Diff line change
@@ -0,0 +1,21 @@
versions
version0232: spec
<version: '0.232' imports: #('0.232-baseline' )>

spec for: #common do: [
spec blessing: #beta ].
spec for: #gemstone do: [
spec
project: 'Core' with: '0.232';
project: 'Hyper' with: '0.232';
project: 'XML-Parser' with: '0.232';
project: 'Utf8Encoding' with: '0.232';
yourself.
spec
package: 'SoXML' with: 'SoXML.g-dkh.19';
package: 'SOAP-Core' with: 'SOAP-Core.g-jgf.76';
package: 'SOAP-Client' with: 'SOAP-Client.g-dkh.15';
package: 'SOAP-Server' with: 'SOAP-Server.g-dkh.20';
package: 'SOAP-Example' with: 'SOAP-Example.g-dkh.18';
package: 'SOAP-TestCases' with: 'SOAP-TestCases-jgf.47';
yourself].
Original file line number Diff line number Diff line change
@@ -0,0 +1,25 @@
versions
version0233: spec
<version: '0.233' imports: #('0.232-baseline' )>

spec for: #common do: [
spec blessing: #release.
spec description: '0.233 (dkh.11):
- port to GLASS 1.0-beta.8.7'.
spec author: 'dkh'.
spec timestamp: '10/20/2011 15:21'. ].
spec for: #gemstone do: [
spec
project: 'Core' with: '0.245';
project: 'Hyper' with: '0.232';
project: 'XML-Parser' with: '0.239.1';
project: 'Utf8Encoding' with: '0.239.1';
yourself.
spec
package: 'SoXML' with: 'SoXML.g-dkh.19';
package: 'SOAP-Core' with: 'SOAP-Core.g-jgf.76';
package: 'SOAP-Client' with: 'SOAP-Client.g-dkh.15';
package: 'SOAP-Server' with: 'SOAP-Server.g-dkh.20';
package: 'SOAP-Example' with: 'SOAP-Example.g-dkh.19';
package: 'SOAP-TestCases' with: 'SOAP-TestCases-dkh.48';
yourself].
Original file line number Diff line number Diff line change
@@ -0,0 +1,13 @@
{
"class" : {
"bootstrapPackage:from:" : "dkh 10/26/2009 12:32",
"ensureMetacello" : "dkh 10/31/2009 21:14",
"isMetacelloConfig" : "dkh 10/26/2009 12:32",
"project" : "dkh 10/26/2009 12:32" },
"instance" : {
"baseline0231:" : "DaleHenrichs 03/20/2010 10:04",
"baseline0232:" : "DaleHenrichs 03/20/2010 10:02",
"project" : "dkh 10/26/2009 12:32",
"version0231:" : "dkh 10/27/2009 17:33",
"version0232:" : "dkh 10/27/2009 17:33",
"version0233:" : "dkh 10/19/2011 17:19" } }
Original file line number Diff line number Diff line change
@@ -0,0 +1,14 @@
{
"category" : "ConfigurationOfGsSOAP",
"classinstvars" : [
],
"classvars" : [
],
"commentStamp" : "dkh 09/13/2011 10:38",
"instvars" : [
"project" ],
"name" : "ConfigurationOfGsSOAP",
"pools" : [
],
"super" : "Object",
"type" : "normal" }
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
SystemOrganization addCategory: #'ConfigurationOfGsSOAP'!
Empty file.
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'ConfigurationOfGsSOAP')
Original file line number Diff line number Diff line change
@@ -0,0 +1 @@
(name 'ConfigurationOfGsSOAP-dkh.12' message '- release 0.233' id '1a447288-28e2-4705-a576-84521fbdbbaf' date '10/19/2011' time '17:20:06' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.11' message '- open 0.233 for development0.233 (dkh.11):- port to GLASS 1.0-beta.8.7' id '25b2eb0f-f010-44b9-8a2e-3b778b588e6e' date '09/15/2011' time '13:17:03' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-DaleHenrichs.10' message '- adjust baseline so that loading latest from baseline uses latest baselines from dependent project and gets the correct latest packages from the repository' id '12ca6539-04d2-4284-bad3-e00e7484ed42' date '03/20/1910' time '12:57:16' author 'DaleHenrichs' ancestors ((name 'ConfigurationOfGsSOAP-DaleHenrichs.9' message '- GemStone-specific configurations can now be found in http://seaside.gemstone.com/ss/MetacelloRepository' id 'c36d7c65-0c5d-47ef-9c4a-72053e3bd0d0' date '03/03/1910' time '16:30:00' author 'DaleHenrichs' ancestors ((name 'ConfigurationOfGsSOAP-dkh.8' message '- convert to using ConfigurationOfMetacello class/naming convention' id 'd892729e-a71a-4595-8c1a-7f8d6655d955' date '11/01/2009' time '10:56:48' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.7' message '- fix hyper repository name' id 'e6953787-9325-42ab-801c-56e51b7eba6b' date '10/30/2009' time '11:23:56' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.6' message '- add Hyper dependent' id '2a6bfea7-97ad-4fc8-bd88-f09918f2f31f' date '10/27/2009' time '17:41:52' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.5' message '- fix package file name' id 'cb04ccd8-43c9-40e8-94fc-6636ffdc4837' date '10/27/2009' time '17:18:02' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.4' message '- method and version refactoring' id '08d89a8e-0d1f-4ce4-8ee4-7abf08553894' date '10/27/2009' time '16:42:16' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.3' message '- fix repository ref for GsCore config' id '0bd05b7a-9830-4cee-9965-0c1c4adfcdc2' date '10/27/2009' time '11:18:56' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.2' message '- fix configuration errors' id '21b0f879-170a-4343-baae-b9902068d130' date '10/26/2009' time '20:00:53' author 'dkh' ancestors ((name 'ConfigurationOfGsSOAP-dkh.1' message '- Gs SOAP configuration using latest version of metacello' id 'cbc9b679-d7ec-481f-b6ac-910e6d323c46' date '10/26/2009' time '13:15:47' author 'dkh' ancestors () stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())) stepChildren ())
Expand Down
2 changes: 2 additions & 0 deletions repository/ConfigurationOfGsSOAP.package/properties.json
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{
}
4 changes: 4 additions & 0 deletions repository/SOAP-Client.g.package/.filetree
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
{
"noMethodMetaData" : true,
"separateMethodMetaAndSource" : false,
"useCypressPropertiesFile" : true }
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
*soap-client
nonImplementedSelectorsSOAPClient

^#(nameForAddress:timeout: localHostAddress) "SOAP-Client"
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
{
"class" : {
},
"instance" : {
"nonImplementedSelectorsSOAPClient" : "dkh 04/03/2009 14:38" } }
Original file line number Diff line number Diff line change
@@ -0,0 +1,2 @@
{
"name" : "SentButNotImplementedTest" }
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
I connect to some server.
My subclasses will know what socket client should be used for connecting right server.

---
MU 10/5/2002 01:35
Original file line number Diff line number Diff line change
@@ -0,0 +1,6 @@
class initialization
initialize
"SoapAbstractConnector initialize"
ShowLog := false.

self initializeAfterLoad
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
class initialization
initializeAfterLoad

self name == #SoapAbstractConnector
ifFalse: [SoapConnectorMap at: self transportName asSymbol put: self].
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
class initialization
initializeAll
"SoapAbstractConnector initializeAll"

self subclassesDo: [:each | each initialize]
Original file line number Diff line number Diff line change
@@ -0,0 +1,5 @@
class initialization
obsolete
self name == #SoapAbstractConnector
ifFalse: [SoapConnectorMap removeAt: self transportName asSymbol].
super obsolete
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
setting
showLog: aBoolean
ShowLog := aBoolean
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
setting
showLog
^ShowLog
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
constants
transportName
^#noName
Original file line number Diff line number Diff line change
@@ -0,0 +1,12 @@
actions
debugReturn: aSoapMessage

self class showLog
ifTrue: [
| envelope context |
envelope := aSoapMessage envelope.
context := aSoapMessage context.
Transcript cr; cr; show: '##'; show: super printString;
show: ' Client:Return:{'; cr; show: envelope printString; cr; show: '}'.
Transcript cr; show: '-> with ->'.
Transcript cr; show: context printString]
Original file line number Diff line number Diff line change
@@ -0,0 +1,10 @@
actions
debugSend: aSoapEnvelope to: anSoapLocatorObject with: aSoapContext

self class showLog
ifTrue: [Transcript cr; show: '##', super printString, ' Client:Request:{'.
Transcript cr; show: aSoapEnvelope printString.
Transcript cr; show: '} to ->'.
Transcript cr; show: anSoapLocatorObject printString.
Transcript cr; show: '-> with ->'.
Transcript cr; show: aSoapContext printString].
Original file line number Diff line number Diff line change
@@ -0,0 +1,3 @@
accessing
envelopeBuilder: aSoapEnvelopeBuilder
envelopeBuilder := aSoapEnvelopeBuilder
Original file line number Diff line number Diff line change
@@ -0,0 +1,4 @@
accessing
envelopeBuilder
envelopeBuilder isNil ifTrue: [envelopeBuilder := SoapEnvelopeBuilder new].
^envelopeBuilder
Original file line number Diff line number Diff line change
@@ -0,0 +1,8 @@
actions
send: aSoapEnvelope to: anSoapLocatorObject with: aSoapContext
"1. add an addittinal protocolSpecific header to aSoapEnvelope"
"2. send a SoapMessage to a remote server"
"3. get the result and unmarshall it"
"4. return aSoapMessage or nil"

^self subclassResponsibility
Loading

0 comments on commit a98c17a

Please sign in to comment.