Filename.st
changeset 18686 a2af6c2de3ec
parent 18667 ed22f49c33f1
child 18688 43370946620c
child 18734 91cf1b39b479
--- a/Filename.st	Fri Aug 14 07:39:26 2015 +0200
+++ b/Filename.st	Fri Aug 14 07:39:33 2015 +0200
@@ -2154,13 +2154,13 @@
      The enumerations order is undefined - i.e. usually NOT sorted by
      filenames (but by creation time - on some systems).
      This excludes entries for '.' or '..'.
-     OpenError is raised if I represent a non-existant or non-readable directories.
+     OpenError is raised if I represent a non-existent or non-readable directories.
      So users of this method better test for existing directory before."
 
     self directoryContentsAsFilenamesDo:[:eachFileOrDirectory |
-	eachFileOrDirectory isDirectory ifTrue:[
-	    aBlock value:eachFileOrDirectory
-	]
+        eachFileOrDirectory isDirectory ifTrue:[
+            aBlock value:eachFileOrDirectory
+        ]
     ].
 
     "
@@ -5003,7 +5003,7 @@
     "Answer true, if myself is a parent directory of aFilenameOrString.
      Unexpected results may be returned, if one of myself or aFilenameOrString does
      not exist and relative and absolute path names are mixed
-     ('/' asFilename isParentDirectoryOf:'../noExistant' -> false)
+     ('/' asFilename isParentDirectoryOf:'../noExistent' -> false)
 
      Warning: maybe symbolic links must be resolved which could lead to automounting"
 
@@ -5015,19 +5015,19 @@
     otherNames := self class canonicalizedNameComponents:filenameArg name.
     myNames := self class canonicalizedNameComponents:self name.
     ((otherNames startsWith:myNames) and:[myNames first ~= self class parentDirectoryName]) ifTrue:[
-	^ otherNames ~= myNames
+        ^ otherNames ~= myNames
     ].
 
     "fall back - try it again with ~ substitution and symbolic links resolved"
     otherNames := self class canonicalizedNameComponents:filenameArg pathName.
     myNames := self class canonicalizedNameComponents:self pathName.
     (otherNames startsWith:myNames) ifTrue:[
-	^ otherNames ~= myNames
+        ^ otherNames ~= myNames
     ].
 
     myName := self class nameFromComponents:myNames.
     filenameArg allParentDirectoriesDo:[:parent |
-	parent pathName = myName ifTrue:[^ true].
+        parent pathName = myName ifTrue:[^ true].
     ].
     ^ false.
 
@@ -5042,9 +5042,9 @@
      '~' asFilename isParentDirectoryOf:'.'
      '~' asFilename isParentDirectoryOf:'..'
      '~' asFilename isParentDirectoryOf:'../smalltalk'
-     '../..' asFilename isParentDirectoryOf:'../nonExistant'
-     '..' asFilename isParentDirectoryOf:'../../nonExistant'
-     '/' asFilename isParentDirectoryOf:'../nonExistant'
+     '../..' asFilename isParentDirectoryOf:'../nonExistent'
+     '..' asFilename isParentDirectoryOf:'../../nonExistent'
+     '/' asFilename isParentDirectoryOf:'../nonExistent'
      '/' asFilename isParentDirectoryOf:'/phys/qnx'
     "
 !