UnixFilename.st
branchjv
changeset 17955 f5ee690b1a27
parent 17911 a99f15c5efa5
child 18011 deb0c3355881
equal deleted inserted replaced
17954:dc18846aa7b2 17955:f5ee690b1a27
   185     "Modified: / 21.7.1998 / 11:10:42 / cg"
   185     "Modified: / 21.7.1998 / 11:10:42 / cg"
   186 ! !
   186 ! !
   187 
   187 
   188 !UnixFilename methodsFor:'special accessing'!
   188 !UnixFilename methodsFor:'special accessing'!
   189 
   189 
   190 osNameForDirectory
   190 osName
   191     "internal - return the OS's name for the receiver to
   191     "redefined from superclass, because we do not distinguish file and directory names"
   192      access it as a directory."
       
   193 
   192 
   194     ^ self osNameForFile
   193     ^ self osNameForFile
   195 !
   194 !
   196 
   195 
   197 osNameForFile
   196 osNameForFile
   198     "internal - return the OS's name for the receiver to
   197     "internal - return the OS's name for the receiver to
   199      access it as a file."
   198      access it as a file."
   200 
   199 
   201     nameString bitsPerCharacter < 8 ifTrue:[
   200     |name|
   202         ^ nameString.
   201 
   203     ].
   202     (nameString startsWith:'~') ifTrue:[
   204     ^ nameString utf8Encoded.
   203         name := self class nameWithSpecialExpansions:nameString. 
       
   204     ] ifFalse:[
       
   205         name := nameString.
       
   206     ].
       
   207 
       
   208     name bitsPerCharacter < 8 ifTrue:[
       
   209         ^ name.
       
   210     ].
       
   211     ^ name utf8Encoded.
   205 ! !
   212 ! !
   206 
   213 
   207 !UnixFilename class methodsFor:'documentation'!
   214 !UnixFilename class methodsFor:'documentation'!
   208 
   215 
   209 version
   216 version
   210     ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009/10/28 14:02:12 cg Exp $'
   217     ^ '$Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.17 2012/07/19 14:42:30 stefan Exp $'
   211 !
   218 !
   212 
   219 
   213 version_CVS
   220 version_CVS
   214     ^ '§Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.16 2009/10/28 14:02:12 cg Exp §'
   221     ^ '§Header: /cvs/stx/stx/libbasic/UnixFilename.st,v 1.17 2012/07/19 14:42:30 stefan Exp §'
   215 !
   222 !
   216 
   223 
   217 version_SVN
   224 version_SVN
   218     ^ '$Id: UnixFilename.st 10761 2012-01-19 11:46:00Z vranyj1 $'
   225     ^ '$Id: UnixFilename.st 10829 2012-07-25 08:45:15Z vranyj1 $'
   219 ! !
   226 ! !
   220 
   227 
   221 
   228 
   222 
   229