Changeset 125 for Include/Classes/System

Timestamp:

Mar 2, 2007, 2:57:09 PM (18 years ago)

Author:

イグトランス (egtra)

Message:

#51完了

Location:

Include/Classes/System

Files:

• IO/Path.ab (modified) (4 diffs)
• String.ab (modified) (2 diffs)

Include/Classes/System/IO/Path.ab

@@ -1 +1 @@
 Class Path
 Public
-    Static AltDirectorySeparatorChar = &H2F As Byte '/
-    Static DirectorySeparatorChar = &H5C As Byte    '\
-    Static PathSeparator = &H3B As Byte             ';
-    Static VolumeSeparatorChar = &H3A As Byte       ':
+    Static AltDirectorySeparatorChar = &H2F As Char '/
+    Static DirectorySeparatorChar = &H5C As Char    '\
+    Static PathSeparator = &H3B As Char             ';
+    Static VolumeSeparatorChar = &H3A As Char       ':
 
     Static Function GetFileName(path As String) As String
@@ -50 +50 @@
     End Function
 
-    Static Function HasExtension(ByRef path As String) As BOOL
+    Static Function HasExtension(ByRef path As String) As Boolean
         If GetExtension(path) <> "" Then
             Return _System_TRUE
@@ -59 +59 @@
 
     Static Function GetTempFileName() As String
-        ' TODO: 実装
+        Dim tempPathSize = __GetTempPath(0, 0)
+        Dim tempPath = _System_malloc(SizeOf (TCHAR) * tempPathSize) As PTSTR
+        If tempPath = 0 Then
+            ' Throw OutOfMemoryException
+            Debug
+        End If
+        If __GetTempPath(tempPathSize, tempPath) > tempPathSize Then
+            ' Throw IOException?
+            Debug
+        End If
+
+        Dim tempFileName[ELM(MAX_PATH)] As TCHAR
+        __GetTempFileName(tempPath, "ABT", 0, tempFileName)
+        free(tempPath)
+        Return tempFileName
     End Function
 
@@ -148 +162 @@
     Return GetTempPath(nBufferLength, lpBuffer)
 End Function
+
+Function __GetTempFileName(pPathName As PCSTR, pPrefixString As PCSTR, uUnique As DWord, pTempFileName As PSTR) As DWord
+    Return GetTempFileName(pPathName, pPrefixString, uUnique, pTempFileName)
+End Function

Include/Classes/System/String.ab

@@ -12 +12 @@
         String()
         Assign(initStr)
+    End Sub
+
+    Sub String(initStr As *Char, length As Long)
+        String()
+        Assign(initStr, length)
     End Sub
 
@@ -454 +459 @@
 
     Sub ToLower()
-        CharLower(Chars)
+        Dim i As Long
+        For i = 0 To m_Length
+            Chars[i] = _System_ASCII_ToLower(Chars[i])
+        Next
     End Sub
 
     Sub ToUpper()
-        CharUpper(Chars)
+        Dim i As Long
+        For i = 0 To m_Length
+            Chars[i] = _System_ASCII_ToUpper(Chars[i])
+        Next
     End Sub