STONListWriter.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 04 Jun 2019 12:33:53 +0100
changeset 0 8f9f6be6af89
permissions -rw-r--r--
Initial port from Pharo Based on 305ae856d4b551 from https://github.com/svenvc/ston.git
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
0
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"{ Package: 'stx:goodies/ston' }"
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Smalltalk }"
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
STONStreamWriter subclass:#STONListWriter
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'STON-Core-Writer'
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
!STONListWriter methodsFor:'accessing'!
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
add: anObject
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
	first ifTrue: [ first := false ] ifFalse: [ writer listElementSeparator ].
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
	writer nextPut: anObject
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
! !
8f9f6be6af89 Initial port from Pharo
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18