hg/stx-goodies-monticello: MCWriter.st@e3dd2050492e (annotated)

1095 87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 710 diff changeset	1	"{ Encoding: utf8 }"
87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 710 diff changeset	2
38 921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	3	"{ Package: 'stx:goodies/monticello' }"
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	4
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	5	Object subclass:#MCWriter
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'stream'
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
710 10d134daf6fd category change Claus Gittinger <cg@exept.de> parents: 373 diff changeset	9	category:'SCM-Monticello-Storing'
38 921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	11
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	12
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	13	!MCWriter class methodsFor:'accessing'!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	14
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	15	extension
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ self readerClass extension
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	17	!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	18
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	19	readerClass
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	20	^ self subclassResponsibility
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	21	! !
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	22
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	23	!MCWriter class methodsFor:'writing'!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	24
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	25	on: aStream
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	26	^ self new stream: aStream
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	27	! !
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	28
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	29	!MCWriter methodsFor:'as yet unclassified'!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	30
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	31	stream
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	32	^ stream
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	33	!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	34
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	35	stream: aStream
257 5fc9bdda96d7 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 138 diff changeset	36	stream := aStream
38 921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	37	! !
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	38
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	39	!MCWriter class methodsFor:'documentation'!
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	40
921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	41	version
710 10d134daf6fd category change Claus Gittinger <cg@exept.de> parents: 373 diff changeset	42	^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.5 2012-09-11 21:31:32 cg Exp $'
138 ebac03eed350 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 38 diff changeset	43	!
ebac03eed350 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 38 diff changeset	44
ebac03eed350 more porting (but still unfinished) Claus Gittinger <cg@exept.de> parents: 38 diff changeset	45	version_CVS
710 10d134daf6fd category change Claus Gittinger <cg@exept.de> parents: 373 diff changeset	46	^ '$Header: /cvs/stx/stx/goodies/monticello/MCWriter.st,v 1.5 2012-09-11 21:31:32 cg Exp $'
257 5fc9bdda96d7 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 138 diff changeset	47	!
5fc9bdda96d7 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 138 diff changeset	48
5fc9bdda96d7 added: #version_CVS Claus Gittinger <cg@exept.de> parents: 138 diff changeset	49	version_SVN
1095 87f223484bc3 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 710 diff changeset	50	^ '§Id: MCWriter.st 5 2010-08-29 07:30:29Z vranyj1 §'
38 921aafa6712e initial checkin Claus Gittinger <cg@exept.de> parents: diff changeset	51	! !

author	Jan Vrany <jan.vrany@labware.com>
	Tue, 11 Jul 2023 12:13:27 +0100
branch	jv
changeset 1173	e3dd2050492e
parent 1095	87f223484bc3
permissions	-rw-r--r--