ChemoJunSdFileWriter

ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.

category:

• ChemoJun-File-IO

inheritance:

• Object
  • ChemoJunAbstractFile
    • ChemoJunAbstractFileWriter
      • ChemoJunSdFileWriter

instance variables:

• moleculeObjects

class instance variables:

class variables:

pool variables:

instance methods:

1. initialize [initialize-release]
   

   	super initialize.
   	moleculeObjects := nil

2. moleculeObjects [accessing]
   

   	moleculeObjects ifNil: [moleculeObjects := OrderedCollection new].
   	^moleculeObjects

3. moleculeObjects: collectionOfMoleculeObject [accessing]
   

    
   	collectionOfMoleculeObject 
   		do: [:moleculeObject | self moleculeObjects add: moleculeObject]

4. writeOn: aStream [writing]
   

    
   	self moleculeObjects 
   		do: [:moleculeObject | self writeOn: aStream moleculeObject: moleculeObject]

5. writeOn: aStream moleculeObject: moleculeObject [writing]
   

    
   	| moleFileWriter |
   	moleFileWriter := self class defaultMoleFileWriterClass new.
   	moleFileWriter moleculeObject: moleculeObject.
   	moleFileWriter fileName: moleculeObject fileName.
   	moleFileWriter writeOn: aStream.
   	aStream cr.
   	aStream
   		nextPutAll: '$$$$';
   		cr

class methods:

1. copyright [copyright]
   

   	^'ChemoJun050 (2006/08/08) Copyright 2002-2006 National Institute of Informatics, Research Organization of Information and Systems.'

2. defaultMoleFileWriterClass [defaults]
   

   	^ChemoJunMolFileWriter

3. example1 [examples]
   

   	"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

4. moleculeObjects: collectionOfMoleculeObjects [instance creation]
   

    
   	^(self new)
   		moleculeObjects: collectionOfMoleculeObjects;
   		yourself

5. system [copyright]
   

   	^'ChemoJun'

6. version [copyright]
   

   	^'050'