Changeset 358 for trunk/Include/Classes/ActiveBasic

Timestamp:

Oct 19, 2007, 11:42:51 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerO, FormatIntegerXを実装

File:

• trunk/Include/Classes/ActiveBasic/Strings/SPrintF.ab (modified) (6 diffs)

trunk/Include/Classes/ActiveBasic/Strings/SPrintF.ab

@@ -90 +90 @@
     /*! 代替表記、#。
     <ul>
-        <li>[OoXx]では、数値の先頭に0、0xを付ける。</ul>
+        <li>[OoXx]では、値が0でない場合、先頭に0、0xを付ける。</ul>
         <li>[AaEeFfGg]では、精度0でも小数点を付ける。</ul>
         <li>[Gg]では、それに加え、小数部末尾の0の省略を行わないようにする。</ul>
@@ -172 +172 @@
 */
 Function FormatIntegerU(x As DWord, d As DWord, field As DWord, flags As FormatFlags) As String
-    FormatIntegerU = FormatInteger(x, d, field, flags, 0)
-End Function
-
-'! Longの最大値2147483647, -2147483648の符号部を除く文字数 - 1。FormatIntegerU内で使用。
+    FormatIntegerU = FormatInteger(x, d, field, flags And (Not (Sign Or Blank)), 0)
+End Function
+
+/*!
+DWordの最大値4294967295やLongの最大値2147483647、最小値-2147483648
+（全て十進法）の符号部を除いた文字数 - 1。FormatIntegerU内で使用。
+*/
 Const MaxSizeD = 9
 
@@ -219 +222 @@
 */
 Function FormatInteger(x As DWord, d As DWord, field As DWord, flags As FormatFlags, signChar As StrChar) As String
-    '左揃えのときまたは精度が指定されているとき、ゼロフラグは無視される。
-    If (flags And Left) Or (d <> DWORD_MAX) Then
-        flags And= Not Zero
-    End If
-
-    If d = DWORD_MAX Then
-        d = 1
-    End If
+    PreProcessFormatInteger(d, flags)
 
     Dim sb = New System.Text.StringBuilder
@@ -249 +245 @@
         .Append(buf, i + 1, len)
 
-        AdjustFieldWidth(sb, field, signChar <> 0, flags And (Not (Sign Or Blank)))
+        AdjustFieldWidth(sb, field, signChar <> 0, flags)
     End With
     FormatInteger = sb.ToString()
 End Function
 
