super initialize. moleculeObjects := nil
moleculeObjects ifNil: [moleculeObjects := OrderedCollection new]. ^moleculeObjects
collectionOfMoleculeObject do: [:moleculeObject | self moleculeObjects add: moleculeObject]
self moleculeObjects do: [:moleculeObject | self writeOn: aStream moleculeObject: moleculeObject]
| moleFileWriter | moleFileWriter := self class defaultMoleFileWriterClass new. moleFileWriter moleculeObject: moleculeObject. moleFileWriter fileName: moleculeObject fileName. moleFileWriter writeOn: aStream. aStream cr. aStream nextPutAll: '$$$$'; cr
^'ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.'
^ChemoJunMolFileWriter
"ChemoJunSdFileWriter example1." | aReader moleculeObjects aWriter | aReader := ChemoJunSdFileReader request. aReader isNil ifTrue: [^nil]. moleculeObjects := aReader moleculeObjects. aWriter := ChemoJunSdFileWriter requestInitialFileName: aReader baseName , '_' , JunSystem defaultBaseName , aReader extension. aWriter isNil ifTrue: [^nil]. aWriter moleculeObjects: moleculeObjects. aWriter write. ^aWriter
^(self new) moleculeObjects: collectionOfMoleculeObjects; yourself
^'ChemoJun'
^'050'