--- a/terminals/stx_goodies_xtreams_terminals.st Thu Feb 16 18:11:55 2012 +0000
+++ b/terminals/stx_goodies_xtreams_terminals.st Fri Mar 15 22:45:50 2013 +0000
@@ -10,164 +10,164 @@
stx_goodies_xtreams_terminals comment:'Terminals are the objects at the bottom of stream stacks. These are the ultimate sources of elements produced by read streams or ultimate consumers of elements written into write streams. This package provides support for various kinds of terminals available in VisualWorks. Eventual ports to other dialects may support different set of terminals although there will likely be significant overlap. However, implementations may have subtle differences as well. For example streams in Squeak/Pharo do not use become: when they grow the underlying collection of a collection stream. Therefore code assuming that identity of a collection stream terminal will be preserved may not be portable.
- == Collections ==
+ == Collections ==
Collections are traditional stream terminals. Read streams are created by sending #reading to a collection.
{{{
- (1 to: 10000) reading ++ 1000; read: 5
+ (1 to: 10000) reading ++ 1000; read: 5
}}}
Similarly write streams are created by sending #writing to a collection. The collection is grown automatically to accommodate any elements written. Closing a collection write stream will truncate the collection to the current stream position. This behavior is useful as a replacement for the traditional #contents message. The contents can be accessed with the #terminal message after the stream is closed. The advantage is that the sequence #close and #terminal (or the shortcut #conclusion) can be sent to arbitrary stream stack and behaves consistently.
{{{
- String new writing write: ''Hello World''; -- 6; conclusion
+ String new writing write: ''Hello World''; -- 6; conclusion
}}}
- == Block Closures ==
+ == Block Closures ==
Streaming over block closures is proving to be "xtremely" versatile tool, allowing to stream over result sets of arbitrary computations, modelling infinite streams, etc.
{{{
- "inifinite stream of ones"
- [ 1 ] reading read: 20
+ "inifinite stream of ones"
+ [ 1 ] reading read: 20
}}}
{{{
- "Fibonacci"
- | a b | a := 0. b := 1.
- [ | x | x := a. a := b. b := x + a. x ] reading ++ 500; get
+ "Fibonacci"
+ | a b | a := 0. b := 1.
+ [ | x | x := a. a := b. b := x + a. x ] reading ++ 500; get
}}}
{{{
- "Streaming over ObjectMemory"
- x := ObjectMemory someObject.
- [ x := ObjectMemory nextObjectAfter: x ] reading read: 5
+ "Streaming over ObjectMemory"
+ x := ObjectMemory someObject.
+ [ x := ObjectMemory nextObjectAfter: x ] reading read: 5
}}}
Single argument blocks can be used as read terminals too, which turn an iterative process in to a stream.
{{{
- "In this example, we have a -hard- loop, not using collection protocol, which will only run one element at a time."
- [:out | 1 to: 10 do: [:i | out put: i]] reading read: 5.
+ "In this example, we have a -hard- loop, not using collection protocol, which will only run one element at a time."
+ [:out | 1 to: 10 do: [:i | out put: i]] reading read: 5.
}}}
Single argument blocks can be used as write terminals.
{{{
- "Transcript as an xtream"
- [ :x | Transcript nextPut: x ] writing write: ''Hello World!!!!''
+ "Transcript as an xtream"
+ [ :x | Transcript nextPut: x ] writing write: ''Hello World!!''
}}}
{{{
- "/dev/null"
- [ :x | ] writing write: ''Hello World!!!!''
+ "/dev/null"
+ [ :x | ] writing write: ''Hello World!!''
}}}
Combined with stream transforms like #doing: and #limiting:, a block closure stream can be used to transform arbitrary loop into a stream and the streaming API can provide fine grained control over the execution of the loop body.
- == Files ==
+ == Files ==
File read streams are created by sending #reading to a Filename. However the actual terminal is an IOAccessor. The original filename is accessible through the IOAccessor.
{{{
- | file |
- file := ObjectMemory imageName asFilename reading.
- [ file read: 13 ] ensure: [ file close ]
+ | file |
+ file := ObjectMemory imageName asFilename reading.
+ [ file read: 13 ] ensure: [ file close ]
}}}
As a convenience, sending #reading to a Filename of a directory will create a stream of all filenames in that directory.
{{{
- ''/tmp'' asFilename reading rest
+ ''/tmp'' asFilename reading rest
}}}
File write streams can be created via the usual #writing message or via #appending which opens the file in appending mode. In appending mode, you cannot position the stream before the end of the file contents, so you can never overwrite existing contents. In writing mode, the file will be truncated at stream''s current position when #close is called. To keep the entire contents of the file, use -= 0 to skip to the end before closing. This behavior is different from the classic streams which would erase the contents of the file on open.
{{{
- | file |
- file := ''/dev/shm/xtreams-test'' asFilename.
- [ file writing write: ''Hello''; close.
- file appending write: '' World!!!!''; close.
- file contentsOfEntireFile.
- ] ensure: [ file delete ]
+ | file |
+ file := ''/dev/shm/xtreams-test'' asFilename.
+ [ file writing write: ''Hello''; close.
+ file appending write: '' World!!''; close.
+ file contentsOfEntireFile.
+ ] ensure: [ file delete ]
}}}
It is also possible to send #reading or #writing to a pre-opened IOAcccessor if some other opening mode configuration is desirable. For example to emulate the classic write stream opening behavior, you can use the following:
{{{
- (IOAccessor openFileNamed: ''/dev/shm/xtreams-test''
- direction: IOAccessor writeOnly
- creation: IOAccessor truncateOrCreate
- ) writing close
+ (IOAccessor openFileNamed: ''/dev/shm/xtreams-test''
+ direction: IOAccessor writeOnly
+ creation: IOAccessor truncateOrCreate
+ ) writing close
}}}
Bare file streams are always binary. An encoding transform has to be applied to translate bytes into characters, which is discussed in more detail in [Xtreams-Transforms]. However for some types of encoding it is possible to use ByteStrings instead of ByteArrays to get similar effect. E.g reading from a file into a ByteString is like applying ISO8859-1 encoding on the fly. It can also be quite a bit faster than full blown encoding layer. However it does not do line-end translation and only few single-byte encodings are available (see the ByteString hierarchy). Similarly writing into a bare file stream from a ByteString works as if the characters were automatically encoded with ISO-8859-1. This is again without line end translation, so normally you would end up with CRs (code 13) in your file, which these days does not match any OS convention (Unixes and MacOS use LF, and Windows uses CRLFs).
{{{
- | file header |
- file := ObjectMemory imageName asFilename reading.
- header := ByteString new writing.
- [ header write: 20 from: file ] ensure: [ file close ].
- header conclusion
+ | file header |
+ file := ObjectMemory imageName asFilename reading.
+ header := ByteString new writing.
+ [ header write: 20 from: file ] ensure: [ file close ].
+ header conclusion
}}}
- == Sockets and Pipes ==
+ == Sockets and Pipes ==
Sockets and Pipes are very similar, both accessed via IOAccessors again. The examples below show how data can be sent through a TCP or pipe connection by setting up a read stream and a write stream on a pair of connected accessors.
{{{
- [ :in :out |
- [ out writing write: ''Hello''; close.
- in reading read: 5
- ] ensure: [ in close. out close ]
- ] valueWithArguments: SocketAccessor openPair
+ [ :in :out |
+ [ out writing write: ''Hello''; close.
+ in reading read: 5
+ ] ensure: [ in close. out close ]
+ ] valueWithArguments: SocketAccessor openPair
}}}
{{{
- [ :in :out |
- [ out writing write: ''Hello''; close.
- in reading read: 5
- ] ensure: [ in close. out close ]
- ] valueWithArguments: OSSystemSupport concreteClass pipeAccessorClass openPair
+ [ :in :out |
+ [ out writing write: ''Hello''; close.
+ in reading read: 5
+ ] ensure: [ in close. out close ]
+ ] valueWithArguments: OSSystemSupport concreteClass pipeAccessorClass openPair
}}}
Same rules regarding binary vs text reading/writing applies to socket and pipe streams as was discussed with regards to file streams above.
- == Buffers ==
+ == Buffers ==
Buffers are used internally by Xtreams, but they could be useful in other circumstances too. There are several kinds and they can be used as both read and write stream terminals at the same time (not concurrently by multiple processes though, process synchronization has to managed explicitly via an external semaphore if necessary). For example writing into ElasticBuffer will grow it as much as necessary, but reading frees the space back up and it is immediately reused for further writes. So with interleaved reads and writes the size of the buffer will only grow to accommodate the maximum size written but not read yet.
{{{
- buffer := ElasticBuffer on: String new.
- bufferIn := buffer writing.
- bufferOut := buffer reading.
- 100000 timesRepeat: [ bufferIn write: ''Hello World''. bufferOut read: 11 ].
- buffer cacheSize
+ buffer := ElasticBuffer on: String new.
+ bufferIn := buffer writing.
+ bufferOut := buffer reading.
+ 100000 timesRepeat: [ bufferIn write: ''Hello World''. bufferOut read: 11 ].
+ buffer cacheSize
}}}
- == SharedQueues ==
+ == SharedQueues ==
SharedQueues are primarily used for data transfer between processes, their API is rather spartan though. Streams over SharedQueues provide the convenience of full streaming API.
{{{
- queue := SharedQueue new.
- in := queue reading.
- out := queue writing.
- received := Array new writing.
- done := Semaphore new.
- consumer :=
- [ | size |
- [ (size := in get) isZero
- ] whileFalse: [ | word |
- word := ByteString new: size.
- in read: size into: word.
- received put: word ].
- done signal.
- ] fork.
- #(one two three four) do: [ :word | out put: word size; write: word ].
- out put: 0.
- done wait.
- received conclusion
+ queue := SharedQueue new.
+ in := queue reading.
+ out := queue writing.
+ received := Array new writing.
+ done := Semaphore new.
+ consumer :=
+ [ | size |
+ [ (size := in get) isZero
+ ] whileFalse: [ | word |
+ word := ByteString new: size.
+ in read: size into: word.
+ received put: word ].
+ done signal.
+ ] fork.
+ #(one two three four) do: [ :word | out put: word size; write: word ].
+ out put: 0.
+ done wait.
+ received conclusion
}}}
- == CPointers ==
+ == CPointers ==
The ability to stream over external heap is useful when there''s a need to communicate larger amounts of objects of the same type with an external library. A common use case would be when there''s a need for a buffer that can be shared between Smalltalk and the external library conveniently. The CPointer stream allows to stream over a buffer allocated on the heap seamlessly as if it is a local smalltalk object. The elements of the stream are instances corresponding to the CType associated with the CPointer.
{{{
- | buffer |
- buffer := CIntegerType unsignedChar malloc: 50.
- [ buffer writing
- length: 50;
- write: ''Hello World!!!!''.
- buffer reading
- length: 12;
- contentsSpecies: ByteString;
- rest
- ] ensure: [ buffer free ]
+ | buffer |
+ buffer := CIntegerType unsignedChar malloc: 50.
+ [ buffer writing
+ length: 50;
+ write: ''Hello World!!''.
+ buffer reading
+ length: 12;
+ contentsSpecies: ByteString;
+ rest
+ ] ensure: [ buffer free ]
}}}
The write streams behave similarly to collection write streams. They know their length and they will automatically attempt to reallocate and grow their heap space if necessary. Similarly closing the write stream will reallocate and shrink the write stream to its position at that time. It is possible to set length of a read stream as well to avoid running past the allocated memory accidentally. The stream will signal Incomplete when it reaches its end.
'
@@ -181,9 +181,7 @@
preRequisites scan. See #preRequisites for more."
^ #(
- #'stx:libwidg' "TextView - superclass of extended TextCollector "
- #'stx:libview' "DeviceGraphicsContext - superclass of extended View "
- )
+ )
!
preRequisites
@@ -195,10 +193,9 @@
exclude individual packages in the #excludedFromPrerequisites method."
^ #(
- #'exept:ctypes' "CPointer - referenced by Xtreams::PointerWriteStream>>resizeTo: "
- #'stx:goodies/xtreams/core' "Xtreams::WriteStream - superclass of Xtreams::ExternalWriteStream "
- #'stx:libbasic' "NonPositionableExternalStream - superclass of extended Socket "
- #'stx:libbasic2' "Queue - superclass of extended SharedQueue "
+ #'stx:goodies/xtreams/core' "Xtreams::WriteStream - superclass of Xtreams::PointerWriteStream "
+ #'stx:libbasic' "Object - superclass of Xtreams::PointerWriteStream "
+ #'stx:libbasic2' "Queue - superclass of extended SharedQueue "
)
! !
@@ -211,26 +208,24 @@
Attributes are: #autoload or #<os> where os is one of win32, unix,..."
^ #(
- "<className> or (<className> attributes...) in load order"
- #'Xtreams::BlockClosureGenerateStream'
- #'Xtreams::BlockClosureReadStream'
- #'Xtreams::BlockClosureWriteStream'
- #'Xtreams::BufferReadStream'
- #'Xtreams::BufferWriteStream'
- #'Xtreams::BufferedWriteStream'
- #'Xtreams::CollectionWriteStream'
- #'Xtreams::ExternalReadStream'
- #'Xtreams::ExternalWriteStream'
- #'Xtreams::FileWriteStream'
- #'Xtreams::NullWriteStream'
- #'Xtreams::PointerReadStream'
- #'Xtreams::PointerWriteStream'
- #'Xtreams::SequenceableCollectionReadStream'
- #'Xtreams::SequenceableCollectionWriteStream'
- #'Xtreams::SharedQueueReadStream'
- #'Xtreams::SharedQueueWriteStream'
- #'stx_goodies_xtreams_terminals'
- #'Xtreams::FileReadStream'
+ "<className> or (<className> attributes...) in load order"
+ #'Xtreams::BlockClosureGenerateStream'
+ #'Xtreams::BlockClosureReadStream'
+ #'Xtreams::BlockClosureWriteStream'
+ #'Xtreams::BufferReadStream'
+ #'Xtreams::BufferWriteStream'
+ #'Xtreams::BufferedWriteStream'
+ #'Xtreams::CollectionWriteStream'
+ #'Xtreams::ExternalReadStream'
+ #'Xtreams::ExternalWriteStream'
+ #'Xtreams::FileWriteStream'
+ #'Xtreams::NullWriteStream'
+ #'Xtreams::SequenceableCollectionReadStream'
+ #'Xtreams::SequenceableCollectionWriteStream'
+ #'Xtreams::SharedQueueReadStream'
+ #'Xtreams::SharedQueueWriteStream'
+ #'stx_goodies_xtreams_terminals'
+ #'Xtreams::FileReadStream'
)
!
@@ -239,90 +234,34 @@
Entries are 2-element array literals, consisting of class-name and selector."
^ #(
- Block reading
- Block writing
- Collection writing
- Filename appending
- Filename reading
- Filename writing
- Random reading
- SequenceableCollection reading
- SequenceableCollection writing
- SharedQueue reading
- SharedQueue writing
- Socket accepting
- Socket reading
- Socket writing
- UndefinedObject writing
- #'Xtreams::Buffer' reading
- #'Xtreams::Buffer' writing
- #'Xtreams::WriteStream' buffering:
- PipeStream isActive
- PipeStream reading
- PipeStream writing
- TextCollector writing
+ Block reading
+ Block writing
+ Collection writing
+ Filename appending
+ Filename reading
+ Filename writing
+ Random reading
+ SequenceableCollection reading
+ SequenceableCollection writing
+ SharedQueue reading
+ SharedQueue writing
+ Socket accepting
+ Socket reading
+ Socket writing
+ UndefinedObject writing
+ #'Xtreams::Buffer' reading
+ #'Xtreams::Buffer' writing
+ #'Xtreams::WriteStream' buffering:
+ PipeStream isActive
+ PipeStream reading
+ PipeStream writing
+ TextCollector writing
)
! !
-!stx_goodies_xtreams_terminals class methodsFor:'description - project information'!
-
-applicationIconFileName
- "Return the name (without suffix) of an icon-file (the app's icon); will be included in the rc-resource file"
-
- ^ nil
- "/ ^ self applicationName
-!
-
-companyName
- "Return a companyname which will appear in <lib>.rc"
-
- ^ 'eXept Software AG'
-!
-
-description
- "Return a description string which will appear in vc.def / bc.def"
-
- ^ 'Smalltalk/X Class library'
-!
-
-legalCopyright
- "Return a copyright string which will appear in <lib>.rc"
-
- ^ 'Copyright Claus Gittinger 1988-2011\nCopyright eXept Software AG 1998-2011'
-!
-
-productInstallDirBaseName
- "Returns a default installDir which will appear in <app>.nsi.
- This is usually not the one you want to keep"
-
- ^ (self package asCollectionOfSubstringsSeparatedByAny:':/') last
-!
-
-productName
- "Return a product name which will appear in <lib>.rc"
-
- ^ 'Smalltalk/X'
-! !
-
-!stx_goodies_xtreams_terminals class methodsFor:'description - svn'!
-
-svnRepositoryUrlString
- "Return a SVN repository URL of myself.
- (Generated since 2011-04-08)
- "
-
- ^ '$URL: https://swing.fit.cvut.cz/svn/stx/goodies/xtreams/trunk/terminals/stx_goodies_xtreams_terminals.st $'
-!
-
-svnRevisionNr
- "Return a SVN revision number of myself.
- This number is updated after a commit"
-
- ^ "$SVN-Revision:" '106'"$"
-! !
-
!stx_goodies_xtreams_terminals class methodsFor:'documentation'!
-version_SVN
- ^ '$Id: stx_goodies_xtreams_terminals.st 17 2011-11-21 06:03:03Z mkobetic $'
+version_HG
+ ^ '$Changeset: <not expanded> $'
! !
+