--- 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!