Changeset 497 for trunk/Include/Classes/System/IO/Path.ab

Timestamp:

Mar 28, 2008, 5:43:34 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

インクルードガードとその他不要な前処理定義などの削除

File:

• trunk/Include/Classes/System/IO/Path.ab (modified) (4 diffs)

trunk/Include/Classes/System/IO/Path.ab

@@ -10 +10 @@
 Class Path
 Public
-    Static Const AltDirectorySeparatorChar = &H2F As StrChar '/
-    Static Const DirectorySeparatorChar    = &H5C As StrChar '\
-    Static Const PathSeparator             = &H3B As StrChar ';
-    Static Const VolumeSeparatorChar       = &H3A As StrChar ':
+    Static Const AltDirectorySeparatorChar = &H2F As Char '/
+    Static Const DirectorySeparatorChar    = &H5C As Char '\
+    Static Const PathSeparator             = &H3B As Char ';
+    Static Const VolumeSeparatorChar       = &H3A As Char ':
 
     '----------------------------------------------------------------
@@ -135 +135 @@
         If IsPathRooted(path) Then
             If path.Contains(UniformNamingConventionString) Then
-                Return path.Remove(path.IndexOf(DirectorySeparatorChar, 
+                Return path.Remove(path.IndexOf(DirectorySeparatorChar,
                                                       UniformNamingConventionString.Length) + 1)
             Else
@@ -214 +214 @@
 
 Private
-    Static Const ExtensionSeparatorChar = &H2E As StrChar
+    Static Const ExtensionSeparatorChar = &H2E As Char
     Static Const InvalidPathChars = Ex"\q<>|\0\t" As String
     Static Const UniformNamingConventionString = "\\" As String
@@ -258 +258 @@
     */
     Static Function GetLastSeparatorIndex(path As String) As Long
-        Return System.Math.Max(path.LastIndexOf(DirectorySeparatorChar), 
+        Return System.Math.Max(path.LastIndexOf(DirectorySeparatorChar),
                                path.LastIndexOf(AltDirectorySeparatorChar)) As Long
     End Function