Win32OperatingSystem.st
changeset 7077 e9103f7f3b6d
parent 7070 c84a77aeb893
child 7080 a82683bc1843
--- a/Win32OperatingSystem.st	Wed Feb 26 13:04:39 2003 +0100
+++ b/Win32OperatingSystem.st	Thu Feb 27 13:54:38 2003 +0100
@@ -3636,27 +3636,27 @@
     |names n "{ Class: SmallInteger }" |
 
     names := pathName 
-		asCollectionOfSubstringsSeparatedBy:self fileSeparator.
+                asCollectionOfSubstringsSeparatedBy:self fileSeparator.
     names := names asOrderedCollection.
     "
      cut off initial double-slashes
     "
     [names startsWith:#('' '')] whileTrue:[
-	names removeFirst.
+        names removeFirst.
     ].
     "
      cut off double-slashes at end
     "
     [names endsWith:#('')] whileTrue:[
-	names removeLast.
+        names removeLast.
     ].
     "
      cut off current-dir at beginning
     "
     n := names size.
     [(n >= 2) and:[names startsWith:#('.')]] whileTrue:[
-	names removeFirst.
-	n := n - 1.
+        names removeFirst.
+        n := n - 1.
     ].
 
     "
@@ -3665,22 +3665,22 @@
     [(n > 2) 
      and:[(names endsWith:#('..'))
      and:[((names at:(n - 1)) startsWith:'.') not ]]] whileTrue:[
-	names removeLast; removeLast.
-	n := n - 2.
+        names removeLast; removeLast.
+        n := n - 2.
     ].
 
     ^ names asStringWith:self fileSeparator 
-		    from:1
-		    to:n
-		    compressTabs:false final:nil 
-
-    "
-     OperatingSystem compressPath:'./..'    
-     OperatingSystem compressPath:'/foo/bar/baz/..'  
-     OperatingSystem compressPath:'foo/bar/baz/..'  
-     OperatingSystem compressPath:'foo/bar/baz/../'  
-     OperatingSystem compressPath:'foo/bar/baz/..///' 
-     OperatingSystem compressPath:'///foo/bar/baz/..///' 
+                    from:1
+                    to:n
+                    compressTabs:false final:nil 
+
+    "
+     OperatingSystem compressPath:'.\..'    
+     OperatingSystem compressPath:'\foo\bar\baz\..'  
+     OperatingSystem compressPath:'foo\bar\baz\..'   
+     OperatingSystem compressPath:'foo\bar\baz\..\'  
+     OperatingSystem compressPath:'foo\bar\baz\..\\\' 
+     OperatingSystem compressPath:'\\\foo\bar\baz\..\\\' 
     "
 
     "Modified: 1.11.1996 / 20:13:48 / cg"
@@ -7383,11 +7383,11 @@
 
 type:t mode:m uid:u gid:g size:s id:i accessed:aT modified:mT created:cT path:lP fullName:fullName alternativeName:name2
     ^ self basicNew
-	type:t mode:m uid:u gid:g size:s 
-	id:i accessed:aT modified:mT created:cT 
-	path:lP 
-	fullName:fullName
-	alternativeName:name2
+        type:t mode:m uid:u gid:g size:s 
+        id:i accessed:aT modified:mT created:cT 
+        path:lP 
+        fullName:fullName
+        alternativeName:name2
 ! !
 
 !Win32OperatingSystem::FileStatusInfo methodsFor:'accessing'!
@@ -8756,7 +8756,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.121 2003-02-26 01:05:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.122 2003-02-27 12:54:38 penk Exp $'
 ! !
 
 !Win32OperatingSystem::Win32FILEHandle methodsFor:'release'!
@@ -8783,7 +8783,7 @@
 !
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.121 2003-02-26 01:05:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.122 2003-02-27 12:54:38 penk Exp $'
 ! !
 
 !Win32OperatingSystem::Win32Handle methodsFor:'io'!
@@ -9170,7 +9170,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.121 2003-02-26 01:05:44 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.122 2003-02-27 12:54:38 penk Exp $'
 ! !
 
 Win32OperatingSystem initialize!