ChemoJunAbstractFileReader

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

instance variables:

• commentList

class instance variables:

class variables:

pool variables:

instance methods:

1. commentList [accessing]
   

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

2. fileName: aFilename [accessing]
   

    
   	| theFilename |
   	theFilename := aFilename asFilename.
   	fileName = theFilename 
   		ifFalse: 
   			[super fileName: theFilename.
   			Cursor read showWhile: [self read]]

3. initialize [initialize-release]
   

   	super initialize.
   	commentList := nil

4. read [reading]
   

   	| aStream |
   	self fileName isNil ifTrue: [^nil].
   	self 
   		assert: [aStream := self fileName readStream]
   		do: [Cursor read showWhile: [self readFrom: aStream]]
   		ensure: [aStream close]

5. readFrom: aStream [reading]
   

    
   	^self

class methods:

1. copyright [copyright]
   

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

2. defaultRequestMessageString [defaults]
   

   	^(#jun_Select_a_file_ >> 'Select a file.') asString

3. request: messageString [utilities]
   

    
   	"ChemoJunAbstractFileReader request: ChemoJunAbstractFileReader defaultRequestMessageString."
   
   	| labels values menu aFilename aReader |
   	labels := self defaultFileDescriptions.
   	values := self defaultFilePatterns.
   	menu := Menu labelList: labels values: values.
   	aFilename := ChemoJunFileRequesterDialog 
   				requestFilename: messageString
   				fileTypeMenu: menu
   				initialFileType: values first.
   	aFilename isNil ifTrue: [^nil].
   	aReader := self fileName: aFilename.
   	aReader isNil ifTrue: [^nil].
   	^aReader

4. system [copyright]
   

   	^'ChemoJun'

5. version [copyright]
   

   	^'050'