#BUGFIX by stefan
authorStefan Vogel <sv@exept.de>
Mon, 21 Jan 2019 16:49:17 +0100
changeset 23624 5c6834205e82
parent 23623 0b30772c722c
child 23625 034316f8e057
#BUGFIX by stefan class: UnixFilename added: #osNameForFile class: UnixFilename class comment/format in: #nameWithSpecialExpansions: Do expansion (#exists didn't work with )
UnixFilename.st
--- a/UnixFilename.st	Mon Jan 21 16:48:03 2019 +0100
+++ b/UnixFilename.st	Mon Jan 21 16:49:17 2019 +0100
@@ -106,12 +106,16 @@
     "
         self nameWithSpecialExpansions:'/usr/lib'
         self nameWithSpecialExpansions:'$JAVA_HOME/bin'
+        self nameWithSpecialExpansions:'${JAVA_HOME}/bin'
+        self nameWithSpecialExpansions:'${JAVA_HOME}-tttttt'
         self nameWithSpecialExpansions:'$(JAVA_HOME)/bin'
+        self nameWithSpecialExpansions:'$(JAVA_HOME)bin'
         self nameWithSpecialExpansions:'~/work'
         self nameWithSpecialExpansions:'~stefan/test'
     "
 
     "Created: / 10-01-2019 / 16:04:14 / Stefan Vogel"
+    "Modified (comment): / 21-01-2019 / 16:46:34 / Stefan Vogel"
 ! !
 
 !UnixFilename class methodsFor:'queries'!
@@ -262,6 +266,21 @@
     "redefined from superclass, because we do not distinguish file and directory names"
 
     ^ self osNameForFile
+!
+
+osNameForFile
+    "internal - return the OS's name for the receiver to
+     access it as a file."
+
+    (nameString size == 0 
+     or:[nameString first ~~ $~ 
+         and:[(nameString includes:$$) not]]) ifTrue:[
+        ^ nameString.
+    ].
+
+    ^ self species nameWithSpecialExpansions:nameString.
+
+    "Created: / 21-01-2019 / 15:58:18 / Stefan Vogel"
 ! !
 
 !UnixFilename class methodsFor:'documentation'!