Class: SourceCodeStream

• Inheritance
• Description
• Class protocol
  • instance creation
• Instance protocol
  • accessing
  • fileOut
  • misc
  • stream messages

Inheritance:

   Object
   |
   +--Stream
      |
      +--SourceCodeStream

Package:

stx:libcompat

Category:

Compatibility-ST80

Version:

rev: 1.7 date: 2021/01/20 15:05:20

user: cg

file: SourceCodeStream.st directory: libcompat

module: stx stc-classLibrary: libcompat

Description:

Enough to support the SourceCodeSaver PD goody ....


ST-80 compatibility class.
This may be required when existing code has to be ported to ST/X;
however, it may not be complete and more protocol may be added in the future.
The code here was created when public domain code (Manchester) had to
be ported to ST/X and missing classes/methods were encountered, and code added
by reasoning 'what the original class could probably do there'.

This is currently not used by ST/X itself.

This is an additional goody class; therefore:

THIS SOFTWARE IS PROVIDED BY THE CONTRIBUTOR ``AS IS'' AND
ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
ARE DISCLAIMED.  IN NO EVENT SHALL THE CONTRIBUTOR BE LIABLE
FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
SUCH DAMAGE.

copyright
COPYRIGHT (c) 1997 by eXept Software AG / Claus Gittinger
             All Rights Reserved

This software is furnished under a license and may be used
only in accordance with the terms of that license and with the
inclusion of the above copyright notice.   This software may not
be provided or otherwise made available to, or used by, any
other person.  No title to or ownership of the software is
hereby transferred.

Class protocol:

 on: aStream

Instance protocol:

 files

return the value of the instance variable 'files' (automatically generated)

 files: something

set the value of the instance variable 'files' (automatically generated)

 targetFile

 fileOutMessages: collectionOfMessageSelectors for: aClass

 timeStamp

 cr

(comment from inherited method)
append a carriage-return to the stream.
This is only allowed, if the receiver supports writing.

 nextChunkPut: someString

(comment from inherited method)
put aString as a chunk onto the receiver;
double all exclamation marks except within primitives and append a
single delimiting exclamation mark at the end.
This modification of the chunk format (not doubling exclas in primitive code)
was done to have primitive code more readable and easier be edited in the fileBrowser
or other editors.
It's no incompatibility, since inline primitives are an ST/X special
and code containing ST/X primitives cannot be loaded into other smalltalks anyway.

 nextPut: aCharacter

(comment from inherited method)
put the argument, anObject onto the receiver
- we do not know here how to do it, it must be redefined in subclass

 nextPutAll: aCollection

(comment from inherited method)
put all elements of the argument, aCollection onto the receiver.
Answer the receiver.
This is only allowed, if the receiver supports writing.

 nextPutAllAsChunk: someString

(comment from inherited method)
put aString as a chunk onto the receiver;
double all exclamation marks except within primitives.
This modification of the chunk format (not doubling exclas in primitive code)
was done to have primitive code more readable and easier be edited in the fileBrowser
or other editors.
It's no incompatibility, since inline primitives are an ST/X special
and code containing ST/X primitives cannot be loaded into other Smalltalks anyway.

 nextPutChunkSeparator

(comment from inherited method)
append a chunk separator character

 space

(comment from inherited method)
append a space character to the receiver.
This is only allowed, if the receiver supports writing.