diff --git a/packages/swazoo-httpd/Extensions.st b/packages/swazoo-httpd/Extensions.st index 6835c61..eedf892 100644 --- a/packages/swazoo-httpd/Extensions.st +++ b/packages/swazoo-httpd/Extensions.st @@ -36,6 +36,22 @@ Stream extend [ ] ] +SpFileStream extend [ + lineEndTransparent [ + "Do nothing. GNU Smalltalk streams do not muck with line endings." + + ] + + nextAvailable: anInteger [ + | data stream read | + data := Array new: anInteger. + stream := WriteStream on: data. + read := self underlyingStream nextAvailable: anInteger putAllOn: stream. + ^data copyFrom: 1 to: read + ] +] + + SpFilename extend [