ChemoJunTextFileReader

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

category:

• ChemoJun-File-IO

inheritance:

• Object
  • ChemoJunAbstractFile
    • ChemoJunAbstractFileReader
      • ChemoJunTextFileReader

instance variables:

• lineCollection

class instance variables:

class variables:

pool variables:

instance methods:

1. initialize [initialize-release]
   

   	super initialize.
   	lineCollection := nil

2. lineCollection [accessing]
   

   	lineCollection isNil ifTrue: [lineCollection := OrderedCollection new].
   	^lineCollection

3. readFrom: aStream [reading]
   

    
   	[aStream atEnd not] whileTrue: 
   			[(self getLine: aStream) 
   				ifNotNil: [:aString | self lineCollection add: (aString copyUpTo: Character cr)]]

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_Text_files >> 'Text files') asString)
   		with: (Array with: (#jun_All_files >> 'All files') asString)

3. defaultFilePatterns [defaults]
   

   	^Array with: #('*.txt' '*.TXT') with: #('*')

4. defaultRequestMessageString [defaults]
   

   	^(#jun_Select_a_text_file_ >> 'Select a text file.') asString

5. example1 [examples]
   

   	"ChemoJunTextFileReader example1."
   
   	| aReader |
   	aReader := ChemoJunTextFileReader request.
   	aReader isNil ifTrue: [^nil].
   	^aReader

6. system [copyright]
   

   	^'ChemoJun'

7. version [copyright]
   

   	^'050'