From aa6da59c98445b3fc8385af921a57ca5a3ce4a7d Mon Sep 17 00:00:00 2001 From: Max Leske Date: Tue, 23 Jul 2019 10:08:17 +0200 Subject: [PATCH 01/41] Moved WAExternalFile to Seaside-Core as I need it for streamed uploads --- .../WAExternalFile.class/README.md | 7 +++++++ .../WAExternalFile.class/instance/contentType..st | 4 ++++ .../WAExternalFile.class/instance/contentType.st | 3 +++ .../WAExternalFile.class/instance/fileName..st | 3 +++ .../WAExternalFile.class/instance/fileName.st | 3 +++ .../WAExternalFile.class/instance/filePath..st | 3 +++ .../instance/fullyQualifiedFilePath.st | 3 +++ .../WAExternalFile.class/instance/rawContents.st | 3 +++ .../WAExternalFile.class/properties.json | 15 +++++++++++++++ 9 files changed, 44 insertions(+) create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/README.md create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/properties.json diff --git a/repository/Seaside-Core.package/WAExternalFile.class/README.md b/repository/Seaside-Core.package/WAExternalFile.class/README.md new file mode 100644 index 000000000..2e1aca22e --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/README.md @@ -0,0 +1,7 @@ +I represent a file on a file system. + +I know the name, the location and the MIME type of the file. I am mainly used for representing temporary files from streamed multipart uploads. + +You will probably want to move me from my initial directory (which is probably a temporary directory) to my final destination. E.g. + +externalFile fullyQualifiedFilePath asFileReference moveTo: FileLocator imageDirectory / 'final-destination' \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st b/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st new file mode 100644 index 000000000..e9b0e472e --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st @@ -0,0 +1,4 @@ +accessing +contentType: aMimeTypeOrString + contentType := aMimeTypeOrString isNil + ifFalse: [ aMimeTypeOrString seasideMimeType ] \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st new file mode 100644 index 000000000..c86ded990 --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st @@ -0,0 +1,3 @@ +accessing +contentType + ^ contentType \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st new file mode 100644 index 000000000..aaf5f0310 --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st @@ -0,0 +1,3 @@ +accessing +fileName: aString + fileName := aString \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st new file mode 100644 index 000000000..4ea9adb2d --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st @@ -0,0 +1,3 @@ +accessing +fileName + ^ fileName \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st b/repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st new file mode 100644 index 000000000..e0f816f17 --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/filePath..st @@ -0,0 +1,3 @@ +accessing +filePath: aString + filePath := aString \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st new file mode 100644 index 000000000..f860d816a --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/fullyQualifiedFilePath.st @@ -0,0 +1,3 @@ +accessing +fullyQualifiedFilePath + ^ filePath \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st new file mode 100644 index 000000000..363112b4a --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/rawContents.st @@ -0,0 +1,3 @@ +accessing +rawContents + ^ GRPlatform current contentsOfFile: filePath binary: true \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/properties.json b/repository/Seaside-Core.package/WAExternalFile.class/properties.json new file mode 100644 index 000000000..020ab99aa --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "mml 07/23/2019 09:57", + "super" : "WAObject", + "category" : "Seaside-Core-HTTP", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "contentType", + "fileName", + "filePath" + ], + "name" : "WAExternalFile", + "type" : "normal" +} \ No newline at end of file From 4337401686d3b63a8cb00fe0660a1649f5ae4c63 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Tue, 23 Jul 2019 10:09:14 +0200 Subject: [PATCH 02/41] Added option extention to ZnServer for configuring streamed uploads --- .../ZnServer.extension/instance/streamUploads..st | 5 +++++ .../ZnServer.extension/instance/streamUploads.st | 5 +++++ .../Zinc-Seaside.package/ZnServer.extension/properties.json | 3 +++ 3 files changed, 13 insertions(+) create mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st create mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st create mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st new file mode 100644 index 000000000..9a0f58d29 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st @@ -0,0 +1,5 @@ +*Zinc-Seaside +streamUploads: aBoolean + ^ self + optionAt: #streamUploads + put: aBoolean \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st new file mode 100644 index 000000000..3c2e08410 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st @@ -0,0 +1,5 @@ +*Zinc-Seaside +streamUploads + ^ self + optionAt: #streamUploads + ifAbsent: [ false ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/properties.json b/repository/Zinc-Seaside.package/ZnServer.extension/properties.json new file mode 100644 index 000000000..1f51b1ea9 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnServer.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnServer" +} \ No newline at end of file From b393421a8f90b587ba29c9f513a432fbc5871bbf Mon Sep 17 00:00:00 2001 From: Max Leske Date: Tue, 23 Jul 2019 10:10:36 +0200 Subject: [PATCH 03/41] Modified ZnZincServerAdaptor>>configureServerForBinaryReading. Will now use upload streaming if configured via ZnServer>>streamUploads: --- .../instance/configureServerForBinaryReading.st | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st index 6ed360f87..e3324d9cc 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st @@ -2,4 +2,8 @@ initialize-release configureServerForBinaryReading "Seaside wants to do its own text conversions" - server reader: [ :stream | ZnRequest readBinaryFrom: stream ] \ No newline at end of file + server reader: (server streamUploads + ifTrue: [ + [ :stream | ZnRequest readBinaryFrom: stream ] ] + ifFalse: [ + [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file From b793b49ef1e43cc88c23846463e7f0cd9be57c51 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Tue, 23 Jul 2019 10:11:20 +0200 Subject: [PATCH 04/41] Refactored ZnZincServerAdaptor to work with streamed uploads --- .../instance/convertMultipart..st | 21 ++++++++++--------- .../instance/convertMultipartEntity.with..st | 13 ++++++++++++ .../instance/convertMultipartFileField..st | 2 +- .../convertMultipartStreamingEntity.with..st | 9 ++++++++ .../instance/requestFieldsFor..st | 9 ++++++-- 5 files changed, 41 insertions(+), 13 deletions(-) create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st index ead3d8f37..9d7ee260a 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st @@ -2,13 +2,14 @@ private convertMultipart: entity | dictionary | dictionary := ZnMultiValueDictionary new. - entity partsDo: [ :each | - | value | - value := each fileName isEmptyOrNil - ifTrue: [ - each hasEntity - ifTrue: [ self codec url decode: each fieldValueString ] - ifFalse: [ String new ] ] - ifFalse: [ self convertMultipartFileField: each ] . - dictionary at: each fieldName add: value ]. - ^ dictionary \ No newline at end of file + entity class = ZnStreamingEntity + ifTrue: [ + self + convertMultipartStreamingEntity: entity + with: dictionary ] + ifFalse: [ + self + convertMultipartEntity: entity + with: dictionary ]. + ^ dictionary + \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st new file mode 100644 index 000000000..d821f2e8e --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st @@ -0,0 +1,13 @@ +private +convertMultipartEntity: anEntity with: aMultiValueDictionary + anEntity partsDo: [ :part | + | value | + value := part hasEntity + ifFalse: [ String new ] + ifTrue: [ + part contentType isBinary + ifFalse: [ self codec url decode: part fieldValueString ] + ifTrue: [ self convertMultipartFileField: part ] ]. + aMultiValueDictionary + at: part fieldName + add: value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st index 971b03046..2add0fb20 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st @@ -4,5 +4,5 @@ convertMultipartFileField: part (file := WAFile new) fileName: part fileName; contentType: part contentType printString; - contents: (part hasEntity ifTrue: [ part contents asByteArray ] ifFalse: [ #[] ]). + contents: part contents asByteArray. ^ file \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st new file mode 100644 index 000000000..812e3db5d --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -0,0 +1,9 @@ +private +convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary + ZnStreamingMultiPartFormDataEntity new + readBinaryFrom: anEntity stream; + contentType: anEntity contentType; + partsAndValuesWithCodec: self codec url do: [ :mimePart :value | + aMultiValueDictionary + at: mimePart fieldName + add: value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st index 1c80661d1..e0ac1a3f1 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st @@ -3,10 +3,15 @@ requestFieldsFor: aZincRequest | fields | fields := WARequestFields new. (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) - ifTrue: [ + ifTrue: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) ifTrue: [ - fields addAll: aZincRequest entity fields ]. + fields addAll: (aZincRequest entity class = ZnStreamingEntity + ifTrue: [ + ZnApplicationFormUrlEncodedEntity new + readFrom: aZincRequest entity stream; + fields ] + ifFalse: [ aZincRequest entity fields ]) ]. (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) ifTrue: [ fields addAll: (self convertMultipart: aZincRequest entity) ] ]. From b5c74b360844c2725252126ee10c31953efa6242 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Tue, 23 Jul 2019 13:19:37 +0200 Subject: [PATCH 05/41] Improved separation between Seaside and Zinc --- .../instance/convertMultipartEntity.with..st | 8 ++++--- .../convertMultipartStreamingEntity.with..st | 21 +++++++++++++++---- 2 files changed, 22 insertions(+), 7 deletions(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st index d821f2e8e..399a4c52f 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st @@ -5,9 +5,11 @@ convertMultipartEntity: anEntity with: aMultiValueDictionary value := part hasEntity ifFalse: [ String new ] ifTrue: [ - part contentType isBinary - ifFalse: [ self codec url decode: part fieldValueString ] - ifTrue: [ self convertMultipartFileField: part ] ]. + (part fileName isEmptyOrNil not or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ self codec url decode: part fieldValueString ] + ifTrue: [ self convertMultipartFileField: part ] ]. aMultiValueDictionary at: part fieldName add: value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st index 812e3db5d..cf974b682 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -1,9 +1,22 @@ private convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary - ZnStreamingMultiPartFormDataEntity new + | entity | + entity := ZnStreamingMultiPartFormDataEntity new readBinaryFrom: anEntity stream; contentType: anEntity contentType; - partsAndValuesWithCodec: self codec url do: [ :mimePart :value | + yourself. + entity + partsDecodeWith: [ :znMimePart | aMultiValueDictionary - at: mimePart fieldName - add: value ] \ No newline at end of file + at: znMimePart fieldName + add: (self codec url decode: (znMimePart hasEntity + ifTrue: [ znMimePart fieldValueString ] + ifFalse: [ String new ])) ] + decodeFilesWith: [ :znMimePart :filePath | + aMultiValueDictionary + at: znMimePart fieldName + add: (WAExternalFile new + contentType: znMimePart contentType printString; + fileName: znMimePart fileName; + filePath: filePath; + yourself) ] \ No newline at end of file From 326f96558bd32784ab6be96bfdf9036df71d8160 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 15 Apr 2020 07:21:51 +0200 Subject: [PATCH 06/41] Unified WAFile and WAExternalFile in common hierarchy --- .../WAAbstractFile.class/README.md | 0 .../instance/contentType..st | 0 .../instance/contentType.st | 0 .../instance/fileName..st | 0 .../instance/fileName.st | 0 .../WAAbstractFile.class/instance/rawContents.st | 3 +++ .../WAAbstractFile.class/properties.json | 14 ++++++++++++++ .../WAExternalFile.class/properties.json | 4 +--- .../WAFile.class/instance/contentType..st | 4 ---- .../WAFile.class/instance/contentType.st | 3 --- .../WAFile.class/instance/fileName..st | 3 --- .../WAFile.class/properties.json | 6 ++---- 12 files changed, 20 insertions(+), 17 deletions(-) create mode 100644 repository/Seaside-Core.package/WAAbstractFile.class/README.md rename repository/Seaside-Core.package/{WAExternalFile.class => WAAbstractFile.class}/instance/contentType..st (100%) rename repository/Seaside-Core.package/{WAExternalFile.class => WAAbstractFile.class}/instance/contentType.st (100%) rename repository/Seaside-Core.package/{WAExternalFile.class => WAAbstractFile.class}/instance/fileName..st (100%) rename repository/Seaside-Core.package/{WAExternalFile.class => WAAbstractFile.class}/instance/fileName.st (100%) create mode 100644 repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st create mode 100644 repository/Seaside-Core.package/WAAbstractFile.class/properties.json delete mode 100644 repository/Seaside-Core.package/WAFile.class/instance/contentType..st delete mode 100644 repository/Seaside-Core.package/WAFile.class/instance/contentType.st delete mode 100644 repository/Seaside-Core.package/WAFile.class/instance/fileName..st diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/README.md b/repository/Seaside-Core.package/WAAbstractFile.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/contentType..st similarity index 100% rename from repository/Seaside-Core.package/WAExternalFile.class/instance/contentType..st rename to repository/Seaside-Core.package/WAAbstractFile.class/instance/contentType..st diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/contentType.st similarity index 100% rename from repository/Seaside-Core.package/WAExternalFile.class/instance/contentType.st rename to repository/Seaside-Core.package/WAAbstractFile.class/instance/contentType.st diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName..st similarity index 100% rename from repository/Seaside-Core.package/WAExternalFile.class/instance/fileName..st rename to repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName..st diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName.st similarity index 100% rename from repository/Seaside-Core.package/WAExternalFile.class/instance/fileName.st rename to repository/Seaside-Core.package/WAAbstractFile.class/instance/fileName.st diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st new file mode 100644 index 000000000..9bb1a9f2b --- /dev/null +++ b/repository/Seaside-Core.package/WAAbstractFile.class/instance/rawContents.st @@ -0,0 +1,3 @@ +accessing +rawContents + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/properties.json b/repository/Seaside-Core.package/WAAbstractFile.class/properties.json new file mode 100644 index 000000000..3fa1961ae --- /dev/null +++ b/repository/Seaside-Core.package/WAAbstractFile.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "WAObject", + "category" : "Seaside-Core-HTTP", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "contentType", + "fileName" + ], + "name" : "WAAbstractFile", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/properties.json b/repository/Seaside-Core.package/WAExternalFile.class/properties.json index 020ab99aa..4f2122b00 100644 --- a/repository/Seaside-Core.package/WAExternalFile.class/properties.json +++ b/repository/Seaside-Core.package/WAExternalFile.class/properties.json @@ -1,13 +1,11 @@ { "commentStamp" : "mml 07/23/2019 09:57", - "super" : "WAObject", + "super" : "WAAbstractFile", "category" : "Seaside-Core-HTTP", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], "instvars" : [ - "contentType", - "fileName", "filePath" ], "name" : "WAExternalFile", diff --git a/repository/Seaside-Core.package/WAFile.class/instance/contentType..st b/repository/Seaside-Core.package/WAFile.class/instance/contentType..st deleted file mode 100644 index e9b0e472e..000000000 --- a/repository/Seaside-Core.package/WAFile.class/instance/contentType..st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -contentType: aMimeTypeOrString - contentType := aMimeTypeOrString isNil - ifFalse: [ aMimeTypeOrString seasideMimeType ] \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAFile.class/instance/contentType.st b/repository/Seaside-Core.package/WAFile.class/instance/contentType.st deleted file mode 100644 index c86ded990..000000000 --- a/repository/Seaside-Core.package/WAFile.class/instance/contentType.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -contentType - ^ contentType \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAFile.class/instance/fileName..st b/repository/Seaside-Core.package/WAFile.class/instance/fileName..st deleted file mode 100644 index aaf5f0310..000000000 --- a/repository/Seaside-Core.package/WAFile.class/instance/fileName..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -fileName: aString - fileName := aString \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAFile.class/properties.json b/repository/Seaside-Core.package/WAFile.class/properties.json index e8855df52..31e52db9e 100644 --- a/repository/Seaside-Core.package/WAFile.class/properties.json +++ b/repository/Seaside-Core.package/WAFile.class/properties.json @@ -1,14 +1,12 @@ { "commentStamp" : "pmm 5/31/2008 23:54", - "super" : "WAObject", + "super" : "WAAbstractFile", "category" : "Seaside-Core-HTTP", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], "instvars" : [ - "contents", - "contentType", - "fileName" + "contents" ], "name" : "WAFile", "type" : "normal" From 0db210fb4ed6aff7c530044d1c165404d0736207 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 15 Apr 2020 07:22:55 +0200 Subject: [PATCH 07/41] Adapted WAUploadCallback>>valueForField: to accept all kinds of WAAbstractFile --- .../WAUploadCallback.class/instance/valueForField..st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st b/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st index d74241d77..852b15608 100644 --- a/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st +++ b/repository/Seaside-Core.package/WAUploadCallback.class/instance/valueForField..st @@ -1,3 +1,3 @@ converting valueForField: anObject - ^ (anObject isKindOf: WAFile) ifTrue: [ anObject ] \ No newline at end of file + ^ (anObject isKindOf: WAAbstractFile) ifTrue: [ anObject ] \ No newline at end of file From 405b359f7cf6913a631511fc71690fc90b117ba9 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 15 Apr 2020 10:18:40 +0200 Subject: [PATCH 08/41] When decoding file parts in multipart streams, treat parts with no content and empty filename as unsupplied arguments --- .../convertMultipartStreamingEntity.with..st | 22 +++++++++++++------ 1 file changed, 15 insertions(+), 7 deletions(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st index cf974b682..2393717e8 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -13,10 +13,18 @@ convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary ifTrue: [ znMimePart fieldValueString ] ifFalse: [ String new ])) ] decodeFilesWith: [ :znMimePart :filePath | - aMultiValueDictionary - at: znMimePart fieldName - add: (WAExternalFile new - contentType: znMimePart contentType printString; - fileName: znMimePart fileName; - filePath: filePath; - yourself) ] \ No newline at end of file + "Empty file + empty filename means that the file form + field did not contain a value (no file was selected)." + (znMimePart fileName isEmpty and: [ + filePath asFileReference size isZero ]) + ifTrue: [ filePath asFileReference ensureDelete ] + ifFalse: [ + aMultiValueDictionary + at: znMimePart fieldName + add: (WAExternalFile new + contentType: znMimePart contentType printString; + fileName: (znMimePart fileName ifEmpty: [ + "It is legal for the `filename` value to be empty" + filePath asFileReference basename ]); + filePath: filePath; + yourself) ] ] \ No newline at end of file From b6d964163e8ef8b7a9d7b1f606b249a421add6cb Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 15 Apr 2020 10:19:26 +0200 Subject: [PATCH 09/41] Added #size, #exists, and #fileReference methods to WAExternalFile --- .../WAAbstractFile.class/instance/size.st | 3 +++ .../WAExternalFile.class/instance/exists.st | 3 +++ .../WAExternalFile.class/instance/fileReference.st | 3 +++ .../WAExternalFile.class/instance/size.st | 5 +++++ 4 files changed, 14 insertions(+) create mode 100644 repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st create mode 100644 repository/Seaside-Core.package/WAExternalFile.class/instance/size.st diff --git a/repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st b/repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st new file mode 100644 index 000000000..3b84c9011 --- /dev/null +++ b/repository/Seaside-Core.package/WAAbstractFile.class/instance/size.st @@ -0,0 +1,3 @@ +accessing +size + ^ self subclassResponsibility \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st new file mode 100644 index 000000000..3ec47fd9f --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st @@ -0,0 +1,3 @@ +testing +exists + ^ self fileReference exists \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st new file mode 100644 index 000000000..73eeb2565 --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st @@ -0,0 +1,3 @@ +accessing +fileReference + ^ self fullyQualifiedFilePath asFileReference \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st new file mode 100644 index 000000000..e0167a8fc --- /dev/null +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st @@ -0,0 +1,5 @@ +accessing +size + ^ self exists + ifTrue: [ self fileReference size ] + ifFalse: [ 0 ] \ No newline at end of file From 9ac2e0f8926c8a67561318c72fe0ccdef2d3e03c Mon Sep 17 00:00:00 2001 From: Max Leske Date: Mon, 20 Apr 2020 14:57:41 +0200 Subject: [PATCH 10/41] When the Content-Type header isn't set correctly ZnZincServerAdaptor>>requestBodyFor: can't assume that the entity is a byte entity. The method should contents #contents instead. --- .../ZnZincServerAdaptor.class/instance/requestBodyFor..st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st index 08766573e..c1d08a051 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st @@ -7,6 +7,6 @@ requestBodyFor: aZincRequest and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) ifTrue: [ "Seaside wants to do its own text conversions" - aZincRequest entity bytes asString ] + aZincRequest entity contents asString ] ifFalse: [ String new ] \ No newline at end of file From 708869eae3e76a032bbc40b7b43e28665325fca9 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 20 May 2020 10:07:39 +0200 Subject: [PATCH 11/41] Moved ZnRingBuffer and ZnStreamingMultiPartFormDataEntity to Zinc-Seaside so we don't have to rely on them being in a specific Zinc version --- .../ZnRingBuffer.class/README.md | 15 ++++ .../ZnRingBuffer.class/class/new..st | 6 ++ .../ZnRingBuffer.class/class/new.st | 3 + .../ZnRingBuffer.class/class/on..st | 6 ++ .../ZnRingBuffer.class/instance/^equals.st | 8 +++ .../ZnRingBuffer.class/instance/at..st | 5 ++ .../ZnRingBuffer.class/instance/at.put..st | 7 ++ .../instance/checkBoundsFor..st | 6 ++ .../instance/copyFrom.to..st | 19 ++++++ .../ZnRingBuffer.class/instance/do..st | 6 ++ .../ZnRingBuffer.class/instance/hash.st | 9 +++ .../instance/indexOf.ifAbsent..st | 10 +++ .../instance/initialize..st | 3 + .../ZnRingBuffer.class/instance/initialize.st | 5 ++ .../instance/initializeWithCollection..st | 4 ++ .../instance/moveStartTo..st | 5 ++ .../ZnRingBuffer.class/instance/printOn..st | 9 +++ .../replaceFrom.to.with.startingAt..st | 19 ++++++ .../ZnRingBuffer.class/instance/size.st | 3 + .../ZnRingBuffer.class/properties.json | 14 ++++ .../ZnRingBufferError.class/README.md | 1 + .../ZnRingBufferError.class/properties.json | 11 +++ .../ZnRingBufferIllegalAccess.class/README.md | 1 + .../properties.json | 11 +++ .../ZnRingBufferIllegalUse.class/README.md | 1 + .../properties.json | 11 +++ .../README.md | 3 + ...eMultiPartFieldWithMimePart.decodeWith..st | 10 +++ ...FieldWithoutLengthWithBoundary.writeOn..st | 68 +++++++++++++++++++ ...LengthWithMimePart.boundary.decodeWith..st | 11 +++ ...eFieldWithMimePart.boundary.decodeWith..st | 15 ++++ .../partsDecodeWith.decodeFilesWith..st | 45 ++++++++++++ .../instance/readBinaryFrom..st | 3 + .../properties.json | 13 ++++ 34 files changed, 366 insertions(+) create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st create mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st create mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md b/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md new file mode 100644 index 000000000..2176f81da --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md @@ -0,0 +1,15 @@ +I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring. + +I buffer a fixed amount of data and provide array like access to it. + +Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the +buffer to the specified position. Example: + +buffer + at: 1 put: 1; + at: 2 put: 2; + at: 1. "----> 1" + +buffer + moveStartTo: 2; + at: 1 "----> 2" \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st new file mode 100644 index 000000000..a1f8df872 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st @@ -0,0 +1,6 @@ +instance creation +new: aInteger + ^ self basicNew + initialize: aInteger; + initialize; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st new file mode 100644 index 000000000..814a6c764 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st @@ -0,0 +1,3 @@ +instance creation +new + ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st new file mode 100644 index 000000000..2f5135d96 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st @@ -0,0 +1,6 @@ +instance creation +on: aCollection + ^ self basicNew + initializeWithCollection: aCollection; + initialize; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st new file mode 100644 index 000000000..1658f6272 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st @@ -0,0 +1,8 @@ +comparing += aCollection + 1 + to: self size + do: [ :index | + (self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ]. + + ^ true \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st new file mode 100644 index 000000000..6af00d582 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st @@ -0,0 +1,5 @@ +accessing +at: anInteger + self checkBoundsFor: anInteger. + + ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st new file mode 100644 index 000000000..378a1101d --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st @@ -0,0 +1,7 @@ +accessing +at: anInteger put: anObject + self checkBoundsFor: anInteger. + + buffer + atWrap: anInteger + offset + put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st new file mode 100644 index 000000000..e4284b38e --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st @@ -0,0 +1,6 @@ +private +checkBoundsFor: anInteger + (anInteger < 1 or: [ + anInteger > self size ]) ifFalse: [ ^ self ]. + + ZnRingBufferIllegalAccess signal \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st new file mode 100644 index 000000000..52672c5d1 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st @@ -0,0 +1,19 @@ +accessing +copyFrom: start to: stop + | copy endIndex copySize | + copySize := stop - start + 1. + copy := buffer species new: copySize. + endIndex := copySize min: self size - start - offset + 1. + copy + replaceFrom: 1 + to: endIndex + with: buffer + startingAt: start + offset. + + stop + offset > self size ifFalse: [ ^ copy ]. + + ^ copy + replaceFrom: endIndex + 1 + to: copySize + with: buffer + startingAt: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st new file mode 100644 index 000000000..741f9a2d8 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st @@ -0,0 +1,6 @@ +enumerating +do: aBlock + 1 + to: self size + do: [ :index | + aBlock value: (self at: index) ] diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st new file mode 100644 index 000000000..5fd18ae66 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st @@ -0,0 +1,9 @@ +comparing +hash + "Copy of SequenceableCollection>>hash" + | hash | + hash := self species hash. + 1 + to: self size + do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ]. + ^ hash \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st new file mode 100644 index 000000000..cbd962990 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st @@ -0,0 +1,10 @@ +accessing +indexOf: anElement ifAbsent: exceptionBlock + | index | + index := buffer + indexOf: anElement + ifAbsent: [ ^ exceptionBlock value ]. + + ^ index > offset + ifTrue: [ index - offset ] + ifFalse: [ self size - offset + index ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st new file mode 100644 index 000000000..95df117dc --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st @@ -0,0 +1,3 @@ +initialization +initialize: anInteger + self initializeWithCollection: (Array new: anInteger) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st new file mode 100644 index 000000000..b26430a1d --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st @@ -0,0 +1,5 @@ +initialization +initialize + super initialize. + + offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st new file mode 100644 index 000000000..71b33bc7b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st @@ -0,0 +1,4 @@ +initialization +initializeWithCollection: aCollection + buffer := aCollection. + offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st new file mode 100644 index 000000000..f3b240141 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st @@ -0,0 +1,5 @@ +operations +moveStartTo: anInteger + self checkBoundsFor: anInteger. + + offset := (offset + anInteger - 1) \\ self size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st new file mode 100644 index 000000000..a926e4e41 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st @@ -0,0 +1,9 @@ +printing +printOn: aStream + super printOn: aStream. + + aStream nextPut: $(. + (self + copyFrom: 1 + to: self size) printOn: aStream. + aStream nextPut: $) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st new file mode 100644 index 000000000..b9d8a0ce8 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st @@ -0,0 +1,19 @@ +accessing +replaceFrom: start to: stop with: replacement startingAt: repStart + | startIndex endIndex | + startIndex := start + offset. + endIndex := stop + offset min: self size. + startIndex > self size ifFalse: [ + buffer + replaceFrom: startIndex + to: endIndex + with: replacement + startingAt: repStart ]. + + stop + offset > self size ifFalse: [ ^ self ]. + + buffer + replaceFrom: 1 + to: (stop + offset) \\ self size + with: replacement + startingAt: repStart + endIndex - startIndex + 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st new file mode 100644 index 000000000..6a48eba3f --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st @@ -0,0 +1,3 @@ +accessing +size + ^ buffer size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json new file mode 100644 index 000000000..4ff3fc3d7 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "mml 07/26/2019 15:33", + "super" : "Object", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "buffer", + "offset" + ], + "name" : "ZnRingBuffer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md new file mode 100644 index 000000000..19e71b79b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md @@ -0,0 +1 @@ +I am the abstract super class of all ring buffer errors. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json new file mode 100644 index 000000000..8b4decedb --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:24", + "super" : "Error", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferError", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md new file mode 100644 index 000000000..b5fcfece6 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md @@ -0,0 +1 @@ +I represent any error that is due to the use out of bounds indices when accessing the ring buffer. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json new file mode 100644 index 000000000..5b53ce5c7 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:25", + "super" : "ZnRingBufferError", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalAccess", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md new file mode 100644 index 000000000..01b63674c --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md @@ -0,0 +1 @@ +I represent illegal use of ring buffer methods. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json new file mode 100644 index 000000000..4e014a09b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:26", + "super" : "ZnRingBufferError", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalUse", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md new file mode 100644 index 000000000..b8cdf930b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md @@ -0,0 +1,3 @@ +I implement chunked reading of multipart/form-data requests. I use a ZnRingBuffer to reduce the number of operations and the amount of memory consumed during this. + +I handle file parts by writing them to temporary files on disk in chunks, thus preventing the image from exhausting memory resources. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st new file mode 100644 index 000000000..6faf4fd2c --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st @@ -0,0 +1,10 @@ +private +parseMultiPartFieldWithMimePart: aMimePart decodeWith: aBlock + | reader | + reader := (aMimePart entityReaderOn: stream) + binary; + streaming; + yourself. + aMimePart entity: reader readEntity. + + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st new file mode 100644 index 000000000..dcaa8f02f --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st @@ -0,0 +1,68 @@ +private +parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer + | bufferSize rawBuffer buffer boundaryMarker | + "Can't simply use a larger buffer as we don't want to read past a boundary, + those bytes will belong to the next part" + bufferSize := aBoundary size. + rawBuffer := ByteArray new: bufferSize. + buffer := ZnRingBuffer on: rawBuffer. + boundaryMarker := aBoundary first. + + stream atEnd ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer ]. + + [ (buffer + indexOf: boundaryMarker + ifAbsent: [ nil ]) + ifNotNil: [ :boundaryCandidateIndex | + (boundaryCandidateIndex = 1 and: [ + buffer = aBoundary ]) + ifTrue: [ + "Found a boundary. We're done" + true ] + ifFalse: [ + | candidateIndex | + candidateIndex := boundaryCandidateIndex = 1 + ifTrue: [ 2 ] + ifFalse: [ boundaryCandidateIndex ]. + "Write all the bytes that we know are not part of a boundary" + 1 + to: candidateIndex - 1 + do: [ :index | writer nextPut: (buffer at: index) ]. + "Move the rest of the buffer to the beginning of the buffer" + buffer moveStartTo: candidateIndex. + + "Fill the rest of the buffer" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + rawBuffer := buffer + copyFrom: 1 + to: bufferSize. + stream + next: candidateIndex - 1 + into: rawBuffer + startingAt: bufferSize - candidateIndex + 2. + buffer initializeWithCollection: rawBuffer. + "If the candidate was really the first token of the boundary + then we now have loaded the full boundary into the buffer. + If not we have to check for the next boundary candidate as + we might have loaded the next boundary partially." + buffer = aBoundary ] ] + ifNil: [ + writer nextPutAll: buffer. + stream atEnd + ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer. + buffer moveStartTo: 1. + false ] + ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..87a4a20c0 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st @@ -0,0 +1,11 @@ +private +parseMultiPartFieldWithoutLengthWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary fieldValue | + fullBoundary := String crlf asByteArray, aBoundary. + fieldValue := ByteArray streamContents: [ :valueStream | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: valueStream ]. + + aMimePart entity: (ZnEntity text: fieldValue asString). + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..50e8f8577 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -0,0 +1,15 @@ +private +parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary file | + fullBoundary := String crlf asByteArray, aBoundary. + file := GRPlatform current newTemporaryFileReference. + GRPlatform current + binaryWriteStreamFor: file + do: [ :writer | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: writer ]. + + aBlock + value: aMimePart + value: file pathString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st new file mode 100644 index 000000000..04d6d35f2 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st @@ -0,0 +1,45 @@ +private +partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock + | fullBoundary endBoundary | + fullBoundary := '--' asByteArray, self getBoundary. + endBoundary := fullBoundary asString, '--'. + "Sometimes there is whitespace in front of the first boundary" + (stream match: fullBoundary) ifFalse: [ self error ]. + "Skip CRLF" + stream skip: 2. + + [ stream atEnd ] whileFalse: [ + | part | + part := ZnMimePart new + headers: (ZnHeaders readFrom: stream); + yourself. + "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) + and it is the last part then parsing headers will consumed the rest of the end boundary and the + stream will be at the end. In this case, the part will not have any headers" + (part hasHeaders not or: [ + "The final boundary may be read as a header when + the last part was not a file part" + part headers includesKey: endBoundary ]) ifFalse: [ + (part fileName notNil or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ + ((part contentDispositionValues includes: 'form-data') and: [ + part contentLength isNil ]) + ifTrue: [ + self + parseMultiPartFieldWithoutLengthWithMimePart: part + boundary: fullBoundary + decodeWith: aDecoderBlock ] + ifFalse: [ + self + parseMultiPartFieldWithMimePart: part + decodeWith: aDecoderBlock ] ] + ifTrue: [ + self + parseMultiPartFileFieldWithMimePart: part + boundary: fullBoundary + decodeWith: aFileDecoderBlock ] ]. + "Skip crlf" + stream atEnd ifFalse: [ + stream skip: 2 ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st new file mode 100644 index 000000000..ac80248b8 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st @@ -0,0 +1,3 @@ +initialize-release +readBinaryFrom: aStream + stream := aStream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json new file mode 100644 index 000000000..159f87a65 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "MaxLeske 5/20/2020 10:03", + "super" : "ZnMultiPartFormDataEntity", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "stream" + ], + "name" : "ZnStreamingMultiPartFormDataEntity", + "type" : "normal" +} \ No newline at end of file From 7b1a375bc0360a091c9a2ed4d3a933667032dbd3 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 20 May 2020 13:59:35 +0200 Subject: [PATCH 12/41] Added Zinc overrides to fix default encoding --- .../ZnPercentEncoder.extension/instance/characterEncoder.st | 6 ++++++ .../ZnPercentEncoder.extension/properties.json | 3 +++ .../class/writeQueryFields.on..st | 3 +++ .../ZnResourceMetaUtils.extension/properties.json | 3 +++ .../ZnUrl.extension/instance/encode.on..st | 3 +++ .../ZnUrl.extension/instance/encodePath.on..st | 3 +++ .../ZnUrl.extension/instance/encodeQuery.on..st | 3 +++ .../Zinc-Seaside.package/ZnUrl.extension/properties.json | 3 +++ 8 files changed, 27 insertions(+) create mode 100644 repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st create mode 100644 repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st create mode 100644 repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st create mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st create mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st create mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st new file mode 100644 index 000000000..694b798c0 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st @@ -0,0 +1,6 @@ +*Zinc-Seaside +characterEncoder + "Return the character encoder that I currently use. + If not set, I will default to using UTF-8." + + ^ characterEncoder ifNil: [ characterEncoder := ZnCharacterEncoder default ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json new file mode 100644 index 000000000..795786b0c --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnPercentEncoder" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st new file mode 100644 index 000000000..b4d945344 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside +writeQueryFields: dictionary on: stream + self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json new file mode 100644 index 000000000..76a887c04 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnResourceMetaUtils" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st new file mode 100644 index 000000000..50c0a8771 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside +encode: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st new file mode 100644 index 000000000..c5c7cfdbc --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside +encodePath: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st new file mode 100644 index 000000000..039f6c533 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside +encodeQuery: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json b/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json new file mode 100644 index 000000000..ed0059c92 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnUrl" +} \ No newline at end of file From 08c1b7ef5d7cffbb70b7d46f5f0dc8ef5ecb10a2 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Thu, 21 May 2020 14:32:26 +0200 Subject: [PATCH 13/41] Renamed Zinc-Seaside to Seaside-Zinc and split the request streaming stuff into Seaside-Zinc-Pharo(-Tests) --- .../instance/baselineadaptors..st | 5 ++- .../.filetree | 0 .../instance/newTemporaryFileReference.st | 8 ++++ .../GRPharoPlatform.extension/properties.json | 3 ++ .../instance/characterEncoder.st | 2 +- .../properties.json | 0 .../class/writeQueryFields.on..st | 2 +- .../properties.json | 0 .../ZnRingBuffer.class/README.md | 0 .../ZnRingBuffer.class/class/new..st | 0 .../ZnRingBuffer.class/class/new.st | 0 .../ZnRingBuffer.class/class/on..st | 0 .../ZnRingBuffer.class/instance/^equals.st | 0 .../ZnRingBuffer.class/instance/at..st | 0 .../ZnRingBuffer.class/instance/at.put..st | 0 .../instance/checkBoundsFor..st | 0 .../instance/copyFrom.to..st | 0 .../ZnRingBuffer.class/instance/do..st | 0 .../ZnRingBuffer.class/instance/hash.st | 0 .../instance/indexOf.ifAbsent..st | 0 .../instance/initialize..st | 0 .../ZnRingBuffer.class/instance/initialize.st | 0 .../instance/initializeWithCollection..st | 0 .../instance/moveStartTo..st | 0 .../ZnRingBuffer.class/instance/printOn..st | 0 .../replaceFrom.to.with.startingAt..st | 0 .../ZnRingBuffer.class/instance/size.st | 0 .../ZnRingBuffer.class/properties.json | 2 +- .../ZnRingBufferError.class/README.md | 0 .../ZnRingBufferError.class/properties.json | 2 +- .../ZnRingBufferIllegalAccess.class/README.md | 0 .../properties.json | 2 +- .../ZnRingBufferIllegalUse.class/README.md | 0 .../properties.json | 2 +- .../ZnRingBufferTest.class/README.md} | 0 .../ZnRingBufferTest.class/instance/testAt.st | 22 ++++++++++ .../instance/testAtOutOfBounds.st | 13 ++++++ .../instance/testCopyFromTo.st | 29 +++++++++++++ .../ZnRingBufferTest.class/instance/testDo.st | 15 +++++++ .../instance/testEquals.st | 13 ++++++ .../instance/testIllegalInstantiation.st | 5 +++ .../instance/testIndexOf.st | 42 +++++++++++++++++++ .../instance/testIndexOfIfAbsent.st | 42 +++++++++++++++++++ .../instance/testIndexOfIfAbsentWhenAbsent.st | 9 ++++ .../instance/testMoveStartTo.st | 20 +++++++++ .../instance/testMoveStartToIdentity.st | 9 ++++ .../instance/testMoveStartToOutOfBounds.st | 13 ++++++ .../ZnRingBufferTest.class/instance/testOn.st | 11 +++++ .../testReplaceFromToWithStartingAt.st | 20 +++++++++ .../instance/testSize.st | 15 +++++++ .../ZnRingBufferTest.class/properties.json | 11 +++++ .../instance/streamUploads..st | 2 +- .../instance/streamUploads.st | 2 +- .../ZnServer.extension/properties.json | 0 .../README.md | 0 ...eMultiPartFieldWithMimePart.decodeWith..st | 0 ...FieldWithoutLengthWithBoundary.writeOn..st | 0 ...LengthWithMimePart.boundary.decodeWith..st | 0 ...eFieldWithMimePart.boundary.decodeWith..st | 0 .../partsDecodeWith.decodeFilesWith..st | 0 .../instance/readBinaryFrom..st | 0 .../properties.json | 2 +- .../ZnUrl.extension/instance/encode.on..st | 2 +- .../instance/encodePath.on..st | 2 +- .../instance/encodeQuery.on..st | 2 +- .../ZnUrl.extension/properties.json | 0 .../monticello.meta/categories.st | 3 ++ .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 0 repository/Seaside-Zinc.package/.filetree | 5 +++ .../ZnDeferredResponse.class/README.md | 0 .../class/onWrite..st | 0 .../instance/onWrite..st | 0 .../instance/writeOn..st | 0 .../ZnDeferredResponse.class/properties.json | 2 +- .../ZnSeasideRequest.class/README.md | 0 .../class/nativeRequest.stream..st | 0 .../instance/nativeRequest..st | 0 .../instance/nativeRequest.st | 0 .../instance/stream..st | 0 .../ZnSeasideRequest.class/instance/stream.st | 0 .../ZnSeasideRequest.class/properties.json | 2 +- .../README.md | 0 .../class/forServer..st | 0 .../class/installInDefaultServer.st | 0 .../class/installInServer..st | 0 .../class/installInServer.underPrefix..st | 0 .../class/with..st | 0 .../instance/adaptor..st | 0 .../instance/adaptor.st | 0 .../instance/handleRequest..st | 0 .../instance/handleRequest.gemServer..st | 0 .../instance/value..st | 0 .../properties.json | 2 +- .../README.md | 0 .../instance/handleRequest..st | 0 .../instance/initializeStaticDelegate.st | 0 .../instance/serveFilesFrom..st | 0 .../instance/staticDelegate.st | 0 .../instance/wwwRootDirectory..st | 0 .../instance/wwwRootDirectory.st | 0 .../properties.json | 2 +- .../ZnZincServerAdaptor.class/README.md | 0 .../instance/basicStart.st | 0 .../instance/basicStop.st | 0 .../instance/configureDelegate.st | 0 .../configureServerForBinaryReading.st | 0 .../instance/convertMultipart..st | 0 .../instance/convertMultipartEntity.with..st | 0 .../instance/convertMultipartFileField..st | 0 .../convertMultipartStreamingEntity.with..st | 0 .../instance/defaultCodec.st | 0 .../instance/defaultDelegate.st | 0 .../instance/defaultZnServer.st | 0 .../instance/isRunning.st | 0 .../instance/isStarting.st | 0 .../instance/isStopped.st | 0 .../instance/isStopping.st | 0 .../instance/printOn..st | 0 .../instance/requestAddressFor..st | 0 .../instance/requestBodyFor..st | 0 .../instance/requestCookiesFor..st | 0 .../instance/requestFieldsFor..st | 0 .../instance/requestHeadersFor..st | 0 .../instance/requestMethodFor..st | 0 .../instance/requestUrlFor..st | 0 .../instance/requestVersionFor..st | 0 .../instance/responseFrom..st | 0 .../instance/server..st | 0 .../instance/server.st | 0 .../instance/serverClass..st | 0 .../instance/shutDown.st | 0 .../instance/startUp.st | 0 .../instance/statusString.st | 0 .../ZnZincServerAdaptor.class/properties.json | 2 +- .../ZnZincStaticServerAdaptor.class/README.md | 0 .../class/startOn.andServeFilesFrom..st | 0 .../instance/defaultDelegate.st | 0 .../instance/useCustomExpirationHeaders..st | 0 .../instance/useDefaultExpirationHeaders.st | 0 .../properties.json | 2 +- .../README.md | 0 .../instance/process..st | 0 .../instance/requestFor..st | 0 .../instance/responseFor..st | 0 .../instance/responseFrom..st | 0 .../properties.json | 2 +- .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../Seaside-Zinc.package/properties.json | 1 + .../monticello.meta/categories.st | 1 - .../monticello.meta/package | 1 - 154 files changed, 334 insertions(+), 23 deletions(-) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/.filetree (100%) create mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st create mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnPercentEncoder.extension/instance/characterEncoder.st (90%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnPercentEncoder.extension/properties.json (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st (86%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnResourceMetaUtils.extension/properties.json (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/class/new..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/class/new.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/class/on..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/^equals.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/at..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/at.put..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/checkBoundsFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/copyFrom.to..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/do..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/hash.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/indexOf.ifAbsent..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/initialize..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/initialize.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/initializeWithCollection..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/moveStartTo..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/printOn..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/instance/size.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBuffer.class/properties.json (83%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferError.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferError.class/properties.json (82%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferIllegalAccess.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferIllegalAccess.class/properties.json (83%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferIllegalUse.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnRingBufferIllegalUse.class/properties.json (83%) rename repository/{Zinc-Seaside.package/monticello.meta/initializers.st => Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md} (100%) create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnServer.extension/instance/streamUploads..st (78%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnServer.extension/instance/streamUploads.st (78%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnServer.extension/properties.json (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnStreamingMultiPartFormDataEntity.class/properties.json (85%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnUrl.extension/instance/encode.on..st (88%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnUrl.extension/instance/encodePath.on..st (88%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnUrl.extension/instance/encodeQuery.on..st (88%) rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/ZnUrl.extension/properties.json (100%) create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/package rename repository/{Zinc-Seaside.package => Seaside-Zinc-Pharo.package}/properties.json (100%) create mode 100644 repository/Seaside-Zinc.package/.filetree rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnDeferredResponse.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnDeferredResponse.class/class/onWrite..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnDeferredResponse.class/instance/onWrite..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnDeferredResponse.class/instance/writeOn..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnDeferredResponse.class/properties.json (87%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/class/nativeRequest.stream..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/instance/nativeRequest..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/instance/nativeRequest.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/instance/stream..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/instance/stream.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideRequest.class/properties.json (87%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/class/forServer..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/class/with..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/instance/value..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideServerAdaptorDelegate.class/properties.json (88%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnSeasideStaticServerAdaptorDelegate.class/properties.json (90%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/basicStart.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/basicStop.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/configureDelegate.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/convertMultipart..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/defaultCodec.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/defaultDelegate.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/defaultZnServer.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/isRunning.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/isStarting.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/isStopped.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/isStopping.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/printOn..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestAddressFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestBodyFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestCookiesFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestFieldsFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestHeadersFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestMethodFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestUrlFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/requestVersionFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/responseFrom..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/server..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/server.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/serverClass..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/shutDown.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/startUp.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/instance/statusString.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincServerAdaptor.class/properties.json (87%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStaticServerAdaptor.class/properties.json (88%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/README.md (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/instance/process..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/instance/requestFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/instance/responseFor..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st (100%) rename repository/{Zinc-Seaside.package => Seaside-Zinc.package}/ZnZincStreamingServerAdaptor.class/properties.json (87%) create mode 100644 repository/Seaside-Zinc.package/monticello.meta/categories.st create mode 100644 repository/Seaside-Zinc.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-Zinc.package/monticello.meta/package create mode 100644 repository/Seaside-Zinc.package/properties.json delete mode 100644 repository/Zinc-Seaside.package/monticello.meta/categories.st delete mode 100644 repository/Zinc-Seaside.package/monticello.meta/package diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index 0729c74d0..dedcd8339 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -42,10 +42,11 @@ baselineadaptors: spec package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ]; package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ]; package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ]; - package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ]. + package: 'Seaside-Zinc' with: [ spec requires: #('Seaside-Core') ]; + package: 'Seaside-Zinc-Pharo' with: [ spec requires: #('Seaside-Zinc') ]. spec group: 'Kom' with: #('Seaside-Adaptors-Comanche'); - group: 'Zinc' with: #('Zinc-Seaside'); + group: 'Zinc' with: #('Seaside-Zinc' 'Seaside-Zinc-Pharo'); group: 'default' with: #('Zinc'); group: 'CI' with: #('Zinc') ]. diff --git a/repository/Zinc-Seaside.package/.filetree b/repository/Seaside-Zinc-Pharo.package/.filetree similarity index 100% rename from repository/Zinc-Seaside.package/.filetree rename to repository/Seaside-Zinc-Pharo.package/.filetree diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st new file mode 100644 index 000000000..171beaa26 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +*Seaside-Zinc-Pharo +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json new file mode 100644 index 000000000..43eb591f2 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPharoPlatform" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st similarity index 90% rename from repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st rename to repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st index 694b798c0..0cb71499b 100644 --- a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st +++ b/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st @@ -1,4 +1,4 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo characterEncoder "Return the character encoder that I currently use. If not set, I will default to using UTF-8." diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st similarity index 86% rename from repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st rename to repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st index b4d945344..774fd3666 100644 --- a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st +++ b/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo writeQueryFields: dictionary on: stream self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json similarity index 83% rename from repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json index 4ff3fc3d7..73bf7feb8 100644 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:33", "super" : "Object", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json similarity index 82% rename from repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json index 8b4decedb..32763b507 100644 --- a/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:24", "super" : "Error", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json similarity index 83% rename from repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json index 5b53ce5c7..84c74d51b 100644 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:25", "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json similarity index 83% rename from repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json index 4e014a09b..6af0c8e3b 100644 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:26", "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/monticello.meta/initializers.st rename to repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st new file mode 100644 index 000000000..43e91ff23 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st @@ -0,0 +1,22 @@ +tests +testAt + | buffer | + buffer := ZnRingBuffer new: 5. + self assert: (buffer at: 1) isNil. + + buffer + at: 1 + put: 1. + self assert: (buffer at: 1) equals: 1. + + buffer + at: 2 + put: 2. + self assert: (buffer at: 2) equals: 2. + + buffer + at: 5 + put: 6. + self assert: (buffer at: 3) isNil. + self assert: (buffer at: 4) isNil. + self assert: (buffer at: 5) equals: 6 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st new file mode 100644 index 000000000..39f545879 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testAtOutOfBounds + | buffer | + buffer := ZnRingBuffer new: 5. + self + should: [ buffer at: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st new file mode 100644 index 000000000..1819972e3 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st @@ -0,0 +1,29 @@ +tests +testCopyFromTo + | buffer copy | + buffer := ZnRingBuffer on: #(1 2 3 4). + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(2 3 4). + + copy := buffer + copyFrom: 1 + to: 4. + + self assert: copy equals: #(1 2 3 4). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(3 4 1). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(4 1 2) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st new file mode 100644 index 000000000..9d69cec17 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st @@ -0,0 +1,15 @@ +tests +testDo + | buffer collector | + buffer := ZnRingBuffer new: 5. + buffer + at: 1 put: 1; + at: 5 put: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(1 nil nil nil 2). + + buffer moveStartTo: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(nil nil nil 2 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st new file mode 100644 index 000000000..ec226c310 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st @@ -0,0 +1,13 @@ +tests +testEquals + | buffer | + buffer := ZnRingBuffer new: 3. + self assert: buffer equals: #(nil nil nil). + + buffer + at: 1 + put: 1. + self assert: buffer equals: #(1 nil nil). + + buffer moveStartTo: 2. + self assert: buffer equals: #(nil nil 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st new file mode 100644 index 000000000..0c55d9b5a --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st @@ -0,0 +1,5 @@ +tests +testIllegalInstantiation + self + should: [ ZnRingBuffer new ] + raise: ZnRingBufferIllegalUse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st new file mode 100644 index 000000000..d1ed25a97 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st @@ -0,0 +1,42 @@ +tests +testIndexOf + | buffer index | + buffer := ZnRingBuffer new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st new file mode 100644 index 000000000..8ae2b7d0f --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st @@ -0,0 +1,42 @@ +tests +testIndexOfIfAbsent + | buffer index | + buffer := ZnRingBuffer new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st new file mode 100644 index 000000000..0a2617dbf --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st @@ -0,0 +1,9 @@ +tests +testIndexOfIfAbsentWhenAbsent + | buffer index | + buffer := ZnRingBuffer new: 5. + + index := buffer + indexOf: 1 + ifAbsent: [ 2 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st new file mode 100644 index 000000000..25aa674ab --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st @@ -0,0 +1,20 @@ +tests +testMoveStartTo + | buffer | + buffer := ZnRingBuffer new: 5. + + buffer + at: 1 put: 1; + at: 5 put: 5. + buffer moveStartTo: 2. + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 4) equals: 5. + self assert: (buffer at: 5) equals: 1. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 1. + self assert: (buffer at: 5) equals: 5. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 5. + self assert: (buffer at: 2) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st new file mode 100644 index 000000000..39c42dce8 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st @@ -0,0 +1,9 @@ +tests +testMoveStartToIdentity + | buffer | + buffer := ZnRingBuffer new: 5. + + buffer + at: 1 put: 1; + moveStartTo: 1. + self assert: (buffer at: 1) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st new file mode 100644 index 000000000..694120996 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testMoveStartToOutOfBounds + | buffer | + buffer := ZnRingBuffer new: 5. + self + should: [ buffer moveStartTo: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st new file mode 100644 index 000000000..5b117cbbd --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st @@ -0,0 +1,11 @@ +tests +testOn + | buffer | + buffer := ZnRingBuffer on: (ByteArray new: 1). + self assert: buffer size equals: 1. + buffer + at: 1 + put: 1. + self + should: [ buffer at: 1 put: $a ] + raise: Error \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st new file mode 100644 index 000000000..d3338be90 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st @@ -0,0 +1,20 @@ +tests +testReplaceFromToWithStartingAt + | buffer replacement | + replacement := #(1 2 3 4). + 1 + to: 5 + do: [ :index | + buffer := ZnRingBuffer new: 5. + buffer moveStartTo: index. + buffer + replaceFrom: 2 + to: 4 + with: replacement + startingAt: 2. + + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 2) equals: 2. + self assert: (buffer at: 3) equals: 3. + self assert: (buffer at: 4) equals: 4. + self assert: (buffer at: 5) isNil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st new file mode 100644 index 000000000..b04045b55 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st @@ -0,0 +1,15 @@ +tests +testSize + | buffer | + buffer := ZnRingBuffer new: 2. + self assert: buffer size equals: 2. + + buffer + at: 1 put: 1; + at: 1 put: 1. + self assert: buffer size equals: 2. + + buffer + moveStartTo: 2; + at: 1 put: 3. + self assert: buffer size equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json new file mode 100644 index 000000000..9c16ab4cb --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Seaside-Zinc-Pharo-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st similarity index 78% rename from repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st rename to repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st index 9a0f58d29..218cae032 100644 --- a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st +++ b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st @@ -1,4 +1,4 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo streamUploads: aBoolean ^ self optionAt: #streamUploads diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st similarity index 78% rename from repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st rename to repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st index 3c2e08410..0e3aefbed 100644 --- a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st +++ b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st @@ -1,4 +1,4 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo streamUploads ^ self optionAt: #streamUploads diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside.package/ZnServer.extension/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json similarity index 85% rename from repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json index 159f87a65..6e292d03f 100644 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json +++ b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "MaxLeske 5/20/2020 10:03", "super" : "ZnMultiPartFormDataEntity", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st similarity index 88% rename from repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st rename to repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st index 50c0a8771..3df4608f4 100644 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st +++ b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo encode: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st similarity index 88% rename from repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st rename to repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st index c5c7cfdbc..2c9c84157 100644 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st +++ b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo encodePath: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st similarity index 88% rename from repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st rename to repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st index 039f6c533..ffd3dd45b 100644 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st +++ b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside +*Seaside-Zinc-Pharo encodeQuery: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside.package/ZnUrl.extension/properties.json rename to repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st new file mode 100644 index 000000000..11ed3c9c2 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st @@ -0,0 +1,3 @@ +SystemOrganization addCategory: #'Seaside-Zinc-Pharo'! +SystemOrganization addCategory: #'Seaside-Zinc-Pharo-Core'! +SystemOrganization addCategory: #'Seaside-Zinc-Pharo-Tests'! diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/package b/repository/Seaside-Zinc-Pharo.package/monticello.meta/package new file mode 100644 index 000000000..8d77b894c --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-Zinc-Pharo') \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/properties.json b/repository/Seaside-Zinc-Pharo.package/properties.json similarity index 100% rename from repository/Zinc-Seaside.package/properties.json rename to repository/Seaside-Zinc-Pharo.package/properties.json diff --git a/repository/Seaside-Zinc.package/.filetree b/repository/Seaside-Zinc.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Zinc.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md rename to repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st rename to repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st rename to repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st rename to repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json similarity index 87% rename from repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json rename to repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json index e6bc10fe9..b6d2bf76b 100644 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "ZnResponse", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json similarity index 87% rename from repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json rename to repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json index 00d21fce2..f6361184a 100644 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "Object", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json similarity index 88% rename from repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json rename to repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json index a0cafeda9..70d16d49d 100644 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "SvenVanCaekenberghe 9/30/2010 18:13", "super" : "Object", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json similarity index 90% rename from repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json rename to repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json index b3043aa59..bff4cfda4 100644 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "ZnSeasideServerAdaptorDelegate", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json similarity index 87% rename from repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json rename to repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json index 668c5c526..4a21e4799 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "WAServerAdaptor", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json similarity index 88% rename from repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json rename to repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json index 99375dc47..8410adc83 100644 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "PaulDeBruicker 5/11/2012 15:21", "super" : "ZnZincServerAdaptor", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st similarity index 100% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json similarity index 87% rename from repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json rename to repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json index 01ed27ffa..357f7d39c 100644 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json +++ b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "ZnZincServerAdaptor", - "category" : "Zinc-Seaside", + "category" : "Seaside-Zinc", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Seaside-Zinc.package/monticello.meta/categories.st b/repository/Seaside-Zinc.package/monticello.meta/categories.st new file mode 100644 index 000000000..a88ef8b2b --- /dev/null +++ b/repository/Seaside-Zinc.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Seaside-Zinc'! diff --git a/repository/Seaside-Zinc.package/monticello.meta/initializers.st b/repository/Seaside-Zinc.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc.package/monticello.meta/package b/repository/Seaside-Zinc.package/monticello.meta/package new file mode 100644 index 000000000..b6740e49c --- /dev/null +++ b/repository/Seaside-Zinc.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-Zinc') \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/properties.json b/repository/Seaside-Zinc.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Seaside-Zinc.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/monticello.meta/categories.st b/repository/Zinc-Seaside.package/monticello.meta/categories.st deleted file mode 100644 index 012834fab..000000000 --- a/repository/Zinc-Seaside.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Zinc-Seaside'! diff --git a/repository/Zinc-Seaside.package/monticello.meta/package b/repository/Zinc-Seaside.package/monticello.meta/package deleted file mode 100644 index 6caf18376..000000000 --- a/repository/Zinc-Seaside.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Zinc-Seaside') \ No newline at end of file From 2ea7b2ad93d4a81975c35fb14c28316fa7932513 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Thu, 21 May 2020 14:39:29 +0200 Subject: [PATCH 14/41] Renamed Zinc-Seaside to Seaside-Zinc for GemStone too, as there's no point in leaving it the old way when the package doesn't exist anymore --- .../instance/baselineadaptors..st | 18 ++++++------------ 1 file changed, 6 insertions(+), 12 deletions(-) diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index dedcd8339..b3c436e50 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -70,22 +70,16 @@ baselineadaptors: spec repository: 'github://GsDevKit/zinc:gs_master/repository' ]. spec package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ]; - package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; - package: 'Zinc-Seaside' + package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Swazoo' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; + package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ]; + package: 'Seaside-Zinc' with: [ spec requires: #('Zinc Project' 'Seaside-Core'); includes: #('Seaside-GemStone-Adaptors-Zinc') ]; package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]. + package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ]; + package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Seaside-Zinc' 'Seaside-GemStone-GemServer-Core') ]. spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests'); - group: 'Zinc' with: #('Zinc-Seaside') ]. - spec - for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' ) - do: [ - spec - package: 'Seaside-GemStone-GemServer-Tests' with: [ spec includes: #( 'Seaside-GemStone-GemServer-Swazoo-Tests') ]; - package: 'Seaside-GemStone-GemServer-Swazoo-Tests' with: [ spec requires: #('Seaside-GemStone-Adaptors-Swazoo') ]; - package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ]; - package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ] ]. \ No newline at end of file + group: 'Zinc' with: #('Seaside-Zinc') ] From 89e0459d20fe00dfde4129b3c1d098f8ac0bca99 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Thu, 21 May 2020 16:39:02 +0200 Subject: [PATCH 15/41] Reverted renaming of Zinc-Seaside to Seaside-Zinc. We'll do that later. --- .../instance/baselineadaptors..st | 12 ++-- .../Zinc-Seaside-Pharo.package/.filetree | 5 ++ .../instance/newTemporaryFileReference.st | 8 +++ .../GRPharoPlatform.extension/properties.json | 3 + .../instance/characterEncoder.st | 6 ++ .../properties.json | 3 + .../class/writeQueryFields.on..st | 3 + .../properties.json | 3 + .../ZnRingBuffer.class/README.md | 15 ++++ .../ZnRingBuffer.class/class/new..st | 6 ++ .../ZnRingBuffer.class/class/new.st | 3 + .../ZnRingBuffer.class/class/on..st | 6 ++ .../ZnRingBuffer.class/instance/^equals.st | 8 +++ .../ZnRingBuffer.class/instance/at..st | 5 ++ .../ZnRingBuffer.class/instance/at.put..st | 7 ++ .../instance/checkBoundsFor..st | 6 ++ .../instance/copyFrom.to..st | 19 ++++++ .../ZnRingBuffer.class/instance/do..st | 6 ++ .../ZnRingBuffer.class/instance/hash.st | 9 +++ .../instance/indexOf.ifAbsent..st | 10 +++ .../instance/initialize..st | 3 + .../ZnRingBuffer.class/instance/initialize.st | 5 ++ .../instance/initializeWithCollection..st | 4 ++ .../instance/moveStartTo..st | 5 ++ .../ZnRingBuffer.class/instance/printOn..st | 9 +++ .../replaceFrom.to.with.startingAt..st | 19 ++++++ .../ZnRingBuffer.class/instance/size.st | 3 + .../ZnRingBuffer.class/properties.json | 14 ++++ .../ZnRingBufferError.class/README.md | 1 + .../ZnRingBufferError.class/properties.json | 11 +++ .../ZnRingBufferIllegalAccess.class/README.md | 1 + .../properties.json | 11 +++ .../ZnRingBufferIllegalUse.class/README.md | 1 + .../properties.json | 11 +++ .../ZnRingBufferTest.class/README.md | 0 .../ZnRingBufferTest.class/instance/testAt.st | 22 ++++++ .../instance/testAtOutOfBounds.st | 13 ++++ .../instance/testCopyFromTo.st | 29 ++++++++ .../ZnRingBufferTest.class/instance/testDo.st | 15 ++++ .../instance/testEquals.st | 13 ++++ .../instance/testIllegalInstantiation.st | 5 ++ .../instance/testIndexOf.st | 42 ++++++++++++ .../instance/testIndexOfIfAbsent.st | 42 ++++++++++++ .../instance/testIndexOfIfAbsentWhenAbsent.st | 9 +++ .../instance/testMoveStartTo.st | 20 ++++++ .../instance/testMoveStartToIdentity.st | 9 +++ .../instance/testMoveStartToOutOfBounds.st | 13 ++++ .../ZnRingBufferTest.class/instance/testOn.st | 11 +++ .../testReplaceFromToWithStartingAt.st | 20 ++++++ .../instance/testSize.st | 15 ++++ .../ZnRingBufferTest.class/properties.json | 11 +++ .../instance/streamUploads..st | 5 ++ .../instance/streamUploads.st | 5 ++ .../ZnServer.extension/properties.json | 3 + .../README.md | 3 + ...eMultiPartFieldWithMimePart.decodeWith..st | 10 +++ ...FieldWithoutLengthWithBoundary.writeOn..st | 68 +++++++++++++++++++ ...LengthWithMimePart.boundary.decodeWith..st | 11 +++ ...eFieldWithMimePart.boundary.decodeWith..st | 15 ++++ .../partsDecodeWith.decodeFilesWith..st | 45 ++++++++++++ .../instance/readBinaryFrom..st | 3 + .../properties.json | 13 ++++ .../ZnUrl.extension/instance/encode.on..st | 3 + .../instance/encodePath.on..st | 3 + .../instance/encodeQuery.on..st | 3 + .../ZnUrl.extension/properties.json | 3 + .../monticello.meta/categories.st | 3 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 1 + repository/Zinc-Seaside.package/.filetree | 5 ++ .../ZnDeferredResponse.class/README.md | 6 ++ .../class/onWrite..st | 3 + .../instance/onWrite..st | 3 + .../instance/writeOn..st | 3 + .../ZnDeferredResponse.class/properties.json | 13 ++++ .../ZnSeasideRequest.class/README.md | 1 + .../class/nativeRequest.stream..st | 5 ++ .../instance/nativeRequest..st | 3 + .../instance/nativeRequest.st | 3 + .../instance/stream..st | 3 + .../ZnSeasideRequest.class/instance/stream.st | 3 + .../ZnSeasideRequest.class/properties.json | 14 ++++ .../README.md | 6 ++ .../class/forServer..st | 7 ++ .../class/installInDefaultServer.st | 3 + .../class/installInServer..st | 3 + .../class/installInServer.underPrefix..st | 16 +++++ .../class/with..st | 5 ++ .../instance/adaptor..st | 3 + .../instance/adaptor.st | 3 + .../instance/handleRequest..st | 5 ++ .../instance/handleRequest.gemServer..st | 5 ++ .../instance/value..st | 5 ++ .../properties.json | 13 ++++ .../README.md | 5 ++ .../instance/handleRequest..st | 14 ++++ .../instance/initializeStaticDelegate.st | 5 ++ .../instance/serveFilesFrom..st | 3 + .../instance/staticDelegate.st | 3 + .../instance/wwwRootDirectory..st | 5 ++ .../instance/wwwRootDirectory.st | 6 ++ .../properties.json | 14 ++++ .../ZnZincServerAdaptor.class/README.md | 11 +++ .../instance/basicStart.st | 3 + .../instance/basicStop.st | 6 ++ .../instance/configureDelegate.st | 5 ++ .../configureServerForBinaryReading.st | 9 +++ .../instance/convertMultipart..st | 15 ++++ .../instance/convertMultipartEntity.with..st | 15 ++++ .../instance/convertMultipartFileField..st | 8 +++ .../convertMultipartStreamingEntity.with..st | 30 ++++++++ .../instance/defaultCodec.st | 3 + .../instance/defaultDelegate.st | 3 + .../instance/defaultZnServer.st | 3 + .../instance/isRunning.st | 3 + .../instance/isStarting.st | 3 + .../instance/isStopped.st | 3 + .../instance/isStopping.st | 3 + .../instance/printOn..st | 7 ++ .../instance/requestAddressFor..st | 5 ++ .../instance/requestBodyFor..st | 12 ++++ .../instance/requestCookiesFor..st | 6 ++ .../instance/requestFieldsFor..st | 18 +++++ .../instance/requestHeadersFor..st | 7 ++ .../instance/requestMethodFor..st | 3 + .../instance/requestUrlFor..st | 20 ++++++ .../instance/requestVersionFor..st | 3 + .../instance/responseFrom..st | 19 ++++++ .../instance/server..st | 7 ++ .../instance/server.st | 11 +++ .../instance/serverClass..st | 6 ++ .../instance/shutDown.st | 4 ++ .../instance/startUp.st | 4 ++ .../instance/statusString.st | 4 ++ .../ZnZincServerAdaptor.class/properties.json | 13 ++++ .../ZnZincStaticServerAdaptor.class/README.md | 19 ++++++ .../class/startOn.andServeFilesFrom..st | 4 ++ .../instance/defaultDelegate.st | 3 + .../instance/useCustomExpirationHeaders..st | 3 + .../instance/useDefaultExpirationHeaders.st | 3 + .../properties.json | 11 +++ .../README.md | 1 + .../instance/process..st | 9 +++ .../instance/requestFor..st | 3 + .../instance/responseFor..st | 8 +++ .../instance/responseFrom..st | 8 +++ .../properties.json | 11 +++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../Zinc-Seaside.package/properties.json | 1 + 152 files changed, 1274 insertions(+), 6 deletions(-) create mode 100644 repository/Zinc-Seaside-Pharo.package/.filetree create mode 100644 repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st create mode 100644 repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st create mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st create mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/package create mode 100644 repository/Zinc-Seaside-Pharo.package/properties.json create mode 100644 repository/Zinc-Seaside.package/.filetree create mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st create mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st create mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st create mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st create mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st create mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st create mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st create mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json create mode 100644 repository/Zinc-Seaside.package/monticello.meta/categories.st create mode 100644 repository/Zinc-Seaside.package/monticello.meta/initializers.st create mode 100644 repository/Zinc-Seaside.package/monticello.meta/package create mode 100644 repository/Zinc-Seaside.package/properties.json diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index b3c436e50..ae04964c6 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -42,11 +42,11 @@ baselineadaptors: spec package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ]; package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ]; package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ]; - package: 'Seaside-Zinc' with: [ spec requires: #('Seaside-Core') ]; - package: 'Seaside-Zinc-Pharo' with: [ spec requires: #('Seaside-Zinc') ]. + package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ]; + package: 'Zinc-Seaside-Pharo' with: [ spec requires: #('Zinc-Seaside') ]. spec group: 'Kom' with: #('Seaside-Adaptors-Comanche'); - group: 'Zinc' with: #('Seaside-Zinc' 'Seaside-Zinc-Pharo'); + group: 'Zinc' with: #('Zinc-Seaside' 'Zinc-Seaside-Pharo'); group: 'default' with: #('Zinc'); group: 'CI' with: #('Zinc') ]. @@ -72,14 +72,14 @@ baselineadaptors: spec package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ]; package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Swazoo' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ]; - package: 'Seaside-Zinc' + package: 'Zinc-Seaside' with: [ spec requires: #('Zinc Project' 'Seaside-Core'); includes: #('Seaside-GemStone-Adaptors-Zinc') ]; package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ]; package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Seaside-Zinc' 'Seaside-GemStone-GemServer-Core') ]. + package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]. spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests'); - group: 'Zinc' with: #('Seaside-Zinc') ] + group: 'Zinc' with: #('Zinc-Seaside') ] diff --git a/repository/Zinc-Seaside-Pharo.package/.filetree b/repository/Zinc-Seaside-Pharo.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st new file mode 100644 index 000000000..e6aa3d59a --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st @@ -0,0 +1,8 @@ +*Zinc-Seaside-Pharo +newTemporaryFileReference + "Create a new temporary file in the systems temp directory + and answer a reference to it. + It is the users responsibility to delete or move the file, + it will not be cleaned up automatically (unless the host system + has a policy for it)." + ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json new file mode 100644 index 000000000..43eb591f2 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPharoPlatform" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st new file mode 100644 index 000000000..dbee0eaa9 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st @@ -0,0 +1,6 @@ +*Zinc-Seaside-Pharo +characterEncoder + "Return the character encoder that I currently use. + If not set, I will default to using UTF-8." + + ^ characterEncoder ifNil: [ characterEncoder := ZnCharacterEncoder default ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json new file mode 100644 index 000000000..795786b0c --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnPercentEncoder" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st new file mode 100644 index 000000000..a63c6b0a6 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +writeQueryFields: dictionary on: stream + self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json new file mode 100644 index 000000000..76a887c04 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnResourceMetaUtils" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md new file mode 100644 index 000000000..2176f81da --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md @@ -0,0 +1,15 @@ +I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring. + +I buffer a fixed amount of data and provide array like access to it. + +Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the +buffer to the specified position. Example: + +buffer + at: 1 put: 1; + at: 2 put: 2; + at: 1. "----> 1" + +buffer + moveStartTo: 2; + at: 1 "----> 2" \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st new file mode 100644 index 000000000..a1f8df872 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st @@ -0,0 +1,6 @@ +instance creation +new: aInteger + ^ self basicNew + initialize: aInteger; + initialize; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st new file mode 100644 index 000000000..814a6c764 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st @@ -0,0 +1,3 @@ +instance creation +new + ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size' \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st new file mode 100644 index 000000000..2f5135d96 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st @@ -0,0 +1,6 @@ +instance creation +on: aCollection + ^ self basicNew + initializeWithCollection: aCollection; + initialize; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st new file mode 100644 index 000000000..1658f6272 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st @@ -0,0 +1,8 @@ +comparing += aCollection + 1 + to: self size + do: [ :index | + (self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ]. + + ^ true \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st new file mode 100644 index 000000000..6af00d582 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st @@ -0,0 +1,5 @@ +accessing +at: anInteger + self checkBoundsFor: anInteger. + + ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st new file mode 100644 index 000000000..378a1101d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st @@ -0,0 +1,7 @@ +accessing +at: anInteger put: anObject + self checkBoundsFor: anInteger. + + buffer + atWrap: anInteger + offset + put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st new file mode 100644 index 000000000..e4284b38e --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st @@ -0,0 +1,6 @@ +private +checkBoundsFor: anInteger + (anInteger < 1 or: [ + anInteger > self size ]) ifFalse: [ ^ self ]. + + ZnRingBufferIllegalAccess signal \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st new file mode 100644 index 000000000..52672c5d1 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st @@ -0,0 +1,19 @@ +accessing +copyFrom: start to: stop + | copy endIndex copySize | + copySize := stop - start + 1. + copy := buffer species new: copySize. + endIndex := copySize min: self size - start - offset + 1. + copy + replaceFrom: 1 + to: endIndex + with: buffer + startingAt: start + offset. + + stop + offset > self size ifFalse: [ ^ copy ]. + + ^ copy + replaceFrom: endIndex + 1 + to: copySize + with: buffer + startingAt: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st new file mode 100644 index 000000000..741f9a2d8 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st @@ -0,0 +1,6 @@ +enumerating +do: aBlock + 1 + to: self size + do: [ :index | + aBlock value: (self at: index) ] diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st new file mode 100644 index 000000000..5fd18ae66 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st @@ -0,0 +1,9 @@ +comparing +hash + "Copy of SequenceableCollection>>hash" + | hash | + hash := self species hash. + 1 + to: self size + do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ]. + ^ hash \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st new file mode 100644 index 000000000..cbd962990 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st @@ -0,0 +1,10 @@ +accessing +indexOf: anElement ifAbsent: exceptionBlock + | index | + index := buffer + indexOf: anElement + ifAbsent: [ ^ exceptionBlock value ]. + + ^ index > offset + ifTrue: [ index - offset ] + ifFalse: [ self size - offset + index ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st new file mode 100644 index 000000000..95df117dc --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st @@ -0,0 +1,3 @@ +initialization +initialize: anInteger + self initializeWithCollection: (Array new: anInteger) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st new file mode 100644 index 000000000..b26430a1d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st @@ -0,0 +1,5 @@ +initialization +initialize + super initialize. + + offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st new file mode 100644 index 000000000..71b33bc7b --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st @@ -0,0 +1,4 @@ +initialization +initializeWithCollection: aCollection + buffer := aCollection. + offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st new file mode 100644 index 000000000..f3b240141 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st @@ -0,0 +1,5 @@ +operations +moveStartTo: anInteger + self checkBoundsFor: anInteger. + + offset := (offset + anInteger - 1) \\ self size \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st new file mode 100644 index 000000000..a926e4e41 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st @@ -0,0 +1,9 @@ +printing +printOn: aStream + super printOn: aStream. + + aStream nextPut: $(. + (self + copyFrom: 1 + to: self size) printOn: aStream. + aStream nextPut: $) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st new file mode 100644 index 000000000..b9d8a0ce8 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st @@ -0,0 +1,19 @@ +accessing +replaceFrom: start to: stop with: replacement startingAt: repStart + | startIndex endIndex | + startIndex := start + offset. + endIndex := stop + offset min: self size. + startIndex > self size ifFalse: [ + buffer + replaceFrom: startIndex + to: endIndex + with: replacement + startingAt: repStart ]. + + stop + offset > self size ifFalse: [ ^ self ]. + + buffer + replaceFrom: 1 + to: (stop + offset) \\ self size + with: replacement + startingAt: repStart + endIndex - startIndex + 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st new file mode 100644 index 000000000..6a48eba3f --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st @@ -0,0 +1,3 @@ +accessing +size + ^ buffer size \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json new file mode 100644 index 000000000..25c6b162a --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "mml 07/26/2019 15:33", + "super" : "Object", + "category" : "Zinc-Seaside-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "buffer", + "offset" + ], + "name" : "ZnRingBuffer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md new file mode 100644 index 000000000..19e71b79b --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md @@ -0,0 +1 @@ +I am the abstract super class of all ring buffer errors. \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json new file mode 100644 index 000000000..b637c47b5 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:24", + "super" : "Error", + "category" : "Zinc-Seaside-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferError", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md new file mode 100644 index 000000000..b5fcfece6 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md @@ -0,0 +1 @@ +I represent any error that is due to the use out of bounds indices when accessing the ring buffer. \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json new file mode 100644 index 000000000..877375071 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:25", + "super" : "ZnRingBufferError", + "category" : "Zinc-Seaside-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalAccess", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md new file mode 100644 index 000000000..01b63674c --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md @@ -0,0 +1 @@ +I represent illegal use of ring buffer methods. \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json new file mode 100644 index 000000000..cf8060932 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:26", + "super" : "ZnRingBufferError", + "category" : "Zinc-Seaside-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalUse", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st new file mode 100644 index 000000000..43e91ff23 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st @@ -0,0 +1,22 @@ +tests +testAt + | buffer | + buffer := ZnRingBuffer new: 5. + self assert: (buffer at: 1) isNil. + + buffer + at: 1 + put: 1. + self assert: (buffer at: 1) equals: 1. + + buffer + at: 2 + put: 2. + self assert: (buffer at: 2) equals: 2. + + buffer + at: 5 + put: 6. + self assert: (buffer at: 3) isNil. + self assert: (buffer at: 4) isNil. + self assert: (buffer at: 5) equals: 6 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st new file mode 100644 index 000000000..39f545879 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testAtOutOfBounds + | buffer | + buffer := ZnRingBuffer new: 5. + self + should: [ buffer at: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st new file mode 100644 index 000000000..1819972e3 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st @@ -0,0 +1,29 @@ +tests +testCopyFromTo + | buffer copy | + buffer := ZnRingBuffer on: #(1 2 3 4). + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(2 3 4). + + copy := buffer + copyFrom: 1 + to: 4. + + self assert: copy equals: #(1 2 3 4). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(3 4 1). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(4 1 2) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st new file mode 100644 index 000000000..9d69cec17 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st @@ -0,0 +1,15 @@ +tests +testDo + | buffer collector | + buffer := ZnRingBuffer new: 5. + buffer + at: 1 put: 1; + at: 5 put: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(1 nil nil nil 2). + + buffer moveStartTo: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(nil nil nil 2 1) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st new file mode 100644 index 000000000..ec226c310 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st @@ -0,0 +1,13 @@ +tests +testEquals + | buffer | + buffer := ZnRingBuffer new: 3. + self assert: buffer equals: #(nil nil nil). + + buffer + at: 1 + put: 1. + self assert: buffer equals: #(1 nil nil). + + buffer moveStartTo: 2. + self assert: buffer equals: #(nil nil 1) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st new file mode 100644 index 000000000..0c55d9b5a --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st @@ -0,0 +1,5 @@ +tests +testIllegalInstantiation + self + should: [ ZnRingBuffer new ] + raise: ZnRingBufferIllegalUse \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st new file mode 100644 index 000000000..d1ed25a97 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st @@ -0,0 +1,42 @@ +tests +testIndexOf + | buffer index | + buffer := ZnRingBuffer new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st new file mode 100644 index 000000000..8ae2b7d0f --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st @@ -0,0 +1,42 @@ +tests +testIndexOfIfAbsent + | buffer index | + buffer := ZnRingBuffer new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st new file mode 100644 index 000000000..0a2617dbf --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st @@ -0,0 +1,9 @@ +tests +testIndexOfIfAbsentWhenAbsent + | buffer index | + buffer := ZnRingBuffer new: 5. + + index := buffer + indexOf: 1 + ifAbsent: [ 2 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st new file mode 100644 index 000000000..25aa674ab --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st @@ -0,0 +1,20 @@ +tests +testMoveStartTo + | buffer | + buffer := ZnRingBuffer new: 5. + + buffer + at: 1 put: 1; + at: 5 put: 5. + buffer moveStartTo: 2. + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 4) equals: 5. + self assert: (buffer at: 5) equals: 1. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 1. + self assert: (buffer at: 5) equals: 5. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 5. + self assert: (buffer at: 2) equals: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st new file mode 100644 index 000000000..39c42dce8 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st @@ -0,0 +1,9 @@ +tests +testMoveStartToIdentity + | buffer | + buffer := ZnRingBuffer new: 5. + + buffer + at: 1 put: 1; + moveStartTo: 1. + self assert: (buffer at: 1) equals: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st new file mode 100644 index 000000000..694120996 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testMoveStartToOutOfBounds + | buffer | + buffer := ZnRingBuffer new: 5. + self + should: [ buffer moveStartTo: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st new file mode 100644 index 000000000..5b117cbbd --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st @@ -0,0 +1,11 @@ +tests +testOn + | buffer | + buffer := ZnRingBuffer on: (ByteArray new: 1). + self assert: buffer size equals: 1. + buffer + at: 1 + put: 1. + self + should: [ buffer at: 1 put: $a ] + raise: Error \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st new file mode 100644 index 000000000..d3338be90 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st @@ -0,0 +1,20 @@ +tests +testReplaceFromToWithStartingAt + | buffer replacement | + replacement := #(1 2 3 4). + 1 + to: 5 + do: [ :index | + buffer := ZnRingBuffer new: 5. + buffer moveStartTo: index. + buffer + replaceFrom: 2 + to: 4 + with: replacement + startingAt: 2. + + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 2) equals: 2. + self assert: (buffer at: 3) equals: 3. + self assert: (buffer at: 4) equals: 4. + self assert: (buffer at: 5) isNil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st new file mode 100644 index 000000000..b04045b55 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st @@ -0,0 +1,15 @@ +tests +testSize + | buffer | + buffer := ZnRingBuffer new: 2. + self assert: buffer size equals: 2. + + buffer + at: 1 put: 1; + at: 1 put: 1. + self assert: buffer size equals: 2. + + buffer + moveStartTo: 2; + at: 1 put: 3. + self assert: buffer size equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json new file mode 100644 index 000000000..f4e1ad03b --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Zinc-Seaside-Pharo-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st new file mode 100644 index 000000000..79a3ccf8d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st @@ -0,0 +1,5 @@ +*Zinc-Seaside-Pharo +streamUploads: aBoolean + ^ self + optionAt: #streamUploads + put: aBoolean \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st new file mode 100644 index 000000000..eb45a915c --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st @@ -0,0 +1,5 @@ +*Zinc-Seaside-Pharo +streamUploads + ^ self + optionAt: #streamUploads + ifAbsent: [ false ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json new file mode 100644 index 000000000..1f51b1ea9 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnServer" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md new file mode 100644 index 000000000..b8cdf930b --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md @@ -0,0 +1,3 @@ +I implement chunked reading of multipart/form-data requests. I use a ZnRingBuffer to reduce the number of operations and the amount of memory consumed during this. + +I handle file parts by writing them to temporary files on disk in chunks, thus preventing the image from exhausting memory resources. \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st new file mode 100644 index 000000000..6faf4fd2c --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st @@ -0,0 +1,10 @@ +private +parseMultiPartFieldWithMimePart: aMimePart decodeWith: aBlock + | reader | + reader := (aMimePart entityReaderOn: stream) + binary; + streaming; + yourself. + aMimePart entity: reader readEntity. + + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st new file mode 100644 index 000000000..dcaa8f02f --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st @@ -0,0 +1,68 @@ +private +parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer + | bufferSize rawBuffer buffer boundaryMarker | + "Can't simply use a larger buffer as we don't want to read past a boundary, + those bytes will belong to the next part" + bufferSize := aBoundary size. + rawBuffer := ByteArray new: bufferSize. + buffer := ZnRingBuffer on: rawBuffer. + boundaryMarker := aBoundary first. + + stream atEnd ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer ]. + + [ (buffer + indexOf: boundaryMarker + ifAbsent: [ nil ]) + ifNotNil: [ :boundaryCandidateIndex | + (boundaryCandidateIndex = 1 and: [ + buffer = aBoundary ]) + ifTrue: [ + "Found a boundary. We're done" + true ] + ifFalse: [ + | candidateIndex | + candidateIndex := boundaryCandidateIndex = 1 + ifTrue: [ 2 ] + ifFalse: [ boundaryCandidateIndex ]. + "Write all the bytes that we know are not part of a boundary" + 1 + to: candidateIndex - 1 + do: [ :index | writer nextPut: (buffer at: index) ]. + "Move the rest of the buffer to the beginning of the buffer" + buffer moveStartTo: candidateIndex. + + "Fill the rest of the buffer" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + rawBuffer := buffer + copyFrom: 1 + to: bufferSize. + stream + next: candidateIndex - 1 + into: rawBuffer + startingAt: bufferSize - candidateIndex + 2. + buffer initializeWithCollection: rawBuffer. + "If the candidate was really the first token of the boundary + then we now have loaded the full boundary into the buffer. + If not we have to check for the next boundary candidate as + we might have loaded the next boundary partially." + buffer = aBoundary ] ] + ifNil: [ + writer nextPutAll: buffer. + stream atEnd + ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer. + buffer moveStartTo: 1. + false ] + ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..87a4a20c0 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st @@ -0,0 +1,11 @@ +private +parseMultiPartFieldWithoutLengthWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary fieldValue | + fullBoundary := String crlf asByteArray, aBoundary. + fieldValue := ByteArray streamContents: [ :valueStream | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: valueStream ]. + + aMimePart entity: (ZnEntity text: fieldValue asString). + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..50e8f8577 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -0,0 +1,15 @@ +private +parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary file | + fullBoundary := String crlf asByteArray, aBoundary. + file := GRPlatform current newTemporaryFileReference. + GRPlatform current + binaryWriteStreamFor: file + do: [ :writer | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: writer ]. + + aBlock + value: aMimePart + value: file pathString \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st new file mode 100644 index 000000000..04d6d35f2 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st @@ -0,0 +1,45 @@ +private +partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock + | fullBoundary endBoundary | + fullBoundary := '--' asByteArray, self getBoundary. + endBoundary := fullBoundary asString, '--'. + "Sometimes there is whitespace in front of the first boundary" + (stream match: fullBoundary) ifFalse: [ self error ]. + "Skip CRLF" + stream skip: 2. + + [ stream atEnd ] whileFalse: [ + | part | + part := ZnMimePart new + headers: (ZnHeaders readFrom: stream); + yourself. + "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) + and it is the last part then parsing headers will consumed the rest of the end boundary and the + stream will be at the end. In this case, the part will not have any headers" + (part hasHeaders not or: [ + "The final boundary may be read as a header when + the last part was not a file part" + part headers includesKey: endBoundary ]) ifFalse: [ + (part fileName notNil or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ + ((part contentDispositionValues includes: 'form-data') and: [ + part contentLength isNil ]) + ifTrue: [ + self + parseMultiPartFieldWithoutLengthWithMimePart: part + boundary: fullBoundary + decodeWith: aDecoderBlock ] + ifFalse: [ + self + parseMultiPartFieldWithMimePart: part + decodeWith: aDecoderBlock ] ] + ifTrue: [ + self + parseMultiPartFileFieldWithMimePart: part + boundary: fullBoundary + decodeWith: aFileDecoderBlock ] ]. + "Skip crlf" + stream atEnd ifFalse: [ + stream skip: 2 ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st new file mode 100644 index 000000000..ac80248b8 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st @@ -0,0 +1,3 @@ +initialize-release +readBinaryFrom: aStream + stream := aStream \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json new file mode 100644 index 000000000..104fa314b --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "MaxLeske 5/20/2020 10:03", + "super" : "ZnMultiPartFormDataEntity", + "category" : "Zinc-Seaside-Pharo-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "stream" + ], + "name" : "ZnStreamingMultiPartFormDataEntity", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st new file mode 100644 index 000000000..b169b0e71 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +encode: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st new file mode 100644 index 000000000..a67b9d783 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +encodePath: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st new file mode 100644 index 000000000..90f42d52d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +encodeQuery: string on: stream + stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json new file mode 100644 index 000000000..ed0059c92 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnUrl" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st b/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st new file mode 100644 index 000000000..5de595a72 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st @@ -0,0 +1,3 @@ +SystemOrganization addCategory: #'Zinc-Seaside-Pharo'! +SystemOrganization addCategory: #'Zinc-Seaside-Pharo-Core'! +SystemOrganization addCategory: #'Zinc-Seaside-Pharo-Tests'! diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st b/repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/package b/repository/Zinc-Seaside-Pharo.package/monticello.meta/package new file mode 100644 index 000000000..48b9a2469 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Zinc-Seaside-Pharo') \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/properties.json b/repository/Zinc-Seaside-Pharo.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/.filetree b/repository/Zinc-Seaside.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Zinc-Seaside.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md new file mode 100644 index 000000000..3021873bb --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md @@ -0,0 +1,6 @@ +I am a lazy ZnResponse that: + +1. Does no work except to delegate to a smarter object; and +2. Doesn't even delegate until I'm told it's time to write something out on the stream. + +See, I'm even lazy about being lazy. I can get away with this wanton slothfulness because of WAComboResponse's ability to handle everything (status line, headers, chunking). \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st new file mode 100644 index 000000000..cc24a36b5 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st @@ -0,0 +1,3 @@ +instance creation +onWrite: aBlock + ^self new onWrite: aBlock \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st new file mode 100644 index 000000000..ac2100bf8 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st @@ -0,0 +1,3 @@ +initialize-release +onWrite: aBlock + onWrite := aBlock \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st new file mode 100644 index 000000000..6f89bc30e --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st @@ -0,0 +1,3 @@ +writing +writeOn: stream + onWrite value: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json new file mode 100644 index 000000000..e6bc10fe9 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "ZnResponse", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "onWrite" + ], + "name" : "ZnDeferredResponse", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md new file mode 100644 index 000000000..852eb144e --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md @@ -0,0 +1 @@ +I group a ZnRequest together with its stream, purely for convenience. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st new file mode 100644 index 000000000..0496ec988 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st @@ -0,0 +1,5 @@ +instance creation +nativeRequest: aZnRequest stream: aStream + ^ self new + nativeRequest: aZnRequest; + stream: aStream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st new file mode 100644 index 000000000..0759b5f7a --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st @@ -0,0 +1,3 @@ +accessing +nativeRequest: anObject + nativeRequest := anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st new file mode 100644 index 000000000..30f70fdcb --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st @@ -0,0 +1,3 @@ +accessing +nativeRequest + ^ nativeRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st new file mode 100644 index 000000000..2570b7d65 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st @@ -0,0 +1,3 @@ +accessing +stream: anObject + stream := anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st new file mode 100644 index 000000000..691d96996 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st @@ -0,0 +1,3 @@ +accessing +stream + ^ stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json new file mode 100644 index 000000000..00d21fce2 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "Object", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "nativeRequest", + "stream" + ], + "name" : "ZnSeasideRequest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md new file mode 100644 index 000000000..aa90ea132 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md @@ -0,0 +1,6 @@ +I am ZnSeasideServerAdaptorDelegate. + +I handle Zinc HTTP Server delegate's #handleRequest: using WAServerAdaptor>>#process: + +Instance Variables: + adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st new file mode 100644 index 000000000..1c8156d2d --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st @@ -0,0 +1,7 @@ +instance creation +forServer: znServer + | adaptor | + adaptor := ZnZincServerAdaptor new. + adaptor unregister. + adaptor server: znServer. + ^ self with: adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st new file mode 100644 index 000000000..82afceebd --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st @@ -0,0 +1,3 @@ +examples +installInDefaultServer + ^ self installInServer: ZnServer default \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st new file mode 100644 index 000000000..15a2175b4 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st @@ -0,0 +1,3 @@ +examples +installInServer: znServer + ^ self installInServer: znServer underPrefix: 'seaside' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st new file mode 100644 index 000000000..15e141156 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st @@ -0,0 +1,16 @@ +examples +installInServer: znServer underPrefix: prefix + "Install a ZnSeasideServerAdaptorDelegate in znServer under prefix, + provided znServer contains a ZnDefaultServerDelegate instance as primary delegate. + Note that the incoming request is destructively modified. + Note that a global #serverPath is added to the default Seaside dispatcher." + + | seasideDelegate | + seasideDelegate := self forServer: znServer. + znServer delegate + map: 'seaside' + to: [ :request | + request uri removeFirstPathSegment. + seasideDelegate handleRequest: request ]. + WAAdmin defaultDispatcher serverPath: prefix. + ^ seasideDelegate \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st new file mode 100644 index 000000000..9a56966bf --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st @@ -0,0 +1,5 @@ +instance creation +with: aSeasideServerAdaptor + ^ self new + adaptor: aSeasideServerAdaptor; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st new file mode 100644 index 000000000..79a2a1e3c --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st @@ -0,0 +1,3 @@ +accessing +adaptor: aSeasideServerAdaptor + adaptor := aSeasideServerAdaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st new file mode 100644 index 000000000..a103e81ba --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st @@ -0,0 +1,3 @@ +accessing +adaptor + ^ adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st new file mode 100644 index 000000000..ea81f47d4 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st @@ -0,0 +1,5 @@ +public +handleRequest: znRequest + "I pass a Zinc HTTP Components ZnRequest to my Seaside Server Adaptor using #process:" + + ^ self adaptor process: znRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st new file mode 100644 index 000000000..c000f754b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st @@ -0,0 +1,5 @@ +public +handleRequest: request gemServer: gemServer + "transactions handled by the adaptor" + + ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st new file mode 100644 index 000000000..17bc2c2a0 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st @@ -0,0 +1,5 @@ +public +value: request + "I implement the generic #value: message as equivalent to #handleRequest:" + + ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json new file mode 100644 index 000000000..a0cafeda9 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "SvenVanCaekenberghe 9/30/2010 18:13", + "super" : "Object", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "adaptor" + ], + "name" : "ZnSeasideServerAdaptorDelegate", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md new file mode 100644 index 000000000..fc357480e --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md @@ -0,0 +1,5 @@ +This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate + +Instance Variables: + staticDelegate aZnStaticFileServerDelegate + wwwRootDirectory - The directory on your file system where the JS/CSS/JPEG etc. files you want to serve reside \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st new file mode 100644 index 000000000..6d9d315c3 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st @@ -0,0 +1,14 @@ +public +handleRequest: znRequest + "If the Seaside request processing apparatus returns an HTTP response with a 'not found' error for a GET request, + check the filesystem for a file that matches the uri of the request, if found send the file if not send the original error." + + | response staticResponse | + response := self adaptor process: znRequest. + ^ (response isNotFound and: [ znRequest method = 'GET' and: [ response isAuthenticationRequired not ] ]) + ifTrue: [ + staticResponse := self staticDelegate handleRequest: znRequest. + staticResponse isNotFound + ifTrue: [ response ] + ifFalse: [ staticResponse ] ] + ifFalse: [ response ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st new file mode 100644 index 000000000..36f8d1c0d --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st @@ -0,0 +1,5 @@ +initialization +initializeStaticDelegate + ^ ZnStaticFileServerDelegate new + directory: self wwwRootDirectory; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st new file mode 100644 index 000000000..6667a841b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st @@ -0,0 +1,3 @@ +updating +serveFilesFrom: aDirectoryPathString + self wwwRootDirectory: (ZnFileSystemUtils directory: aDirectoryPathString ) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st new file mode 100644 index 000000000..743526948 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st @@ -0,0 +1,3 @@ +accessing +staticDelegate + ^ staticDelegate ifNil: [ staticDelegate := self initializeStaticDelegate ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st new file mode 100644 index 000000000..8ecc4811b --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st @@ -0,0 +1,5 @@ +accessing +wwwRootDirectory: fileDirectory + "This is the root directory for your css/js/images etc...." + + wwwRootDirectory := fileDirectory \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st new file mode 100644 index 000000000..322d96705 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st @@ -0,0 +1,6 @@ +accessing +wwwRootDirectory + "This is the root directory for your css/js/images etc...." + + ^ wwwRootDirectory ifNil: [ + wwwRootDirectory := ZnFileSystemUtils directory: '/var/www' ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json new file mode 100644 index 000000000..b3043aa59 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "ZnSeasideServerAdaptorDelegate", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "staticDelegate", + "wwwRootDirectory" + ], + "name" : "ZnSeasideStaticServerAdaptorDelegate", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md new file mode 100644 index 000000000..f59977003 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md @@ -0,0 +1,11 @@ +I convert between Seaside and Zinc HTTP requests and responses. +I am a WAServerAdaptor. + +Instance Variables: + server + +I can be started like any other Seaside adaptor: + + ZnZincServerAdaptor startOn: 8080 + +I work together with a ZnSeasideServerAdaptorDelegate. I offer several advanced configuration options for specialized applications in my 'initialize-release' protocol. See also the 'example' class protocol of ZnSeasideServerAdaptorDelegate. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st new file mode 100644 index 000000000..3c8e54c30 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st @@ -0,0 +1,3 @@ +private +basicStart + self server start \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st new file mode 100644 index 000000000..9deb98cc2 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st @@ -0,0 +1,6 @@ +private +basicStop + server + ifNotNil: [ + server stop. + server := nil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st new file mode 100644 index 000000000..fb9098cdf --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st @@ -0,0 +1,5 @@ +initialize-release +configureDelegate + "Set the main delegate of my server to the default one." + + server delegate: self defaultDelegate \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st new file mode 100644 index 000000000..e3324d9cc --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st @@ -0,0 +1,9 @@ +initialize-release +configureServerForBinaryReading + "Seaside wants to do its own text conversions" + + server reader: (server streamUploads + ifTrue: [ + [ :stream | ZnRequest readBinaryFrom: stream ] ] + ifFalse: [ + [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st new file mode 100644 index 000000000..9d7ee260a --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st @@ -0,0 +1,15 @@ +private +convertMultipart: entity + | dictionary | + dictionary := ZnMultiValueDictionary new. + entity class = ZnStreamingEntity + ifTrue: [ + self + convertMultipartStreamingEntity: entity + with: dictionary ] + ifFalse: [ + self + convertMultipartEntity: entity + with: dictionary ]. + ^ dictionary + \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st new file mode 100644 index 000000000..399a4c52f --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st @@ -0,0 +1,15 @@ +private +convertMultipartEntity: anEntity with: aMultiValueDictionary + anEntity partsDo: [ :part | + | value | + value := part hasEntity + ifFalse: [ String new ] + ifTrue: [ + (part fileName isEmptyOrNil not or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ self codec url decode: part fieldValueString ] + ifTrue: [ self convertMultipartFileField: part ] ]. + aMultiValueDictionary + at: part fieldName + add: value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st new file mode 100644 index 000000000..2add0fb20 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st @@ -0,0 +1,8 @@ +private +convertMultipartFileField: part + | file | + (file := WAFile new) + fileName: part fileName; + contentType: part contentType printString; + contents: part contents asByteArray. + ^ file \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st new file mode 100644 index 000000000..2393717e8 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -0,0 +1,30 @@ +private +convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary + | entity | + entity := ZnStreamingMultiPartFormDataEntity new + readBinaryFrom: anEntity stream; + contentType: anEntity contentType; + yourself. + entity + partsDecodeWith: [ :znMimePart | + aMultiValueDictionary + at: znMimePart fieldName + add: (self codec url decode: (znMimePart hasEntity + ifTrue: [ znMimePart fieldValueString ] + ifFalse: [ String new ])) ] + decodeFilesWith: [ :znMimePart :filePath | + "Empty file + empty filename means that the file form + field did not contain a value (no file was selected)." + (znMimePart fileName isEmpty and: [ + filePath asFileReference size isZero ]) + ifTrue: [ filePath asFileReference ensureDelete ] + ifFalse: [ + aMultiValueDictionary + at: znMimePart fieldName + add: (WAExternalFile new + contentType: znMimePart contentType printString; + fileName: (znMimePart fileName ifEmpty: [ + "It is legal for the `filename` value to be empty" + filePath asFileReference basename ]); + filePath: filePath; + yourself) ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st new file mode 100644 index 000000000..be8f252f9 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st @@ -0,0 +1,3 @@ +defaults +defaultCodec + ^ GRCodec forEncoding: 'utf-8' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st new file mode 100644 index 000000000..9f1c68495 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st @@ -0,0 +1,3 @@ +defaults +defaultDelegate + ^ ZnSeasideServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st new file mode 100644 index 000000000..4c9a51f42 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st @@ -0,0 +1,3 @@ +defaults +defaultZnServer + ^ ZnServer on: self port \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st new file mode 100644 index 000000000..2f5d79c93 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st @@ -0,0 +1,3 @@ +testing +isRunning + ^ server notNil and: [ server isRunning ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st new file mode 100644 index 000000000..9f74a15a3 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st @@ -0,0 +1,3 @@ +testing +isStarting + ^ false \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st new file mode 100644 index 000000000..742d855f0 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st @@ -0,0 +1,3 @@ +testing +isStopped + ^ server isNil or: [ server isRunning not ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st new file mode 100644 index 000000000..a0c287c8a --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st @@ -0,0 +1,3 @@ +testing +isStopping + ^ false \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st new file mode 100644 index 000000000..2d9f91f98 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st @@ -0,0 +1,7 @@ +printing +printOn: stream + super printOn: stream. + stream + nextPut: $(; + << self statusString; + nextPut: $) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st new file mode 100644 index 000000000..eaf61649f --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st @@ -0,0 +1,5 @@ +converting +requestAddressFor: aZincRequest + ^ aZincRequest headers + at: ZnConstants remoteAddressHeader + ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st new file mode 100644 index 000000000..c1d08a051 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st @@ -0,0 +1,12 @@ +converting +requestBodyFor: aZincRequest + ^ (aZincRequest method ~= #TRACE + and: [ aZincRequest hasEntity + and: [ aZincRequest entity isEmpty not + and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not + and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) + ifTrue: [ + "Seaside wants to do its own text conversions" + aZincRequest entity contents asString ] + ifFalse: [ + String new ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st new file mode 100644 index 000000000..05c1576a4 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st @@ -0,0 +1,6 @@ +converting +requestCookiesFor: aZincRequest + | cookieString | + cookieString := aZincRequest headers + at: 'Cookie' ifAbsent: [ ^ #() ]. + ^ WARequestCookie fromString: cookieString codec: self codec \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st new file mode 100644 index 000000000..e0ac1a3f1 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st @@ -0,0 +1,18 @@ +converting +requestFieldsFor: aZincRequest + | fields | + fields := WARequestFields new. + (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) + ifTrue: [ + (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) + ifTrue: [ + fields addAll: (aZincRequest entity class = ZnStreamingEntity + ifTrue: [ + ZnApplicationFormUrlEncodedEntity new + readFrom: aZincRequest entity stream; + fields ] + ifFalse: [ aZincRequest entity fields ]) ]. + (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) + ifTrue: [ + fields addAll: (self convertMultipart: aZincRequest entity) ] ]. + ^ fields \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st new file mode 100644 index 000000000..c174a0f70 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st @@ -0,0 +1,7 @@ +converting +requestHeadersFor: aZincRequest + | fields | + fields := Dictionary new. + aZincRequest headersDo: [ :key :value | + fields at: key asLowercase put: value ]. + ^ fields \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st new file mode 100644 index 000000000..ba5191eff --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st @@ -0,0 +1,3 @@ +converting +requestMethodFor: aZincRequest + ^ aZincRequest method greaseString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st new file mode 100644 index 000000000..b8eaca364 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st @@ -0,0 +1,20 @@ +converting +requestUrlFor: aZincRequest + | zincUrl seasideUrl | + zincUrl := aZincRequest url. + seasideUrl := WAUrl new + scheme: zincUrl schemeOrDefault greaseString; + host: zincUrl host; + port: zincUrl port; + fragment: zincUrl fragment. + zincUrl hasPath ifTrue: [ + zincUrl isDirectoryPath + ifTrue: [ "last path segment is $/ or #/" + zincUrl pathSegments + "GemStone/S currently does not support #allButLastDo:" + allButLast do: [ :each | seasideUrl rawAddToPath: each ]. + seasideUrl slash: true ] + ifFalse: [ seasideUrl rawAddAllToPath: zincUrl pathSegments ] ]. + zincUrl + queryDo: [ :key :value | seasideUrl addField: key value: value ]. + ^ seasideUrl \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st new file mode 100644 index 000000000..a836ee781 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st @@ -0,0 +1,3 @@ +converting +requestVersionFor: aZincRequest + ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st new file mode 100644 index 000000000..388493a75 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st @@ -0,0 +1,19 @@ +converting +responseFrom: aRequestContext + | partialHeaders cookies fullHeaders seasideResponse contents entity contentType | + seasideResponse := aRequestContext response. + partialHeaders := seasideResponse headers. + cookies := seasideResponse cookies. + fullHeaders := ZnHeaders defaultResponseHeaders. + partialHeaders keysAndValuesDo: [ :key :value | + fullHeaders at: key put: value greaseString ]. + cookies do: [ :each | + fullHeaders at: 'Set-Cookie' add: each rfc6265String ]. + contentType := seasideResponse contentType greaseString. + contents := seasideResponse contents. + entity := (ZnEntity bytes: contents) contentType: contentType; yourself. + ^ ZnResponse new + statusLine: (ZnStatusLine code: seasideResponse status); + headers: fullHeaders; + entity: entity; + yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st new file mode 100644 index 000000000..19155e190 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st @@ -0,0 +1,7 @@ +initialize-release +server: znServer + "I initialize the actual ZnServer instance that I will be using to znServer, + to prevent a fallback to #defaultZnServer" + + server := znServer. + port := znServer port \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st new file mode 100644 index 000000000..a8c20254a --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st @@ -0,0 +1,11 @@ +accessing +server + "Return the ZnServer running me, create a default one if missing and confugure it." + + server + ifNil: [ + server := self defaultZnServer. + self + configureDelegate; + configureServerForBinaryReading ]. + ^ server \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st new file mode 100644 index 000000000..50d5d09dd --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st @@ -0,0 +1,6 @@ +initialize-release +serverClass: znServerClass + "I initialize the actual ZnServer instance that I will be using, + by instanciating znServerClass using my port" + + self server: (znServerClass on: self port) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st new file mode 100644 index 000000000..8378fcf35 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st @@ -0,0 +1,4 @@ +private +shutDown + self isRunning + ifTrue: [ server stop ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st new file mode 100644 index 000000000..e28bdb643 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st @@ -0,0 +1,4 @@ +private +startUp + self isRunning + ifFalse: [ server ifNotNil: [ server start ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st new file mode 100644 index 000000000..0a91a75f1 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st @@ -0,0 +1,4 @@ +accessing +statusString + ^ 'zinc on port ', self port greaseString, + ( self isRunning ifTrue: [ ' [running]' ] ifFalse: [ ' [stopped]' ] ) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json new file mode 100644 index 000000000..668c5c526 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "WAServerAdaptor", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "server" + ], + "name" : "ZnZincServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md new file mode 100644 index 000000000..83eba3bfb --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md @@ -0,0 +1,19 @@ +This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate + +Start it with something like: + + + ZnZincStaticServerAdaptor startOn: 8080 andServeFilesFrom: '/var/www/'. + + +If you want to set cache expiration headers for your static assets you can run this: + + ZnZincStaticServerAdaptor default useDefaultExpirationHeaders. + +after you start the ZnZincStaticServerAdaptor. + +If you want to set your own expiration headers you can create a Dictionary like the one in ZnStaticFileServerDelegate class>>#defaultMimeTypeExpirations and then run: + + ZnZincStaticServerAdaptor default useCustomExpirationHeaders: myExpriationHeadersDirectory. + +where 'myExpirationHeadersDirectory' is structured similarly to the #defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st new file mode 100644 index 000000000..01e110adf --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st @@ -0,0 +1,4 @@ +as yet unclassified +startOn: aPortNumber andServeFilesFrom: aDirectoryPathString + self startOn: aPortNumber. + self default server delegate serveFilesFrom: aDirectoryPathString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st new file mode 100644 index 000000000..0b2467733 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st @@ -0,0 +1,3 @@ +defaults +defaultDelegate + ^ ZnSeasideStaticServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st new file mode 100644 index 000000000..4a3d5086a --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st @@ -0,0 +1,3 @@ +accessing +useCustomExpirationHeaders: aDictionaryOfMimeTypesAndHeaders + self server delegate staticDelegate mimeTypeExpirations: aDictionaryOfMimeTypesAndHeaders \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st new file mode 100644 index 000000000..32f3f6eca --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st @@ -0,0 +1,3 @@ +accessing +useDefaultExpirationHeaders + self server delegate staticDelegate mimeTypeExpirations: ZnStaticFileServerDelegate defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json new file mode 100644 index 000000000..99375dc47 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PaulDeBruicker 5/11/2012 15:21", + "super" : "ZnZincServerAdaptor", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnZincStaticServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md new file mode 100644 index 000000000..e5734bb90 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md @@ -0,0 +1 @@ +I convert requests and responses between Zinc and Seaside, but I do it using Seaside's WAComboResponse in order to allow data to be streamed to the client directly. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st new file mode 100644 index 000000000..c2d98c4dd --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st @@ -0,0 +1,9 @@ +processing +process: aZnRequest + ^ ZnDeferredResponse + onWrite: [ :stream | + | request | + request := ZnSeasideRequest + nativeRequest: aZnRequest + stream: stream. + super process: request ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st new file mode 100644 index 000000000..fd3326a65 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st @@ -0,0 +1,3 @@ +converting +requestFor: aZnSeasideRequest + ^super requestFor: aZnSeasideRequest nativeRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st new file mode 100644 index 000000000..35b4589af --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st @@ -0,0 +1,8 @@ +converting +responseFor: aZnRequest + | bufferedStream codecStream | + bufferedStream := GRPlatform current writeCharacterStreamOn: (String new: 4096). + codecStream := self codec encoderFor: bufferedStream. + ^ WAComboResponse + onBuffered: (GRCountingStream on: codecStream) + external: aZnRequest stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st new file mode 100644 index 000000000..e81a76584 --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st @@ -0,0 +1,8 @@ +converting +responseFrom: aRequestContext + "Since the response knows how to write itself on the stream (and may already be partly written), + there's not much left to do." + + aRequestContext response + flush; + close \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json new file mode 100644 index 000000000..01ed27ffa --- /dev/null +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ZnZincServerAdaptor", + "category" : "Zinc-Seaside", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnZincStreamingServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/monticello.meta/categories.st b/repository/Zinc-Seaside.package/monticello.meta/categories.st new file mode 100644 index 000000000..012834fab --- /dev/null +++ b/repository/Zinc-Seaside.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Zinc-Seaside'! diff --git a/repository/Zinc-Seaside.package/monticello.meta/initializers.st b/repository/Zinc-Seaside.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Zinc-Seaside.package/monticello.meta/package b/repository/Zinc-Seaside.package/monticello.meta/package new file mode 100644 index 000000000..6caf18376 --- /dev/null +++ b/repository/Zinc-Seaside.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Zinc-Seaside') \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/properties.json b/repository/Zinc-Seaside.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Zinc-Seaside.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file From 74dbe2b6197d1bca83433d509321742331603ad2 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Sat, 23 May 2020 18:21:53 +0200 Subject: [PATCH 16/41] Fixed ZnRingBufferTest>>testEquals for older Pharo versions --- .../ZnRingBufferTest.class/instance/testEquals.st | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st index ec226c310..c1f829bdc 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st +++ b/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st @@ -1,13 +1,15 @@ tests testEquals + "We use #= on purpose in this test because the test + only works one way." | buffer | buffer := ZnRingBuffer new: 3. - self assert: buffer equals: #(nil nil nil). + self assert: buffer = #(nil nil nil). buffer at: 1 put: 1. - self assert: buffer equals: #(1 nil nil). + self assert: buffer = #(1 nil nil). buffer moveStartTo: 2. - self assert: buffer equals: #(nil nil 1) \ No newline at end of file + self assert: buffer = #(nil nil 1) \ No newline at end of file From 24ceb759e3df7f50f0ee6cd299bf55a11fab9203 Mon Sep 17 00:00:00 2001 From: Max Leske Date: Wed, 27 May 2020 21:26:46 +0200 Subject: [PATCH 17/41] Removed GRPharoPlatform>>newTemporaryFileReference and replaced it with ZnStreamingMultiPartFormDataEntity class>>temporaryFileDirectory. I needed the directory to be configurable, so for now it's held by a class variable on ZnStreamingMultiPartFormDataEntity and can be changed. --- .../instance/newTemporaryFileReference.st | 8 -------- .../GRPharoPlatform.extension/properties.json | 3 --- .../class/temporaryFileDirectory..st | 3 +++ .../class/temporaryFileDirectory.st | 4 ++++ ...MultiPartFileFieldWithMimePart.boundary.decodeWith..st | 2 +- .../properties.json | 4 +++- 6 files changed, 11 insertions(+), 13 deletions(-) delete mode 100644 repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st delete mode 100644 repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st diff --git a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st deleted file mode 100644 index e6aa3d59a..000000000 --- a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,8 +0,0 @@ -*Zinc-Seaside-Pharo -newTemporaryFileReference - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json deleted file mode 100644 index 43eb591f2..000000000 --- a/repository/Zinc-Seaside-Pharo.package/GRPharoPlatform.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPharoPlatform" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st new file mode 100644 index 000000000..44be9cadc --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st @@ -0,0 +1,3 @@ +as yet unclassified +temporaryFileDirectory: aFileReference + TemporaryFileDirectory := aFileReference \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st new file mode 100644 index 000000000..1091256fc --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st @@ -0,0 +1,4 @@ +as yet unclassified +temporaryFileDirectory + ^ TemporaryFileDirectory ifNil: [ + TemporaryFileDirectory := FileLocator temp asFileReference ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st index 50e8f8577..55bcb1bae 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -2,7 +2,7 @@ private parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock | fullBoundary file | fullBoundary := String crlf asByteArray, aBoundary. - file := GRPlatform current newTemporaryFileReference. + file := self class temporaryFileDirectory / UUID new asString. GRPlatform current binaryWriteStreamFor: file do: [ :writer | diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json index 104fa314b..0fe35ba30 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -4,7 +4,9 @@ "category" : "Zinc-Seaside-Pharo-Core", "classinstvars" : [ ], "pools" : [ ], - "classvars" : [ ], + "classvars" : [ + "TemporaryFileDirectory" + ], "instvars" : [ "stream" ], From 7cc9e8420ddb60c2fd123eea0039eebb3e93df5b Mon Sep 17 00:00:00 2001 From: Max Leske Date: Sat, 4 Jun 2022 15:23:17 +0200 Subject: [PATCH 18/41] fix(streaming): properly writhe space and crlf --- .../WAResponse.class/instance/writeStatusOn..st | 4 ++-- .../ZdcAbstractSocketStream.extension/instance/crlf.st | 3 +++ .../ZdcAbstractSocketStream.extension/instance/space.st | 3 +++ .../ZdcAbstractSocketStream.extension/properties.json | 3 +++ 4 files changed, 11 insertions(+), 2 deletions(-) create mode 100644 repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json diff --git a/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st b/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st index 1b094f358..ea794a29c 100644 --- a/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st +++ b/repository/Seaside-Core.package/WAResponse.class/instance/writeStatusOn..st @@ -2,10 +2,10 @@ writing writeStatusOn: aStream aStream nextPutAll: self httpVersion. aStream - nextPut: $ ; + space; nextPutAll: self status greaseString. self message isNil ifFalse: [ aStream - nextPut: $ ; + space; nextPutAll: self message ]. aStream crlf \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st new file mode 100644 index 000000000..500a9a0b5 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +crlf + self nextPutAll: String crlf \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st new file mode 100644 index 000000000..c82a7520d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st @@ -0,0 +1,3 @@ +*Zinc-Seaside-Pharo +space + self nextPut: Character space asciiValue \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json new file mode 100644 index 000000000..622252fc6 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZdcAbstractSocketStream" +} \ No newline at end of file From 569b76b216f2dffc22b0ad0f0379a8a87f03c3dc Mon Sep 17 00:00:00 2001 From: Max Leske Date: Sun, 5 Jun 2022 15:55:02 +0200 Subject: [PATCH 19/41] Use #writeFileStreamOn:do:binary: instead of inventing a new method in Grease --- ...ultiPartFileFieldWithMimePart.boundary.decodeWith..st | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st index 55bcb1bae..63a21bfdf 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st +++ b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -4,11 +4,12 @@ parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: a fullBoundary := String crlf asByteArray, aBoundary. file := self class temporaryFileDirectory / UUID new asString. GRPlatform current - binaryWriteStreamFor: file + writeFileStreamOn: file pathString do: [ :writer | - self - parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary - writeOn: writer ]. + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: writer ] + binary: true. aBlock value: aMimePart From 91565ff86925fd736c028262a437ac76c3b1a43c Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 20:48:01 +0100 Subject: [PATCH 20/41] Fix ZnZincStreamServerAdaptor to work on Pharo 11+ --- .../instance/responseFor..st | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st index 35b4589af..cc2d71d07 100644 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st +++ b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st @@ -1,8 +1,8 @@ converting responseFor: aZnRequest | bufferedStream codecStream | - bufferedStream := GRPlatform current writeCharacterStreamOn: (String new: 4096). - codecStream := self codec encoderFor: bufferedStream. + bufferedStream := GRPlatform current writeCharacterStreamOn: (self codec encodedStringClass new: 4096). + codecStream := self codec encoderFor: bufferedStream. ^ WAComboResponse onBuffered: (GRCountingStream on: codecStream) external: aZnRequest stream \ No newline at end of file From 02cf3ec8fcb62b518fbd6938e656bc1a9774bc1d Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 20:57:52 +0100 Subject: [PATCH 21/41] revert change --- .../ZnZincServerAdaptor.class/instance/responseFrom..st | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st index 388493a75..560c00376 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st @@ -6,7 +6,7 @@ responseFrom: aRequestContext cookies := seasideResponse cookies. fullHeaders := ZnHeaders defaultResponseHeaders. partialHeaders keysAndValuesDo: [ :key :value | - fullHeaders at: key put: value greaseString ]. + fullHeaders at: key add: value greaseString ]. cookies do: [ :each | fullHeaders at: 'Set-Cookie' add: each rfc6265String ]. contentType := seasideResponse contentType greaseString. From 7935159def2d0ba6209efa69c9f0eca8be6cf502 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 21:26:18 +0100 Subject: [PATCH 22/41] remove Seaside-Zinc packages from branch --- .../instance/configureServerForBinaryReading.st | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st index e3324d9cc..b73b5799e 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st @@ -3,7 +3,5 @@ configureServerForBinaryReading "Seaside wants to do its own text conversions" server reader: (server streamUploads - ifTrue: [ - [ :stream | ZnRequest readBinaryFrom: stream ] ] - ifFalse: [ - [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file + ifTrue: [ [ :stream | ZnRequest readBinaryFrom: stream ] ] + ifFalse: [ [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file From 0adf392efe7d61282c241551b077f047ee3cfc26 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 21:27:02 +0100 Subject: [PATCH 23/41] remove Seaside-Zinc packages from the branch --- .../Seaside-Zinc-Pharo.package/.filetree | 5 -- .../instance/newTemporaryFileReference.st | 8 --- .../GRPharoPlatform.extension/properties.json | 3 - .../instance/characterEncoder.st | 6 -- .../properties.json | 3 - .../class/writeQueryFields.on..st | 3 - .../properties.json | 3 - .../ZnRingBuffer.class/README.md | 15 ---- .../ZnRingBuffer.class/class/new..st | 6 -- .../ZnRingBuffer.class/class/new.st | 3 - .../ZnRingBuffer.class/class/on..st | 6 -- .../ZnRingBuffer.class/instance/^equals.st | 8 --- .../ZnRingBuffer.class/instance/at..st | 5 -- .../ZnRingBuffer.class/instance/at.put..st | 7 -- .../instance/checkBoundsFor..st | 6 -- .../instance/copyFrom.to..st | 19 ------ .../ZnRingBuffer.class/instance/do..st | 6 -- .../ZnRingBuffer.class/instance/hash.st | 9 --- .../instance/indexOf.ifAbsent..st | 10 --- .../instance/initialize..st | 3 - .../ZnRingBuffer.class/instance/initialize.st | 5 -- .../instance/initializeWithCollection..st | 4 -- .../instance/moveStartTo..st | 5 -- .../ZnRingBuffer.class/instance/printOn..st | 9 --- .../replaceFrom.to.with.startingAt..st | 19 ------ .../ZnRingBuffer.class/instance/size.st | 3 - .../ZnRingBuffer.class/properties.json | 14 ---- .../ZnRingBufferError.class/README.md | 1 - .../ZnRingBufferError.class/properties.json | 11 --- .../ZnRingBufferIllegalAccess.class/README.md | 1 - .../properties.json | 11 --- .../ZnRingBufferIllegalUse.class/README.md | 1 - .../properties.json | 11 --- .../ZnRingBufferTest.class/README.md | 0 .../ZnRingBufferTest.class/instance/testAt.st | 22 ------ .../instance/testAtOutOfBounds.st | 13 ---- .../instance/testCopyFromTo.st | 29 -------- .../ZnRingBufferTest.class/instance/testDo.st | 15 ---- .../instance/testEquals.st | 13 ---- .../instance/testIllegalInstantiation.st | 5 -- .../instance/testIndexOf.st | 42 ------------ .../instance/testIndexOfIfAbsent.st | 42 ------------ .../instance/testIndexOfIfAbsentWhenAbsent.st | 9 --- .../instance/testMoveStartTo.st | 20 ------ .../instance/testMoveStartToIdentity.st | 9 --- .../instance/testMoveStartToOutOfBounds.st | 13 ---- .../ZnRingBufferTest.class/instance/testOn.st | 11 --- .../testReplaceFromToWithStartingAt.st | 20 ------ .../instance/testSize.st | 15 ---- .../ZnRingBufferTest.class/properties.json | 11 --- .../instance/streamUploads..st | 5 -- .../instance/streamUploads.st | 5 -- .../ZnServer.extension/properties.json | 3 - .../README.md | 3 - ...eMultiPartFieldWithMimePart.decodeWith..st | 10 --- ...FieldWithoutLengthWithBoundary.writeOn..st | 68 ------------------- ...LengthWithMimePart.boundary.decodeWith..st | 11 --- ...eFieldWithMimePart.boundary.decodeWith..st | 15 ---- .../partsDecodeWith.decodeFilesWith..st | 45 ------------ .../instance/readBinaryFrom..st | 3 - .../properties.json | 13 ---- .../ZnUrl.extension/instance/encode.on..st | 3 - .../instance/encodePath.on..st | 3 - .../instance/encodeQuery.on..st | 3 - .../ZnUrl.extension/properties.json | 3 - .../monticello.meta/categories.st | 3 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - repository/Seaside-Zinc.package/.filetree | 5 -- .../ZnDeferredResponse.class/README.md | 6 -- .../class/onWrite..st | 3 - .../instance/onWrite..st | 3 - .../instance/writeOn..st | 3 - .../ZnDeferredResponse.class/properties.json | 13 ---- .../ZnSeasideRequest.class/README.md | 1 - .../class/nativeRequest.stream..st | 5 -- .../instance/nativeRequest..st | 3 - .../instance/nativeRequest.st | 3 - .../instance/stream..st | 3 - .../ZnSeasideRequest.class/instance/stream.st | 3 - .../ZnSeasideRequest.class/properties.json | 14 ---- .../README.md | 6 -- .../class/forServer..st | 7 -- .../class/installInDefaultServer.st | 3 - .../class/installInServer..st | 3 - .../class/installInServer.underPrefix..st | 16 ----- .../class/with..st | 5 -- .../instance/adaptor..st | 3 - .../instance/adaptor.st | 3 - .../instance/handleRequest..st | 5 -- .../instance/handleRequest.gemServer..st | 5 -- .../instance/value..st | 5 -- .../properties.json | 13 ---- .../README.md | 5 -- .../instance/handleRequest..st | 14 ---- .../instance/initializeStaticDelegate.st | 5 -- .../instance/serveFilesFrom..st | 3 - .../instance/staticDelegate.st | 3 - .../instance/wwwRootDirectory..st | 5 -- .../instance/wwwRootDirectory.st | 6 -- .../properties.json | 14 ---- .../ZnZincServerAdaptor.class/README.md | 11 --- .../instance/basicStart.st | 3 - .../instance/basicStop.st | 6 -- .../instance/configureDelegate.st | 5 -- .../configureServerForBinaryReading.st | 9 --- .../instance/convertMultipart..st | 15 ---- .../instance/convertMultipartEntity.with..st | 15 ---- .../instance/convertMultipartFileField..st | 8 --- .../convertMultipartStreamingEntity.with..st | 30 -------- .../instance/defaultCodec.st | 3 - .../instance/defaultDelegate.st | 3 - .../instance/defaultZnServer.st | 3 - .../instance/isRunning.st | 3 - .../instance/isStarting.st | 3 - .../instance/isStopped.st | 3 - .../instance/isStopping.st | 3 - .../instance/printOn..st | 7 -- .../instance/requestAddressFor..st | 5 -- .../instance/requestBodyFor..st | 12 ---- .../instance/requestCookiesFor..st | 6 -- .../instance/requestFieldsFor..st | 18 ----- .../instance/requestHeadersFor..st | 7 -- .../instance/requestMethodFor..st | 3 - .../instance/requestUrlFor..st | 20 ------ .../instance/requestVersionFor..st | 3 - .../instance/responseFrom..st | 19 ------ .../instance/server..st | 7 -- .../instance/server.st | 11 --- .../instance/serverClass..st | 6 -- .../instance/shutDown.st | 4 -- .../instance/startUp.st | 4 -- .../instance/statusString.st | 4 -- .../ZnZincServerAdaptor.class/properties.json | 13 ---- .../ZnZincStaticServerAdaptor.class/README.md | 19 ------ .../class/startOn.andServeFilesFrom..st | 4 -- .../instance/defaultDelegate.st | 3 - .../instance/useCustomExpirationHeaders..st | 3 - .../instance/useDefaultExpirationHeaders.st | 3 - .../properties.json | 11 --- .../README.md | 1 - .../instance/process..st | 9 --- .../instance/requestFor..st | 3 - .../instance/responseFor..st | 8 --- .../instance/responseFrom..st | 8 --- .../properties.json | 11 --- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../Seaside-Zinc.package/properties.json | 1 - 151 files changed, 1268 deletions(-) delete mode 100644 repository/Seaside-Zinc-Pharo.package/.filetree delete mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st delete mode 100644 repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json delete mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st delete mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/package delete mode 100644 repository/Seaside-Zinc-Pharo.package/properties.json delete mode 100644 repository/Seaside-Zinc.package/.filetree delete mode 100644 repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st delete mode 100644 repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st delete mode 100644 repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st delete mode 100644 repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st delete mode 100644 repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st delete mode 100644 repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json delete mode 100644 repository/Seaside-Zinc.package/monticello.meta/categories.st delete mode 100644 repository/Seaside-Zinc.package/monticello.meta/initializers.st delete mode 100644 repository/Seaside-Zinc.package/monticello.meta/package delete mode 100644 repository/Seaside-Zinc.package/properties.json diff --git a/repository/Seaside-Zinc-Pharo.package/.filetree b/repository/Seaside-Zinc-Pharo.package/.filetree deleted file mode 100644 index 57a679737..000000000 --- a/repository/Seaside-Zinc-Pharo.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st deleted file mode 100644 index 171beaa26..000000000 --- a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/newTemporaryFileReference.st +++ /dev/null @@ -1,8 +0,0 @@ -*Seaside-Zinc-Pharo -newTemporaryFileReference - "Create a new temporary file in the systems temp directory - and answer a reference to it. - It is the users responsibility to delete or move the file, - it will not be cleaned up automatically (unless the host system - has a policy for it)." - ^ FileLocator temp / UUID new asString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json deleted file mode 100644 index 43eb591f2..000000000 --- a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "GRPharoPlatform" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st deleted file mode 100644 index 0cb71499b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st +++ /dev/null @@ -1,6 +0,0 @@ -*Seaside-Zinc-Pharo -characterEncoder - "Return the character encoder that I currently use. - If not set, I will default to using UTF-8." - - ^ characterEncoder ifNil: [ characterEncoder := ZnCharacterEncoder default ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json deleted file mode 100644 index 795786b0c..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnPercentEncoder.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnPercentEncoder" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st deleted file mode 100644 index 774fd3666..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Seaside-Zinc-Pharo -writeQueryFields: dictionary on: stream - self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json deleted file mode 100644 index 76a887c04..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnResourceMetaUtils.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnResourceMetaUtils" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md deleted file mode 100644 index 2176f81da..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring. - -I buffer a fixed amount of data and provide array like access to it. - -Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the -buffer to the specified position. Example: - -buffer - at: 1 put: 1; - at: 2 put: 2; - at: 1. "----> 1" - -buffer - moveStartTo: 2; - at: 1 "----> 2" \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st deleted file mode 100644 index a1f8df872..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -new: aInteger - ^ self basicNew - initialize: aInteger; - initialize; - yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st deleted file mode 100644 index 814a6c764..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size' \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st deleted file mode 100644 index 2f5135d96..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/class/on..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -on: aCollection - ^ self basicNew - initializeWithCollection: aCollection; - initialize; - yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st deleted file mode 100644 index 1658f6272..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/^equals.st +++ /dev/null @@ -1,8 +0,0 @@ -comparing -= aCollection - 1 - to: self size - do: [ :index | - (self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ]. - - ^ true \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st deleted file mode 100644 index 6af00d582..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -at: anInteger - self checkBoundsFor: anInteger. - - ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st deleted file mode 100644 index 378a1101d..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/at.put..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -at: anInteger put: anObject - self checkBoundsFor: anInteger. - - buffer - atWrap: anInteger + offset - put: anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st deleted file mode 100644 index e4284b38e..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st +++ /dev/null @@ -1,6 +0,0 @@ -private -checkBoundsFor: anInteger - (anInteger < 1 or: [ - anInteger > self size ]) ifFalse: [ ^ self ]. - - ZnRingBufferIllegalAccess signal \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st deleted file mode 100644 index 52672c5d1..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st +++ /dev/null @@ -1,19 +0,0 @@ -accessing -copyFrom: start to: stop - | copy endIndex copySize | - copySize := stop - start + 1. - copy := buffer species new: copySize. - endIndex := copySize min: self size - start - offset + 1. - copy - replaceFrom: 1 - to: endIndex - with: buffer - startingAt: start + offset. - - stop + offset > self size ifFalse: [ ^ copy ]. - - ^ copy - replaceFrom: endIndex + 1 - to: copySize - with: buffer - startingAt: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st deleted file mode 100644 index 741f9a2d8..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/do..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -do: aBlock - 1 - to: self size - do: [ :index | - aBlock value: (self at: index) ] diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st deleted file mode 100644 index 5fd18ae66..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/hash.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -hash - "Copy of SequenceableCollection>>hash" - | hash | - hash := self species hash. - 1 - to: self size - do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ]. - ^ hash \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st deleted file mode 100644 index cbd962990..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st +++ /dev/null @@ -1,10 +0,0 @@ -accessing -indexOf: anElement ifAbsent: exceptionBlock - | index | - index := buffer - indexOf: anElement - ifAbsent: [ ^ exceptionBlock value ]. - - ^ index > offset - ifTrue: [ index - offset ] - ifFalse: [ self size - offset + index ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st deleted file mode 100644 index 95df117dc..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize..st +++ /dev/null @@ -1,3 +0,0 @@ -initialization -initialize: anInteger - self initializeWithCollection: (Array new: anInteger) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st deleted file mode 100644 index b26430a1d..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - - offset := 0 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st deleted file mode 100644 index 71b33bc7b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithCollection: aCollection - buffer := aCollection. - offset := 0 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st deleted file mode 100644 index f3b240141..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st +++ /dev/null @@ -1,5 +0,0 @@ -operations -moveStartTo: anInteger - self checkBoundsFor: anInteger. - - offset := (offset + anInteger - 1) \\ self size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st deleted file mode 100644 index a926e4e41..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/printOn..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - - aStream nextPut: $(. - (self - copyFrom: 1 - to: self size) printOn: aStream. - aStream nextPut: $) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st deleted file mode 100644 index b9d8a0ce8..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st +++ /dev/null @@ -1,19 +0,0 @@ -accessing -replaceFrom: start to: stop with: replacement startingAt: repStart - | startIndex endIndex | - startIndex := start + offset. - endIndex := stop + offset min: self size. - startIndex > self size ifFalse: [ - buffer - replaceFrom: startIndex - to: endIndex - with: replacement - startingAt: repStart ]. - - stop + offset > self size ifFalse: [ ^ self ]. - - buffer - replaceFrom: 1 - to: (stop + offset) \\ self size - with: replacement - startingAt: repStart + endIndex - startIndex + 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st deleted file mode 100644 index 6a48eba3f..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ buffer size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json deleted file mode 100644 index 73bf7feb8..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBuffer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:33", - "super" : "Object", - "category" : "Seaside-Zinc-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "buffer", - "offset" - ], - "name" : "ZnRingBuffer", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md deleted file mode 100644 index 19e71b79b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the abstract super class of all ring buffer errors. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json deleted file mode 100644 index 32763b507..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferError.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:24", - "super" : "Error", - "category" : "Seaside-Zinc-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferError", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md deleted file mode 100644 index b5fcfece6..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I represent any error that is due to the use out of bounds indices when accessing the ring buffer. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json deleted file mode 100644 index 84c74d51b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:25", - "super" : "ZnRingBufferError", - "category" : "Seaside-Zinc-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferIllegalAccess", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md deleted file mode 100644 index 01b63674c..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I represent illegal use of ring buffer methods. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json deleted file mode 100644 index 6af0c8e3b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferIllegalUse.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:26", - "super" : "ZnRingBufferError", - "category" : "Seaside-Zinc-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferIllegalUse", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st deleted file mode 100644 index 43e91ff23..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAt.st +++ /dev/null @@ -1,22 +0,0 @@ -tests -testAt - | buffer | - buffer := ZnRingBuffer new: 5. - self assert: (buffer at: 1) isNil. - - buffer - at: 1 - put: 1. - self assert: (buffer at: 1) equals: 1. - - buffer - at: 2 - put: 2. - self assert: (buffer at: 2) equals: 2. - - buffer - at: 5 - put: 6. - self assert: (buffer at: 3) isNil. - self assert: (buffer at: 4) isNil. - self assert: (buffer at: 5) equals: 6 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st deleted file mode 100644 index 39f545879..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testAtOutOfBounds - | buffer | - buffer := ZnRingBuffer new: 5. - self - should: [ buffer at: 0 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer at: -1 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer at: 6 ] - raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st deleted file mode 100644 index 1819972e3..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testCopyFromTo - | buffer copy | - buffer := ZnRingBuffer on: #(1 2 3 4). - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(2 3 4). - - copy := buffer - copyFrom: 1 - to: 4. - - self assert: copy equals: #(1 2 3 4). - - buffer moveStartTo: 2. - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(3 4 1). - - buffer moveStartTo: 2. - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(4 1 2) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st deleted file mode 100644 index 9d69cec17..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testDo.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testDo - | buffer collector | - buffer := ZnRingBuffer new: 5. - buffer - at: 1 put: 1; - at: 5 put: 2. - collector := OrderedCollection new. - buffer do: [ :value | collector add: value ]. - self assert: collector asArray equals: #(1 nil nil nil 2). - - buffer moveStartTo: 2. - collector := OrderedCollection new. - buffer do: [ :value | collector add: value ]. - self assert: collector asArray equals: #(nil nil nil 2 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st deleted file mode 100644 index ec226c310..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testEquals - | buffer | - buffer := ZnRingBuffer new: 3. - self assert: buffer equals: #(nil nil nil). - - buffer - at: 1 - put: 1. - self assert: buffer equals: #(1 nil nil). - - buffer moveStartTo: 2. - self assert: buffer equals: #(nil nil 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st deleted file mode 100644 index 0c55d9b5a..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIllegalInstantiation - self - should: [ ZnRingBuffer new ] - raise: ZnRingBufferIllegalUse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st deleted file mode 100644 index d1ed25a97..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st +++ /dev/null @@ -1,42 +0,0 @@ -tests -testIndexOf - | buffer index | - buffer := ZnRingBuffer new: 5. - buffer - at: 2 - put: 1. - - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 1. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 5. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 4. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 3. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st deleted file mode 100644 index 8ae2b7d0f..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st +++ /dev/null @@ -1,42 +0,0 @@ -tests -testIndexOfIfAbsent - | buffer index | - buffer := ZnRingBuffer new: 5. - buffer - at: 2 - put: 1. - - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 1. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 5. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 4. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 3. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st deleted file mode 100644 index 0a2617dbf..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testIndexOfIfAbsentWhenAbsent - | buffer index | - buffer := ZnRingBuffer new: 5. - - index := buffer - indexOf: 1 - ifAbsent: [ 2 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st deleted file mode 100644 index 25aa674ab..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testMoveStartTo - | buffer | - buffer := ZnRingBuffer new: 5. - - buffer - at: 1 put: 1; - at: 5 put: 5. - buffer moveStartTo: 2. - self assert: (buffer at: 1) isNil. - self assert: (buffer at: 4) equals: 5. - self assert: (buffer at: 5) equals: 1. - - buffer moveStartTo: 5. - self assert: (buffer at: 1) equals: 1. - self assert: (buffer at: 5) equals: 5. - - buffer moveStartTo: 5. - self assert: (buffer at: 1) equals: 5. - self assert: (buffer at: 2) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st deleted file mode 100644 index 39c42dce8..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testMoveStartToIdentity - | buffer | - buffer := ZnRingBuffer new: 5. - - buffer - at: 1 put: 1; - moveStartTo: 1. - self assert: (buffer at: 1) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st deleted file mode 100644 index 694120996..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testMoveStartToOutOfBounds - | buffer | - buffer := ZnRingBuffer new: 5. - self - should: [ buffer moveStartTo: 0 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer moveStartTo: -1 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer moveStartTo: 6 ] - raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st deleted file mode 100644 index 5b117cbbd..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testOn.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testOn - | buffer | - buffer := ZnRingBuffer on: (ByteArray new: 1). - self assert: buffer size equals: 1. - buffer - at: 1 - put: 1. - self - should: [ buffer at: 1 put: $a ] - raise: Error \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st deleted file mode 100644 index d3338be90..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testReplaceFromToWithStartingAt - | buffer replacement | - replacement := #(1 2 3 4). - 1 - to: 5 - do: [ :index | - buffer := ZnRingBuffer new: 5. - buffer moveStartTo: index. - buffer - replaceFrom: 2 - to: 4 - with: replacement - startingAt: 2. - - self assert: (buffer at: 1) isNil. - self assert: (buffer at: 2) equals: 2. - self assert: (buffer at: 3) equals: 3. - self assert: (buffer at: 4) equals: 4. - self assert: (buffer at: 5) isNil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st deleted file mode 100644 index b04045b55..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/instance/testSize.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSize - | buffer | - buffer := ZnRingBuffer new: 2. - self assert: buffer size equals: 2. - - buffer - at: 1 put: 1; - at: 1 put: 1. - self assert: buffer size equals: 2. - - buffer - moveStartTo: 2; - at: 1 put: 3. - self assert: buffer size equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json deleted file mode 100644 index 9c16ab4cb..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnRingBufferTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Seaside-Zinc-Pharo-Tests", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st deleted file mode 100644 index 218cae032..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads..st +++ /dev/null @@ -1,5 +0,0 @@ -*Seaside-Zinc-Pharo -streamUploads: aBoolean - ^ self - optionAt: #streamUploads - put: aBoolean \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st deleted file mode 100644 index 0e3aefbed..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/instance/streamUploads.st +++ /dev/null @@ -1,5 +0,0 @@ -*Seaside-Zinc-Pharo -streamUploads - ^ self - optionAt: #streamUploads - ifAbsent: [ false ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json deleted file mode 100644 index 1f51b1ea9..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnServer.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnServer" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md deleted file mode 100644 index b8cdf930b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I implement chunked reading of multipart/form-data requests. I use a ZnRingBuffer to reduce the number of operations and the amount of memory consumed during this. - -I handle file parts by writing them to temporary files on disk in chunks, thus preventing the image from exhausting memory resources. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st deleted file mode 100644 index 6faf4fd2c..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st +++ /dev/null @@ -1,10 +0,0 @@ -private -parseMultiPartFieldWithMimePart: aMimePart decodeWith: aBlock - | reader | - reader := (aMimePart entityReaderOn: stream) - binary; - streaming; - yourself. - aMimePart entity: reader readEntity. - - aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st deleted file mode 100644 index dcaa8f02f..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st +++ /dev/null @@ -1,68 +0,0 @@ -private -parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer - | bufferSize rawBuffer buffer boundaryMarker | - "Can't simply use a larger buffer as we don't want to read past a boundary, - those bytes will belong to the next part" - bufferSize := aBoundary size. - rawBuffer := ByteArray new: bufferSize. - buffer := ZnRingBuffer on: rawBuffer. - boundaryMarker := aBoundary first. - - stream atEnd ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - stream - next: bufferSize - into: rawBuffer ]. - - [ (buffer - indexOf: boundaryMarker - ifAbsent: [ nil ]) - ifNotNil: [ :boundaryCandidateIndex | - (boundaryCandidateIndex = 1 and: [ - buffer = aBoundary ]) - ifTrue: [ - "Found a boundary. We're done" - true ] - ifFalse: [ - | candidateIndex | - candidateIndex := boundaryCandidateIndex = 1 - ifTrue: [ 2 ] - ifFalse: [ boundaryCandidateIndex ]. - "Write all the bytes that we know are not part of a boundary" - 1 - to: candidateIndex - 1 - do: [ :index | writer nextPut: (buffer at: index) ]. - "Move the rest of the buffer to the beginning of the buffer" - buffer moveStartTo: candidateIndex. - - "Fill the rest of the buffer" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - rawBuffer := buffer - copyFrom: 1 - to: bufferSize. - stream - next: candidateIndex - 1 - into: rawBuffer - startingAt: bufferSize - candidateIndex + 2. - buffer initializeWithCollection: rawBuffer. - "If the candidate was really the first token of the boundary - then we now have loaded the full boundary into the buffer. - If not we have to check for the next boundary candidate as - we might have loaded the next boundary partially." - buffer = aBoundary ] ] - ifNil: [ - writer nextPutAll: buffer. - stream atEnd - ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - stream - next: bufferSize - into: rawBuffer. - buffer moveStartTo: 1. - false ] - ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st deleted file mode 100644 index 87a4a20c0..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st +++ /dev/null @@ -1,11 +0,0 @@ -private -parseMultiPartFieldWithoutLengthWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock - | fullBoundary fieldValue | - fullBoundary := String crlf asByteArray, aBoundary. - fieldValue := ByteArray streamContents: [ :valueStream | - self - parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary - writeOn: valueStream ]. - - aMimePart entity: (ZnEntity text: fieldValue asString). - aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st deleted file mode 100644 index 50e8f8577..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st +++ /dev/null @@ -1,15 +0,0 @@ -private -parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock - | fullBoundary file | - fullBoundary := String crlf asByteArray, aBoundary. - file := GRPlatform current newTemporaryFileReference. - GRPlatform current - binaryWriteStreamFor: file - do: [ :writer | - self - parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary - writeOn: writer ]. - - aBlock - value: aMimePart - value: file pathString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st deleted file mode 100644 index 04d6d35f2..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st +++ /dev/null @@ -1,45 +0,0 @@ -private -partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock - | fullBoundary endBoundary | - fullBoundary := '--' asByteArray, self getBoundary. - endBoundary := fullBoundary asString, '--'. - "Sometimes there is whitespace in front of the first boundary" - (stream match: fullBoundary) ifFalse: [ self error ]. - "Skip CRLF" - stream skip: 2. - - [ stream atEnd ] whileFalse: [ - | part | - part := ZnMimePart new - headers: (ZnHeaders readFrom: stream); - yourself. - "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) - and it is the last part then parsing headers will consumed the rest of the end boundary and the - stream will be at the end. In this case, the part will not have any headers" - (part hasHeaders not or: [ - "The final boundary may be read as a header when - the last part was not a file part" - part headers includesKey: endBoundary ]) ifFalse: [ - (part fileName notNil or: [ - part contentType notNil and: [ - part contentType isBinary ] ]) - ifFalse: [ - ((part contentDispositionValues includes: 'form-data') and: [ - part contentLength isNil ]) - ifTrue: [ - self - parseMultiPartFieldWithoutLengthWithMimePart: part - boundary: fullBoundary - decodeWith: aDecoderBlock ] - ifFalse: [ - self - parseMultiPartFieldWithMimePart: part - decodeWith: aDecoderBlock ] ] - ifTrue: [ - self - parseMultiPartFileFieldWithMimePart: part - boundary: fullBoundary - decodeWith: aFileDecoderBlock ] ]. - "Skip crlf" - stream atEnd ifFalse: [ - stream skip: 2 ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st deleted file mode 100644 index ac80248b8..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -readBinaryFrom: aStream - stream := aStream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json deleted file mode 100644 index 6e292d03f..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "MaxLeske 5/20/2020 10:03", - "super" : "ZnMultiPartFormDataEntity", - "category" : "Seaside-Zinc-Pharo-Core", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "stream" - ], - "name" : "ZnStreamingMultiPartFormDataEntity", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st deleted file mode 100644 index 3df4608f4..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encode.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Seaside-Zinc-Pharo -encode: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st deleted file mode 100644 index 2c9c84157..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodePath.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Seaside-Zinc-Pharo -encodePath: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st deleted file mode 100644 index ffd3dd45b..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Seaside-Zinc-Pharo -encodeQuery: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json deleted file mode 100644 index ed0059c92..000000000 --- a/repository/Seaside-Zinc-Pharo.package/ZnUrl.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnUrl" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st deleted file mode 100644 index 11ed3c9c2..000000000 --- a/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st +++ /dev/null @@ -1,3 +0,0 @@ -SystemOrganization addCategory: #'Seaside-Zinc-Pharo'! -SystemOrganization addCategory: #'Seaside-Zinc-Pharo-Core'! -SystemOrganization addCategory: #'Seaside-Zinc-Pharo-Tests'! diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/package b/repository/Seaside-Zinc-Pharo.package/monticello.meta/package deleted file mode 100644 index 8d77b894c..000000000 --- a/repository/Seaside-Zinc-Pharo.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Seaside-Zinc-Pharo') \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/properties.json b/repository/Seaside-Zinc-Pharo.package/properties.json deleted file mode 100644 index 6f31cf5a2..000000000 --- a/repository/Seaside-Zinc-Pharo.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/.filetree b/repository/Seaside-Zinc.package/.filetree deleted file mode 100644 index 57a679737..000000000 --- a/repository/Seaside-Zinc.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md deleted file mode 100644 index 3021873bb..000000000 --- a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a lazy ZnResponse that: - -1. Does no work except to delegate to a smarter object; and -2. Doesn't even delegate until I'm told it's time to write something out on the stream. - -See, I'm even lazy about being lazy. I can get away with this wanton slothfulness because of WAComboResponse's ability to handle everything (status line, headers, chunking). \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st deleted file mode 100644 index cc24a36b5..000000000 --- a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/class/onWrite..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -onWrite: aBlock - ^self new onWrite: aBlock \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st deleted file mode 100644 index ac2100bf8..000000000 --- a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/onWrite..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -onWrite: aBlock - onWrite := aBlock \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st deleted file mode 100644 index 6f89bc30e..000000000 --- a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/instance/writeOn..st +++ /dev/null @@ -1,3 +0,0 @@ -writing -writeOn: stream - onWrite value: stream \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json b/repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json deleted file mode 100644 index b6d2bf76b..000000000 --- a/repository/Seaside-Zinc.package/ZnDeferredResponse.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnResponse", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "onWrite" - ], - "name" : "ZnDeferredResponse", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md deleted file mode 100644 index 852eb144e..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I group a ZnRequest together with its stream, purely for convenience. \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st deleted file mode 100644 index 0496ec988..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/class/nativeRequest.stream..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -nativeRequest: aZnRequest stream: aStream - ^ self new - nativeRequest: aZnRequest; - stream: aStream \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st deleted file mode 100644 index 0759b5f7a..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nativeRequest: anObject - nativeRequest := anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st deleted file mode 100644 index 30f70fdcb..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/nativeRequest.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nativeRequest - ^ nativeRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st deleted file mode 100644 index 2570b7d65..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stream: anObject - stream := anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st deleted file mode 100644 index 691d96996..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/instance/stream.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stream - ^ stream \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json deleted file mode 100644 index f6361184a..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "nativeRequest", - "stream" - ], - "name" : "ZnSeasideRequest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md deleted file mode 100644 index aa90ea132..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am ZnSeasideServerAdaptorDelegate. - -I handle Zinc HTTP Server delegate's #handleRequest: using WAServerAdaptor>>#process: - -Instance Variables: - adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st deleted file mode 100644 index 1c8156d2d..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -forServer: znServer - | adaptor | - adaptor := ZnZincServerAdaptor new. - adaptor unregister. - adaptor server: znServer. - ^ self with: adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st deleted file mode 100644 index 82afceebd..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st +++ /dev/null @@ -1,3 +0,0 @@ -examples -installInDefaultServer - ^ self installInServer: ZnServer default \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st deleted file mode 100644 index 15a2175b4..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st +++ /dev/null @@ -1,3 +0,0 @@ -examples -installInServer: znServer - ^ self installInServer: znServer underPrefix: 'seaside' \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st deleted file mode 100644 index 15e141156..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st +++ /dev/null @@ -1,16 +0,0 @@ -examples -installInServer: znServer underPrefix: prefix - "Install a ZnSeasideServerAdaptorDelegate in znServer under prefix, - provided znServer contains a ZnDefaultServerDelegate instance as primary delegate. - Note that the incoming request is destructively modified. - Note that a global #serverPath is added to the default Seaside dispatcher." - - | seasideDelegate | - seasideDelegate := self forServer: znServer. - znServer delegate - map: 'seaside' - to: [ :request | - request uri removeFirstPathSegment. - seasideDelegate handleRequest: request ]. - WAAdmin defaultDispatcher serverPath: prefix. - ^ seasideDelegate \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st deleted file mode 100644 index 9a56966bf..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/class/with..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -with: aSeasideServerAdaptor - ^ self new - adaptor: aSeasideServerAdaptor; - yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st deleted file mode 100644 index 79a2a1e3c..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -adaptor: aSeasideServerAdaptor - adaptor := aSeasideServerAdaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st deleted file mode 100644 index a103e81ba..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -adaptor - ^ adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st deleted file mode 100644 index ea81f47d4..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st +++ /dev/null @@ -1,5 +0,0 @@ -public -handleRequest: znRequest - "I pass a Zinc HTTP Components ZnRequest to my Seaside Server Adaptor using #process:" - - ^ self adaptor process: znRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st deleted file mode 100644 index c000f754b..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st +++ /dev/null @@ -1,5 +0,0 @@ -public -handleRequest: request gemServer: gemServer - "transactions handled by the adaptor" - - ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st deleted file mode 100644 index 17bc2c2a0..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st +++ /dev/null @@ -1,5 +0,0 @@ -public -value: request - "I implement the generic #value: message as equivalent to #handleRequest:" - - ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json deleted file mode 100644 index 70d16d49d..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideServerAdaptorDelegate.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "SvenVanCaekenberghe 9/30/2010 18:13", - "super" : "Object", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "adaptor" - ], - "name" : "ZnSeasideServerAdaptorDelegate", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md deleted file mode 100644 index fc357480e..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate - -Instance Variables: - staticDelegate aZnStaticFileServerDelegate - wwwRootDirectory - The directory on your file system where the JS/CSS/JPEG etc. files you want to serve reside \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st deleted file mode 100644 index 6d9d315c3..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st +++ /dev/null @@ -1,14 +0,0 @@ -public -handleRequest: znRequest - "If the Seaside request processing apparatus returns an HTTP response with a 'not found' error for a GET request, - check the filesystem for a file that matches the uri of the request, if found send the file if not send the original error." - - | response staticResponse | - response := self adaptor process: znRequest. - ^ (response isNotFound and: [ znRequest method = 'GET' and: [ response isAuthenticationRequired not ] ]) - ifTrue: [ - staticResponse := self staticDelegate handleRequest: znRequest. - staticResponse isNotFound - ifTrue: [ response ] - ifFalse: [ staticResponse ] ] - ifFalse: [ response ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st deleted file mode 100644 index 36f8d1c0d..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initializeStaticDelegate - ^ ZnStaticFileServerDelegate new - directory: self wwwRootDirectory; - yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st deleted file mode 100644 index 6667a841b..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -updating -serveFilesFrom: aDirectoryPathString - self wwwRootDirectory: (ZnFileSystemUtils directory: aDirectoryPathString ) \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st deleted file mode 100644 index 743526948..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -staticDelegate - ^ staticDelegate ifNil: [ staticDelegate := self initializeStaticDelegate ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st deleted file mode 100644 index 8ecc4811b..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -wwwRootDirectory: fileDirectory - "This is the root directory for your css/js/images etc...." - - wwwRootDirectory := fileDirectory \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st deleted file mode 100644 index 322d96705..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -wwwRootDirectory - "This is the root directory for your css/js/images etc...." - - ^ wwwRootDirectory ifNil: [ - wwwRootDirectory := ZnFileSystemUtils directory: '/var/www' ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json deleted file mode 100644 index bff4cfda4..000000000 --- a/repository/Seaside-Zinc.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnSeasideServerAdaptorDelegate", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "staticDelegate", - "wwwRootDirectory" - ], - "name" : "ZnSeasideStaticServerAdaptorDelegate", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md deleted file mode 100644 index f59977003..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/README.md +++ /dev/null @@ -1,11 +0,0 @@ -I convert between Seaside and Zinc HTTP requests and responses. -I am a WAServerAdaptor. - -Instance Variables: - server - -I can be started like any other Seaside adaptor: - - ZnZincServerAdaptor startOn: 8080 - -I work together with a ZnSeasideServerAdaptorDelegate. I offer several advanced configuration options for specialized applications in my 'initialize-release' protocol. See also the 'example' class protocol of ZnSeasideServerAdaptorDelegate. \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st deleted file mode 100644 index 3c8e54c30..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStart.st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicStart - self server start \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st deleted file mode 100644 index 9deb98cc2..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/basicStop.st +++ /dev/null @@ -1,6 +0,0 @@ -private -basicStop - server - ifNotNil: [ - server stop. - server := nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st deleted file mode 100644 index fb9098cdf..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureDelegate.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -configureDelegate - "Set the main delegate of my server to the default one." - - server delegate: self defaultDelegate \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st deleted file mode 100644 index e3324d9cc..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st +++ /dev/null @@ -1,9 +0,0 @@ -initialize-release -configureServerForBinaryReading - "Seaside wants to do its own text conversions" - - server reader: (server streamUploads - ifTrue: [ - [ :stream | ZnRequest readBinaryFrom: stream ] ] - ifFalse: [ - [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st deleted file mode 100644 index 9d7ee260a..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipart..st +++ /dev/null @@ -1,15 +0,0 @@ -private -convertMultipart: entity - | dictionary | - dictionary := ZnMultiValueDictionary new. - entity class = ZnStreamingEntity - ifTrue: [ - self - convertMultipartStreamingEntity: entity - with: dictionary ] - ifFalse: [ - self - convertMultipartEntity: entity - with: dictionary ]. - ^ dictionary - \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st deleted file mode 100644 index 399a4c52f..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st +++ /dev/null @@ -1,15 +0,0 @@ -private -convertMultipartEntity: anEntity with: aMultiValueDictionary - anEntity partsDo: [ :part | - | value | - value := part hasEntity - ifFalse: [ String new ] - ifTrue: [ - (part fileName isEmptyOrNil not or: [ - part contentType notNil and: [ - part contentType isBinary ] ]) - ifFalse: [ self codec url decode: part fieldValueString ] - ifTrue: [ self convertMultipartFileField: part ] ]. - aMultiValueDictionary - at: part fieldName - add: value ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st deleted file mode 100644 index 2add0fb20..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st +++ /dev/null @@ -1,8 +0,0 @@ -private -convertMultipartFileField: part - | file | - (file := WAFile new) - fileName: part fileName; - contentType: part contentType printString; - contents: part contents asByteArray. - ^ file \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st deleted file mode 100644 index 2393717e8..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ /dev/null @@ -1,30 +0,0 @@ -private -convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary - | entity | - entity := ZnStreamingMultiPartFormDataEntity new - readBinaryFrom: anEntity stream; - contentType: anEntity contentType; - yourself. - entity - partsDecodeWith: [ :znMimePart | - aMultiValueDictionary - at: znMimePart fieldName - add: (self codec url decode: (znMimePart hasEntity - ifTrue: [ znMimePart fieldValueString ] - ifFalse: [ String new ])) ] - decodeFilesWith: [ :znMimePart :filePath | - "Empty file + empty filename means that the file form - field did not contain a value (no file was selected)." - (znMimePart fileName isEmpty and: [ - filePath asFileReference size isZero ]) - ifTrue: [ filePath asFileReference ensureDelete ] - ifFalse: [ - aMultiValueDictionary - at: znMimePart fieldName - add: (WAExternalFile new - contentType: znMimePart contentType printString; - fileName: (znMimePart fileName ifEmpty: [ - "It is legal for the `filename` value to be empty" - filePath asFileReference basename ]); - filePath: filePath; - yourself) ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st deleted file mode 100644 index be8f252f9..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultCodec.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultCodec - ^ GRCodec forEncoding: 'utf-8' \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st deleted file mode 100644 index 9f1c68495..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultDelegate - ^ ZnSeasideServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st deleted file mode 100644 index 4c9a51f42..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultZnServer - ^ ZnServer on: self port \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st deleted file mode 100644 index 2f5d79c93..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isRunning.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRunning - ^ server notNil and: [ server isRunning ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st deleted file mode 100644 index 9f74a15a3..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStarting.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStarting - ^ false \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st deleted file mode 100644 index 742d855f0..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopped.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStopped - ^ server isNil or: [ server isRunning not ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st deleted file mode 100644 index a0c287c8a..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/isStopping.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStopping - ^ false \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st deleted file mode 100644 index 2d9f91f98..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/printOn..st +++ /dev/null @@ -1,7 +0,0 @@ -printing -printOn: stream - super printOn: stream. - stream - nextPut: $(; - << self statusString; - nextPut: $) \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st deleted file mode 100644 index eaf61649f..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st +++ /dev/null @@ -1,5 +0,0 @@ -converting -requestAddressFor: aZincRequest - ^ aZincRequest headers - at: ZnConstants remoteAddressHeader - ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st deleted file mode 100644 index c1d08a051..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st +++ /dev/null @@ -1,12 +0,0 @@ -converting -requestBodyFor: aZincRequest - ^ (aZincRequest method ~= #TRACE - and: [ aZincRequest hasEntity - and: [ aZincRequest entity isEmpty not - and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not - and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) - ifTrue: [ - "Seaside wants to do its own text conversions" - aZincRequest entity contents asString ] - ifFalse: [ - String new ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st deleted file mode 100644 index 05c1576a4..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st +++ /dev/null @@ -1,6 +0,0 @@ -converting -requestCookiesFor: aZincRequest - | cookieString | - cookieString := aZincRequest headers - at: 'Cookie' ifAbsent: [ ^ #() ]. - ^ WARequestCookie fromString: cookieString codec: self codec \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st deleted file mode 100644 index e0ac1a3f1..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st +++ /dev/null @@ -1,18 +0,0 @@ -converting -requestFieldsFor: aZincRequest - | fields | - fields := WARequestFields new. - (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) - ifTrue: [ - (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) - ifTrue: [ - fields addAll: (aZincRequest entity class = ZnStreamingEntity - ifTrue: [ - ZnApplicationFormUrlEncodedEntity new - readFrom: aZincRequest entity stream; - fields ] - ifFalse: [ aZincRequest entity fields ]) ]. - (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) - ifTrue: [ - fields addAll: (self convertMultipart: aZincRequest entity) ] ]. - ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st deleted file mode 100644 index c174a0f70..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st +++ /dev/null @@ -1,7 +0,0 @@ -converting -requestHeadersFor: aZincRequest - | fields | - fields := Dictionary new. - aZincRequest headersDo: [ :key :value | - fields at: key asLowercase put: value ]. - ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st deleted file mode 100644 index ba5191eff..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestMethodFor: aZincRequest - ^ aZincRequest method greaseString \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st deleted file mode 100644 index b8eaca364..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st +++ /dev/null @@ -1,20 +0,0 @@ -converting -requestUrlFor: aZincRequest - | zincUrl seasideUrl | - zincUrl := aZincRequest url. - seasideUrl := WAUrl new - scheme: zincUrl schemeOrDefault greaseString; - host: zincUrl host; - port: zincUrl port; - fragment: zincUrl fragment. - zincUrl hasPath ifTrue: [ - zincUrl isDirectoryPath - ifTrue: [ "last path segment is $/ or #/" - zincUrl pathSegments - "GemStone/S currently does not support #allButLastDo:" - allButLast do: [ :each | seasideUrl rawAddToPath: each ]. - seasideUrl slash: true ] - ifFalse: [ seasideUrl rawAddAllToPath: zincUrl pathSegments ] ]. - zincUrl - queryDo: [ :key :value | seasideUrl addField: key value: value ]. - ^ seasideUrl \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st deleted file mode 100644 index a836ee781..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestVersionFor: aZincRequest - ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st deleted file mode 100644 index 560c00376..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/responseFrom..st +++ /dev/null @@ -1,19 +0,0 @@ -converting -responseFrom: aRequestContext - | partialHeaders cookies fullHeaders seasideResponse contents entity contentType | - seasideResponse := aRequestContext response. - partialHeaders := seasideResponse headers. - cookies := seasideResponse cookies. - fullHeaders := ZnHeaders defaultResponseHeaders. - partialHeaders keysAndValuesDo: [ :key :value | - fullHeaders at: key add: value greaseString ]. - cookies do: [ :each | - fullHeaders at: 'Set-Cookie' add: each rfc6265String ]. - contentType := seasideResponse contentType greaseString. - contents := seasideResponse contents. - entity := (ZnEntity bytes: contents) contentType: contentType; yourself. - ^ ZnResponse new - statusLine: (ZnStatusLine code: seasideResponse status); - headers: fullHeaders; - entity: entity; - yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st deleted file mode 100644 index 19155e190..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -server: znServer - "I initialize the actual ZnServer instance that I will be using to znServer, - to prevent a fallback to #defaultZnServer" - - server := znServer. - port := znServer port \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st deleted file mode 100644 index a8c20254a..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/server.st +++ /dev/null @@ -1,11 +0,0 @@ -accessing -server - "Return the ZnServer running me, create a default one if missing and confugure it." - - server - ifNil: [ - server := self defaultZnServer. - self - configureDelegate; - configureServerForBinaryReading ]. - ^ server \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st deleted file mode 100644 index 50d5d09dd..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/serverClass..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -serverClass: znServerClass - "I initialize the actual ZnServer instance that I will be using, - by instanciating znServerClass using my port" - - self server: (znServerClass on: self port) \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st deleted file mode 100644 index 8378fcf35..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/shutDown.st +++ /dev/null @@ -1,4 +0,0 @@ -private -shutDown - self isRunning - ifTrue: [ server stop ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st deleted file mode 100644 index e28bdb643..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -private -startUp - self isRunning - ifFalse: [ server ifNotNil: [ server start ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st deleted file mode 100644 index 0a91a75f1..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/instance/statusString.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -statusString - ^ 'zinc on port ', self port greaseString, - ( self isRunning ifTrue: [ ' [running]' ] ifFalse: [ ' [stopped]' ] ) \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json deleted file mode 100644 index 4a21e4799..000000000 --- a/repository/Seaside-Zinc.package/ZnZincServerAdaptor.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "WAServerAdaptor", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "server" - ], - "name" : "ZnZincServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md deleted file mode 100644 index 83eba3bfb..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/README.md +++ /dev/null @@ -1,19 +0,0 @@ -This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate - -Start it with something like: - - - ZnZincStaticServerAdaptor startOn: 8080 andServeFilesFrom: '/var/www/'. - - -If you want to set cache expiration headers for your static assets you can run this: - - ZnZincStaticServerAdaptor default useDefaultExpirationHeaders. - -after you start the ZnZincStaticServerAdaptor. - -If you want to set your own expiration headers you can create a Dictionary like the one in ZnStaticFileServerDelegate class>>#defaultMimeTypeExpirations and then run: - - ZnZincStaticServerAdaptor default useCustomExpirationHeaders: myExpriationHeadersDirectory. - -where 'myExpirationHeadersDirectory' is structured similarly to the #defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st deleted file mode 100644 index 01e110adf..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -startOn: aPortNumber andServeFilesFrom: aDirectoryPathString - self startOn: aPortNumber. - self default server delegate serveFilesFrom: aDirectoryPathString \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st deleted file mode 100644 index 0b2467733..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultDelegate - ^ ZnSeasideStaticServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st deleted file mode 100644 index 4a3d5086a..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -useCustomExpirationHeaders: aDictionaryOfMimeTypesAndHeaders - self server delegate staticDelegate mimeTypeExpirations: aDictionaryOfMimeTypesAndHeaders \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st deleted file mode 100644 index 32f3f6eca..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -useDefaultExpirationHeaders - self server delegate staticDelegate mimeTypeExpirations: ZnStaticFileServerDelegate defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json deleted file mode 100644 index 8410adc83..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStaticServerAdaptor.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "PaulDeBruicker 5/11/2012 15:21", - "super" : "ZnZincServerAdaptor", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnZincStaticServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md deleted file mode 100644 index e5734bb90..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I convert requests and responses between Zinc and Seaside, but I do it using Seaside's WAComboResponse in order to allow data to be streamed to the client directly. \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st deleted file mode 100644 index c2d98c4dd..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/process..st +++ /dev/null @@ -1,9 +0,0 @@ -processing -process: aZnRequest - ^ ZnDeferredResponse - onWrite: [ :stream | - | request | - request := ZnSeasideRequest - nativeRequest: aZnRequest - stream: stream. - super process: request ] \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st deleted file mode 100644 index fd3326a65..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestFor: aZnSeasideRequest - ^super requestFor: aZnSeasideRequest nativeRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st deleted file mode 100644 index 324ad6379..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st +++ /dev/null @@ -1,8 +0,0 @@ -converting -responseFor: aZnRequest - | bufferedStream codecStream | - bufferedStream := GRPlatform current writeCharacterStreamOn: (self codec encodedStringClass new: 4096). - codecStream := self codec encoderFor: bufferedStream. - ^ WAComboResponse - onBuffered: (GRCountingStream on: codecStream) - external: aZnRequest stream \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st deleted file mode 100644 index e81a76584..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -converting -responseFrom: aRequestContext - "Since the response knows how to write itself on the stream (and may already be partly written), - there's not much left to do." - - aRequestContext response - flush; - close \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json b/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json deleted file mode 100644 index 357f7d39c..000000000 --- a/repository/Seaside-Zinc.package/ZnZincStreamingServerAdaptor.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnZincServerAdaptor", - "category" : "Seaside-Zinc", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnZincStreamingServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/monticello.meta/categories.st b/repository/Seaside-Zinc.package/monticello.meta/categories.st deleted file mode 100644 index a88ef8b2b..000000000 --- a/repository/Seaside-Zinc.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Seaside-Zinc'! diff --git a/repository/Seaside-Zinc.package/monticello.meta/initializers.st b/repository/Seaside-Zinc.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Seaside-Zinc.package/monticello.meta/package b/repository/Seaside-Zinc.package/monticello.meta/package deleted file mode 100644 index b6740e49c..000000000 --- a/repository/Seaside-Zinc.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Seaside-Zinc') \ No newline at end of file diff --git a/repository/Seaside-Zinc.package/properties.json b/repository/Seaside-Zinc.package/properties.json deleted file mode 100644 index 6f31cf5a2..000000000 --- a/repository/Seaside-Zinc.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file From 31d3db5a18dba289302bfc5e63357d13fecac51d Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 21:59:10 +0100 Subject: [PATCH 24/41] Moved all classes from Zinc-Seaside-Pharo to Zinc-Seaside --- .../instance/baselineadaptors..st | 11 +++++------ .../class/temporaryFileDirectory..st | 3 --- .../class/temporaryFileDirectory.st | 4 ---- .../instance/crlf.st | 2 +- .../instance/space.st | 2 +- .../ZdcAbstractSocketStream.extension/properties.json | 0 .../instance/characterEncoder.st | 2 +- .../ZnPercentEncoder.extension/properties.json | 0 .../class/writeQueryFields.on..st | 2 +- .../ZnResourceMetaUtils.extension/properties.json | 0 .../ZnRingBuffer.class/README.md | 0 .../ZnRingBuffer.class/class/new..st | 0 .../ZnRingBuffer.class/class/new.st | 0 .../ZnRingBuffer.class/class/on..st | 0 .../ZnRingBuffer.class/instance/^equals.st | 0 .../ZnRingBuffer.class/instance/at..st | 0 .../ZnRingBuffer.class/instance/at.put..st | 0 .../ZnRingBuffer.class/instance/checkBoundsFor..st | 0 .../ZnRingBuffer.class/instance/copyFrom.to..st | 0 .../ZnRingBuffer.class/instance/do..st | 0 .../ZnRingBuffer.class/instance/hash.st | 0 .../ZnRingBuffer.class/instance/indexOf.ifAbsent..st | 0 .../ZnRingBuffer.class/instance/initialize..st | 0 .../ZnRingBuffer.class/instance/initialize.st | 0 .../instance/initializeWithCollection..st | 0 .../ZnRingBuffer.class/instance/moveStartTo..st | 0 .../ZnRingBuffer.class/instance/printOn..st | 0 .../instance/replaceFrom.to.with.startingAt..st | 0 .../ZnRingBuffer.class/instance/size.st | 0 .../ZnRingBuffer.class/properties.json | 2 +- .../ZnRingBufferError.class/README.md | 0 .../ZnRingBufferError.class/properties.json | 2 +- .../ZnRingBufferIllegalAccess.class/README.md | 0 .../ZnRingBufferIllegalAccess.class/properties.json | 2 +- .../ZnRingBufferIllegalUse.class/README.md | 0 .../ZnRingBufferIllegalUse.class/properties.json | 2 +- .../ZnRingBufferTest.class/README.md | 0 .../ZnRingBufferTest.class/instance/testAt.st | 0 .../instance/testAtOutOfBounds.st | 0 .../ZnRingBufferTest.class/instance/testCopyFromTo.st | 0 .../ZnRingBufferTest.class/instance/testDo.st | 0 .../ZnRingBufferTest.class/instance/testEquals.st | 0 .../instance/testIllegalInstantiation.st | 0 .../ZnRingBufferTest.class/instance/testIndexOf.st | 0 .../instance/testIndexOfIfAbsent.st | 0 .../instance/testIndexOfIfAbsentWhenAbsent.st | 0 .../instance/testMoveStartTo.st | 0 .../instance/testMoveStartToIdentity.st | 0 .../instance/testMoveStartToOutOfBounds.st | 0 .../ZnRingBufferTest.class/instance/testOn.st | 0 .../instance/testReplaceFromToWithStartingAt.st | 0 .../ZnRingBufferTest.class/instance/testSize.st | 0 .../ZnRingBufferTest.class/properties.json | 2 +- .../ZnServer.extension/instance/streamUploads..st | 2 +- .../ZnServer.extension/instance/streamUploads.st | 2 +- .../ZnServer.extension/properties.json | 0 .../README.md | 0 .../parseMultiPartFieldWithMimePart.decodeWith..st | 0 ...ultiPartFieldWithoutLengthWithBoundary.writeOn..st | 0 ...dWithoutLengthWithMimePart.boundary.decodeWith..st | 0 ...iPartFileFieldWithMimePart.boundary.decodeWith..st | 2 +- .../instance/partsDecodeWith.decodeFilesWith..st | 0 .../instance/readBinaryFrom..st | 0 .../properties.json | 2 +- .../ZnUrl.extension/instance/encode.on..st | 2 +- .../ZnUrl.extension/instance/encodePath.on..st | 2 +- .../ZnUrl.extension/instance/encodeQuery.on..st | 2 +- .../ZnUrl.extension/properties.json | 0 68 files changed, 21 insertions(+), 29 deletions(-) delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZdcAbstractSocketStream.extension/instance/crlf.st (62%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZdcAbstractSocketStream.extension/instance/space.st (70%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZdcAbstractSocketStream.extension/properties.json (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnPercentEncoder.extension/instance/characterEncoder.st (90%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnPercentEncoder.extension/properties.json (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st (86%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnResourceMetaUtils.extension/properties.json (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/class/new..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/class/new.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/class/on..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/^equals.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/at..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/at.put..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/checkBoundsFor..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/copyFrom.to..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/do..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/hash.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/indexOf.ifAbsent..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/initialize..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/initialize.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/initializeWithCollection..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/moveStartTo..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/printOn..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/instance/size.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBuffer.class/properties.json (83%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferError.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferError.class/properties.json (82%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferIllegalAccess.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferIllegalAccess.class/properties.json (83%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferIllegalUse.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferIllegalUse.class/properties.json (83%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testAt.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testAtOutOfBounds.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testCopyFromTo.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testDo.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testEquals.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testIllegalInstantiation.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testIndexOf.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testMoveStartTo.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testOn.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/instance/testSize.st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnRingBufferTest.class/properties.json (80%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnServer.extension/instance/streamUploads..st (78%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnServer.extension/instance/streamUploads.st (78%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnServer.extension/properties.json (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/README.md (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st (86%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st (100%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnStreamingMultiPartFormDataEntity.class/properties.json (87%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnUrl.extension/instance/encode.on..st (88%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnUrl.extension/instance/encodePath.on..st (88%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnUrl.extension/instance/encodeQuery.on..st (88%) rename repository/{Zinc-Seaside-Pharo.package => Zinc-Seaside.package}/ZnUrl.extension/properties.json (100%) diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index ae04964c6..633ca254d 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -28,8 +28,8 @@ baselineadaptors: spec repository: 'http://ss3.gemtalksystems.com/ss/WebClient' ]. spec package: 'WebClient-Seaside-Adaptor' - with: [ - spec + with: [ + spec repository: 'http://ss3.gemtalksystems.com/ss/WebClient'; requires: #('WebClient Project' 'Seaside-Core') ]. spec group: 'WebClient' with: #('WebClient-Seaside-Adaptor') ]. @@ -42,11 +42,10 @@ baselineadaptors: spec package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ]; package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ]; package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ]; - package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ]; - package: 'Zinc-Seaside-Pharo' with: [ spec requires: #('Zinc-Seaside') ]. + package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ]. spec group: 'Kom' with: #('Seaside-Adaptors-Comanche'); - group: 'Zinc' with: #('Zinc-Seaside' 'Zinc-Seaside-Pharo'); + group: 'Zinc' with: #('Zinc-Seaside'); group: 'default' with: #('Zinc'); group: 'CI' with: #('Zinc') ]. @@ -82,4 +81,4 @@ baselineadaptors: spec spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests'); - group: 'Zinc' with: #('Zinc-Seaside') ] + group: 'Zinc' with: #('Zinc-Seaside') ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st deleted file mode 100644 index 44be9cadc..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory..st +++ /dev/null @@ -1,3 +0,0 @@ -as yet unclassified -temporaryFileDirectory: aFileReference - TemporaryFileDirectory := aFileReference \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st b/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st deleted file mode 100644 index 1091256fc..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/class/temporaryFileDirectory.st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -temporaryFileDirectory - ^ TemporaryFileDirectory ifNil: [ - TemporaryFileDirectory := FileLocator temp asFileReference ] \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st similarity index 62% rename from repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st rename to repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st index 500a9a0b5..4254b2ac1 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/crlf.st +++ b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside crlf self nextPutAll: String crlf \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st similarity index 70% rename from repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st rename to repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st index c82a7520d..fb9602aa0 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/instance/space.st +++ b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside space self nextPut: Character space asciiValue \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZdcAbstractSocketStream.extension/properties.json rename to repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st similarity index 90% rename from repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st rename to repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st index dbee0eaa9..694b798c0 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/instance/characterEncoder.st +++ b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st @@ -1,4 +1,4 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside characterEncoder "Return the character encoder that I currently use. If not set, I will default to using UTF-8." diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnPercentEncoder.extension/properties.json rename to repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json diff --git a/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st similarity index 86% rename from repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st rename to repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st index a63c6b0a6..b4d945344 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st +++ b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside writeQueryFields: dictionary on: stream self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnResourceMetaUtils.extension/properties.json rename to repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md b/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/README.md rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/new.st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/class/on..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/^equals.st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/at.put..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/checkBoundsFor..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/copyFrom.to..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/do..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/hash.st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initialize.st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/initializeWithCollection..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/moveStartTo..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/printOn..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/instance/size.st rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json similarity index 83% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json rename to repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json index 25c6b162a..4ff3fc3d7 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBuffer.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:33", "super" : "Object", - "category" : "Zinc-Seaside-Pharo-Core", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/README.md rename to repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json similarity index 82% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json rename to repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json index b637c47b5..8b4decedb 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferError.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:24", "super" : "Error", - "category" : "Zinc-Seaside-Pharo-Core", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/README.md rename to repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json similarity index 83% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json rename to repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json index 877375071..5b53ce5c7 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalAccess.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:25", "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside-Pharo-Core", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/README.md rename to repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json similarity index 83% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json rename to repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json index cf8060932..4e014a09b 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferIllegalUse.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "mml 07/26/2019 15:26", "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside-Pharo-Core", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/README.md rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAt.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testCopyFromTo.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testDo.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testEquals.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOf.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartTo.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testOn.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/instance/testSize.st rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json similarity index 80% rename from repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json rename to repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json index f4e1ad03b..e87dcff3a 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnRingBufferTest.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "", "super" : "TestCase", - "category" : "Zinc-Seaside-Pharo-Tests", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ ], diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st similarity index 78% rename from repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st rename to repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st index 79a3ccf8d..9a0f58d29 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads..st +++ b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st @@ -1,4 +1,4 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside streamUploads: aBoolean ^ self optionAt: #streamUploads diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st similarity index 78% rename from repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st rename to repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st index eb45a915c..3c2e08410 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/instance/streamUploads.st +++ b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st @@ -1,4 +1,4 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside streamUploads ^ self optionAt: #streamUploads diff --git a/repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json b/repository/Zinc-Seaside.package/ZnServer.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnServer.extension/properties.json rename to repository/Zinc-Seaside.package/ZnServer.extension/properties.json diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/README.md rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st similarity index 86% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st index 63a21bfdf..5e5fa8aa6 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -2,7 +2,7 @@ private parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock | fullBoundary file | fullBoundary := String crlf asByteArray, aBoundary. - file := self class temporaryFileDirectory / UUID new asString. + file := GRPlatform current newTemporaryFileReference. GRPlatform current writeFileStreamOn: file pathString do: [ :writer | diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st diff --git a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json similarity index 87% rename from repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json rename to repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json index 0fe35ba30..1043a41b8 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnStreamingMultiPartFormDataEntity.class/properties.json +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -1,7 +1,7 @@ { "commentStamp" : "MaxLeske 5/20/2020 10:03", "super" : "ZnMultiPartFormDataEntity", - "category" : "Zinc-Seaside-Pharo-Core", + "category" : "Zinc-Seaside", "classinstvars" : [ ], "pools" : [ ], "classvars" : [ diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st similarity index 88% rename from repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st rename to repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st index b169b0e71..50c0a8771 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encode.on..st +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside encode: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st similarity index 88% rename from repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st rename to repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st index a67b9d783..c5c7cfdbc 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodePath.on..st +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside encodePath: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st similarity index 88% rename from repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st rename to repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st index 90f42d52d..039f6c533 100644 --- a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/instance/encodeQuery.on..st +++ b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st @@ -1,3 +1,3 @@ -*Zinc-Seaside-Pharo +*Zinc-Seaside encodeQuery: string on: stream stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json b/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json similarity index 100% rename from repository/Zinc-Seaside-Pharo.package/ZnUrl.extension/properties.json rename to repository/Zinc-Seaside.package/ZnUrl.extension/properties.json From 2421d69049d752397bb8a2476a6b7964915a184a Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 22:13:51 +0100 Subject: [PATCH 25/41] Fix GemStone incompatibilities --- .../WAExternalFile.class/instance/exists.st | 3 ++- .../ZnPercentEncoder.extension/instance/characterEncoder.st | 2 +- .../class/writeQueryFields.on..st | 2 +- .../ZnUrl.extension/instance/encode.on..st | 3 --- .../ZnUrl.extension/instance/encodePath.on..st | 3 --- .../ZnUrl.extension/instance/encodeQuery.on..st | 3 --- .../Zinc-Seaside.package/ZnUrl.extension/properties.json | 3 --- 7 files changed, 4 insertions(+), 15 deletions(-) delete mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st delete mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st delete mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st delete mode 100644 repository/Zinc-Seaside.package/ZnUrl.extension/properties.json diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st index 3ec47fd9f..6ad48f871 100644 --- a/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/exists.st @@ -1,3 +1,4 @@ testing exists - ^ self fileReference exists \ No newline at end of file + + ^ GRPlatform current fileExists: self fullyQualifiedFilePath \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st index 694b798c0..b23581c8a 100644 --- a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st +++ b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st @@ -3,4 +3,4 @@ characterEncoder "Return the character encoder that I currently use. If not set, I will default to using UTF-8." - ^ characterEncoder ifNil: [ characterEncoder := ZnCharacterEncoder default ] \ No newline at end of file + ^ characterEncoder ifNil: [ characterEncoder := ZnDefaultCharacterEncoder value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st index b4d945344..8f0988fb7 100644 --- a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st +++ b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st @@ -1,3 +1,3 @@ *Zinc-Seaside writeQueryFields: dictionary on: stream - self writeQueryFields: dictionary withEncoder: ZnCharacterEncoder default on: stream \ No newline at end of file + self writeQueryFields: dictionary withEncoder: ZnDefaultCharacterEncoder value on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st deleted file mode 100644 index 50c0a8771..000000000 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encode.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -encode: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #rfc3986SafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st deleted file mode 100644 index c5c7cfdbc..000000000 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodePath.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -encodePath: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #urlPathSafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st b/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st deleted file mode 100644 index 039f6c533..000000000 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/instance/encodeQuery.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -encodeQuery: string on: stream - stream nextPutAll: (ZnResourceMetaUtils encodePercent: string safeSet: #querySafeSet encoder: ZnCharacterEncoder default) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json b/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json deleted file mode 100644 index ed0059c92..000000000 --- a/repository/Zinc-Seaside.package/ZnUrl.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnUrl" -} \ No newline at end of file From 2025af2bdb331be35b9e3d5cd6e9eafddfee7cc4 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 22:31:14 +0100 Subject: [PATCH 26/41] Remove over-writes from Zinc classes (breaks on GemStone?) --- .../ZnPercentEncoder.extension/instance/characterEncoder.st | 6 ------ .../ZnPercentEncoder.extension/properties.json | 3 --- .../class/writeQueryFields.on..st | 3 --- .../ZnResourceMetaUtils.extension/properties.json | 3 --- 4 files changed, 15 deletions(-) delete mode 100644 repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st delete mode 100644 repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st delete mode 100644 repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st deleted file mode 100644 index b23581c8a..000000000 --- a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/instance/characterEncoder.st +++ /dev/null @@ -1,6 +0,0 @@ -*Zinc-Seaside -characterEncoder - "Return the character encoder that I currently use. - If not set, I will default to using UTF-8." - - ^ characterEncoder ifNil: [ characterEncoder := ZnDefaultCharacterEncoder value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json b/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json deleted file mode 100644 index 795786b0c..000000000 --- a/repository/Zinc-Seaside.package/ZnPercentEncoder.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnPercentEncoder" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st deleted file mode 100644 index 8f0988fb7..000000000 --- a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/class/writeQueryFields.on..st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -writeQueryFields: dictionary on: stream - self writeQueryFields: dictionary withEncoder: ZnDefaultCharacterEncoder value on: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json b/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json deleted file mode 100644 index 76a887c04..000000000 --- a/repository/Zinc-Seaside.package/ZnResourceMetaUtils.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnResourceMetaUtils" -} \ No newline at end of file From 1fbbf24a509af5292e1900a2ede8da2767f0da47 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 22:51:41 +0100 Subject: [PATCH 27/41] revert addition of Swazoo adaptor to the baseline --- .../BaselineOfSeaside3.class/instance/baselineadaptors..st | 4 +--- 1 file changed, 1 insertion(+), 3 deletions(-) diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index 633ca254d..b9d613a93 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -69,14 +69,12 @@ baselineadaptors: spec repository: 'github://GsDevKit/zinc:gs_master/repository' ]. spec package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ]; - package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Swazoo' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; - package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ]; + package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; package: 'Zinc-Seaside' with: [ spec requires: #('Zinc Project' 'Seaside-Core'); includes: #('Seaside-GemStone-Adaptors-Zinc') ]; package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ]; package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]. spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); From b38d7a265e0ec39ce060123572fec392d5454096 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 22:53:03 +0100 Subject: [PATCH 28/41] re-add Swazoo for older GemStone versions --- .../instance/baselineadaptors..st | 11 ++++++++++- 1 file changed, 10 insertions(+), 1 deletion(-) diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index b9d613a93..f70f2b33b 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -79,4 +79,13 @@ baselineadaptors: spec spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests'); - group: 'Zinc' with: #('Zinc-Seaside') ] \ No newline at end of file + group: 'Zinc' with: #('Zinc-Seaside') ]. + + spec + for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' ) + do: [ + spec + package: 'Seaside-GemStone-GemServer-Tests' with: [ spec includes: #( 'Seaside-GemStone-GemServer-Swazoo-Tests') ]; + package: 'Seaside-GemStone-GemServer-Swazoo-Tests' with: [ spec requires: #('Seaside-GemStone-Adaptors-Swazoo') ]; + package: 'Seaside-Adaptors-Swazoo' with: [ spec includes: #('Seaside-GemStone-Adaptors-Swazoo') ]; + package: 'Seaside-GemStone-Adaptors-Swazoo' with: [ spec requires: #('Seaside-Adaptors-Swazoo' 'Seaside-GemStone-GemServer-Core') ] ] \ No newline at end of file From e9c28c25e8d7b47385daf709a29fdaf09061f16e Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 23:28:17 +0100 Subject: [PATCH 29/41] Move Pharo-specific ZnRingBuffer code to Pharo-specific package and split-off tests in a separate package --- .../instance/baselineadaptors..st | 19 +++++---- .../ZnPharoRingBuffer.class/README.md | 1 + .../ZnPharoRingBuffer.class/instance/at..st | 5 +++ .../instance/at.put..st | 7 ++++ .../ZnPharoRingBuffer.class/properties.json | 11 +++++ .../monticello.meta/categories.st | 2 - .../ZnRingBuffer.class/instance/at..st | 4 +- .../ZnRingBuffer.class/instance/at.put..st | 2 +- .../ZnRingBufferTest.class/README.md | 0 .../ZnRingBufferTest.class/instance/testAt.st | 22 ---------- .../instance/testAtOutOfBounds.st | 13 ------ .../instance/testCopyFromTo.st | 29 ------------- .../ZnRingBufferTest.class/instance/testDo.st | 15 ------- .../instance/testEquals.st | 15 ------- .../instance/testIllegalInstantiation.st | 5 --- .../instance/testIndexOf.st | 42 ------------------- .../instance/testIndexOfIfAbsent.st | 42 ------------------- .../instance/testIndexOfIfAbsentWhenAbsent.st | 9 ---- .../instance/testMoveStartTo.st | 20 --------- .../instance/testMoveStartToIdentity.st | 9 ---- .../instance/testMoveStartToOutOfBounds.st | 13 ------ .../ZnRingBufferTest.class/instance/testOn.st | 11 ----- .../testReplaceFromToWithStartingAt.st | 20 --------- .../instance/testSize.st | 15 ------- .../ZnRingBufferTest.class/properties.json | 11 ----- ...FieldWithoutLengthWithBoundary.writeOn..st | 2 +- .../instance/convertMultipartFileField..st | 2 +- 27 files changed, 41 insertions(+), 305 deletions(-) create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st create mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index f70f2b33b..c29ced0a1 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -38,14 +38,18 @@ baselineadaptors: spec spec for: #pharo - do: [ spec + do: [ + spec package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ]; package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ]; package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ]; - package: 'Zinc-Seaside' with: [ spec requires: #('Seaside-Core') ]. + package: 'Zinc-Seaside-Core' with: [ spec requires: #('Seaside-Core') ]; + package: 'Zinc-Seaside-Pharo' with: [ spec requires: #('Zinc-Seaside-Core') ]; + package: 'Zinc-Seaside-Tests' with: [ spec requires: #('Zinc-Seaside-Pharo') ]. spec group: 'Kom' with: #('Seaside-Adaptors-Comanche'); - group: 'Zinc' with: #('Zinc-Seaside'); + group: 'Zinc' with: #('Zinc-Seaside-Pharo'); + group: 'Tests' with: #('Zinc-Seaside-Tests'); group: 'default' with: #('Zinc'); group: 'CI' with: #('Zinc') ]. @@ -70,16 +74,17 @@ baselineadaptors: spec spec package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ]; package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; - package: 'Zinc-Seaside' + package: 'Zinc-Seaside-Core' with: [ spec requires: #('Zinc Project' 'Seaside-Core'); includes: #('Seaside-GemStone-Adaptors-Zinc') ]; package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]. + package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]; + package: 'Zinc-Seaside-Tests' with: [ spec requires: #('Zinc-Seaside-Core') ]. spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); - group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests'); - group: 'Zinc' with: #('Zinc-Seaside') ]. + group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests' 'Zinc-Seaside-Tests'); + group: 'Zinc' with: #('Zinc-Seaside-Core') ]. spec for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' ) diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md new file mode 100644 index 000000000..c69566671 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md @@ -0,0 +1 @@ +I am the optimized implementation of a ring buffer on Pharo \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st new file mode 100644 index 000000000..6af00d582 --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st @@ -0,0 +1,5 @@ +accessing +at: anInteger + self checkBoundsFor: anInteger. + + ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st new file mode 100644 index 000000000..378a1101d --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st @@ -0,0 +1,7 @@ +accessing +at: anInteger put: anObject + self checkBoundsFor: anInteger. + + buffer + atWrap: anInteger + offset + put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json new file mode 100644 index 000000000..8b19915ef --- /dev/null +++ b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 12/17/2023 23:19", + "super" : "ZnRingBuffer", + "category" : "Zinc-Seaside-Pharo", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnPharoRingBuffer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st b/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st index 5de595a72..34bfa36ba 100644 --- a/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st +++ b/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st @@ -1,3 +1 @@ SystemOrganization addCategory: #'Zinc-Seaside-Pharo'! -SystemOrganization addCategory: #'Zinc-Seaside-Pharo-Core'! -SystemOrganization addCategory: #'Zinc-Seaside-Pharo-Tests'! diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st index 6af00d582..1f73a1673 100644 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st @@ -1,5 +1,5 @@ accessing at: anInteger self checkBoundsFor: anInteger. - - ^ buffer atWrap: anInteger + offset \ No newline at end of file + + ^ buffer atWrap: (anInteger + offset) \\ buffer size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st index 378a1101d..5b4233044 100644 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st +++ b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st @@ -3,5 +3,5 @@ at: anInteger put: anObject self checkBoundsFor: anInteger. buffer - atWrap: anInteger + offset + atWrap: (anInteger + offset) \\ buffer size put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/README.md deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st deleted file mode 100644 index 43e91ff23..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAt.st +++ /dev/null @@ -1,22 +0,0 @@ -tests -testAt - | buffer | - buffer := ZnRingBuffer new: 5. - self assert: (buffer at: 1) isNil. - - buffer - at: 1 - put: 1. - self assert: (buffer at: 1) equals: 1. - - buffer - at: 2 - put: 2. - self assert: (buffer at: 2) equals: 2. - - buffer - at: 5 - put: 6. - self assert: (buffer at: 3) isNil. - self assert: (buffer at: 4) isNil. - self assert: (buffer at: 5) equals: 6 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st deleted file mode 100644 index 39f545879..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testAtOutOfBounds - | buffer | - buffer := ZnRingBuffer new: 5. - self - should: [ buffer at: 0 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer at: -1 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer at: 6 ] - raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st deleted file mode 100644 index 1819972e3..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testCopyFromTo.st +++ /dev/null @@ -1,29 +0,0 @@ -tests -testCopyFromTo - | buffer copy | - buffer := ZnRingBuffer on: #(1 2 3 4). - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(2 3 4). - - copy := buffer - copyFrom: 1 - to: 4. - - self assert: copy equals: #(1 2 3 4). - - buffer moveStartTo: 2. - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(3 4 1). - - buffer moveStartTo: 2. - copy := buffer - copyFrom: 2 - to: 4. - - self assert: copy equals: #(4 1 2) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st deleted file mode 100644 index 9d69cec17..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testDo.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testDo - | buffer collector | - buffer := ZnRingBuffer new: 5. - buffer - at: 1 put: 1; - at: 5 put: 2. - collector := OrderedCollection new. - buffer do: [ :value | collector add: value ]. - self assert: collector asArray equals: #(1 nil nil nil 2). - - buffer moveStartTo: 2. - collector := OrderedCollection new. - buffer do: [ :value | collector add: value ]. - self assert: collector asArray equals: #(nil nil nil 2 1) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st deleted file mode 100644 index c1f829bdc..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testEquals.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testEquals - "We use #= on purpose in this test because the test - only works one way." - | buffer | - buffer := ZnRingBuffer new: 3. - self assert: buffer = #(nil nil nil). - - buffer - at: 1 - put: 1. - self assert: buffer = #(1 nil nil). - - buffer moveStartTo: 2. - self assert: buffer = #(nil nil 1) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st deleted file mode 100644 index 0c55d9b5a..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st +++ /dev/null @@ -1,5 +0,0 @@ -tests -testIllegalInstantiation - self - should: [ ZnRingBuffer new ] - raise: ZnRingBufferIllegalUse \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st deleted file mode 100644 index d1ed25a97..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOf.st +++ /dev/null @@ -1,42 +0,0 @@ -tests -testIndexOf - | buffer index | - buffer := ZnRingBuffer new: 5. - buffer - at: 2 - put: 1. - - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 1. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 5. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 4. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 3. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st deleted file mode 100644 index 8ae2b7d0f..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st +++ /dev/null @@ -1,42 +0,0 @@ -tests -testIndexOfIfAbsent - | buffer index | - buffer := ZnRingBuffer new: 5. - buffer - at: 2 - put: 1. - - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 1. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 5. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 4. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 3. - - buffer moveStartTo: 2. - index := buffer - indexOf: 1 - ifAbsent: [ -1 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st deleted file mode 100644 index 0a2617dbf..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testIndexOfIfAbsentWhenAbsent - | buffer index | - buffer := ZnRingBuffer new: 5. - - index := buffer - indexOf: 1 - ifAbsent: [ 2 ]. - self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st deleted file mode 100644 index 25aa674ab..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartTo.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testMoveStartTo - | buffer | - buffer := ZnRingBuffer new: 5. - - buffer - at: 1 put: 1; - at: 5 put: 5. - buffer moveStartTo: 2. - self assert: (buffer at: 1) isNil. - self assert: (buffer at: 4) equals: 5. - self assert: (buffer at: 5) equals: 1. - - buffer moveStartTo: 5. - self assert: (buffer at: 1) equals: 1. - self assert: (buffer at: 5) equals: 5. - - buffer moveStartTo: 5. - self assert: (buffer at: 1) equals: 5. - self assert: (buffer at: 2) equals: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st deleted file mode 100644 index 39c42dce8..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st +++ /dev/null @@ -1,9 +0,0 @@ -tests -testMoveStartToIdentity - | buffer | - buffer := ZnRingBuffer new: 5. - - buffer - at: 1 put: 1; - moveStartTo: 1. - self assert: (buffer at: 1) equals: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st deleted file mode 100644 index 694120996..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st +++ /dev/null @@ -1,13 +0,0 @@ -tests -testMoveStartToOutOfBounds - | buffer | - buffer := ZnRingBuffer new: 5. - self - should: [ buffer moveStartTo: 0 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer moveStartTo: -1 ] - raise: ZnRingBufferIllegalAccess. - self - should: [ buffer moveStartTo: 6 ] - raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st deleted file mode 100644 index 5b117cbbd..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testOn.st +++ /dev/null @@ -1,11 +0,0 @@ -tests -testOn - | buffer | - buffer := ZnRingBuffer on: (ByteArray new: 1). - self assert: buffer size equals: 1. - buffer - at: 1 - put: 1. - self - should: [ buffer at: 1 put: $a ] - raise: Error \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st deleted file mode 100644 index d3338be90..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st +++ /dev/null @@ -1,20 +0,0 @@ -tests -testReplaceFromToWithStartingAt - | buffer replacement | - replacement := #(1 2 3 4). - 1 - to: 5 - do: [ :index | - buffer := ZnRingBuffer new: 5. - buffer moveStartTo: index. - buffer - replaceFrom: 2 - to: 4 - with: replacement - startingAt: 2. - - self assert: (buffer at: 1) isNil. - self assert: (buffer at: 2) equals: 2. - self assert: (buffer at: 3) equals: 3. - self assert: (buffer at: 4) equals: 4. - self assert: (buffer at: 5) isNil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st deleted file mode 100644 index b04045b55..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/instance/testSize.st +++ /dev/null @@ -1,15 +0,0 @@ -tests -testSize - | buffer | - buffer := ZnRingBuffer new: 2. - self assert: buffer size equals: 2. - - buffer - at: 1 put: 1; - at: 1 put: 1. - self assert: buffer size equals: 2. - - buffer - moveStartTo: 2; - at: 1 put: 3. - self assert: buffer size equals: 2 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json deleted file mode 100644 index e87dcff3a..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferTest.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "TestCase", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferTest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st index dcaa8f02f..3164f9eae 100644 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st +++ b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st @@ -5,7 +5,7 @@ parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer those bytes will belong to the next part" bufferSize := aBoundary size. rawBuffer := ByteArray new: bufferSize. - buffer := ZnRingBuffer on: rawBuffer. + buffer := GRPlatform current ringBufferClass on: rawBuffer. boundaryMarker := aBoundary first. stream atEnd ifFalse: [ diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st index 2add0fb20..971b03046 100644 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st +++ b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st @@ -4,5 +4,5 @@ convertMultipartFileField: part (file := WAFile new) fileName: part fileName; contentType: part contentType printString; - contents: part contents asByteArray. + contents: (part hasEntity ifTrue: [ part contents asByteArray ] ifFalse: [ #[] ]). ^ file \ No newline at end of file From 48bc2f785c642d6d3a8bf8787fbc6b65ccaa20de Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 23:33:36 +0100 Subject: [PATCH 30/41] renamed the Zinc-Seaside, Zinc-Seaside-Pharo packages to Seaside-Zinc-Core and Seaside-Zinc-Pharo. Added Seaside-Zinc-Tests --- .../Seaside-Zinc-Core.package/.filetree | 5 ++ .../instance/crlf.st | 3 + .../instance/space.st | 3 + .../properties.json | 3 + .../ZnDeferredResponse.class/README.md | 6 ++ .../class/onWrite..st | 3 + .../instance/onWrite..st | 3 + .../instance/writeOn..st | 3 + .../ZnDeferredResponse.class/properties.json | 13 ++++ .../ZnRingBuffer.class/README.md | 15 ++++ .../ZnRingBuffer.class/class/new..st | 6 ++ .../ZnRingBuffer.class/class/new.st | 3 + .../ZnRingBuffer.class/class/on..st | 6 ++ .../ZnRingBuffer.class/instance/^equals.st | 8 +++ .../ZnRingBuffer.class/instance/at..st | 5 ++ .../ZnRingBuffer.class/instance/at.put..st | 7 ++ .../instance/checkBoundsFor..st | 6 ++ .../instance/copyFrom.to..st | 19 ++++++ .../ZnRingBuffer.class/instance/do..st | 6 ++ .../ZnRingBuffer.class/instance/hash.st | 9 +++ .../instance/indexOf.ifAbsent..st | 10 +++ .../instance/initialize..st | 3 + .../ZnRingBuffer.class/instance/initialize.st | 5 ++ .../instance/initializeWithCollection..st | 4 ++ .../instance/moveStartTo..st | 5 ++ .../ZnRingBuffer.class/instance/printOn..st | 9 +++ .../replaceFrom.to.with.startingAt..st | 19 ++++++ .../ZnRingBuffer.class/instance/size.st | 3 + .../ZnRingBuffer.class/properties.json | 14 ++++ .../ZnRingBufferError.class/README.md | 1 + .../ZnRingBufferError.class/properties.json | 11 +++ .../ZnRingBufferIllegalAccess.class/README.md | 1 + .../properties.json | 11 +++ .../ZnRingBufferIllegalUse.class/README.md | 1 + .../properties.json | 11 +++ .../ZnSeasideRequest.class/README.md | 1 + .../class/nativeRequest.stream..st | 5 ++ .../instance/nativeRequest..st | 3 + .../instance/nativeRequest.st | 3 + .../instance/stream..st | 3 + .../ZnSeasideRequest.class/instance/stream.st | 3 + .../ZnSeasideRequest.class/properties.json | 14 ++++ .../README.md | 6 ++ .../class/forServer..st | 7 ++ .../class/installInDefaultServer.st | 3 + .../class/installInServer..st | 3 + .../class/installInServer.underPrefix..st | 16 +++++ .../class/with..st | 5 ++ .../instance/adaptor..st | 3 + .../instance/adaptor.st | 3 + .../instance/handleRequest..st | 5 ++ .../instance/handleRequest.gemServer..st | 5 ++ .../instance/value..st | 5 ++ .../properties.json | 13 ++++ .../README.md | 5 ++ .../instance/handleRequest..st | 14 ++++ .../instance/initializeStaticDelegate.st | 5 ++ .../instance/serveFilesFrom..st | 3 + .../instance/staticDelegate.st | 3 + .../instance/wwwRootDirectory..st | 5 ++ .../instance/wwwRootDirectory.st | 6 ++ .../properties.json | 14 ++++ .../instance/streamUploads..st | 5 ++ .../instance/streamUploads.st | 5 ++ .../ZnServer.extension/properties.json | 3 + .../README.md | 3 + ...eMultiPartFieldWithMimePart.decodeWith..st | 10 +++ ...FieldWithoutLengthWithBoundary.writeOn..st | 68 +++++++++++++++++++ ...LengthWithMimePart.boundary.decodeWith..st | 11 +++ ...eFieldWithMimePart.boundary.decodeWith..st | 16 +++++ .../partsDecodeWith.decodeFilesWith..st | 45 ++++++++++++ .../instance/readBinaryFrom..st | 3 + .../properties.json | 15 ++++ .../ZnZincServerAdaptor.class/README.md | 11 +++ .../instance/basicStart.st | 3 + .../instance/basicStop.st | 6 ++ .../instance/configureDelegate.st | 5 ++ .../configureServerForBinaryReading.st | 7 ++ .../instance/convertMultipart..st | 15 ++++ .../instance/convertMultipartEntity.with..st | 15 ++++ .../instance/convertMultipartFileField..st | 8 +++ .../convertMultipartStreamingEntity.with..st | 30 ++++++++ .../instance/defaultCodec.st | 3 + .../instance/defaultDelegate.st | 3 + .../instance/defaultZnServer.st | 3 + .../instance/isRunning.st | 3 + .../instance/isStarting.st | 3 + .../instance/isStopped.st | 3 + .../instance/isStopping.st | 3 + .../instance/printOn..st | 7 ++ .../instance/requestAddressFor..st | 5 ++ .../instance/requestBodyFor..st | 12 ++++ .../instance/requestCookiesFor..st | 6 ++ .../instance/requestFieldsFor..st | 18 +++++ .../instance/requestHeadersFor..st | 7 ++ .../instance/requestMethodFor..st | 3 + .../instance/requestUrlFor..st | 20 ++++++ .../instance/requestVersionFor..st | 3 + .../instance/responseFrom..st | 19 ++++++ .../instance/server..st | 7 ++ .../instance/server.st | 11 +++ .../instance/serverClass..st | 6 ++ .../instance/shutDown.st | 4 ++ .../instance/startUp.st | 4 ++ .../instance/statusString.st | 4 ++ .../ZnZincServerAdaptor.class/properties.json | 13 ++++ .../ZnZincStaticServerAdaptor.class/README.md | 19 ++++++ .../class/startOn.andServeFilesFrom..st | 4 ++ .../instance/defaultDelegate.st | 3 + .../instance/useCustomExpirationHeaders..st | 3 + .../instance/useDefaultExpirationHeaders.st | 3 + .../properties.json | 11 +++ .../README.md | 1 + .../instance/process..st | 9 +++ .../instance/requestFor..st | 3 + .../instance/responseFor..st | 8 +++ .../instance/responseFrom..st | 8 +++ .../properties.json | 11 +++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../Seaside-Zinc-Core.package/properties.json | 1 + .../Seaside-Zinc-Pharo.package/.filetree | 5 ++ .../ZnPharoRingBuffer.class/README.md | 1 + .../ZnPharoRingBuffer.class/instance/at..st | 5 ++ .../instance/at.put..st | 7 ++ .../ZnPharoRingBuffer.class/properties.json | 11 +++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 1 + .../Seaside-Zinc-Tests.package/.filetree | 5 ++ .../ZnRingBufferTest.class/README.md | 0 .../ZnRingBufferTest.class/instance/testAt.st | 22 ++++++ .../instance/testAtOutOfBounds.st | 13 ++++ .../instance/testCopyFromTo.st | 29 ++++++++ .../ZnRingBufferTest.class/instance/testDo.st | 15 ++++ .../instance/testEquals.st | 15 ++++ .../instance/testIllegalInstantiation.st | 5 ++ .../instance/testIndexOf.st | 42 ++++++++++++ .../instance/testIndexOfIfAbsent.st | 42 ++++++++++++ .../instance/testIndexOfIfAbsentWhenAbsent.st | 9 +++ .../instance/testMoveStartTo.st | 20 ++++++ .../instance/testMoveStartToIdentity.st | 9 +++ .../instance/testMoveStartToOutOfBounds.st | 13 ++++ .../ZnRingBufferTest.class/instance/testOn.st | 11 +++ .../testReplaceFromToWithStartingAt.st | 20 ++++++ .../instance/testSize.st | 15 ++++ .../ZnRingBufferTest.class/properties.json | 11 +++ .../monticello.meta/categories.st | 1 + .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 + .../properties.json | 1 + 153 files changed, 1272 insertions(+) create mode 100644 repository/Seaside-Zinc-Core.package/.filetree create mode 100644 repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st create mode 100644 repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st create mode 100644 repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/class/onWrite..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/onWrite..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/writeOn..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/size.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/class/nativeRequest.stream..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/with..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnServer.extension/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStart.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStop.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipart..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultCodec.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isRunning.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStarting.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopped.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopping.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/printOn..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/responseFrom..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/shutDown.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/startUp.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/statusString.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/README.md create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/process..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st create mode 100644 repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/properties.json create mode 100644 repository/Seaside-Zinc-Core.package/monticello.meta/categories.st create mode 100644 repository/Seaside-Zinc-Core.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-Zinc-Core.package/monticello.meta/package create mode 100644 repository/Seaside-Zinc-Core.package/properties.json create mode 100644 repository/Seaside-Zinc-Pharo.package/.filetree create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/README.md create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at..st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st create mode 100644 repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/properties.json create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-Zinc-Pharo.package/monticello.meta/package create mode 100644 repository/Seaside-Zinc-Pharo.package/properties.json create mode 100644 repository/Seaside-Zinc-Tests.package/.filetree create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/README.md create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAt.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testCopyFromTo.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testDo.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testEquals.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOf.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartTo.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testOn.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testSize.st create mode 100644 repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/properties.json create mode 100644 repository/Seaside-Zinc-Tests.package/monticello.meta/categories.st create mode 100644 repository/Seaside-Zinc-Tests.package/monticello.meta/initializers.st create mode 100644 repository/Seaside-Zinc-Tests.package/monticello.meta/package create mode 100644 repository/Seaside-Zinc-Tests.package/properties.json diff --git a/repository/Seaside-Zinc-Core.package/.filetree b/repository/Seaside-Zinc-Core.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st new file mode 100644 index 000000000..f8d693ea1 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/crlf.st @@ -0,0 +1,3 @@ +*Seaside-Zinc-Core +crlf + self nextPutAll: String crlf \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st new file mode 100644 index 000000000..6824d6f40 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/instance/space.st @@ -0,0 +1,3 @@ +*Seaside-Zinc-Core +space + self nextPut: Character space asciiValue \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json new file mode 100644 index 000000000..622252fc6 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZdcAbstractSocketStream.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZdcAbstractSocketStream" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/README.md b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/README.md new file mode 100644 index 000000000..3021873bb --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/README.md @@ -0,0 +1,6 @@ +I am a lazy ZnResponse that: + +1. Does no work except to delegate to a smarter object; and +2. Doesn't even delegate until I'm told it's time to write something out on the stream. + +See, I'm even lazy about being lazy. I can get away with this wanton slothfulness because of WAComboResponse's ability to handle everything (status line, headers, chunking). \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/class/onWrite..st b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/class/onWrite..st new file mode 100644 index 000000000..cc24a36b5 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/class/onWrite..st @@ -0,0 +1,3 @@ +instance creation +onWrite: aBlock + ^self new onWrite: aBlock \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/onWrite..st b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/onWrite..st new file mode 100644 index 000000000..ac2100bf8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/onWrite..st @@ -0,0 +1,3 @@ +initialize-release +onWrite: aBlock + onWrite := aBlock \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/writeOn..st b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/writeOn..st new file mode 100644 index 000000000..6f89bc30e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/instance/writeOn..st @@ -0,0 +1,3 @@ +writing +writeOn: stream + onWrite value: stream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/properties.json new file mode 100644 index 000000000..670c41863 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnDeferredResponse.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "ZnResponse", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "onWrite" + ], + "name" : "ZnDeferredResponse", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md new file mode 100644 index 000000000..2176f81da --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/README.md @@ -0,0 +1,15 @@ +I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring. + +I buffer a fixed amount of data and provide array like access to it. + +Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the +buffer to the specified position. Example: + +buffer + at: 1 put: 1; + at: 2 put: 2; + at: 1. "----> 1" + +buffer + moveStartTo: 2; + at: 1 "----> 2" \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st new file mode 100644 index 000000000..a1f8df872 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new..st @@ -0,0 +1,6 @@ +instance creation +new: aInteger + ^ self basicNew + initialize: aInteger; + initialize; + yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st new file mode 100644 index 000000000..814a6c764 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/new.st @@ -0,0 +1,3 @@ +instance creation +new + ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size' \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st new file mode 100644 index 000000000..2f5135d96 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/class/on..st @@ -0,0 +1,6 @@ +instance creation +on: aCollection + ^ self basicNew + initializeWithCollection: aCollection; + initialize; + yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st new file mode 100644 index 000000000..1658f6272 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/^equals.st @@ -0,0 +1,8 @@ +comparing += aCollection + 1 + to: self size + do: [ :index | + (self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ]. + + ^ true \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st new file mode 100644 index 000000000..1f73a1673 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st @@ -0,0 +1,5 @@ +accessing +at: anInteger + self checkBoundsFor: anInteger. + + ^ buffer atWrap: (anInteger + offset) \\ buffer size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st new file mode 100644 index 000000000..5b4233044 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st @@ -0,0 +1,7 @@ +accessing +at: anInteger put: anObject + self checkBoundsFor: anInteger. + + buffer + atWrap: (anInteger + offset) \\ buffer size + put: anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st new file mode 100644 index 000000000..e4284b38e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/checkBoundsFor..st @@ -0,0 +1,6 @@ +private +checkBoundsFor: anInteger + (anInteger < 1 or: [ + anInteger > self size ]) ifFalse: [ ^ self ]. + + ZnRingBufferIllegalAccess signal \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st new file mode 100644 index 000000000..52672c5d1 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/copyFrom.to..st @@ -0,0 +1,19 @@ +accessing +copyFrom: start to: stop + | copy endIndex copySize | + copySize := stop - start + 1. + copy := buffer species new: copySize. + endIndex := copySize min: self size - start - offset + 1. + copy + replaceFrom: 1 + to: endIndex + with: buffer + startingAt: start + offset. + + stop + offset > self size ifFalse: [ ^ copy ]. + + ^ copy + replaceFrom: endIndex + 1 + to: copySize + with: buffer + startingAt: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st new file mode 100644 index 000000000..741f9a2d8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/do..st @@ -0,0 +1,6 @@ +enumerating +do: aBlock + 1 + to: self size + do: [ :index | + aBlock value: (self at: index) ] diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st new file mode 100644 index 000000000..5fd18ae66 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/hash.st @@ -0,0 +1,9 @@ +comparing +hash + "Copy of SequenceableCollection>>hash" + | hash | + hash := self species hash. + 1 + to: self size + do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ]. + ^ hash \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st new file mode 100644 index 000000000..cbd962990 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st @@ -0,0 +1,10 @@ +accessing +indexOf: anElement ifAbsent: exceptionBlock + | index | + index := buffer + indexOf: anElement + ifAbsent: [ ^ exceptionBlock value ]. + + ^ index > offset + ifTrue: [ index - offset ] + ifFalse: [ self size - offset + index ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st new file mode 100644 index 000000000..95df117dc --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize..st @@ -0,0 +1,3 @@ +initialization +initialize: anInteger + self initializeWithCollection: (Array new: anInteger) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st new file mode 100644 index 000000000..b26430a1d --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initialize.st @@ -0,0 +1,5 @@ +initialization +initialize + super initialize. + + offset := 0 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st new file mode 100644 index 000000000..71b33bc7b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/initializeWithCollection..st @@ -0,0 +1,4 @@ +initialization +initializeWithCollection: aCollection + buffer := aCollection. + offset := 0 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st new file mode 100644 index 000000000..f3b240141 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/moveStartTo..st @@ -0,0 +1,5 @@ +operations +moveStartTo: anInteger + self checkBoundsFor: anInteger. + + offset := (offset + anInteger - 1) \\ self size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st new file mode 100644 index 000000000..a926e4e41 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/printOn..st @@ -0,0 +1,9 @@ +printing +printOn: aStream + super printOn: aStream. + + aStream nextPut: $(. + (self + copyFrom: 1 + to: self size) printOn: aStream. + aStream nextPut: $) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st new file mode 100644 index 000000000..b9d8a0ce8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st @@ -0,0 +1,19 @@ +accessing +replaceFrom: start to: stop with: replacement startingAt: repStart + | startIndex endIndex | + startIndex := start + offset. + endIndex := stop + offset min: self size. + startIndex > self size ifFalse: [ + buffer + replaceFrom: startIndex + to: endIndex + with: replacement + startingAt: repStart ]. + + stop + offset > self size ifFalse: [ ^ self ]. + + buffer + replaceFrom: 1 + to: (stop + offset) \\ self size + with: replacement + startingAt: repStart + endIndex - startIndex + 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/size.st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/size.st new file mode 100644 index 000000000..6a48eba3f --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/size.st @@ -0,0 +1,3 @@ +accessing +size + ^ buffer size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/properties.json new file mode 100644 index 000000000..ccb68f803 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "mml 07/26/2019 15:33", + "super" : "Object", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "buffer", + "offset" + ], + "name" : "ZnRingBuffer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/README.md b/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/README.md new file mode 100644 index 000000000..19e71b79b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/README.md @@ -0,0 +1 @@ +I am the abstract super class of all ring buffer errors. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/properties.json new file mode 100644 index 000000000..2f4fbaa0f --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferError.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:24", + "super" : "Error", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferError", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/README.md new file mode 100644 index 000000000..b5fcfece6 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/README.md @@ -0,0 +1 @@ +I represent any error that is due to the use out of bounds indices when accessing the ring buffer. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/properties.json new file mode 100644 index 000000000..171d092b8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalAccess.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:25", + "super" : "ZnRingBufferError", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalAccess", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/README.md b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/README.md new file mode 100644 index 000000000..01b63674c --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/README.md @@ -0,0 +1 @@ +I represent illegal use of ring buffer methods. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/properties.json new file mode 100644 index 000000000..48d2bb1aa --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnRingBufferIllegalUse.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "mml 07/26/2019 15:26", + "super" : "ZnRingBufferError", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferIllegalUse", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/README.md b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/README.md new file mode 100644 index 000000000..852eb144e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/README.md @@ -0,0 +1 @@ +I group a ZnRequest together with its stream, purely for convenience. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/class/nativeRequest.stream..st b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/class/nativeRequest.stream..st new file mode 100644 index 000000000..0496ec988 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/class/nativeRequest.stream..st @@ -0,0 +1,5 @@ +instance creation +nativeRequest: aZnRequest stream: aStream + ^ self new + nativeRequest: aZnRequest; + stream: aStream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest..st new file mode 100644 index 000000000..0759b5f7a --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest..st @@ -0,0 +1,3 @@ +accessing +nativeRequest: anObject + nativeRequest := anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest.st new file mode 100644 index 000000000..30f70fdcb --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/nativeRequest.st @@ -0,0 +1,3 @@ +accessing +nativeRequest + ^ nativeRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream..st b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream..st new file mode 100644 index 000000000..2570b7d65 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream..st @@ -0,0 +1,3 @@ +accessing +stream: anObject + stream := anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream.st b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream.st new file mode 100644 index 000000000..691d96996 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/instance/stream.st @@ -0,0 +1,3 @@ +accessing +stream + ^ stream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/properties.json new file mode 100644 index 000000000..c0aa3c737 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideRequest.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "Object", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "nativeRequest", + "stream" + ], + "name" : "ZnSeasideRequest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/README.md new file mode 100644 index 000000000..aa90ea132 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/README.md @@ -0,0 +1,6 @@ +I am ZnSeasideServerAdaptorDelegate. + +I handle Zinc HTTP Server delegate's #handleRequest: using WAServerAdaptor>>#process: + +Instance Variables: + adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st new file mode 100644 index 000000000..1c8156d2d --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st @@ -0,0 +1,7 @@ +instance creation +forServer: znServer + | adaptor | + adaptor := ZnZincServerAdaptor new. + adaptor unregister. + adaptor server: znServer. + ^ self with: adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st new file mode 100644 index 000000000..82afceebd --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st @@ -0,0 +1,3 @@ +examples +installInDefaultServer + ^ self installInServer: ZnServer default \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st new file mode 100644 index 000000000..15a2175b4 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st @@ -0,0 +1,3 @@ +examples +installInServer: znServer + ^ self installInServer: znServer underPrefix: 'seaside' \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st new file mode 100644 index 000000000..15e141156 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st @@ -0,0 +1,16 @@ +examples +installInServer: znServer underPrefix: prefix + "Install a ZnSeasideServerAdaptorDelegate in znServer under prefix, + provided znServer contains a ZnDefaultServerDelegate instance as primary delegate. + Note that the incoming request is destructively modified. + Note that a global #serverPath is added to the default Seaside dispatcher." + + | seasideDelegate | + seasideDelegate := self forServer: znServer. + znServer delegate + map: 'seaside' + to: [ :request | + request uri removeFirstPathSegment. + seasideDelegate handleRequest: request ]. + WAAdmin defaultDispatcher serverPath: prefix. + ^ seasideDelegate \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/with..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/with..st new file mode 100644 index 000000000..9a56966bf --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/class/with..st @@ -0,0 +1,5 @@ +instance creation +with: aSeasideServerAdaptor + ^ self new + adaptor: aSeasideServerAdaptor; + yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st new file mode 100644 index 000000000..79a2a1e3c --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st @@ -0,0 +1,3 @@ +accessing +adaptor: aSeasideServerAdaptor + adaptor := aSeasideServerAdaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st new file mode 100644 index 000000000..a103e81ba --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st @@ -0,0 +1,3 @@ +accessing +adaptor + ^ adaptor \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st new file mode 100644 index 000000000..ea81f47d4 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st @@ -0,0 +1,5 @@ +public +handleRequest: znRequest + "I pass a Zinc HTTP Components ZnRequest to my Seaside Server Adaptor using #process:" + + ^ self adaptor process: znRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st new file mode 100644 index 000000000..c000f754b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st @@ -0,0 +1,5 @@ +public +handleRequest: request gemServer: gemServer + "transactions handled by the adaptor" + + ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st new file mode 100644 index 000000000..17bc2c2a0 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st @@ -0,0 +1,5 @@ +public +value: request + "I implement the generic #value: message as equivalent to #handleRequest:" + + ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/properties.json new file mode 100644 index 000000000..52446bf38 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideServerAdaptorDelegate.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "SvenVanCaekenberghe 9/30/2010 18:13", + "super" : "Object", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "adaptor" + ], + "name" : "ZnSeasideServerAdaptorDelegate", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md new file mode 100644 index 000000000..fc357480e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md @@ -0,0 +1,5 @@ +This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate + +Instance Variables: + staticDelegate aZnStaticFileServerDelegate + wwwRootDirectory - The directory on your file system where the JS/CSS/JPEG etc. files you want to serve reside \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st new file mode 100644 index 000000000..6d9d315c3 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st @@ -0,0 +1,14 @@ +public +handleRequest: znRequest + "If the Seaside request processing apparatus returns an HTTP response with a 'not found' error for a GET request, + check the filesystem for a file that matches the uri of the request, if found send the file if not send the original error." + + | response staticResponse | + response := self adaptor process: znRequest. + ^ (response isNotFound and: [ znRequest method = 'GET' and: [ response isAuthenticationRequired not ] ]) + ifTrue: [ + staticResponse := self staticDelegate handleRequest: znRequest. + staticResponse isNotFound + ifTrue: [ response ] + ifFalse: [ staticResponse ] ] + ifFalse: [ response ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st new file mode 100644 index 000000000..36f8d1c0d --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st @@ -0,0 +1,5 @@ +initialization +initializeStaticDelegate + ^ ZnStaticFileServerDelegate new + directory: self wwwRootDirectory; + yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st new file mode 100644 index 000000000..6667a841b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st @@ -0,0 +1,3 @@ +updating +serveFilesFrom: aDirectoryPathString + self wwwRootDirectory: (ZnFileSystemUtils directory: aDirectoryPathString ) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st new file mode 100644 index 000000000..743526948 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st @@ -0,0 +1,3 @@ +accessing +staticDelegate + ^ staticDelegate ifNil: [ staticDelegate := self initializeStaticDelegate ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st new file mode 100644 index 000000000..8ecc4811b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st @@ -0,0 +1,5 @@ +accessing +wwwRootDirectory: fileDirectory + "This is the root directory for your css/js/images etc...." + + wwwRootDirectory := fileDirectory \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st new file mode 100644 index 000000000..322d96705 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st @@ -0,0 +1,6 @@ +accessing +wwwRootDirectory + "This is the root directory for your css/js/images etc...." + + ^ wwwRootDirectory ifNil: [ + wwwRootDirectory := ZnFileSystemUtils directory: '/var/www' ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json new file mode 100644 index 000000000..f016f8a38 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json @@ -0,0 +1,14 @@ +{ + "commentStamp" : "", + "super" : "ZnSeasideServerAdaptorDelegate", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "staticDelegate", + "wwwRootDirectory" + ], + "name" : "ZnSeasideStaticServerAdaptorDelegate", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads..st b/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads..st new file mode 100644 index 000000000..7e4d45098 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads..st @@ -0,0 +1,5 @@ +*Seaside-Zinc-Core +streamUploads: aBoolean + ^ self + optionAt: #streamUploads + put: aBoolean \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads.st b/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads.st new file mode 100644 index 000000000..659204f61 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnServer.extension/instance/streamUploads.st @@ -0,0 +1,5 @@ +*Seaside-Zinc-Core +streamUploads + ^ self + optionAt: #streamUploads + ifAbsent: [ false ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnServer.extension/properties.json b/repository/Seaside-Zinc-Core.package/ZnServer.extension/properties.json new file mode 100644 index 000000000..1f51b1ea9 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnServer.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "ZnServer" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/README.md new file mode 100644 index 000000000..b8cdf930b --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/README.md @@ -0,0 +1,3 @@ +I implement chunked reading of multipart/form-data requests. I use a ZnRingBuffer to reduce the number of operations and the amount of memory consumed during this. + +I handle file parts by writing them to temporary files on disk in chunks, thus preventing the image from exhausting memory resources. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st new file mode 100644 index 000000000..6faf4fd2c --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st @@ -0,0 +1,10 @@ +private +parseMultiPartFieldWithMimePart: aMimePart decodeWith: aBlock + | reader | + reader := (aMimePart entityReaderOn: stream) + binary; + streaming; + yourself. + aMimePart entity: reader readEntity. + + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st new file mode 100644 index 000000000..3164f9eae --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st @@ -0,0 +1,68 @@ +private +parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer + | bufferSize rawBuffer buffer boundaryMarker | + "Can't simply use a larger buffer as we don't want to read past a boundary, + those bytes will belong to the next part" + bufferSize := aBoundary size. + rawBuffer := ByteArray new: bufferSize. + buffer := GRPlatform current ringBufferClass on: rawBuffer. + boundaryMarker := aBoundary first. + + stream atEnd ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer ]. + + [ (buffer + indexOf: boundaryMarker + ifAbsent: [ nil ]) + ifNotNil: [ :boundaryCandidateIndex | + (boundaryCandidateIndex = 1 and: [ + buffer = aBoundary ]) + ifTrue: [ + "Found a boundary. We're done" + true ] + ifFalse: [ + | candidateIndex | + candidateIndex := boundaryCandidateIndex = 1 + ifTrue: [ 2 ] + ifFalse: [ boundaryCandidateIndex ]. + "Write all the bytes that we know are not part of a boundary" + 1 + to: candidateIndex - 1 + do: [ :index | writer nextPut: (buffer at: index) ]. + "Move the rest of the buffer to the beginning of the buffer" + buffer moveStartTo: candidateIndex. + + "Fill the rest of the buffer" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + rawBuffer := buffer + copyFrom: 1 + to: bufferSize. + stream + next: candidateIndex - 1 + into: rawBuffer + startingAt: bufferSize - candidateIndex + 2. + buffer initializeWithCollection: rawBuffer. + "If the candidate was really the first token of the boundary + then we now have loaded the full boundary into the buffer. + If not we have to check for the next boundary candidate as + we might have loaded the next boundary partially." + buffer = aBoundary ] ] + ifNil: [ + writer nextPutAll: buffer. + stream atEnd + ifFalse: [ + "#next:into: answers a copy of the buffer if not enough bytes could be read" + "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + stream + next: bufferSize + into: rawBuffer. + buffer moveStartTo: 1. + false ] + ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..87a4a20c0 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st @@ -0,0 +1,11 @@ +private +parseMultiPartFieldWithoutLengthWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary fieldValue | + fullBoundary := String crlf asByteArray, aBoundary. + fieldValue := ByteArray streamContents: [ :valueStream | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: valueStream ]. + + aMimePart entity: (ZnEntity text: fieldValue asString). + aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st new file mode 100644 index 000000000..5e5fa8aa6 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st @@ -0,0 +1,16 @@ +private +parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock + | fullBoundary file | + fullBoundary := String crlf asByteArray, aBoundary. + file := GRPlatform current newTemporaryFileReference. + GRPlatform current + writeFileStreamOn: file pathString + do: [ :writer | + self + parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary + writeOn: writer ] + binary: true. + + aBlock + value: aMimePart + value: file pathString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st new file mode 100644 index 000000000..04d6d35f2 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st @@ -0,0 +1,45 @@ +private +partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock + | fullBoundary endBoundary | + fullBoundary := '--' asByteArray, self getBoundary. + endBoundary := fullBoundary asString, '--'. + "Sometimes there is whitespace in front of the first boundary" + (stream match: fullBoundary) ifFalse: [ self error ]. + "Skip CRLF" + stream skip: 2. + + [ stream atEnd ] whileFalse: [ + | part | + part := ZnMimePart new + headers: (ZnHeaders readFrom: stream); + yourself. + "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) + and it is the last part then parsing headers will consumed the rest of the end boundary and the + stream will be at the end. In this case, the part will not have any headers" + (part hasHeaders not or: [ + "The final boundary may be read as a header when + the last part was not a file part" + part headers includesKey: endBoundary ]) ifFalse: [ + (part fileName notNil or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ + ((part contentDispositionValues includes: 'form-data') and: [ + part contentLength isNil ]) + ifTrue: [ + self + parseMultiPartFieldWithoutLengthWithMimePart: part + boundary: fullBoundary + decodeWith: aDecoderBlock ] + ifFalse: [ + self + parseMultiPartFieldWithMimePart: part + decodeWith: aDecoderBlock ] ] + ifTrue: [ + self + parseMultiPartFileFieldWithMimePart: part + boundary: fullBoundary + decodeWith: aFileDecoderBlock ] ]. + "Skip crlf" + stream atEnd ifFalse: [ + stream skip: 2 ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st new file mode 100644 index 000000000..ac80248b8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st @@ -0,0 +1,3 @@ +initialize-release +readBinaryFrom: aStream + stream := aStream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/properties.json new file mode 100644 index 000000000..4afb509c4 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/properties.json @@ -0,0 +1,15 @@ +{ + "commentStamp" : "MaxLeske 5/20/2020 10:03", + "super" : "ZnMultiPartFormDataEntity", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ + "TemporaryFileDirectory" + ], + "instvars" : [ + "stream" + ], + "name" : "ZnStreamingMultiPartFormDataEntity", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/README.md b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/README.md new file mode 100644 index 000000000..f59977003 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/README.md @@ -0,0 +1,11 @@ +I convert between Seaside and Zinc HTTP requests and responses. +I am a WAServerAdaptor. + +Instance Variables: + server + +I can be started like any other Seaside adaptor: + + ZnZincServerAdaptor startOn: 8080 + +I work together with a ZnSeasideServerAdaptorDelegate. I offer several advanced configuration options for specialized applications in my 'initialize-release' protocol. See also the 'example' class protocol of ZnSeasideServerAdaptorDelegate. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStart.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStart.st new file mode 100644 index 000000000..3c8e54c30 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStart.st @@ -0,0 +1,3 @@ +private +basicStart + self server start \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStop.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStop.st new file mode 100644 index 000000000..9deb98cc2 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/basicStop.st @@ -0,0 +1,6 @@ +private +basicStop + server + ifNotNil: [ + server stop. + server := nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st new file mode 100644 index 000000000..fb9098cdf --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st @@ -0,0 +1,5 @@ +initialize-release +configureDelegate + "Set the main delegate of my server to the default one." + + server delegate: self defaultDelegate \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st new file mode 100644 index 000000000..b73b5799e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st @@ -0,0 +1,7 @@ +initialize-release +configureServerForBinaryReading + "Seaside wants to do its own text conversions" + + server reader: (server streamUploads + ifTrue: [ [ :stream | ZnRequest readBinaryFrom: stream ] ] + ifFalse: [ [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipart..st new file mode 100644 index 000000000..9d7ee260a --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipart..st @@ -0,0 +1,15 @@ +private +convertMultipart: entity + | dictionary | + dictionary := ZnMultiValueDictionary new. + entity class = ZnStreamingEntity + ifTrue: [ + self + convertMultipartStreamingEntity: entity + with: dictionary ] + ifFalse: [ + self + convertMultipartEntity: entity + with: dictionary ]. + ^ dictionary + \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st new file mode 100644 index 000000000..399a4c52f --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st @@ -0,0 +1,15 @@ +private +convertMultipartEntity: anEntity with: aMultiValueDictionary + anEntity partsDo: [ :part | + | value | + value := part hasEntity + ifFalse: [ String new ] + ifTrue: [ + (part fileName isEmptyOrNil not or: [ + part contentType notNil and: [ + part contentType isBinary ] ]) + ifFalse: [ self codec url decode: part fieldValueString ] + ifTrue: [ self convertMultipartFileField: part ] ]. + aMultiValueDictionary + at: part fieldName + add: value ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st new file mode 100644 index 000000000..971b03046 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st @@ -0,0 +1,8 @@ +private +convertMultipartFileField: part + | file | + (file := WAFile new) + fileName: part fileName; + contentType: part contentType printString; + contents: (part hasEntity ifTrue: [ part contents asByteArray ] ifFalse: [ #[] ]). + ^ file \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st new file mode 100644 index 000000000..2393717e8 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -0,0 +1,30 @@ +private +convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary + | entity | + entity := ZnStreamingMultiPartFormDataEntity new + readBinaryFrom: anEntity stream; + contentType: anEntity contentType; + yourself. + entity + partsDecodeWith: [ :znMimePart | + aMultiValueDictionary + at: znMimePart fieldName + add: (self codec url decode: (znMimePart hasEntity + ifTrue: [ znMimePart fieldValueString ] + ifFalse: [ String new ])) ] + decodeFilesWith: [ :znMimePart :filePath | + "Empty file + empty filename means that the file form + field did not contain a value (no file was selected)." + (znMimePart fileName isEmpty and: [ + filePath asFileReference size isZero ]) + ifTrue: [ filePath asFileReference ensureDelete ] + ifFalse: [ + aMultiValueDictionary + at: znMimePart fieldName + add: (WAExternalFile new + contentType: znMimePart contentType printString; + fileName: (znMimePart fileName ifEmpty: [ + "It is legal for the `filename` value to be empty" + filePath asFileReference basename ]); + filePath: filePath; + yourself) ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultCodec.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultCodec.st new file mode 100644 index 000000000..be8f252f9 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultCodec.st @@ -0,0 +1,3 @@ +defaults +defaultCodec + ^ GRCodec forEncoding: 'utf-8' \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st new file mode 100644 index 000000000..9f1c68495 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st @@ -0,0 +1,3 @@ +defaults +defaultDelegate + ^ ZnSeasideServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st new file mode 100644 index 000000000..4c9a51f42 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st @@ -0,0 +1,3 @@ +defaults +defaultZnServer + ^ ZnServer on: self port \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isRunning.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isRunning.st new file mode 100644 index 000000000..2f5d79c93 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isRunning.st @@ -0,0 +1,3 @@ +testing +isRunning + ^ server notNil and: [ server isRunning ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStarting.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStarting.st new file mode 100644 index 000000000..9f74a15a3 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStarting.st @@ -0,0 +1,3 @@ +testing +isStarting + ^ false \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopped.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopped.st new file mode 100644 index 000000000..742d855f0 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopped.st @@ -0,0 +1,3 @@ +testing +isStopped + ^ server isNil or: [ server isRunning not ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopping.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopping.st new file mode 100644 index 000000000..a0c287c8a --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/isStopping.st @@ -0,0 +1,3 @@ +testing +isStopping + ^ false \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/printOn..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/printOn..st new file mode 100644 index 000000000..2d9f91f98 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/printOn..st @@ -0,0 +1,7 @@ +printing +printOn: stream + super printOn: stream. + stream + nextPut: $(; + << self statusString; + nextPut: $) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st new file mode 100644 index 000000000..eaf61649f --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st @@ -0,0 +1,5 @@ +converting +requestAddressFor: aZincRequest + ^ aZincRequest headers + at: ZnConstants remoteAddressHeader + ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st new file mode 100644 index 000000000..08766573e --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st @@ -0,0 +1,12 @@ +converting +requestBodyFor: aZincRequest + ^ (aZincRequest method ~= #TRACE + and: [ aZincRequest hasEntity + and: [ aZincRequest entity isEmpty not + and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not + and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) + ifTrue: [ + "Seaside wants to do its own text conversions" + aZincRequest entity bytes asString ] + ifFalse: [ + String new ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st new file mode 100644 index 000000000..05c1576a4 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st @@ -0,0 +1,6 @@ +converting +requestCookiesFor: aZincRequest + | cookieString | + cookieString := aZincRequest headers + at: 'Cookie' ifAbsent: [ ^ #() ]. + ^ WARequestCookie fromString: cookieString codec: self codec \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st new file mode 100644 index 000000000..e0ac1a3f1 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st @@ -0,0 +1,18 @@ +converting +requestFieldsFor: aZincRequest + | fields | + fields := WARequestFields new. + (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) + ifTrue: [ + (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) + ifTrue: [ + fields addAll: (aZincRequest entity class = ZnStreamingEntity + ifTrue: [ + ZnApplicationFormUrlEncodedEntity new + readFrom: aZincRequest entity stream; + fields ] + ifFalse: [ aZincRequest entity fields ]) ]. + (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) + ifTrue: [ + fields addAll: (self convertMultipart: aZincRequest entity) ] ]. + ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st new file mode 100644 index 000000000..c174a0f70 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st @@ -0,0 +1,7 @@ +converting +requestHeadersFor: aZincRequest + | fields | + fields := Dictionary new. + aZincRequest headersDo: [ :key :value | + fields at: key asLowercase put: value ]. + ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st new file mode 100644 index 000000000..ba5191eff --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st @@ -0,0 +1,3 @@ +converting +requestMethodFor: aZincRequest + ^ aZincRequest method greaseString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st new file mode 100644 index 000000000..b8eaca364 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st @@ -0,0 +1,20 @@ +converting +requestUrlFor: aZincRequest + | zincUrl seasideUrl | + zincUrl := aZincRequest url. + seasideUrl := WAUrl new + scheme: zincUrl schemeOrDefault greaseString; + host: zincUrl host; + port: zincUrl port; + fragment: zincUrl fragment. + zincUrl hasPath ifTrue: [ + zincUrl isDirectoryPath + ifTrue: [ "last path segment is $/ or #/" + zincUrl pathSegments + "GemStone/S currently does not support #allButLastDo:" + allButLast do: [ :each | seasideUrl rawAddToPath: each ]. + seasideUrl slash: true ] + ifFalse: [ seasideUrl rawAddAllToPath: zincUrl pathSegments ] ]. + zincUrl + queryDo: [ :key :value | seasideUrl addField: key value: value ]. + ^ seasideUrl \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st new file mode 100644 index 000000000..a836ee781 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st @@ -0,0 +1,3 @@ +converting +requestVersionFor: aZincRequest + ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/responseFrom..st new file mode 100644 index 000000000..560c00376 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/responseFrom..st @@ -0,0 +1,19 @@ +converting +responseFrom: aRequestContext + | partialHeaders cookies fullHeaders seasideResponse contents entity contentType | + seasideResponse := aRequestContext response. + partialHeaders := seasideResponse headers. + cookies := seasideResponse cookies. + fullHeaders := ZnHeaders defaultResponseHeaders. + partialHeaders keysAndValuesDo: [ :key :value | + fullHeaders at: key add: value greaseString ]. + cookies do: [ :each | + fullHeaders at: 'Set-Cookie' add: each rfc6265String ]. + contentType := seasideResponse contentType greaseString. + contents := seasideResponse contents. + entity := (ZnEntity bytes: contents) contentType: contentType; yourself. + ^ ZnResponse new + statusLine: (ZnStatusLine code: seasideResponse status); + headers: fullHeaders; + entity: entity; + yourself \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st new file mode 100644 index 000000000..19155e190 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st @@ -0,0 +1,7 @@ +initialize-release +server: znServer + "I initialize the actual ZnServer instance that I will be using to znServer, + to prevent a fallback to #defaultZnServer" + + server := znServer. + port := znServer port \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server.st new file mode 100644 index 000000000..a8c20254a --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server.st @@ -0,0 +1,11 @@ +accessing +server + "Return the ZnServer running me, create a default one if missing and confugure it." + + server + ifNil: [ + server := self defaultZnServer. + self + configureDelegate; + configureServerForBinaryReading ]. + ^ server \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st new file mode 100644 index 000000000..50d5d09dd --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st @@ -0,0 +1,6 @@ +initialize-release +serverClass: znServerClass + "I initialize the actual ZnServer instance that I will be using, + by instanciating znServerClass using my port" + + self server: (znServerClass on: self port) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/shutDown.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/shutDown.st new file mode 100644 index 000000000..8378fcf35 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/shutDown.st @@ -0,0 +1,4 @@ +private +shutDown + self isRunning + ifTrue: [ server stop ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/startUp.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/startUp.st new file mode 100644 index 000000000..e28bdb643 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/startUp.st @@ -0,0 +1,4 @@ +private +startUp + self isRunning + ifFalse: [ server ifNotNil: [ server start ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/statusString.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/statusString.st new file mode 100644 index 000000000..0a91a75f1 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/statusString.st @@ -0,0 +1,4 @@ +accessing +statusString + ^ 'zinc on port ', self port greaseString, + ( self isRunning ifTrue: [ ' [running]' ] ifFalse: [ ' [stopped]' ] ) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/properties.json new file mode 100644 index 000000000..7ad2134e1 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/properties.json @@ -0,0 +1,13 @@ +{ + "commentStamp" : "", + "super" : "WAServerAdaptor", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ + "server" + ], + "name" : "ZnZincServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/README.md b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/README.md new file mode 100644 index 000000000..83eba3bfb --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/README.md @@ -0,0 +1,19 @@ +This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate + +Start it with something like: + + + ZnZincStaticServerAdaptor startOn: 8080 andServeFilesFrom: '/var/www/'. + + +If you want to set cache expiration headers for your static assets you can run this: + + ZnZincStaticServerAdaptor default useDefaultExpirationHeaders. + +after you start the ZnZincStaticServerAdaptor. + +If you want to set your own expiration headers you can create a Dictionary like the one in ZnStaticFileServerDelegate class>>#defaultMimeTypeExpirations and then run: + + ZnZincStaticServerAdaptor default useCustomExpirationHeaders: myExpriationHeadersDirectory. + +where 'myExpirationHeadersDirectory' is structured similarly to the #defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st new file mode 100644 index 000000000..01e110adf --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st @@ -0,0 +1,4 @@ +as yet unclassified +startOn: aPortNumber andServeFilesFrom: aDirectoryPathString + self startOn: aPortNumber. + self default server delegate serveFilesFrom: aDirectoryPathString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st new file mode 100644 index 000000000..0b2467733 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st @@ -0,0 +1,3 @@ +defaults +defaultDelegate + ^ ZnSeasideStaticServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st new file mode 100644 index 000000000..4a3d5086a --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st @@ -0,0 +1,3 @@ +accessing +useCustomExpirationHeaders: aDictionaryOfMimeTypesAndHeaders + self server delegate staticDelegate mimeTypeExpirations: aDictionaryOfMimeTypesAndHeaders \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st new file mode 100644 index 000000000..32f3f6eca --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st @@ -0,0 +1,3 @@ +accessing +useDefaultExpirationHeaders + self server delegate staticDelegate mimeTypeExpirations: ZnStaticFileServerDelegate defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/properties.json new file mode 100644 index 000000000..e5a2c98c6 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStaticServerAdaptor.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "PaulDeBruicker 5/11/2012 15:21", + "super" : "ZnZincServerAdaptor", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnZincStaticServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/README.md b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/README.md new file mode 100644 index 000000000..e5734bb90 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/README.md @@ -0,0 +1 @@ +I convert requests and responses between Zinc and Seaside, but I do it using Seaside's WAComboResponse in order to allow data to be streamed to the client directly. \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/process..st b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/process..st new file mode 100644 index 000000000..c2d98c4dd --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/process..st @@ -0,0 +1,9 @@ +processing +process: aZnRequest + ^ ZnDeferredResponse + onWrite: [ :stream | + | request | + request := ZnSeasideRequest + nativeRequest: aZnRequest + stream: stream. + super process: request ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st new file mode 100644 index 000000000..fd3326a65 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st @@ -0,0 +1,3 @@ +converting +requestFor: aZnSeasideRequest + ^super requestFor: aZnSeasideRequest nativeRequest \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st new file mode 100644 index 000000000..cc2d71d07 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st @@ -0,0 +1,8 @@ +converting +responseFor: aZnRequest + | bufferedStream codecStream | + bufferedStream := GRPlatform current writeCharacterStreamOn: (self codec encodedStringClass new: 4096). + codecStream := self codec encoderFor: bufferedStream. + ^ WAComboResponse + onBuffered: (GRCountingStream on: codecStream) + external: aZnRequest stream \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st new file mode 100644 index 000000000..e81a76584 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st @@ -0,0 +1,8 @@ +converting +responseFrom: aRequestContext + "Since the response knows how to write itself on the stream (and may already be partly written), + there's not much left to do." + + aRequestContext response + flush; + close \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/properties.json b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/properties.json new file mode 100644 index 000000000..c83d043ed --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/ZnZincStreamingServerAdaptor.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "ZnZincServerAdaptor", + "category" : "Seaside-Zinc-Core", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnZincStreamingServerAdaptor", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/monticello.meta/categories.st b/repository/Seaside-Zinc-Core.package/monticello.meta/categories.st new file mode 100644 index 000000000..43806c615 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Seaside-Zinc-Core'! diff --git a/repository/Seaside-Zinc-Core.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Core.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc-Core.package/monticello.meta/package b/repository/Seaside-Zinc-Core.package/monticello.meta/package new file mode 100644 index 000000000..5a451eae5 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-Zinc-Core') \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/properties.json b/repository/Seaside-Zinc-Core.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/.filetree b/repository/Seaside-Zinc-Pharo.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/README.md b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/README.md new file mode 100644 index 000000000..c69566671 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/README.md @@ -0,0 +1 @@ +I am the optimized implementation of a ring buffer on Pharo \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at..st new file mode 100644 index 000000000..6af00d582 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at..st @@ -0,0 +1,5 @@ +accessing +at: anInteger + self checkBoundsFor: anInteger. + + ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st new file mode 100644 index 000000000..378a1101d --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st @@ -0,0 +1,7 @@ +accessing +at: anInteger put: anObject + self checkBoundsFor: anInteger. + + buffer + atWrap: anInteger + offset + put: anObject \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/properties.json b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/properties.json new file mode 100644 index 000000000..0ef947b45 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/ZnPharoRingBuffer.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "JohanBrichau 12/17/2023 23:19", + "super" : "ZnRingBuffer", + "category" : "Seaside-Zinc-Pharo", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnPharoRingBuffer", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st new file mode 100644 index 000000000..2ecbc0e93 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Seaside-Zinc-Pharo'! diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Pharo.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc-Pharo.package/monticello.meta/package b/repository/Seaside-Zinc-Pharo.package/monticello.meta/package new file mode 100644 index 000000000..8d77b894c --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-Zinc-Pharo') \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/properties.json b/repository/Seaside-Zinc-Pharo.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/.filetree b/repository/Seaside-Zinc-Tests.package/.filetree new file mode 100644 index 000000000..57a679737 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/.filetree @@ -0,0 +1,5 @@ +{ + "separateMethodMetaAndSource" : false, + "noMethodMetaData" : true, + "useCypressPropertiesFile" : true +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/README.md b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/README.md new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAt.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAt.st new file mode 100644 index 000000000..49a7d38b3 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAt.st @@ -0,0 +1,22 @@ +tests +testAt + | buffer | + buffer := GRPlatform current ringBufferClass new: 5. + self assert: (buffer at: 1) isNil. + + buffer + at: 1 + put: 1. + self assert: (buffer at: 1) equals: 1. + + buffer + at: 2 + put: 2. + self assert: (buffer at: 2) equals: 2. + + buffer + at: 5 + put: 6. + self assert: (buffer at: 3) isNil. + self assert: (buffer at: 4) isNil. + self assert: (buffer at: 5) equals: 6 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st new file mode 100644 index 000000000..40edb2972 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testAtOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testAtOutOfBounds + | buffer | + buffer := GRPlatform current ringBufferClass new: 5. + self + should: [ buffer at: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer at: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testCopyFromTo.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testCopyFromTo.st new file mode 100644 index 000000000..3093db59f --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testCopyFromTo.st @@ -0,0 +1,29 @@ +tests +testCopyFromTo + | buffer copy | + buffer := GRPlatform current ringBufferClass on: #(1 2 3 4). + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(2 3 4). + + copy := buffer + copyFrom: 1 + to: 4. + + self assert: copy equals: #(1 2 3 4). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(3 4 1). + + buffer moveStartTo: 2. + copy := buffer + copyFrom: 2 + to: 4. + + self assert: copy equals: #(4 1 2) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testDo.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testDo.st new file mode 100644 index 000000000..1eec917f1 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testDo.st @@ -0,0 +1,15 @@ +tests +testDo + | buffer collector | + buffer := GRPlatform current ringBufferClass new: 5. + buffer + at: 1 put: 1; + at: 5 put: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(1 nil nil nil 2). + + buffer moveStartTo: 2. + collector := OrderedCollection new. + buffer do: [ :value | collector add: value ]. + self assert: collector asArray equals: #(nil nil nil 2 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testEquals.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testEquals.st new file mode 100644 index 000000000..2e764ea40 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testEquals.st @@ -0,0 +1,15 @@ +tests +testEquals + "We use #= on purpose in this test because the test + only works one way." + | buffer | + buffer := GRPlatform current ringBufferClass new: 3. + self assert: buffer = #(nil nil nil). + + buffer + at: 1 + put: 1. + self assert: buffer = #(1 nil nil). + + buffer moveStartTo: 2. + self assert: buffer = #(nil nil 1) \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st new file mode 100644 index 000000000..0b230ad68 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIllegalInstantiation.st @@ -0,0 +1,5 @@ +tests +testIllegalInstantiation + self + should: [ GRPlatform current ringBufferClass new ] + raise: ZnRingBufferIllegalUse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOf.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOf.st new file mode 100644 index 000000000..be9152778 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOf.st @@ -0,0 +1,42 @@ +tests +testIndexOf + | buffer index | + buffer := GRPlatform current ringBufferClass new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st new file mode 100644 index 000000000..4a2ea3698 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsent.st @@ -0,0 +1,42 @@ +tests +testIndexOfIfAbsent + | buffer index | + buffer := GRPlatform current ringBufferClass new: 5. + buffer + at: 2 + put: 1. + + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 1. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 5. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 4. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 3. + + buffer moveStartTo: 2. + index := buffer + indexOf: 1 + ifAbsent: [ -1 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st new file mode 100644 index 000000000..d24eefa94 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testIndexOfIfAbsentWhenAbsent.st @@ -0,0 +1,9 @@ +tests +testIndexOfIfAbsentWhenAbsent + | buffer index | + buffer := GRPlatform current ringBufferClass new: 5. + + index := buffer + indexOf: 1 + ifAbsent: [ 2 ]. + self assert: index equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartTo.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartTo.st new file mode 100644 index 000000000..678956c90 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartTo.st @@ -0,0 +1,20 @@ +tests +testMoveStartTo + | buffer | + buffer := GRPlatform current ringBufferClass new: 5. + + buffer + at: 1 put: 1; + at: 5 put: 5. + buffer moveStartTo: 2. + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 4) equals: 5. + self assert: (buffer at: 5) equals: 1. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 1. + self assert: (buffer at: 5) equals: 5. + + buffer moveStartTo: 5. + self assert: (buffer at: 1) equals: 5. + self assert: (buffer at: 2) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st new file mode 100644 index 000000000..ce119e529 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToIdentity.st @@ -0,0 +1,9 @@ +tests +testMoveStartToIdentity + | buffer | + buffer := GRPlatform current ringBufferClass new: 5. + + buffer + at: 1 put: 1; + moveStartTo: 1. + self assert: (buffer at: 1) equals: 1 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st new file mode 100644 index 000000000..d62de6a3e --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testMoveStartToOutOfBounds.st @@ -0,0 +1,13 @@ +tests +testMoveStartToOutOfBounds + | buffer | + buffer := GRPlatform current ringBufferClass new: 5. + self + should: [ buffer moveStartTo: 0 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: -1 ] + raise: ZnRingBufferIllegalAccess. + self + should: [ buffer moveStartTo: 6 ] + raise: ZnRingBufferIllegalAccess \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testOn.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testOn.st new file mode 100644 index 000000000..31ffba675 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testOn.st @@ -0,0 +1,11 @@ +tests +testOn + | buffer | + buffer := GRPlatform current ringBufferClass on: (ByteArray new: 1). + self assert: buffer size equals: 1. + buffer + at: 1 + put: 1. + self + should: [ buffer at: 1 put: $a ] + raise: Error \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st new file mode 100644 index 000000000..fb6ed75b5 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testReplaceFromToWithStartingAt.st @@ -0,0 +1,20 @@ +tests +testReplaceFromToWithStartingAt + | buffer replacement | + replacement := #(1 2 3 4). + 1 + to: 5 + do: [ :index | + buffer := GRPlatform current ringBufferClass new: 5. + buffer moveStartTo: index. + buffer + replaceFrom: 2 + to: 4 + with: replacement + startingAt: 2. + + self assert: (buffer at: 1) isNil. + self assert: (buffer at: 2) equals: 2. + self assert: (buffer at: 3) equals: 3. + self assert: (buffer at: 4) equals: 4. + self assert: (buffer at: 5) isNil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testSize.st b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testSize.st new file mode 100644 index 000000000..a517182cf --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/instance/testSize.st @@ -0,0 +1,15 @@ +tests +testSize + | buffer | + buffer := GRPlatform current ringBufferClass new: 2. + self assert: buffer size equals: 2. + + buffer + at: 1 put: 1; + at: 1 put: 1. + self assert: buffer size equals: 2. + + buffer + moveStartTo: 2; + at: 1 put: 3. + self assert: buffer size equals: 2 \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/properties.json b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/properties.json new file mode 100644 index 000000000..33d2632eb --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/ZnRingBufferTest.class/properties.json @@ -0,0 +1,11 @@ +{ + "commentStamp" : "", + "super" : "TestCase", + "category" : "Seaside-Zinc-Tests", + "classinstvars" : [ ], + "pools" : [ ], + "classvars" : [ ], + "instvars" : [ ], + "name" : "ZnRingBufferTest", + "type" : "normal" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/monticello.meta/categories.st b/repository/Seaside-Zinc-Tests.package/monticello.meta/categories.st new file mode 100644 index 000000000..23708b7d1 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/monticello.meta/categories.st @@ -0,0 +1 @@ +SystemOrganization addCategory: #'Seaside-Zinc-Tests'! diff --git a/repository/Seaside-Zinc-Tests.package/monticello.meta/initializers.st b/repository/Seaside-Zinc-Tests.package/monticello.meta/initializers.st new file mode 100644 index 000000000..e69de29bb diff --git a/repository/Seaside-Zinc-Tests.package/monticello.meta/package b/repository/Seaside-Zinc-Tests.package/monticello.meta/package new file mode 100644 index 000000000..02b07eb74 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/monticello.meta/package @@ -0,0 +1 @@ +(name 'Seaside-Zinc-Tests') \ No newline at end of file diff --git a/repository/Seaside-Zinc-Tests.package/properties.json b/repository/Seaside-Zinc-Tests.package/properties.json new file mode 100644 index 000000000..6f31cf5a2 --- /dev/null +++ b/repository/Seaside-Zinc-Tests.package/properties.json @@ -0,0 +1 @@ +{ } \ No newline at end of file From 77c6c95b84aa5aa5ab312cbe82df1e37784848b0 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 23:34:56 +0100 Subject: [PATCH 31/41] removed Zinc-Seaside* packages --- .../Zinc-Seaside-Pharo.package/.filetree | 5 -- .../ZnPharoRingBuffer.class/README.md | 1 - .../ZnPharoRingBuffer.class/instance/at..st | 5 -- .../instance/at.put..st | 7 -- .../ZnPharoRingBuffer.class/properties.json | 11 --- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../properties.json | 1 - repository/Zinc-Seaside.package/.filetree | 5 -- .../instance/crlf.st | 3 - .../instance/space.st | 3 - .../properties.json | 3 - .../ZnDeferredResponse.class/README.md | 6 -- .../class/onWrite..st | 3 - .../instance/onWrite..st | 3 - .../instance/writeOn..st | 3 - .../ZnDeferredResponse.class/properties.json | 13 ---- .../ZnRingBuffer.class/README.md | 15 ---- .../ZnRingBuffer.class/class/new..st | 6 -- .../ZnRingBuffer.class/class/new.st | 3 - .../ZnRingBuffer.class/class/on..st | 6 -- .../ZnRingBuffer.class/instance/^equals.st | 8 --- .../ZnRingBuffer.class/instance/at..st | 5 -- .../ZnRingBuffer.class/instance/at.put..st | 7 -- .../instance/checkBoundsFor..st | 6 -- .../instance/copyFrom.to..st | 19 ------ .../ZnRingBuffer.class/instance/do..st | 6 -- .../ZnRingBuffer.class/instance/hash.st | 9 --- .../instance/indexOf.ifAbsent..st | 10 --- .../instance/initialize..st | 3 - .../ZnRingBuffer.class/instance/initialize.st | 5 -- .../instance/initializeWithCollection..st | 4 -- .../instance/moveStartTo..st | 5 -- .../ZnRingBuffer.class/instance/printOn..st | 9 --- .../replaceFrom.to.with.startingAt..st | 19 ------ .../ZnRingBuffer.class/instance/size.st | 3 - .../ZnRingBuffer.class/properties.json | 14 ---- .../ZnRingBufferError.class/README.md | 1 - .../ZnRingBufferError.class/properties.json | 11 --- .../ZnRingBufferIllegalAccess.class/README.md | 1 - .../properties.json | 11 --- .../ZnRingBufferIllegalUse.class/README.md | 1 - .../properties.json | 11 --- .../ZnSeasideRequest.class/README.md | 1 - .../class/nativeRequest.stream..st | 5 -- .../instance/nativeRequest..st | 3 - .../instance/nativeRequest.st | 3 - .../instance/stream..st | 3 - .../ZnSeasideRequest.class/instance/stream.st | 3 - .../ZnSeasideRequest.class/properties.json | 14 ---- .../README.md | 6 -- .../class/forServer..st | 7 -- .../class/installInDefaultServer.st | 3 - .../class/installInServer..st | 3 - .../class/installInServer.underPrefix..st | 16 ----- .../class/with..st | 5 -- .../instance/adaptor..st | 3 - .../instance/adaptor.st | 3 - .../instance/handleRequest..st | 5 -- .../instance/handleRequest.gemServer..st | 5 -- .../instance/value..st | 5 -- .../properties.json | 13 ---- .../README.md | 5 -- .../instance/handleRequest..st | 14 ---- .../instance/initializeStaticDelegate.st | 5 -- .../instance/serveFilesFrom..st | 3 - .../instance/staticDelegate.st | 3 - .../instance/wwwRootDirectory..st | 5 -- .../instance/wwwRootDirectory.st | 6 -- .../properties.json | 14 ---- .../instance/streamUploads..st | 5 -- .../instance/streamUploads.st | 5 -- .../ZnServer.extension/properties.json | 3 - .../README.md | 3 - ...eMultiPartFieldWithMimePart.decodeWith..st | 10 --- ...FieldWithoutLengthWithBoundary.writeOn..st | 68 ------------------- ...LengthWithMimePart.boundary.decodeWith..st | 11 --- ...eFieldWithMimePart.boundary.decodeWith..st | 16 ----- .../partsDecodeWith.decodeFilesWith..st | 45 ------------ .../instance/readBinaryFrom..st | 3 - .../properties.json | 15 ---- .../ZnZincServerAdaptor.class/README.md | 11 --- .../instance/basicStart.st | 3 - .../instance/basicStop.st | 6 -- .../instance/configureDelegate.st | 5 -- .../configureServerForBinaryReading.st | 7 -- .../instance/convertMultipart..st | 15 ---- .../instance/convertMultipartEntity.with..st | 15 ---- .../instance/convertMultipartFileField..st | 8 --- .../convertMultipartStreamingEntity.with..st | 30 -------- .../instance/defaultCodec.st | 3 - .../instance/defaultDelegate.st | 3 - .../instance/defaultZnServer.st | 3 - .../instance/isRunning.st | 3 - .../instance/isStarting.st | 3 - .../instance/isStopped.st | 3 - .../instance/isStopping.st | 3 - .../instance/printOn..st | 7 -- .../instance/requestAddressFor..st | 5 -- .../instance/requestBodyFor..st | 12 ---- .../instance/requestCookiesFor..st | 6 -- .../instance/requestFieldsFor..st | 18 ----- .../instance/requestHeadersFor..st | 7 -- .../instance/requestMethodFor..st | 3 - .../instance/requestUrlFor..st | 20 ------ .../instance/requestVersionFor..st | 3 - .../instance/responseFrom..st | 19 ------ .../instance/server..st | 7 -- .../instance/server.st | 11 --- .../instance/serverClass..st | 6 -- .../instance/shutDown.st | 4 -- .../instance/startUp.st | 4 -- .../instance/statusString.st | 4 -- .../ZnZincServerAdaptor.class/properties.json | 13 ---- .../ZnZincStaticServerAdaptor.class/README.md | 19 ------ .../class/startOn.andServeFilesFrom..st | 4 -- .../instance/defaultDelegate.st | 3 - .../instance/useCustomExpirationHeaders..st | 3 - .../instance/useDefaultExpirationHeaders.st | 3 - .../properties.json | 11 --- .../README.md | 1 - .../instance/process..st | 9 --- .../instance/requestFor..st | 3 - .../instance/responseFor..st | 8 --- .../instance/responseFrom..st | 8 --- .../properties.json | 11 --- .../monticello.meta/categories.st | 1 - .../monticello.meta/initializers.st | 0 .../monticello.meta/package | 1 - .../Zinc-Seaside.package/properties.json | 1 - 131 files changed, 973 deletions(-) delete mode 100644 repository/Zinc-Seaside-Pharo.package/.filetree delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st delete mode 100644 repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json delete mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st delete mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st delete mode 100644 repository/Zinc-Seaside-Pharo.package/monticello.meta/package delete mode 100644 repository/Zinc-Seaside-Pharo.package/properties.json delete mode 100644 repository/Zinc-Seaside.package/.filetree delete mode 100644 repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st delete mode 100644 repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st delete mode 100644 repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st delete mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st delete mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st delete mode 100644 repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st delete mode 100644 repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st delete mode 100644 repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st delete mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st delete mode 100644 repository/Zinc-Seaside.package/ZnServer.extension/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st delete mode 100644 repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st delete mode 100644 repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json delete mode 100644 repository/Zinc-Seaside.package/monticello.meta/categories.st delete mode 100644 repository/Zinc-Seaside.package/monticello.meta/initializers.st delete mode 100644 repository/Zinc-Seaside.package/monticello.meta/package delete mode 100644 repository/Zinc-Seaside.package/properties.json diff --git a/repository/Zinc-Seaside-Pharo.package/.filetree b/repository/Zinc-Seaside-Pharo.package/.filetree deleted file mode 100644 index 57a679737..000000000 --- a/repository/Zinc-Seaside-Pharo.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md deleted file mode 100644 index c69566671..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the optimized implementation of a ring buffer on Pharo \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st deleted file mode 100644 index 6af00d582..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -at: anInteger - self checkBoundsFor: anInteger. - - ^ buffer atWrap: anInteger + offset \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st deleted file mode 100644 index 378a1101d..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/instance/at.put..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -at: anInteger put: anObject - self checkBoundsFor: anInteger. - - buffer - atWrap: anInteger + offset - put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json b/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json deleted file mode 100644 index 8b19915ef..000000000 --- a/repository/Zinc-Seaside-Pharo.package/ZnPharoRingBuffer.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "JohanBrichau 12/17/2023 23:19", - "super" : "ZnRingBuffer", - "category" : "Zinc-Seaside-Pharo", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnPharoRingBuffer", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st b/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st deleted file mode 100644 index 34bfa36ba..000000000 --- a/repository/Zinc-Seaside-Pharo.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Zinc-Seaside-Pharo'! diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st b/repository/Zinc-Seaside-Pharo.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Zinc-Seaside-Pharo.package/monticello.meta/package b/repository/Zinc-Seaside-Pharo.package/monticello.meta/package deleted file mode 100644 index 48b9a2469..000000000 --- a/repository/Zinc-Seaside-Pharo.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Zinc-Seaside-Pharo') \ No newline at end of file diff --git a/repository/Zinc-Seaside-Pharo.package/properties.json b/repository/Zinc-Seaside-Pharo.package/properties.json deleted file mode 100644 index 6f31cf5a2..000000000 --- a/repository/Zinc-Seaside-Pharo.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/.filetree b/repository/Zinc-Seaside.package/.filetree deleted file mode 100644 index 57a679737..000000000 --- a/repository/Zinc-Seaside.package/.filetree +++ /dev/null @@ -1,5 +0,0 @@ -{ - "separateMethodMetaAndSource" : false, - "noMethodMetaData" : true, - "useCypressPropertiesFile" : true -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st deleted file mode 100644 index 4254b2ac1..000000000 --- a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/crlf.st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -crlf - self nextPutAll: String crlf \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st deleted file mode 100644 index fb9602aa0..000000000 --- a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/instance/space.st +++ /dev/null @@ -1,3 +0,0 @@ -*Zinc-Seaside -space - self nextPut: Character space asciiValue \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json b/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json deleted file mode 100644 index 622252fc6..000000000 --- a/repository/Zinc-Seaside.package/ZdcAbstractSocketStream.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZdcAbstractSocketStream" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md deleted file mode 100644 index 3021873bb..000000000 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am a lazy ZnResponse that: - -1. Does no work except to delegate to a smarter object; and -2. Doesn't even delegate until I'm told it's time to write something out on the stream. - -See, I'm even lazy about being lazy. I can get away with this wanton slothfulness because of WAComboResponse's ability to handle everything (status line, headers, chunking). \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st deleted file mode 100644 index cc24a36b5..000000000 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/class/onWrite..st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -onWrite: aBlock - ^self new onWrite: aBlock \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st deleted file mode 100644 index ac2100bf8..000000000 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/onWrite..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -onWrite: aBlock - onWrite := aBlock \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st deleted file mode 100644 index 6f89bc30e..000000000 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/instance/writeOn..st +++ /dev/null @@ -1,3 +0,0 @@ -writing -writeOn: stream - onWrite value: stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json b/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json deleted file mode 100644 index e6bc10fe9..000000000 --- a/repository/Zinc-Seaside.package/ZnDeferredResponse.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnResponse", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "onWrite" - ], - "name" : "ZnDeferredResponse", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md b/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md deleted file mode 100644 index 2176f81da..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/README.md +++ /dev/null @@ -1,15 +0,0 @@ -I am an implementation of a ring buffer, i.e. a buffer where the start index can be moved along a virtual ring. - -I buffer a fixed amount of data and provide array like access to it. - -Users use me mostly like an array. My only interesting method is #moveStartTo:, which moves the start index of the -buffer to the specified position. Example: - -buffer - at: 1 put: 1; - at: 2 put: 2; - at: 1. "----> 1" - -buffer - moveStartTo: 2; - at: 1 "----> 2" \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st deleted file mode 100644 index a1f8df872..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -new: aInteger - ^ self basicNew - initialize: aInteger; - initialize; - yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st deleted file mode 100644 index 814a6c764..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/new.st +++ /dev/null @@ -1,3 +0,0 @@ -instance creation -new - ZnRingBufferIllegalUse signal: 'Use #new and specify an explicit size' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st deleted file mode 100644 index 2f5135d96..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/class/on..st +++ /dev/null @@ -1,6 +0,0 @@ -instance creation -on: aCollection - ^ self basicNew - initializeWithCollection: aCollection; - initialize; - yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st deleted file mode 100644 index 1658f6272..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/^equals.st +++ /dev/null @@ -1,8 +0,0 @@ -comparing -= aCollection - 1 - to: self size - do: [ :index | - (self at: index) ~= (aCollection at: index) ifTrue: [ ^ false ] ]. - - ^ true \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st deleted file mode 100644 index 1f73a1673..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -at: anInteger - self checkBoundsFor: anInteger. - - ^ buffer atWrap: (anInteger + offset) \\ buffer size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st deleted file mode 100644 index 5b4233044..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/at.put..st +++ /dev/null @@ -1,7 +0,0 @@ -accessing -at: anInteger put: anObject - self checkBoundsFor: anInteger. - - buffer - atWrap: (anInteger + offset) \\ buffer size - put: anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st deleted file mode 100644 index e4284b38e..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/checkBoundsFor..st +++ /dev/null @@ -1,6 +0,0 @@ -private -checkBoundsFor: anInteger - (anInteger < 1 or: [ - anInteger > self size ]) ifFalse: [ ^ self ]. - - ZnRingBufferIllegalAccess signal \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st deleted file mode 100644 index 52672c5d1..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/copyFrom.to..st +++ /dev/null @@ -1,19 +0,0 @@ -accessing -copyFrom: start to: stop - | copy endIndex copySize | - copySize := stop - start + 1. - copy := buffer species new: copySize. - endIndex := copySize min: self size - start - offset + 1. - copy - replaceFrom: 1 - to: endIndex - with: buffer - startingAt: start + offset. - - stop + offset > self size ifFalse: [ ^ copy ]. - - ^ copy - replaceFrom: endIndex + 1 - to: copySize - with: buffer - startingAt: 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st deleted file mode 100644 index 741f9a2d8..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/do..st +++ /dev/null @@ -1,6 +0,0 @@ -enumerating -do: aBlock - 1 - to: self size - do: [ :index | - aBlock value: (self at: index) ] diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st deleted file mode 100644 index 5fd18ae66..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/hash.st +++ /dev/null @@ -1,9 +0,0 @@ -comparing -hash - "Copy of SequenceableCollection>>hash" - | hash | - hash := self species hash. - 1 - to: self size - do: [ :i | hash := (hash + (self at: i) hash) hashMultiply ]. - ^ hash \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st deleted file mode 100644 index cbd962990..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/indexOf.ifAbsent..st +++ /dev/null @@ -1,10 +0,0 @@ -accessing -indexOf: anElement ifAbsent: exceptionBlock - | index | - index := buffer - indexOf: anElement - ifAbsent: [ ^ exceptionBlock value ]. - - ^ index > offset - ifTrue: [ index - offset ] - ifFalse: [ self size - offset + index ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st deleted file mode 100644 index 95df117dc..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize..st +++ /dev/null @@ -1,3 +0,0 @@ -initialization -initialize: anInteger - self initializeWithCollection: (Array new: anInteger) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st deleted file mode 100644 index b26430a1d..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initialize.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initialize - super initialize. - - offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st deleted file mode 100644 index 71b33bc7b..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/initializeWithCollection..st +++ /dev/null @@ -1,4 +0,0 @@ -initialization -initializeWithCollection: aCollection - buffer := aCollection. - offset := 0 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st deleted file mode 100644 index f3b240141..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/moveStartTo..st +++ /dev/null @@ -1,5 +0,0 @@ -operations -moveStartTo: anInteger - self checkBoundsFor: anInteger. - - offset := (offset + anInteger - 1) \\ self size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st deleted file mode 100644 index a926e4e41..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/printOn..st +++ /dev/null @@ -1,9 +0,0 @@ -printing -printOn: aStream - super printOn: aStream. - - aStream nextPut: $(. - (self - copyFrom: 1 - to: self size) printOn: aStream. - aStream nextPut: $) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st deleted file mode 100644 index b9d8a0ce8..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/replaceFrom.to.with.startingAt..st +++ /dev/null @@ -1,19 +0,0 @@ -accessing -replaceFrom: start to: stop with: replacement startingAt: repStart - | startIndex endIndex | - startIndex := start + offset. - endIndex := stop + offset min: self size. - startIndex > self size ifFalse: [ - buffer - replaceFrom: startIndex - to: endIndex - with: replacement - startingAt: repStart ]. - - stop + offset > self size ifFalse: [ ^ self ]. - - buffer - replaceFrom: 1 - to: (stop + offset) \\ self size - with: replacement - startingAt: repStart + endIndex - startIndex + 1 \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st b/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st deleted file mode 100644 index 6a48eba3f..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/instance/size.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -size - ^ buffer size \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json deleted file mode 100644 index 4ff3fc3d7..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBuffer.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:33", - "super" : "Object", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "buffer", - "offset" - ], - "name" : "ZnRingBuffer", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md deleted file mode 100644 index 19e71b79b..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferError.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I am the abstract super class of all ring buffer errors. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json deleted file mode 100644 index 8b4decedb..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferError.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:24", - "super" : "Error", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferError", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md deleted file mode 100644 index b5fcfece6..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I represent any error that is due to the use out of bounds indices when accessing the ring buffer. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json deleted file mode 100644 index 5b53ce5c7..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalAccess.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:25", - "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferIllegalAccess", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md deleted file mode 100644 index 01b63674c..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I represent illegal use of ring buffer methods. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json b/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json deleted file mode 100644 index 4e014a09b..000000000 --- a/repository/Zinc-Seaside.package/ZnRingBufferIllegalUse.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "mml 07/26/2019 15:26", - "super" : "ZnRingBufferError", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnRingBufferIllegalUse", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md deleted file mode 100644 index 852eb144e..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I group a ZnRequest together with its stream, purely for convenience. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st deleted file mode 100644 index 0496ec988..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/class/nativeRequest.stream..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -nativeRequest: aZnRequest stream: aStream - ^ self new - nativeRequest: aZnRequest; - stream: aStream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st deleted file mode 100644 index 0759b5f7a..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nativeRequest: anObject - nativeRequest := anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st deleted file mode 100644 index 30f70fdcb..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/nativeRequest.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -nativeRequest - ^ nativeRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st deleted file mode 100644 index 2570b7d65..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stream: anObject - stream := anObject \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st deleted file mode 100644 index 691d96996..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/instance/stream.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -stream - ^ stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json deleted file mode 100644 index 00d21fce2..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideRequest.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "Object", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "nativeRequest", - "stream" - ], - "name" : "ZnSeasideRequest", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md deleted file mode 100644 index aa90ea132..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/README.md +++ /dev/null @@ -1,6 +0,0 @@ -I am ZnSeasideServerAdaptorDelegate. - -I handle Zinc HTTP Server delegate's #handleRequest: using WAServerAdaptor>>#process: - -Instance Variables: - adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st deleted file mode 100644 index 1c8156d2d..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/forServer..st +++ /dev/null @@ -1,7 +0,0 @@ -instance creation -forServer: znServer - | adaptor | - adaptor := ZnZincServerAdaptor new. - adaptor unregister. - adaptor server: znServer. - ^ self with: adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st deleted file mode 100644 index 82afceebd..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInDefaultServer.st +++ /dev/null @@ -1,3 +0,0 @@ -examples -installInDefaultServer - ^ self installInServer: ZnServer default \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st deleted file mode 100644 index 15a2175b4..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer..st +++ /dev/null @@ -1,3 +0,0 @@ -examples -installInServer: znServer - ^ self installInServer: znServer underPrefix: 'seaside' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st deleted file mode 100644 index 15e141156..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/installInServer.underPrefix..st +++ /dev/null @@ -1,16 +0,0 @@ -examples -installInServer: znServer underPrefix: prefix - "Install a ZnSeasideServerAdaptorDelegate in znServer under prefix, - provided znServer contains a ZnDefaultServerDelegate instance as primary delegate. - Note that the incoming request is destructively modified. - Note that a global #serverPath is added to the default Seaside dispatcher." - - | seasideDelegate | - seasideDelegate := self forServer: znServer. - znServer delegate - map: 'seaside' - to: [ :request | - request uri removeFirstPathSegment. - seasideDelegate handleRequest: request ]. - WAAdmin defaultDispatcher serverPath: prefix. - ^ seasideDelegate \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st deleted file mode 100644 index 9a56966bf..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/class/with..st +++ /dev/null @@ -1,5 +0,0 @@ -instance creation -with: aSeasideServerAdaptor - ^ self new - adaptor: aSeasideServerAdaptor; - yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st deleted file mode 100644 index 79a2a1e3c..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -adaptor: aSeasideServerAdaptor - adaptor := aSeasideServerAdaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st deleted file mode 100644 index a103e81ba..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/adaptor.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -adaptor - ^ adaptor \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st deleted file mode 100644 index ea81f47d4..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest..st +++ /dev/null @@ -1,5 +0,0 @@ -public -handleRequest: znRequest - "I pass a Zinc HTTP Components ZnRequest to my Seaside Server Adaptor using #process:" - - ^ self adaptor process: znRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st deleted file mode 100644 index c000f754b..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/handleRequest.gemServer..st +++ /dev/null @@ -1,5 +0,0 @@ -public -handleRequest: request gemServer: gemServer - "transactions handled by the adaptor" - - ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st deleted file mode 100644 index 17bc2c2a0..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/instance/value..st +++ /dev/null @@ -1,5 +0,0 @@ -public -value: request - "I implement the generic #value: message as equivalent to #handleRequest:" - - ^ self handleRequest: request \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json deleted file mode 100644 index a0cafeda9..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideServerAdaptorDelegate.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "SvenVanCaekenberghe 9/30/2010 18:13", - "super" : "Object", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "adaptor" - ], - "name" : "ZnSeasideServerAdaptorDelegate", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md deleted file mode 100644 index fc357480e..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/README.md +++ /dev/null @@ -1,5 +0,0 @@ -This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate - -Instance Variables: - staticDelegate aZnStaticFileServerDelegate - wwwRootDirectory - The directory on your file system where the JS/CSS/JPEG etc. files you want to serve reside \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st deleted file mode 100644 index 6d9d315c3..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/handleRequest..st +++ /dev/null @@ -1,14 +0,0 @@ -public -handleRequest: znRequest - "If the Seaside request processing apparatus returns an HTTP response with a 'not found' error for a GET request, - check the filesystem for a file that matches the uri of the request, if found send the file if not send the original error." - - | response staticResponse | - response := self adaptor process: znRequest. - ^ (response isNotFound and: [ znRequest method = 'GET' and: [ response isAuthenticationRequired not ] ]) - ifTrue: [ - staticResponse := self staticDelegate handleRequest: znRequest. - staticResponse isNotFound - ifTrue: [ response ] - ifFalse: [ staticResponse ] ] - ifFalse: [ response ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st deleted file mode 100644 index 36f8d1c0d..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/initializeStaticDelegate.st +++ /dev/null @@ -1,5 +0,0 @@ -initialization -initializeStaticDelegate - ^ ZnStaticFileServerDelegate new - directory: self wwwRootDirectory; - yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st deleted file mode 100644 index 6667a841b..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/serveFilesFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -updating -serveFilesFrom: aDirectoryPathString - self wwwRootDirectory: (ZnFileSystemUtils directory: aDirectoryPathString ) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st deleted file mode 100644 index 743526948..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/staticDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -staticDelegate - ^ staticDelegate ifNil: [ staticDelegate := self initializeStaticDelegate ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st deleted file mode 100644 index 8ecc4811b..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory..st +++ /dev/null @@ -1,5 +0,0 @@ -accessing -wwwRootDirectory: fileDirectory - "This is the root directory for your css/js/images etc...." - - wwwRootDirectory := fileDirectory \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st deleted file mode 100644 index 322d96705..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/instance/wwwRootDirectory.st +++ /dev/null @@ -1,6 +0,0 @@ -accessing -wwwRootDirectory - "This is the root directory for your css/js/images etc...." - - ^ wwwRootDirectory ifNil: [ - wwwRootDirectory := ZnFileSystemUtils directory: '/var/www' ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json b/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json deleted file mode 100644 index b3043aa59..000000000 --- a/repository/Zinc-Seaside.package/ZnSeasideStaticServerAdaptorDelegate.class/properties.json +++ /dev/null @@ -1,14 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnSeasideServerAdaptorDelegate", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "staticDelegate", - "wwwRootDirectory" - ], - "name" : "ZnSeasideStaticServerAdaptorDelegate", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st deleted file mode 100644 index 9a0f58d29..000000000 --- a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads..st +++ /dev/null @@ -1,5 +0,0 @@ -*Zinc-Seaside -streamUploads: aBoolean - ^ self - optionAt: #streamUploads - put: aBoolean \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st b/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st deleted file mode 100644 index 3c2e08410..000000000 --- a/repository/Zinc-Seaside.package/ZnServer.extension/instance/streamUploads.st +++ /dev/null @@ -1,5 +0,0 @@ -*Zinc-Seaside -streamUploads - ^ self - optionAt: #streamUploads - ifAbsent: [ false ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnServer.extension/properties.json b/repository/Zinc-Seaside.package/ZnServer.extension/properties.json deleted file mode 100644 index 1f51b1ea9..000000000 --- a/repository/Zinc-Seaside.package/ZnServer.extension/properties.json +++ /dev/null @@ -1,3 +0,0 @@ -{ - "name" : "ZnServer" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md deleted file mode 100644 index b8cdf930b..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/README.md +++ /dev/null @@ -1,3 +0,0 @@ -I implement chunked reading of multipart/form-data requests. I use a ZnRingBuffer to reduce the number of operations and the amount of memory consumed during this. - -I handle file parts by writing them to temporary files on disk in chunks, thus preventing the image from exhausting memory resources. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st deleted file mode 100644 index 6faf4fd2c..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithMimePart.decodeWith..st +++ /dev/null @@ -1,10 +0,0 @@ -private -parseMultiPartFieldWithMimePart: aMimePart decodeWith: aBlock - | reader | - reader := (aMimePart entityReaderOn: stream) - binary; - streaming; - yourself. - aMimePart entity: reader readEntity. - - aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st deleted file mode 100644 index 3164f9eae..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st +++ /dev/null @@ -1,68 +0,0 @@ -private -parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer - | bufferSize rawBuffer buffer boundaryMarker | - "Can't simply use a larger buffer as we don't want to read past a boundary, - those bytes will belong to the next part" - bufferSize := aBoundary size. - rawBuffer := ByteArray new: bufferSize. - buffer := GRPlatform current ringBufferClass on: rawBuffer. - boundaryMarker := aBoundary first. - - stream atEnd ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - stream - next: bufferSize - into: rawBuffer ]. - - [ (buffer - indexOf: boundaryMarker - ifAbsent: [ nil ]) - ifNotNil: [ :boundaryCandidateIndex | - (boundaryCandidateIndex = 1 and: [ - buffer = aBoundary ]) - ifTrue: [ - "Found a boundary. We're done" - true ] - ifFalse: [ - | candidateIndex | - candidateIndex := boundaryCandidateIndex = 1 - ifTrue: [ 2 ] - ifFalse: [ boundaryCandidateIndex ]. - "Write all the bytes that we know are not part of a boundary" - 1 - to: candidateIndex - 1 - do: [ :index | writer nextPut: (buffer at: index) ]. - "Move the rest of the buffer to the beginning of the buffer" - buffer moveStartTo: candidateIndex. - - "Fill the rest of the buffer" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - rawBuffer := buffer - copyFrom: 1 - to: bufferSize. - stream - next: candidateIndex - 1 - into: rawBuffer - startingAt: bufferSize - candidateIndex + 2. - buffer initializeWithCollection: rawBuffer. - "If the candidate was really the first token of the boundary - then we now have loaded the full boundary into the buffer. - If not we have to check for the next boundary candidate as - we might have loaded the next boundary partially." - buffer = aBoundary ] ] - ifNil: [ - writer nextPutAll: buffer. - stream atEnd - ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - stream - next: bufferSize - into: rawBuffer. - buffer moveStartTo: 1. - false ] - ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st deleted file mode 100644 index 87a4a20c0..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithMimePart.boundary.decodeWith..st +++ /dev/null @@ -1,11 +0,0 @@ -private -parseMultiPartFieldWithoutLengthWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock - | fullBoundary fieldValue | - fullBoundary := String crlf asByteArray, aBoundary. - fieldValue := ByteArray streamContents: [ :valueStream | - self - parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary - writeOn: valueStream ]. - - aMimePart entity: (ZnEntity text: fieldValue asString). - aBlock value: aMimePart \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st deleted file mode 100644 index 5e5fa8aa6..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFileFieldWithMimePart.boundary.decodeWith..st +++ /dev/null @@ -1,16 +0,0 @@ -private -parseMultiPartFileFieldWithMimePart: aMimePart boundary: aBoundary decodeWith: aBlock - | fullBoundary file | - fullBoundary := String crlf asByteArray, aBoundary. - file := GRPlatform current newTemporaryFileReference. - GRPlatform current - writeFileStreamOn: file pathString - do: [ :writer | - self - parseMultiPartFieldWithoutLengthWithBoundary: fullBoundary - writeOn: writer ] - binary: true. - - aBlock - value: aMimePart - value: file pathString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st deleted file mode 100644 index 04d6d35f2..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st +++ /dev/null @@ -1,45 +0,0 @@ -private -partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock - | fullBoundary endBoundary | - fullBoundary := '--' asByteArray, self getBoundary. - endBoundary := fullBoundary asString, '--'. - "Sometimes there is whitespace in front of the first boundary" - (stream match: fullBoundary) ifFalse: [ self error ]. - "Skip CRLF" - stream skip: 2. - - [ stream atEnd ] whileFalse: [ - | part | - part := ZnMimePart new - headers: (ZnHeaders readFrom: stream); - yourself. - "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) - and it is the last part then parsing headers will consumed the rest of the end boundary and the - stream will be at the end. In this case, the part will not have any headers" - (part hasHeaders not or: [ - "The final boundary may be read as a header when - the last part was not a file part" - part headers includesKey: endBoundary ]) ifFalse: [ - (part fileName notNil or: [ - part contentType notNil and: [ - part contentType isBinary ] ]) - ifFalse: [ - ((part contentDispositionValues includes: 'form-data') and: [ - part contentLength isNil ]) - ifTrue: [ - self - parseMultiPartFieldWithoutLengthWithMimePart: part - boundary: fullBoundary - decodeWith: aDecoderBlock ] - ifFalse: [ - self - parseMultiPartFieldWithMimePart: part - decodeWith: aDecoderBlock ] ] - ifTrue: [ - self - parseMultiPartFileFieldWithMimePart: part - boundary: fullBoundary - decodeWith: aFileDecoderBlock ] ]. - "Skip crlf" - stream atEnd ifFalse: [ - stream skip: 2 ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st deleted file mode 100644 index ac80248b8..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/instance/readBinaryFrom..st +++ /dev/null @@ -1,3 +0,0 @@ -initialize-release -readBinaryFrom: aStream - stream := aStream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json b/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json deleted file mode 100644 index 1043a41b8..000000000 --- a/repository/Zinc-Seaside.package/ZnStreamingMultiPartFormDataEntity.class/properties.json +++ /dev/null @@ -1,15 +0,0 @@ -{ - "commentStamp" : "MaxLeske 5/20/2020 10:03", - "super" : "ZnMultiPartFormDataEntity", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ - "TemporaryFileDirectory" - ], - "instvars" : [ - "stream" - ], - "name" : "ZnStreamingMultiPartFormDataEntity", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md deleted file mode 100644 index f59977003..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/README.md +++ /dev/null @@ -1,11 +0,0 @@ -I convert between Seaside and Zinc HTTP requests and responses. -I am a WAServerAdaptor. - -Instance Variables: - server - -I can be started like any other Seaside adaptor: - - ZnZincServerAdaptor startOn: 8080 - -I work together with a ZnSeasideServerAdaptorDelegate. I offer several advanced configuration options for specialized applications in my 'initialize-release' protocol. See also the 'example' class protocol of ZnSeasideServerAdaptorDelegate. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st deleted file mode 100644 index 3c8e54c30..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStart.st +++ /dev/null @@ -1,3 +0,0 @@ -private -basicStart - self server start \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st deleted file mode 100644 index 9deb98cc2..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/basicStop.st +++ /dev/null @@ -1,6 +0,0 @@ -private -basicStop - server - ifNotNil: [ - server stop. - server := nil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st deleted file mode 100644 index fb9098cdf..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureDelegate.st +++ /dev/null @@ -1,5 +0,0 @@ -initialize-release -configureDelegate - "Set the main delegate of my server to the default one." - - server delegate: self defaultDelegate \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st deleted file mode 100644 index b73b5799e..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -configureServerForBinaryReading - "Seaside wants to do its own text conversions" - - server reader: (server streamUploads - ifTrue: [ [ :stream | ZnRequest readBinaryFrom: stream ] ] - ifFalse: [ [ :stream | ZnRequest readStreamingFrom: stream ] ]) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st deleted file mode 100644 index 9d7ee260a..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipart..st +++ /dev/null @@ -1,15 +0,0 @@ -private -convertMultipart: entity - | dictionary | - dictionary := ZnMultiValueDictionary new. - entity class = ZnStreamingEntity - ifTrue: [ - self - convertMultipartStreamingEntity: entity - with: dictionary ] - ifFalse: [ - self - convertMultipartEntity: entity - with: dictionary ]. - ^ dictionary - \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st deleted file mode 100644 index 399a4c52f..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st +++ /dev/null @@ -1,15 +0,0 @@ -private -convertMultipartEntity: anEntity with: aMultiValueDictionary - anEntity partsDo: [ :part | - | value | - value := part hasEntity - ifFalse: [ String new ] - ifTrue: [ - (part fileName isEmptyOrNil not or: [ - part contentType notNil and: [ - part contentType isBinary ] ]) - ifFalse: [ self codec url decode: part fieldValueString ] - ifTrue: [ self convertMultipartFileField: part ] ]. - aMultiValueDictionary - at: part fieldName - add: value ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st deleted file mode 100644 index 971b03046..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartFileField..st +++ /dev/null @@ -1,8 +0,0 @@ -private -convertMultipartFileField: part - | file | - (file := WAFile new) - fileName: part fileName; - contentType: part contentType printString; - contents: (part hasEntity ifTrue: [ part contents asByteArray ] ifFalse: [ #[] ]). - ^ file \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st deleted file mode 100644 index 2393717e8..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ /dev/null @@ -1,30 +0,0 @@ -private -convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary - | entity | - entity := ZnStreamingMultiPartFormDataEntity new - readBinaryFrom: anEntity stream; - contentType: anEntity contentType; - yourself. - entity - partsDecodeWith: [ :znMimePart | - aMultiValueDictionary - at: znMimePart fieldName - add: (self codec url decode: (znMimePart hasEntity - ifTrue: [ znMimePart fieldValueString ] - ifFalse: [ String new ])) ] - decodeFilesWith: [ :znMimePart :filePath | - "Empty file + empty filename means that the file form - field did not contain a value (no file was selected)." - (znMimePart fileName isEmpty and: [ - filePath asFileReference size isZero ]) - ifTrue: [ filePath asFileReference ensureDelete ] - ifFalse: [ - aMultiValueDictionary - at: znMimePart fieldName - add: (WAExternalFile new - contentType: znMimePart contentType printString; - fileName: (znMimePart fileName ifEmpty: [ - "It is legal for the `filename` value to be empty" - filePath asFileReference basename ]); - filePath: filePath; - yourself) ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st deleted file mode 100644 index be8f252f9..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultCodec.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultCodec - ^ GRCodec forEncoding: 'utf-8' \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st deleted file mode 100644 index 9f1c68495..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultDelegate - ^ ZnSeasideServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st deleted file mode 100644 index 4c9a51f42..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/defaultZnServer.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultZnServer - ^ ZnServer on: self port \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st deleted file mode 100644 index 2f5d79c93..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isRunning.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isRunning - ^ server notNil and: [ server isRunning ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st deleted file mode 100644 index 9f74a15a3..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStarting.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStarting - ^ false \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st deleted file mode 100644 index 742d855f0..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopped.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStopped - ^ server isNil or: [ server isRunning not ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st deleted file mode 100644 index a0c287c8a..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/isStopping.st +++ /dev/null @@ -1,3 +0,0 @@ -testing -isStopping - ^ false \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st deleted file mode 100644 index 2d9f91f98..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/printOn..st +++ /dev/null @@ -1,7 +0,0 @@ -printing -printOn: stream - super printOn: stream. - stream - nextPut: $(; - << self statusString; - nextPut: $) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st deleted file mode 100644 index eaf61649f..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st +++ /dev/null @@ -1,5 +0,0 @@ -converting -requestAddressFor: aZincRequest - ^ aZincRequest headers - at: ZnConstants remoteAddressHeader - ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st deleted file mode 100644 index c1d08a051..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st +++ /dev/null @@ -1,12 +0,0 @@ -converting -requestBodyFor: aZincRequest - ^ (aZincRequest method ~= #TRACE - and: [ aZincRequest hasEntity - and: [ aZincRequest entity isEmpty not - and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not - and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) - ifTrue: [ - "Seaside wants to do its own text conversions" - aZincRequest entity contents asString ] - ifFalse: [ - String new ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st deleted file mode 100644 index 05c1576a4..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st +++ /dev/null @@ -1,6 +0,0 @@ -converting -requestCookiesFor: aZincRequest - | cookieString | - cookieString := aZincRequest headers - at: 'Cookie' ifAbsent: [ ^ #() ]. - ^ WARequestCookie fromString: cookieString codec: self codec \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st deleted file mode 100644 index e0ac1a3f1..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st +++ /dev/null @@ -1,18 +0,0 @@ -converting -requestFieldsFor: aZincRequest - | fields | - fields := WARequestFields new. - (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) - ifTrue: [ - (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) - ifTrue: [ - fields addAll: (aZincRequest entity class = ZnStreamingEntity - ifTrue: [ - ZnApplicationFormUrlEncodedEntity new - readFrom: aZincRequest entity stream; - fields ] - ifFalse: [ aZincRequest entity fields ]) ]. - (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) - ifTrue: [ - fields addAll: (self convertMultipart: aZincRequest entity) ] ]. - ^ fields \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st deleted file mode 100644 index c174a0f70..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st +++ /dev/null @@ -1,7 +0,0 @@ -converting -requestHeadersFor: aZincRequest - | fields | - fields := Dictionary new. - aZincRequest headersDo: [ :key :value | - fields at: key asLowercase put: value ]. - ^ fields \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st deleted file mode 100644 index ba5191eff..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestMethodFor: aZincRequest - ^ aZincRequest method greaseString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st deleted file mode 100644 index b8eaca364..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st +++ /dev/null @@ -1,20 +0,0 @@ -converting -requestUrlFor: aZincRequest - | zincUrl seasideUrl | - zincUrl := aZincRequest url. - seasideUrl := WAUrl new - scheme: zincUrl schemeOrDefault greaseString; - host: zincUrl host; - port: zincUrl port; - fragment: zincUrl fragment. - zincUrl hasPath ifTrue: [ - zincUrl isDirectoryPath - ifTrue: [ "last path segment is $/ or #/" - zincUrl pathSegments - "GemStone/S currently does not support #allButLastDo:" - allButLast do: [ :each | seasideUrl rawAddToPath: each ]. - seasideUrl slash: true ] - ifFalse: [ seasideUrl rawAddAllToPath: zincUrl pathSegments ] ]. - zincUrl - queryDo: [ :key :value | seasideUrl addField: key value: value ]. - ^ seasideUrl \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st deleted file mode 100644 index a836ee781..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestVersionFor: aZincRequest - ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st deleted file mode 100644 index 560c00376..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/responseFrom..st +++ /dev/null @@ -1,19 +0,0 @@ -converting -responseFrom: aRequestContext - | partialHeaders cookies fullHeaders seasideResponse contents entity contentType | - seasideResponse := aRequestContext response. - partialHeaders := seasideResponse headers. - cookies := seasideResponse cookies. - fullHeaders := ZnHeaders defaultResponseHeaders. - partialHeaders keysAndValuesDo: [ :key :value | - fullHeaders at: key add: value greaseString ]. - cookies do: [ :each | - fullHeaders at: 'Set-Cookie' add: each rfc6265String ]. - contentType := seasideResponse contentType greaseString. - contents := seasideResponse contents. - entity := (ZnEntity bytes: contents) contentType: contentType; yourself. - ^ ZnResponse new - statusLine: (ZnStatusLine code: seasideResponse status); - headers: fullHeaders; - entity: entity; - yourself \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st deleted file mode 100644 index 19155e190..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server..st +++ /dev/null @@ -1,7 +0,0 @@ -initialize-release -server: znServer - "I initialize the actual ZnServer instance that I will be using to znServer, - to prevent a fallback to #defaultZnServer" - - server := znServer. - port := znServer port \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st deleted file mode 100644 index a8c20254a..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/server.st +++ /dev/null @@ -1,11 +0,0 @@ -accessing -server - "Return the ZnServer running me, create a default one if missing and confugure it." - - server - ifNil: [ - server := self defaultZnServer. - self - configureDelegate; - configureServerForBinaryReading ]. - ^ server \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st deleted file mode 100644 index 50d5d09dd..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/serverClass..st +++ /dev/null @@ -1,6 +0,0 @@ -initialize-release -serverClass: znServerClass - "I initialize the actual ZnServer instance that I will be using, - by instanciating znServerClass using my port" - - self server: (znServerClass on: self port) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st deleted file mode 100644 index 8378fcf35..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/shutDown.st +++ /dev/null @@ -1,4 +0,0 @@ -private -shutDown - self isRunning - ifTrue: [ server stop ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st deleted file mode 100644 index e28bdb643..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/startUp.st +++ /dev/null @@ -1,4 +0,0 @@ -private -startUp - self isRunning - ifFalse: [ server ifNotNil: [ server start ] ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st deleted file mode 100644 index 0a91a75f1..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/instance/statusString.st +++ /dev/null @@ -1,4 +0,0 @@ -accessing -statusString - ^ 'zinc on port ', self port greaseString, - ( self isRunning ifTrue: [ ' [running]' ] ifFalse: [ ' [stopped]' ] ) \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json deleted file mode 100644 index 668c5c526..000000000 --- a/repository/Zinc-Seaside.package/ZnZincServerAdaptor.class/properties.json +++ /dev/null @@ -1,13 +0,0 @@ -{ - "commentStamp" : "", - "super" : "WAServerAdaptor", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ - "server" - ], - "name" : "ZnZincServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md deleted file mode 100644 index 83eba3bfb..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/README.md +++ /dev/null @@ -1,19 +0,0 @@ -This adaptor first checks to see if the Seaside response machinery creates a succesful response and if not checks to see if the request can be served by an instance of the ZnStaticFileServerDelegate - -Start it with something like: - - - ZnZincStaticServerAdaptor startOn: 8080 andServeFilesFrom: '/var/www/'. - - -If you want to set cache expiration headers for your static assets you can run this: - - ZnZincStaticServerAdaptor default useDefaultExpirationHeaders. - -after you start the ZnZincStaticServerAdaptor. - -If you want to set your own expiration headers you can create a Dictionary like the one in ZnStaticFileServerDelegate class>>#defaultMimeTypeExpirations and then run: - - ZnZincStaticServerAdaptor default useCustomExpirationHeaders: myExpriationHeadersDirectory. - -where 'myExpirationHeadersDirectory' is structured similarly to the #defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st deleted file mode 100644 index 01e110adf..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/class/startOn.andServeFilesFrom..st +++ /dev/null @@ -1,4 +0,0 @@ -as yet unclassified -startOn: aPortNumber andServeFilesFrom: aDirectoryPathString - self startOn: aPortNumber. - self default server delegate serveFilesFrom: aDirectoryPathString \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st deleted file mode 100644 index 0b2467733..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/defaultDelegate.st +++ /dev/null @@ -1,3 +0,0 @@ -defaults -defaultDelegate - ^ ZnSeasideStaticServerAdaptorDelegate with: self \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st deleted file mode 100644 index 4a3d5086a..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useCustomExpirationHeaders..st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -useCustomExpirationHeaders: aDictionaryOfMimeTypesAndHeaders - self server delegate staticDelegate mimeTypeExpirations: aDictionaryOfMimeTypesAndHeaders \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st deleted file mode 100644 index 32f3f6eca..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/instance/useDefaultExpirationHeaders.st +++ /dev/null @@ -1,3 +0,0 @@ -accessing -useDefaultExpirationHeaders - self server delegate staticDelegate mimeTypeExpirations: ZnStaticFileServerDelegate defaultMimeTypeExpirations \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json deleted file mode 100644 index 99375dc47..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStaticServerAdaptor.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "PaulDeBruicker 5/11/2012 15:21", - "super" : "ZnZincServerAdaptor", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnZincStaticServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md deleted file mode 100644 index e5734bb90..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/README.md +++ /dev/null @@ -1 +0,0 @@ -I convert requests and responses between Zinc and Seaside, but I do it using Seaside's WAComboResponse in order to allow data to be streamed to the client directly. \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st deleted file mode 100644 index c2d98c4dd..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/process..st +++ /dev/null @@ -1,9 +0,0 @@ -processing -process: aZnRequest - ^ ZnDeferredResponse - onWrite: [ :stream | - | request | - request := ZnSeasideRequest - nativeRequest: aZnRequest - stream: stream. - super process: request ] \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st deleted file mode 100644 index fd3326a65..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/requestFor..st +++ /dev/null @@ -1,3 +0,0 @@ -converting -requestFor: aZnSeasideRequest - ^super requestFor: aZnSeasideRequest nativeRequest \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st deleted file mode 100644 index cc2d71d07..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFor..st +++ /dev/null @@ -1,8 +0,0 @@ -converting -responseFor: aZnRequest - | bufferedStream codecStream | - bufferedStream := GRPlatform current writeCharacterStreamOn: (self codec encodedStringClass new: 4096). - codecStream := self codec encoderFor: bufferedStream. - ^ WAComboResponse - onBuffered: (GRCountingStream on: codecStream) - external: aZnRequest stream \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st deleted file mode 100644 index e81a76584..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/instance/responseFrom..st +++ /dev/null @@ -1,8 +0,0 @@ -converting -responseFrom: aRequestContext - "Since the response knows how to write itself on the stream (and may already be partly written), - there's not much left to do." - - aRequestContext response - flush; - close \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json b/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json deleted file mode 100644 index 01ed27ffa..000000000 --- a/repository/Zinc-Seaside.package/ZnZincStreamingServerAdaptor.class/properties.json +++ /dev/null @@ -1,11 +0,0 @@ -{ - "commentStamp" : "", - "super" : "ZnZincServerAdaptor", - "category" : "Zinc-Seaside", - "classinstvars" : [ ], - "pools" : [ ], - "classvars" : [ ], - "instvars" : [ ], - "name" : "ZnZincStreamingServerAdaptor", - "type" : "normal" -} \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/monticello.meta/categories.st b/repository/Zinc-Seaside.package/monticello.meta/categories.st deleted file mode 100644 index 012834fab..000000000 --- a/repository/Zinc-Seaside.package/monticello.meta/categories.st +++ /dev/null @@ -1 +0,0 @@ -SystemOrganization addCategory: #'Zinc-Seaside'! diff --git a/repository/Zinc-Seaside.package/monticello.meta/initializers.st b/repository/Zinc-Seaside.package/monticello.meta/initializers.st deleted file mode 100644 index e69de29bb..000000000 diff --git a/repository/Zinc-Seaside.package/monticello.meta/package b/repository/Zinc-Seaside.package/monticello.meta/package deleted file mode 100644 index 6caf18376..000000000 --- a/repository/Zinc-Seaside.package/monticello.meta/package +++ /dev/null @@ -1 +0,0 @@ -(name 'Zinc-Seaside') \ No newline at end of file diff --git a/repository/Zinc-Seaside.package/properties.json b/repository/Zinc-Seaside.package/properties.json deleted file mode 100644 index 6f31cf5a2..000000000 --- a/repository/Zinc-Seaside.package/properties.json +++ /dev/null @@ -1 +0,0 @@ -{ } \ No newline at end of file From bf2e363286415b28634eee663fa1c3887952860e Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 23:40:00 +0100 Subject: [PATCH 32/41] Renamed packages in BaselineOfSeaside3 --- .../instance/baselineadaptors..st | 20 +++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st index c29ced0a1..f6d8e4f17 100644 --- a/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st +++ b/repository/BaselineOfSeaside3.package/BaselineOfSeaside3.class/instance/baselineadaptors..st @@ -43,13 +43,13 @@ baselineadaptors: spec package: 'Seaside-Adaptors-Comanche' with: [ spec requires: #('KomHttpServerLight' 'Seaside-Core') ]; package: 'KomHttpServerLight' with: [ spec repository: 'http://www.smalltalkhub.com/mc/Seaside/KomHttpServer/main' ]; package: 'Seaside-Tests-Adaptors-Comanche' with: [ spec requires: #('Seaside-Adaptors-Comanche') ]; - package: 'Zinc-Seaside-Core' with: [ spec requires: #('Seaside-Core') ]; - package: 'Zinc-Seaside-Pharo' with: [ spec requires: #('Zinc-Seaside-Core') ]; - package: 'Zinc-Seaside-Tests' with: [ spec requires: #('Zinc-Seaside-Pharo') ]. + package: 'Seaside-Zinc-Core' with: [ spec requires: #('Seaside-Core') ]; + package: 'Seaside-Zinc-Pharo' with: [ spec requires: #('Seaside-Zinc-Core') ]; + package: 'Seaside-Zinc-Tests' with: [ spec requires: #('Seaside-Zinc-Pharo') ]. spec group: 'Kom' with: #('Seaside-Adaptors-Comanche'); - group: 'Zinc' with: #('Zinc-Seaside-Pharo'); - group: 'Tests' with: #('Zinc-Seaside-Tests'); + group: 'Zinc' with: #('Seaside-Zinc-Pharo'); + group: 'Tests' with: #('Seaside-Zinc-Tests'); group: 'default' with: #('Zinc'); group: 'CI' with: #('Zinc') ]. @@ -74,17 +74,17 @@ baselineadaptors: spec spec package: 'Seaside-GemStone-GemServer-Core' with: [ spec requires: #('GsApplicationTools' 'Seaside-Core') ]; package: 'Seaside-GemStone-GemServer-Tests' with: [ spec requires: #('Seaside-GemStone-GemServer-Core' 'Seaside-GemStone-Development' 'Seaside-GemStone-Adaptors-Zinc' 'Seaside-Adaptors-FastCGI') ]; - package: 'Zinc-Seaside-Core' + package: 'Seaside-Zinc-Core' with: [ spec requires: #('Zinc Project' 'Seaside-Core'); includes: #('Seaside-GemStone-Adaptors-Zinc') ]; package: 'Seaside-Adaptors-FastCGI' with: [ spec requires: #('Seaside-Core' 'FastCGI Project' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Zinc-Seaside' 'Seaside-GemStone-GemServer-Core') ]; - package: 'Zinc-Seaside-Tests' with: [ spec requires: #('Zinc-Seaside-Core') ]. + package: 'Seaside-GemStone-Adaptors-Zinc' with: [ spec requires: #('Seaside-Zinc-Core' 'Seaside-GemStone-GemServer-Core') ]; + package: 'Seaside-Zinc-Tests' with: [ spec requires: #('Seaside-Zinc-Core') ]. spec group: 'FastCGI' with: #('Seaside-Adaptors-FastCGI'); - group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests' 'Zinc-Seaside-Tests'); - group: 'Zinc' with: #('Zinc-Seaside-Core') ]. + group: 'Tests' with: #('Seaside-GemStone-GemServer-Tests' 'Seaside-Zinc-Tests'); + group: 'Zinc' with: #('Seaside-Zinc-Core') ]. spec for: #(#'gs3.0.x' #'gs3.1.x' #'gs3.2.x' #'gs3.3.x' #'gs3.4.x' #'gs3.5.x' ) From 652b1fbaf2ed24d2da2f1ceabfe106738b789d00 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 17 Dec 2023 23:45:34 +0100 Subject: [PATCH 33/41] Fix merge conflict (reverting change on master...) --- .../instance/requestHeadersFor..st | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st index c174a0f70..b667a66d9 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st @@ -3,5 +3,10 @@ requestHeadersFor: aZincRequest | fields | fields := Dictionary new. aZincRequest headersDo: [ :key :value | - fields at: key asLowercase put: value ]. + | keyLowercase combinedValue | + keyLowercase := key asLowercase. + combinedValue := fields at: keyLowercase + ifPresent: [ :presentValue | presentValue , ',' , value ] + ifAbsent: [ value ]. + fields at: keyLowercase put: combinedValue ]. ^ fields \ No newline at end of file From 2959e99be1064132d193b9ec6d3f471be433f831 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 18 Dec 2023 00:00:06 +0100 Subject: [PATCH 34/41] Fix missing method --- .../GRPharoPlatform.extension/instance/ringBufferClass.st | 4 ++++ .../GRPharoPlatform.extension/properties.json | 3 +++ 2 files changed, 7 insertions(+) create mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/ringBufferClass.st create mode 100644 repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/ringBufferClass.st b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/ringBufferClass.st new file mode 100644 index 000000000..dd71fa72c --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/instance/ringBufferClass.st @@ -0,0 +1,4 @@ +*Seaside-Zinc-Pharo +ringBufferClass + + ^ ZnPharoRingBuffer \ No newline at end of file diff --git a/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json new file mode 100644 index 000000000..43eb591f2 --- /dev/null +++ b/repository/Seaside-Zinc-Pharo.package/GRPharoPlatform.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPharoPlatform" +} \ No newline at end of file From 029ed344f7a19a1d7286f852182395defb6621d9 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 18 Dec 2023 00:09:21 +0100 Subject: [PATCH 35/41] Default method for ringBufferClass on all platforms --- .../GRPlatform.extension/instance/ringBufferClass.st | 4 ++++ .../GRPlatform.extension/properties.json | 3 +++ 2 files changed, 7 insertions(+) create mode 100644 repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st create mode 100644 repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json diff --git a/repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st new file mode 100644 index 000000000..a548a1d63 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/instance/ringBufferClass.st @@ -0,0 +1,4 @@ +*Seaside-Zinc-Core +ringBufferClass + + ^ ZnRingBuffer \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json new file mode 100644 index 000000000..b9c3efa28 --- /dev/null +++ b/repository/Seaside-Zinc-Core.package/GRPlatform.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "GRPlatform" +} \ No newline at end of file From 52f11651e26c546628d7619f0efa770fa2d987c7 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 18 Dec 2023 00:15:18 +0100 Subject: [PATCH 36/41] Fix unoptimized version of ZnRingBuffer --- .../ZnRingBuffer.class/instance/at..st | 2 +- .../ZnRingBuffer.class/instance/at.put..st | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st index 1f73a1673..c3a735744 100644 --- a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st @@ -2,4 +2,4 @@ accessing at: anInteger self checkBoundsFor: anInteger. - ^ buffer atWrap: (anInteger + offset) \\ buffer size \ No newline at end of file + ^ buffer at: (anInteger + offset) \\ buffer size \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st index 5b4233044..16c9352ce 100644 --- a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st @@ -3,5 +3,5 @@ at: anInteger put: anObject self checkBoundsFor: anInteger. buffer - atWrap: (anInteger + offset) \\ buffer size + at: (anInteger + offset) \\ buffer size put: anObject \ No newline at end of file From 7f9ebffc341124fcb17251cd4bdd0bcfae756acc Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Mon, 18 Dec 2023 07:42:25 +0100 Subject: [PATCH 37/41] Fix wrappedPosition calculation in unoptimised ZnRingBuffer --- .../ZnRingBuffer.class/instance/at..st | 6 ++++-- .../ZnRingBuffer.class/instance/at.put..st | 6 ++++-- 2 files changed, 8 insertions(+), 4 deletions(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st index c3a735744..750f386e7 100644 --- a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at..st @@ -1,5 +1,7 @@ accessing at: anInteger - self checkBoundsFor: anInteger. - ^ buffer at: (anInteger + offset) \\ buffer size \ No newline at end of file + | wrappedPosition | + self checkBoundsFor: anInteger. + wrappedPosition := ((anInteger + offset - 1) rem: buffer size) + 1. + ^ buffer at: wrappedPosition \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st index 16c9352ce..7ff0d7afb 100644 --- a/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st +++ b/repository/Seaside-Zinc-Core.package/ZnRingBuffer.class/instance/at.put..st @@ -1,7 +1,9 @@ accessing at: anInteger put: anObject + + | wrappedPosition | self checkBoundsFor: anInteger. - + wrappedPosition := ((anInteger + offset - 1) rem: buffer size) + 1. buffer - at: (anInteger + offset) \\ buffer size + at: wrappedPosition put: anObject \ No newline at end of file From e4f4164c3398604620240dc3c85f067979a3a71c Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sat, 23 Dec 2023 13:57:01 +0100 Subject: [PATCH 38/41] Use GRPlatform>>sizeOfFile: --- .../WAExternalFile.class/instance/size.st | 2 +- .../WAExternalFile.extension}/instance/fileReference.st | 2 +- .../WAExternalFile.extension/properties.json | 3 +++ .../instance/convertMultipartStreamingEntity.with..st | 6 +++--- .../instance/requestAddressFor..st | 4 ++-- .../ZnZincServerAdaptor.class/instance/requestBodyFor..st | 4 ++-- .../instance/requestCookiesFor..st | 2 +- .../ZnZincServerAdaptor.class/instance/requestFieldsFor..st | 2 +- .../instance/requestHeadersFor..st | 2 +- .../ZnZincServerAdaptor.class/instance/requestMethodFor..st | 2 +- .../ZnZincServerAdaptor.class/instance/requestUrlFor..st | 2 +- .../instance/requestVersionFor..st | 2 +- 12 files changed, 18 insertions(+), 15 deletions(-) rename repository/{Seaside-Core.package/WAExternalFile.class => Seaside-Pharo-Core.package/WAExternalFile.extension}/instance/fileReference.st (75%) create mode 100644 repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st b/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st index e0167a8fc..34bc4fff5 100644 --- a/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st +++ b/repository/Seaside-Core.package/WAExternalFile.class/instance/size.st @@ -1,5 +1,5 @@ accessing size ^ self exists - ifTrue: [ self fileReference size ] + ifTrue: [ GRPlatform current sizeOfFile: self fullyQualifiedFilePath ] ifFalse: [ 0 ] \ No newline at end of file diff --git a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/instance/fileReference.st similarity index 75% rename from repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st rename to repository/Seaside-Pharo-Core.package/WAExternalFile.extension/instance/fileReference.st index 73eeb2565..4f4b4c022 100644 --- a/repository/Seaside-Core.package/WAExternalFile.class/instance/fileReference.st +++ b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/instance/fileReference.st @@ -1,3 +1,3 @@ -accessing +*Seaside-Pharo-Core fileReference ^ self fullyQualifiedFilePath asFileReference \ No newline at end of file diff --git a/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json new file mode 100644 index 000000000..e598e487b --- /dev/null +++ b/repository/Seaside-Pharo-Core.package/WAExternalFile.extension/properties.json @@ -0,0 +1,3 @@ +{ + "name" : "WAExternalFile" +} \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st index 2393717e8..a7d708210 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -16,8 +16,8 @@ convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary "Empty file + empty filename means that the file form field did not contain a value (no file was selected)." (znMimePart fileName isEmpty and: [ - filePath asFileReference size isZero ]) - ifTrue: [ filePath asFileReference ensureDelete ] + (GRPlatform current sizeOfFile: filePath) isZero ]) + ifTrue: [ GRPlatform current deleteFile: filePath ] ifFalse: [ aMultiValueDictionary at: znMimePart fieldName @@ -25,6 +25,6 @@ convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary contentType: znMimePart contentType printString; fileName: (znMimePart fileName ifEmpty: [ "It is legal for the `filename` value to be empty" - filePath asFileReference basename ]); + GRPlatform current localNameOf: filePath ]); filePath: filePath; yourself) ] ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st index eaf61649f..f99db6941 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st @@ -1,5 +1,5 @@ -converting +converting-request requestAddressFor: aZincRequest ^ aZincRequest headers - at: ZnConstants remoteAddressHeader + at: ZnConstants remoteAddressHeader ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st index 08766573e..d13a9f4a7 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st @@ -1,6 +1,6 @@ -converting +converting-request requestBodyFor: aZincRequest - ^ (aZincRequest method ~= #TRACE + ^ (aZincRequest method ~= #TRACE and: [ aZincRequest hasEntity and: [ aZincRequest entity isEmpty not and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st index 05c1576a4..ec3b28cca 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestCookiesFor..st @@ -1,4 +1,4 @@ -converting +converting-request requestCookiesFor: aZincRequest | cookieString | cookieString := aZincRequest headers diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st index e0ac1a3f1..a7bf7792b 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st @@ -1,4 +1,4 @@ -converting +converting-request requestFieldsFor: aZincRequest | fields | fields := WARequestFields new. diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st index b667a66d9..a992e283c 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st @@ -1,4 +1,4 @@ -converting +converting-request requestHeadersFor: aZincRequest | fields | fields := Dictionary new. diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st index ba5191eff..d3d7c9d36 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestMethodFor..st @@ -1,3 +1,3 @@ -converting +converting-request requestMethodFor: aZincRequest ^ aZincRequest method greaseString \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st index b8eaca364..3aa2284dc 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st @@ -1,4 +1,4 @@ -converting +converting-request requestUrlFor: aZincRequest | zincUrl seasideUrl | zincUrl := aZincRequest url. diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st index a836ee781..aa6fa1455 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st @@ -1,3 +1,3 @@ -converting +converting-request requestVersionFor: aZincRequest ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file From cbfd20860657d542a815fcfbba546fe178af9a80 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 24 Dec 2023 10:50:40 +0100 Subject: [PATCH 39/41] Code style and comment fixes, as suggested by @theseion --- ...FieldWithoutLengthWithBoundary.writeOn..st | 95 ++++++++----------- .../partsDecodeWith.decodeFilesWith..st | 9 +- .../instance/configureDelegate.st | 2 +- .../configureServerForBinaryReading.st | 2 +- .../instance/server..st | 2 +- .../instance/serverClass..st | 2 +- 6 files changed, 48 insertions(+), 64 deletions(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st index 3164f9eae..775ee58e4 100644 --- a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/parseMultiPartFieldWithoutLengthWithBoundary.writeOn..st @@ -1,68 +1,53 @@ private parseMultiPartFieldWithoutLengthWithBoundary: aBoundary writeOn: writer + | bufferSize rawBuffer buffer boundaryMarker | - "Can't simply use a larger buffer as we don't want to read past a boundary, - those bytes will belong to the next part" + "Can't simply use a larger buffer as we don't want to read past a boundary, those bytes will belong to the next part" bufferSize := aBoundary size. rawBuffer := ByteArray new: bufferSize. buffer := GRPlatform current ringBufferClass on: rawBuffer. boundaryMarker := aBoundary first. - + stream atEnd ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - stream - next: bufferSize - into: rawBuffer ]. + "#next:into: answers a copy of the buffer if not enough bytes could be read. + Use rawBuffer here so we can use the primitive to replace the bytes in the buffer directly" + stream next: bufferSize into: rawBuffer ]. - [ (buffer - indexOf: boundaryMarker - ifAbsent: [ nil ]) - ifNotNil: [ :boundaryCandidateIndex | - (boundaryCandidateIndex = 1 and: [ - buffer = aBoundary ]) - ifTrue: [ - "Found a boundary. We're done" - true ] - ifFalse: [ - | candidateIndex | - candidateIndex := boundaryCandidateIndex = 1 - ifTrue: [ 2 ] - ifFalse: [ boundaryCandidateIndex ]. - "Write all the bytes that we know are not part of a boundary" - 1 - to: candidateIndex - 1 - do: [ :index | writer nextPut: (buffer at: index) ]. - "Move the rest of the buffer to the beginning of the buffer" - buffer moveStartTo: candidateIndex. - - "Fill the rest of the buffer" - "Use rawBuffer here so we can use the primitive to replace the bytes in the - buffer directly" - rawBuffer := buffer - copyFrom: 1 - to: bufferSize. - stream - next: candidateIndex - 1 - into: rawBuffer - startingAt: bufferSize - candidateIndex + 2. - buffer initializeWithCollection: rawBuffer. - "If the candidate was really the first token of the boundary + [ + (buffer indexOf: boundaryMarker ifAbsent: [ nil ]) + ifNotNil: [ :boundaryCandidateIndex | + (boundaryCandidateIndex = 1 and: [ buffer = aBoundary ]) + ifTrue: [ "Found a boundary. We're done" true ] + ifFalse: [ + | candidateIndex | + candidateIndex := boundaryCandidateIndex = 1 + ifTrue: [ 2 ] + ifFalse: [ boundaryCandidateIndex ]. + "Write all the bytes that we know are not part of a boundary" + 1 to: candidateIndex - 1 do: [ :index | + writer nextPut: (buffer at: index) ]. + "Move the rest of the buffer to the beginning of the buffer" + buffer moveStartTo: candidateIndex. + "Fill the rest of the buffer. + Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer directly" + rawBuffer := buffer copyFrom: 1 to: bufferSize. + stream + next: candidateIndex - 1 + into: rawBuffer + startingAt: bufferSize - candidateIndex + 2. + buffer initializeWithCollection: rawBuffer. + "If the candidate was really the first token of the boundary then we now have loaded the full boundary into the buffer. If not we have to check for the next boundary candidate as we might have loaded the next boundary partially." - buffer = aBoundary ] ] - ifNil: [ - writer nextPutAll: buffer. - stream atEnd - ifFalse: [ - "#next:into: answers a copy of the buffer if not enough bytes could be read" - "Use rawBuffer here so we can use the primitive to replace the bytes in the + buffer = aBoundary ] ] + ifNil: [ + writer nextPutAll: buffer. + stream atEnd + ifFalse: [ "#next:into: answers a copy of the buffer if not enough bytes could be read""Use rawBuffer here so we can use the primitive to replace the bytes in the buffer directly" - stream - next: bufferSize - into: rawBuffer. - buffer moveStartTo: 1. - false ] - ifTrue: [ true ] ] ] whileFalse \ No newline at end of file + stream next: bufferSize into: rawBuffer. + buffer moveStartTo: 1. + false ] + ifTrue: [ true ] ] ] whileFalse \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st index 04d6d35f2..bec19f0fd 100644 --- a/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st +++ b/repository/Seaside-Zinc-Core.package/ZnStreamingMultiPartFormDataEntity.class/instance/partsDecodeWith.decodeFilesWith..st @@ -13,12 +13,11 @@ partsDecodeWith: aDecoderBlock decodeFilesWith: aFileDecoderBlock part := ZnMimePart new headers: (ZnHeaders readFrom: stream); yourself. - "When a value is empty (see comment in #parseMultiPartFieldWithoutLengthWithBoundary:writeOn:) - and it is the last part then parsing headers will consumed the rest of the end boundary and the - stream will be at the end. In this case, the part will not have any headers" + "When a part is empty and it is the last part then parsing headers will have consumed + the rest of the end boundary and the stream will be at the end. + In this case, the part will not have any headers." (part hasHeaders not or: [ - "The final boundary may be read as a header when - the last part was not a file part" + "The final boundary may have been read as a header when the last part was not a file part" part headers includesKey: endBoundary ]) ifFalse: [ (part fileName notNil or: [ part contentType notNil and: [ diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st index fb9098cdf..3fb88ec68 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureDelegate.st @@ -1,4 +1,4 @@ -initialize-release +initialization configureDelegate "Set the main delegate of my server to the default one." diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st index b73b5799e..6df7b2c5f 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/configureServerForBinaryReading.st @@ -1,4 +1,4 @@ -initialize-release +initialization configureServerForBinaryReading "Seaside wants to do its own text conversions" diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st index 19155e190..872b4e01f 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/server..st @@ -1,4 +1,4 @@ -initialize-release +initialization server: znServer "I initialize the actual ZnServer instance that I will be using to znServer, to prevent a fallback to #defaultZnServer" diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st index 50d5d09dd..b2e8f7581 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/serverClass..st @@ -1,4 +1,4 @@ -initialize-release +initialization serverClass: znServerClass "I initialize the actual ZnServer instance that I will be using, by instanciating znServerClass using my port" From 245d8b72f789544b4489e671dbad2e76d2026080 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 24 Dec 2023 10:54:45 +0100 Subject: [PATCH 40/41] Replace String new with literal string --- .../instance/convertMultipartEntity.with..st | 2 +- .../instance/convertMultipartStreamingEntity.with..st | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st index 399a4c52f..bb9f6ff11 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartEntity.with..st @@ -3,7 +3,7 @@ convertMultipartEntity: anEntity with: aMultiValueDictionary anEntity partsDo: [ :part | | value | value := part hasEntity - ifFalse: [ String new ] + ifFalse: [ '' ] ifTrue: [ (part fileName isEmptyOrNil not or: [ part contentType notNil and: [ diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st index a7d708210..44f8ee696 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/convertMultipartStreamingEntity.with..st @@ -11,7 +11,7 @@ convertMultipartStreamingEntity: anEntity with: aMultiValueDictionary at: znMimePart fieldName add: (self codec url decode: (znMimePart hasEntity ifTrue: [ znMimePart fieldValueString ] - ifFalse: [ String new ])) ] + ifFalse: [ '' ])) ] decodeFilesWith: [ :znMimePart :filePath | "Empty file + empty filename means that the file form field did not contain a value (no file was selected)." From 51d6654f69f28c666450b2c03a49db190edc5f34 Mon Sep 17 00:00:00 2001 From: Johan Brichau Date: Sun, 24 Dec 2023 10:58:32 +0100 Subject: [PATCH 41/41] Some more code style improvements --- .../instance/requestAddressFor..st | 7 +++--- .../instance/requestBodyFor..st | 18 ++++++++------- .../instance/requestFieldsFor..st | 23 ++++++++++--------- .../instance/requestHeadersFor..st | 8 ++++--- .../instance/requestUrlFor..st | 22 +++++++++--------- .../instance/requestVersionFor..st | 1 + 6 files changed, 43 insertions(+), 36 deletions(-) diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st index f99db6941..4356959e0 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestAddressFor..st @@ -1,5 +1,6 @@ converting-request requestAddressFor: aZincRequest - ^ aZincRequest headers - at: ZnConstants remoteAddressHeader - ifAbsent: [ nil ] \ No newline at end of file + + ^ aZincRequest headers + at: ZnConstants remoteAddressHeader + ifAbsent: [ nil ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st index d13a9f4a7..82bde5ec5 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestBodyFor..st @@ -1,12 +1,14 @@ converting-request requestBodyFor: aZincRequest - ^ (aZincRequest method ~= #TRACE - and: [ aZincRequest hasEntity - and: [ aZincRequest entity isEmpty not - and: [ (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) not - and: [ (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) not ] ] ] ]) - ifTrue: [ + + ^ (aZincRequest method ~= #TRACE and: [ + aZincRequest hasEntity and: [ + aZincRequest entity isEmpty not and: [ + (aZincRequest entity contentType matches: + ZnMimeType applicationFormUrlEncoded) not and: [ + (aZincRequest entity contentType matches: + ZnMimeType multiPartFormData) not ] ] ] ]) + ifTrue: [ "Seaside wants to do its own text conversions" aZincRequest entity bytes asString ] - ifFalse: [ - String new ] \ No newline at end of file + ifFalse: [ '' ] \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st index a7bf7792b..bdb11f19b 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestFieldsFor..st @@ -1,18 +1,19 @@ converting-request requestFieldsFor: aZincRequest + | fields | fields := WARequestFields new. (aZincRequest method = #POST and: [ aZincRequest hasEntity ]) ifTrue: [ - (aZincRequest entity contentType matches: ZnMimeType applicationFormUrlEncoded) - ifTrue: [ - fields addAll: (aZincRequest entity class = ZnStreamingEntity - ifTrue: [ - ZnApplicationFormUrlEncodedEntity new - readFrom: aZincRequest entity stream; - fields ] - ifFalse: [ aZincRequest entity fields ]) ]. - (aZincRequest entity contentType matches: ZnMimeType multiPartFormData) - ifTrue: [ - fields addAll: (self convertMultipart: aZincRequest entity) ] ]. + (aZincRequest entity contentType matches: + ZnMimeType applicationFormUrlEncoded) ifTrue: [ + fields addAll: (aZincRequest entity class = ZnStreamingEntity + ifTrue: [ + ZnApplicationFormUrlEncodedEntity new + readFrom: aZincRequest entity stream; + fields ] + ifFalse: [ aZincRequest entity fields ]) ]. + (aZincRequest entity contentType matches: + ZnMimeType multiPartFormData) ifTrue: [ + fields addAll: (self convertMultipart: aZincRequest entity) ] ]. ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st index a992e283c..0a61596a6 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestHeadersFor..st @@ -1,12 +1,14 @@ converting-request requestHeadersFor: aZincRequest + | fields | fields := Dictionary new. aZincRequest headersDo: [ :key :value | | keyLowercase combinedValue | keyLowercase := key asLowercase. - combinedValue := fields at: keyLowercase - ifPresent: [ :presentValue | presentValue , ',' , value ] - ifAbsent: [ value ]. + combinedValue := fields + at: keyLowercase + ifPresent: [ :presentValue | presentValue , ',' , value ] + ifAbsent: [ value ]. fields at: keyLowercase put: combinedValue ]. ^ fields \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st index 3aa2284dc..96abb195d 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestUrlFor..st @@ -1,20 +1,20 @@ converting-request requestUrlFor: aZincRequest + | zincUrl seasideUrl | zincUrl := aZincRequest url. seasideUrl := WAUrl new - scheme: zincUrl schemeOrDefault greaseString; - host: zincUrl host; - port: zincUrl port; - fragment: zincUrl fragment. + scheme: zincUrl schemeOrDefault greaseString; + host: zincUrl host; + port: zincUrl port; + fragment: zincUrl fragment. zincUrl hasPath ifTrue: [ zincUrl isDirectoryPath - ifTrue: [ "last path segment is $/ or #/" - zincUrl pathSegments - "GemStone/S currently does not support #allButLastDo:" - allButLast do: [ :each | seasideUrl rawAddToPath: each ]. - seasideUrl slash: true ] + ifTrue: [ + "last path segment is $/ or #/" + zincUrl pathSegments allButLast do: [ :each | seasideUrl rawAddToPath: each ]. + "GemStone/S currently does not support #allButLastDo:" + seasideUrl slash: true ] ifFalse: [ seasideUrl rawAddAllToPath: zincUrl pathSegments ] ]. - zincUrl - queryDo: [ :key :value | seasideUrl addField: key value: value ]. + zincUrl queryDo: [ :key :value | seasideUrl addField: key value: value ]. ^ seasideUrl \ No newline at end of file diff --git a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st index aa6fa1455..a7992dd8b 100644 --- a/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st +++ b/repository/Seaside-Zinc-Core.package/ZnZincServerAdaptor.class/instance/requestVersionFor..st @@ -1,3 +1,4 @@ converting-request requestVersionFor: aZincRequest + ^ WAHttpVersion fromString: aZincRequest requestLine version \ No newline at end of file