symbolic link targets
authorClaus Gittinger <cg@exept.de>
Tue, 07 Nov 2006 16:28:21 +0100
changeset 10159 324a6086a784
parent 10158 8382920f9265
child 10160 2fe3c748e688
symbolic link targets
Win32OperatingSystem.st
--- a/Win32OperatingSystem.st	Tue Nov 07 16:03:26 2006 +0100
+++ b/Win32OperatingSystem.st	Tue Nov 07 16:28:21 2006 +0100
@@ -4427,8 +4427,8 @@
 
     info := self linkInfoOf:aPathName.
     info isSymbolicLink ifTrue:[
-        target := self getLinkTarget:aPathName.
-        info := self linkInfoOf:target.
+        target := info path.
+        ^ self linkInfoOf:target.
     ].
     ^ info
 
@@ -4439,7 +4439,7 @@
     (OperatingSystem infoOf:'/') accessed
    "
 
-    "Modified: / 07-11-2006 / 16:02:07 / cg"
+    "Modified: / 07-11-2006 / 16:27:02 / cg"
 !
 
 isDirectory:aPathName
@@ -4731,7 +4731,7 @@
      aYr aMon aDay aHr aMin aSec aMS
      mYr mMon mDay mHr mMin mSec mMS
      cYr cMon cDay cHr cMin cSec cMS
-     fileName alternativeName|
+     fileName alternativeName path|
 
 %{
     struct stat buf;
@@ -4841,6 +4841,7 @@
 %}.
     (aPathName asFilename hasSuffix:'lnk') ifTrue:[
         type := #symbolicLink.
+        path := self getLinkTarget:aPathName.
     ].
 
     mode isNil ifTrue:[
@@ -4876,7 +4877,7 @@
                     accessed:atime
                     modified:mtime
                     created:ctime
-                    path:nil
+                    path:path
                     fullName:fileName
                     alternativeName:alternativeName.
         ^ info
@@ -4891,7 +4892,7 @@
      OperatingSystem linkInfoOf:'C:\Dokumente und Einstellungen\cg\Favoriten\Incoming.lnk'
    "
 
-    "Modified: / 07-11-2006 / 15:59:49 / cg"
+    "Modified: / 07-11-2006 / 16:26:32 / cg"
 !
 
 mimeTypeForSuffix:aFileSuffix
@@ -12579,7 +12580,7 @@
 !Win32OperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.246 2006-11-07 15:03:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Win32OperatingSystem.st,v 1.247 2006-11-07 15:28:21 cg Exp $'
 ! !
 
 Win32OperatingSystem initialize!