ChemoJunAbstractFile

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

category:

• ChemoJun-Abstract-Objects

inheritance:

• Object
  • ChemoJunAbstractFile
    • ChemoJunAbstractFileReader
      • ChemoJunMolFileReader
      • ChemoJunSdFileReader
      • ChemoJunTextFileReader
    • ChemoJunAbstractFileWriter
      • ChemoJunMolFileWriter
      • ChemoJunSdFileWriter

instance variables:

• fileName

class instance variables:

class variables:

pool variables:

instance methods:

1. a: argumentString value: aValue [format]
   

    
   	"self new a: '10' value: 'abc'."
   
   	"self new a: '' value: 'abc'."
   
   	"self new a: '3' value: 'abcdefgh'."
   
   	^JunStringUtility a: argumentString value: aValue

2. assert: assertBlock do: doBlock ensure: ensureBlock [private]
   

    
   	assertBlock value.
   	[doBlock value]
   		ensure: [ensureBlock value]

3. baseName [accessing]
   

   	^ChemoJunAbstractObject baseNameFromFilename: self fileName

4. e: argumentString value: aValue [format]
   

    
   	^JunStringUtility e: argumentString value: aValue

5. extension [accessing]
   

   	^ChemoJunAbstractObject extensionFromFilename: self fileName

6. f: argumentString value: aValue [format]
   

    
   	"self new f: '10.4' value: 1234.567."
   
   	"self new f: '' value: 1234.567."
   
   	"self new f: '3' value: 1234.567890."
   
   	^JunStringUtility f: argumentString value: aValue

7. fileName [accessing]
   

   	^fileName

8. fileName: aFilename [accessing]
   

    
   	fileName := aFilename asFilename

9. format: aString value: aValue [format]
   

    
   	"self new format: 'a10' value: 'abc'."
   
   	"self new format: 'f10.4' value: 1234.567."
   
   	"self new format: 'x10' value: nil."
   
   	^JunStringUtility format: aString value: aValue

10. getChar: aStream [private]
    

     
    	^JunStringUtility getChar: aStream

11. getLine: aStream [private]
    

     
    	^JunStringUtility getLine: aStream

12. i: argumentString value: aValue [format]
    

     
    	"self new i: '10' value: 1234567."
    
    	"self new i: '' value: 1234567."
    
    	"self new i: '3' value: 1234567890."
    
    	^JunStringUtility i: argumentString value: aValue

13. initialize [initialize-release]
    

    	fileName := nil

14. pathName [accessing]
    

    	^(Filename splitPath: self fileName asString) first

15. separate: separateCollection [private]
    

     
    	^self separate: separateCollection dividers: self separators

16. separate: separateCollection dividers: dividerCollection [private]
    

     
    	^JunStringUtility separate: separateCollection dividers: dividerCollection

17. separators [private]
    

    	| stream |
    	stream := WriteStream on: (String new: 10).
    	stream nextPut: Character space.
    	stream nextPut: Character tab.
    	stream nextPut: Character cr.
    	stream nextPut: Character lf.
    	^stream contents

18. setFileName: aFilename [private]
    

     
    	fileName := aFilename

19. skipSeparators: aString [private]
    

     
    	"self new skipSeparators: '    zzz'."
    
    	| subString |
    	subString := aString copyFrom: 1 to: aString size.
    	[subString isEmpty not and: [subString first isSeparator]] 
    		whileTrue: [subString := subString copyFrom: 2 to: subString size].
    	^subString

20. x: argumentString [format]
    

     
    	"self new x: '10'."
    
    	"self new x: ''."
    
    	^JunStringUtility x: argumentString

21. z: argumentString value: fixedPointValue [format]
    

     
    	"ChemoJunAbstractFile new z: '10.4' value: 1234.567s."
    
    	"ChemoJunAbstractFile new z: '' value: 1234.567s."
    
    	"ChemoJunAbstractFile new z: '3' value: 1234.567890s."
    
    	"ChemoJunAbstractFile new z: '10.4' value: 1s."
    
    	| collection length decimal string stream index |
    	collection := JunStringUtility separate: argumentString
    				dividers: JunStringUtility separators , '.'.
    	collection isEmpty 
    		ifTrue: 
    			[length := 10.
    			decimal := 4]
    		ifFalse: 
    			[length := collection first asNumber.
    			decimal := collection last asNumber].
    	string := fixedPointValue printString copyUpTo: $s.
    	index := string findFirst: [:c | c = $.].
    	index < 1 ifTrue: [index := string size + 1].
    	decimal - (string size - index) timesRepeat: [string := string , ' '].
    	JunControlUtility 
    		assert: [stream := String new writeStream]
    		do: 
    			[length - string size timesRepeat: [stream nextPut: Character space].
    			stream nextPutAll: (string copyFrom: 1 to: (length min: string size)).
    			string := stream contents]
    		ensure: [stream close].
    	^string

class methods:

1. copyright [copyright]
   

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

2. defaultFileDescriptions [defaults]
   

   	^Array with: (Array with: (#jun_All_files >> 'All files') asString)

3. defaultFilePatterns [defaults]
   

   	^Array with: #('*')

4. defaultRequestMessageString [defaults]
   

   	^self subclassResponsibility

5. fileName: aFilename [instance creation]
   

    
   	^(self new)
   		fileName: aFilename;
   		yourself

6. new [instance creation]
   

   	^(super new)
   		initialize;
   		yourself

7. request [utilities]
   

   	^self request: self defaultRequestMessageString

8. request: messageString [utilities]
   

    
   	^self subclassResponsibility

9. system [copyright]
   

   	^'ChemoJun'

10. version [copyright]
    

    	^'050'