+
+/*!
+DWordの最大値の八進法表現37777777777の文字数 - 1。FormatIntegerO内で使用。
+*/
+Const MaxSizeO = 10
+
+/*!
+@brief  整数をprintfの%o相当の変換で文字列化する関数。
+@author Egtra
+@date   2007/10/19
+@param[in]  x   文字列化する整数値。
+@param[in]  d   精度、最小限表示される桁数。DWORD_MAXのとき、指定なしとして、既定値1となる。
+@param[in]  field   フィールド幅。
+@param[in]  flags   書式フラグ。
+@return xの文字列表現
+*/
+Function FormatIntegerO(x As DWord, d As DWord, field As DWord, flags As FormatFlags) As String
+    PreProcessFormatInteger(d, flags)
+
+    Dim sb = New System.Text.StringBuilder
+    With sb
+        Dim buf[MaxSizeO] As StrChar
+        Dim i = MaxSizeO
+        While x <> 0
+            buf[i] = ((x And &o7) + &h30) As StrChar
+            x >>= 3
+            i--
+        Wend
+        
+        Dim len = (MaxSizeO - i) As Long
+
+        If flags And Alt Then
+            .Append(&h30 As StrChar)
+            len++
+        End If
+
+        If len < d Then
+            .Append(&h30 As StrChar, d - len)
+        End If
+
+        .Append(buf, i + 1, len)
+
+        AdjustFieldWidth(sb, field, False, flags And (Not (Sign Or Blank)))
+    End With
+    FormatIntegerO = sb.ToString()
+End Function
+
+/*!
+DWordの最大値の十六進法表現ffffffffの文字数 - 1。FormatIntegerO内で使用。
+*/
+Const MaxSizeX = 7
+
+/*!
+@brief  整数をprintfの%x, %X相当の変換で文字列化する関数。
+@author Egtra
+@date   2007/10/19
+@param[in]  x   文字列化する整数値。
+@param[in]  d   精度、最小限表示される桁数。DWORD_MAXのとき、指定なしとして、既定値1となる。
+@param[in]  field   フィールド幅。
+@param[in]  flags   書式フラグ。
+@return xの文字列表現
+*/
+Function FormatIntegerX(x As DWord, d As DWord, field As DWord, flags As FormatFlags) As String
+    PreProcessFormatInteger(d, flags)
+
+    Dim sb = New System.Text.StringBuilder
+    With sb
+        Dim prefixLen = 0 As DWord
+        Debug
+        If (flags And Alt) Then
+            If x <> 0 Then
+                .Append("0X")
+                prefixLen = 2
+            End If
+        End If
+
+        Dim buf[MaxSizeX] As StrChar
+        Dim i = MaxSizeX
+        While x <> 0
+            buf[i] = _System_HexadecimalTable[x And &h0f]
+            x >>= 4
+            i--
+        Wend
+        
+        Dim len = (MaxSizeX - i) As Long
+
+        If len < d Then
+            .Append(&h30 As StrChar, d - len)
+        End If
+
+        .Append(buf, i + 1, len)
+
+        AdjustFieldWidth(sb, field, False, flags And (Not (Sign Or Blank)), prefixLen)
+    End With
+    FormatIntegerX = sb.ToString()
+    
+    If (flags And Cap) = 0 Then
+        FormatIntegerX = FormatIntegerX.ToLower()
+    End If
+End Function
+
 '! QWordの最大値18446744073709551615の文字数 - 1。FormatIntegerLU内で使用。
 Const MaxSizeLU = 19
 
 /*!
+@brief 整数変換共通の前処理
+@author Egtra
+@date   2007/10/19
+@param[in, out] d   精度。DWORD_MAXで省略とみなされ、精度1になる。
+@param[in, out] flags   フラグ。精度が指定されたとき、Zeroを消す。
+*/
+Sub PreProcessFormatInteger(ByRef d As DWord, ByRef flags As FormatFlags)
+    If d = DWORD_MAX Then
+        d = 1
+    Else
+        '精度が指定されているとき、ゼロフラグは無視される。
+        '左揃えのときも無視されるが、それはAdjustFieldWidthが行ってくれる。
+        flags And= Not Zero
+    End If
+End Sub
+
+/*!
 @brief 文字列をフィールド幅まで満たされるように空白などを挿入する。
-@param [in,out] sb 対象文字列
-@param [in] field フィールド幅
-@param [in] hasSign 符号を持っている（負の値か）か否か
-@param [in] flags フラグ
-*/
-Sub AdjustFieldWidth(sb As System.Text.StringBuilder, field As DWord, hasSign As Boolean, flags As FormatFlags)
+@param [in,out] sb  対象文字列
+@param [in] field   フィールド幅
+@param [in] hasSign 符号を持っている（負の値か）か否か
+@param [in] flags   フラグ
+@param [in] prefixLen   （あれば）接頭辞の文字数。ゼロ埋めする際、この数だけ挿入位置を後ろにする。
+*/
+Sub AdjustFieldWidth(sb As System.Text.StringBuilder, field As DWord, hasSign As Boolean, flags As FormatFlags, prefixLen = 0 As DWord)
     With sb
         If .Length < field Then
@@ -276 +391 @@
                         insPos++
                     End If
+                    insPos += prefixLen
                     .Insert(insPos, String$(embeddedSize, "0"))
                 Else
@@ -282 +398 @@
             End If
         End If
-
     End With
 End Sub