ChemoJunAbstractObject

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

category:

• ChemoJun-Abstract-Objects

inheritance:

• Object
  • ChemoJunAbstractObject
    • ChemoJunMoleculeObject

instance variables:

• fileName

class instance variables:

class variables:

pool variables:

instance methods:

1. asFilename [converting]
   

   	^self fileName asFilename

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

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

3. asURI [converting]
   

   	^self fileName asURI

4. baseName [accessing]
   

   	^self class baseNameFromFilename: self fileName

5. extension [accessing]
   

   	^self class extensionFromFilename: self fileName

6. fileName [accessing]
   

   	^fileName

7. fileName: aFilename [accessing]
   

    
   	aFilename ifNil: [fileName := nil]
   		ifNotNil: [fileName := aFilename asFilename]

8. informationString [accessing]
   

   	| aStream aString |
   	self
   		assert: [aStream := String new writeStream]
   		do: [self fileName notNil
   				ifTrue: 
   					[aStream tab.
   					aStream nextPutAll: (#jun_file__ >> 'file: ') asString.
   					aStream nextPutAll: (Filename splitPath: self fileName asString) last.
   					aStream cr]]
   		ensure: 
   			[aString := aStream contents.
   			aStream close].
   	^aString

9. initialize [initialize-release]
   

   	fileName := nil

10. pathName [accessing]
    

    	^(Filename splitPath: self fileName asString) first

11. postCopy [copying]
    

    	super postCopy.
    	fileName := fileName copy

12. release [initialize-release]
    

    	super release

class methods:

1. baseNameFromFilename: aFilename [converting]
   

    
   	"ChemoJunAbstractObject baseNameFromFilename: (JunFileDialog request)."
   	"ChemoJunAbstractObject baseNameFromFilename: (nil)."
   
   	| aString |
   	aFilename isNil ifTrue: [^JunSystem defaultBaseName].
   	aString := (Filename splitPath: aFilename asString) last.
   	aString isNil ifTrue: [^JunSystem defaultBaseName].
   	aString := (Filename splitExtension: aString) first.
   	^aString

2. copyright [copyright]
   

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

3. extensionFromFilename: aFilename [converting]
   

    
   	"ChemoJunAbstractObject extensionFromFilename: (JunFileDialog request)."
   
   	| aString |
   	aFilename isNil ifTrue: [^String new].
   	aString := (Filename splitPath: aFilename asString) last.
   	aString isNil ifTrue: [^String new].
   	^aString copyFrom: (self baseNameFromFilename: aFilename) size + 1
   		to: aString size

4. new [instance creation]
   

   	^(super new) initialize; yourself

5. system [copyright]
   

   	^'ChemoJun'

6. version [copyright]
   

   	^'050'