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

Timestamp:

Mar 9, 2008, 12:00:01 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

TextWriter, StreamWriterの追加。
SPrintfの浮動小数点数変換で、NaN, Infiniteの出力に対応。
PathとDirectoryInfoのCreateDirectoryで、対象が既に存在するときには例外を投げないように修正。
SimpleTestCase内で使用する一時フォルダの場所にGetTempPathで取得する版を追加（コメントアウト）。

File:

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

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

@@ -88 +88 @@
     */
     Static Function GetFullPath(path As String) As String
-        Return Combine(System.Environment.CurrentDirectory, path)
+        If IsPathRooted(path) Then
+            Return path
+        Else
+            Return Combine(System.Environment.CurrentDirectory, path)
+        End If
     End Function
 
@@ -172 +176 @@
     Static Function GetTempPath() As String
         Dim size = WIN32API_GetTempPath(0, 0)
-        Dim p = GC_malloc_atomic(SizeOf (TCHAR) * size) As PCTSTR
-        Dim len = WIN32API_GetTempPath(size, p)
+        Dim buf = New Text.StringBuilder(size)
+        buf.Length = size
+        Dim len = WIN32API_GetTempPath(size, StrPtr(buf))
         If (len > size) or len = 0 Then
             Throw New IOException("Path.GetTempPath: Failed to GetTempPath.")
         Else
-            Return New String(p, len As Long)
+            buf.Length = len
+            Return buf.ToString
         End If
     End Function
@@ -209 +215 @@
     Static Const ExtensionSeparatorChar = &H2E As StrChar
     Static Const InvalidPathChars = Ex"\q<>|\0\t" As String
-    Static Const UniformNamingConventionString = Ex"\\\\" As String
+    Static Const UniformNamingConventionString = "\\" As String
 
     '----------------------------------------------------------------
@@ -227 +233 @@
         Dim i As Long
         For i = 0 To ELM(InvalidPathChars.Length)
-            If path.Contains(InvalidPathChars.Substring(i, 1)) Then
+            If path.Contains(InvalidPathChars[i]) Then
                 Throw New IOException("Path.CheckPath: The path contains invalidPathChars.")
             End If