Ignore:
Timestamp:
Nov 3, 2008, 11:42:22 PM (15 years ago)
Author:
イグトランス (egtra)
Message:

TextWriter及びその派生クラスをEncodingを用いるように変更。UTF8EncodingをEncodingの変更に追従させていないので、それ関連を一時的にコメントアウト。

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab

    r581 r653  
    1313
    1414なお、このクラスで、文字列の長さやバッファの大きさを指定するときには、
    15 1 chars = 2バイト（UTF-16符号単位）、1 bytes = 1バイトの単位で指定する。
     151 WCHAR = 2バイト（UTF-16符号単位）、1 Byte = 1バイトの単位で指定する。
    1616
    1717*/
    … …  
    2222    @brief  簡易的複製を作成する。
    2323    */
    24     Abstract Function Clone() As Object
     24    Virtual Function Clone() As Object
     25        Clone = This
     26    End Function
    2527
    2628'   Override Function Equals(y As Object) As Boolean
    … …  
    3234Public
    3335    Sub Encoding()
    34         decoderFallback = New DecoderReplacementFallback
    3536    End Sub
    3637
    3738    /*!
    3839    @brief  符号化して得られる文字列の長さを計算する。
    39     @param[in] s    対象文字列
    40     @param[in] n    sの長さ
     40    @param[in] src  対象文字列
     41    @param[in] srcCount srcの長さ
    4142    @return 符号化して得られる文字列の長さ
    4243    @date   2007/12/08
    4344    */
    44     Function GetBytesCount(s As *WCHAR, n As Long) As Long
    45         If s = 0 Then
    46             Throw New ArgumentNullException("Encoding.GetBytesCount: An argument is null value.", "s")
    47         ElseIf n < 0 Then
    48             Throw New ArgumentOutOfRangeException("Encoding.GetBytesCount: An argument is out of range value.", "n")
    49         End If
    50         Return GetBytesCountCore(s, n)
     45    Function GetBytesCount(src As *WCHAR, srcCount As Long) As Long
     46        If src = 0 Then
     47            Throw New ArgumentNullException("src")
     48        ElseIf srcCount < 0 Then
     49            Throw New ArgumentOutOfRangeException("srcCount")
     50        End If
     51        Return GetBytesCountCore(src, srcCount)
    5152    End Function
    5253#ifdef UNICODE
    5354    /*!
    5455    @brief  符号化して得られる文字列の長さを計算する。
    55     @param[in] s    対象文字列
     56    @param[in] src  対象文字列
    5657    @return 符号化して得られる文字列の長さ
    5758    @date   2007/12/08
    5859    */
    59     Function GetBytesCount(s As String) As Long
    60         If ActiveBasic.IsNothing(s) Then
    61             Throw New ArgumentNullException("Encoding.GetBytesCount: An argument is null value.", "s")
    62         End If
    63         Return GetBytesCountCore(StrPtr(s), s.Length)
     60    Function GetBytesCount(src As String) As Long
     61        If ActiveBasic.IsNothing(src) Then
     62            Throw New ArgumentNullException("src")
     63        End If
     64        Return GetBytesCountCore(StrPtr(src), src.Length)
    6465    End Function
    6566#endif
    66     /*!
    67     @brief  符号化して得られる文字列の長さを計算する。
    68     @param[in] s    対象文字列
    69     @param[in] index    開始位置
    70     @param[in] count    符号化する文字の数
     67
     68Private
     69    /*!
     70    @brief  GetBytesCountの実装を行う。
     71    @param[in] src  対象文字列
     72    @param[in] srcCount srcの長さ
    7173    @return 符号化して得られる文字列の長さ
    7274    @date   2007/12/08
    7375    */
    74     Function GetBytesCount(s As *WCHAR, index As Long, count As Long) As Long
    75         If s = 0 Then
    76             Throw New ArgumentNullException("Encoding.GetBytesCount: An argument is null value.", "s")
    77         ElseIf index < 0 Then
    78             Throw New ArgumentOutOfRangeException("Encoding.GetBytesCount: An argument is out of range value.", "index")
    79         ElseIf count < 0 Then
    80             Throw New ArgumentOutOfRangeException("Encoding.GetBytesCount: An argument is out of range value.", "count")
    81         End If
    82         Return GetBytesCountCore(VarPtr(s[index]), count)
    83     End Function
    84 Protected
    85     /*!
    86     @brief  GetBytesCountの実装を行う。
    87     @param[in] s    対象文字列
    88     @param[in] n    sの長さ
     76    Function GetBytesCountCore(src As *WCHAR, srcCount As Long) As Long
     77        Dim enc = GetEncoder()
     78        GetBytesCountCore = enc.GetBytesCount(src, srcCount, True)
     79    End Function
     80Public
     81    /*!
     82    @brief  符号化する。
     83    @param[in] src  入力
     84    @param[in] srcCount srcの長さ
     85    @param[out] dst 出力
     86    @param[in] dstCount dstのバッファの大きさ
     87    @return dstに書き込まれたバイト数
     88    @date   2007/12/08
     89    */
     90    Function GetBytes(src As *WCHAR, srcCount As Long, dst As *Byte, dstCount As Long) As Long
     91        If src = 0 Then
     92            Throw New ArgumentNullException("src")
     93        ElseIf dst = 0 Then
     94            Throw New ArgumentNullException("dst")
     95        ElseIf srcCount < 0 Then
     96            Throw New ArgumentOutOfRangeException("srcCount")
     97        ElseIf dstCount < 0 Then
     98            Throw New ArgumentOutOfRangeException("dstCount")
     99        End If
     100
     101        Return GetBytesCore(src, srcCount, dst, dstCount)
     102    End Function
     103
     104Private
     105    /*!
     106    @brief  GetBytesの処理を行う。
     107    @param[in] src  入力
     108    @param[in] srcCount srcの長さ
     109    @param[out] dst 出力
     110    @param[in] dstCount dstのバッファの大きさ
     111    @return dstに書き込まれたバイト数
     112    @exception ArgumentException    バッファの大きさが足りない
     113    @date   2007/12/08
     114    */
     115    Function GetBytesCore(src As *WCHAR, srcCount As Long, dst As *Byte, dstCount As Long) As Long
     116        GetBytesCore = GetEncoder().GetBytes(src, srcCount, dst, dstCount, True)
     117    End Function
     118Public
     119    /*!
     120    @brief  復号して得られる文字列の長さを計算する。
     121    @param[in] src  対象文字列
     122    @param[in] srcCount srcの長さ
     123    @return 復号して得られる文字列の長さ
     124    @date   2007/12/08
     125    */
     126    Function GetCharsCount(src As *Byte, srcCount As Long) As Long
     127        If src = 0 Then
     128            Throw New ArgumentNullException("src")
     129        ElseIf srcCount < 0 Then
     130            Throw New ArgumentOutOfRangeException("srcCount")
     131        End If
     132        Return GetCharsCountCore(src, srcCount)
     133    End Function
     134
     135Private
     136    /*!
     137    @brief  GetCharsCountの処理を行う。
     138    @param[in] src  対象文字列
     139    @param[in] srcCount srcの長さ
    89140    @return 符号化して得られる文字列の長さ
    90141    @date   2007/12/08
    91142    */
    92     Abstract Function GetBytesCountCore(s As *WCHAR, n As Long) As Long
    93 Public
    94     /*!
    95     @brief  符号化する。
    96     @param[in] chars    入力
    97     @param[in] charCount    charsの長さ
    98     @param[out] bytes   出力
    99     @param[in] byteCount    bytesのバッファの大きさ
    100     @return bytesに書き込まれたバイト数
    101     @date   2007/12/08
    102     */
    103     Function GetBytes(chars As *WCHAR, charCount As Long, bytes As *Byte, byteCount As Long) As Long
    104         If chars = 0 Then
    105             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "chars")
    106         ElseIf bytes = 0 Then
    107             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "bytes")
    108         ElseIf charCount < 0 Then
    109             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "charCount")
    110         ElseIf byteCount < 0 Then
    111             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "byteCount")
    112         End If
    113 
    114         Return GetBytesCore(chars, charCount, bytes, byteCount)
    115     End Function
    116     /*!
    117     @brief  符号化する。
    118     @param[in] chars    入力
    119     @param[in] index    charsの開始位置
    120     @param[in] count    符号化する文字の数
    121     @param[out] bytes   出力
    122     @param[in] byteCount    bytesのバッファの大きさ
    123     @return bytesに書き込まれたバイト数
    124     @date   2007/12/08
    125     */
    126     Function GetBytes(chars As *WCHAR, index As Long, count As Long, bytes As *Byte, byteCount As Long) As Long
    127         If chars = 0 Then
    128             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "chars")
    129         ElseIf bytes = 0 Then
    130             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "bytes")
    131         ElseIf index < 0 Then
    132             Throw New ArgumentOutOfRangeException("Encoding.GetBytesCount: An argument is out of range value.", "index")
    133         ElseIf count < 0 Then
    134             Throw New ArgumentOutOfRangeException("Encoding.GetBytesCount: An argument is out of range value.", "count")
    135         ElseIf byteCount < 0 Then
    136             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "byteCount")
    137         End If
    138 
    139         Return GetBytesCore(VarPtr(chars[index]), count, bytes, byteCount)
    140     End Function
     143    Function GetCharsCountCore(src As *Byte, srcCount As Long) As Long
     144        Dim dec = GetDecoder()
     145        GetCharsCountCore = dec.GetCharsCount(src, srcCount, True)
     146    End Function
     147Public
     148    /*!
     149    @brief  復号する。
     150    @param[in] src  入力
     151    @param[in] srcCount srcの長さ
     152    @param[out] dst 出力
     153    @param[in] dstCount srcのバッファの大きさ
     154    @return dstに書き込まれたバイト数
     155    @date   2007/12/08
     156    */
     157    Function GetChars(src As *Byte, srcCount As Long, dst As *WCHAR, dstCount As Long) As Long
     158        If dst = 0 Then
     159            Throw New ArgumentNullException("dst")
     160        ElseIf src = 0 Then
     161            Throw New ArgumentNullException("src")
     162        ElseIf dstCount < 0 Then
     163            Throw New ArgumentOutOfRangeException("dstCount")
     164        ElseIf srcCount < 0 Then
     165            Throw New ArgumentOutOfRangeException("srcCount")
     166        End If
     167
     168        Return GetCharsCore(src, srcCount, dst, dstCount)
     169    End Function
     170
     171Private
     172    /*!
     173    @brief  GetCharsの処理を行う。
     174    @param[in] src  入力
     175    @param[in] srcCount srcの長さ
     176    @param[out] dst 出力
     177    @param[in] dstCount dstのバッファの大きさ
     178    @return dstに書き込まれたバイト数
     179    @exception ArgumentException    バッファの大きさが足りない
     180    @date   2007/12/08
     181    */
     182    Function GetCharsCore(src As *Byte, srcCount As Long, dst As *WCHAR, dstCount As Long) As Long
     183        GetCharsCore = GetDecoder().GetChars(src, srcCount, dst, dstCount, True)
     184    End Function
     185Public
    141186#ifdef UNICODE
    142187    /*!
    143     @brief  符号化する。
    144     @param[in] s    入力
    145     @param[in] index    sの開始位置
    146     @param[in] count    符号化する文字の数
    147     @param[out] bytes   出力
    148     @param[in] byteCount    bytesのバッファの大きさ
    149     @return bytesに書き込まれたバイト数
    150     @date   2007/12/08
    151     */
    152     Function GetBytes(s As String, index As Long, count As Long, bytes As *Byte, byteCount As Long) As Long
    153         If ActiveBasic.IsNothing(s) Then
    154             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "chars")
    155         ElseIf bytes = 0 Then
    156             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "bytes")
    157         ElseIf index < 0 Or index >= s.Length Then
    158             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "index")
    159         ElseIf count < 0 Or index + count >= s.Length Then
    160             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "count")
    161         ElseIf byteCount < 0 Then
    162             Throw New ArgumentOutOfRangeException("Encoding.GetBytes: An argument is out of range value.", "byteCount")
    163         End If
    164         Dim p = StrPtr(s)
    165         Return GetBytesCore(VarPtr(p[index]), count, bytes, byteCount)
     188    @brief  復号し、Stringで結果を返す。
     189    @param[in] src  入力
     190    @param[in] srcCount srcの長さ
     191    @return 変換結果の文字列
     192    @date   2007/12/08
     193    */
     194    Function GetString(src As *Byte, srcCount As Long) As String
     195        If src = 0 Then
     196            Throw New ArgumentNullException("src")
     197        ElseIf srcCount < 0 Then
     198            Throw New ArgumentOutOfRangeException("srcCount")
     199        End If
     200        GetString = getStringCore(src, srcCount)
     201    End Function
     202
     203Private
     204    Function getStringCore(src As *Byte, srcCount As Long) As String
     205        Dim sb = New StringBuilder
     206        Dim bufCount = GetMaxCharCount(srcCount)
     207        sb.Length = bufCount
     208        Dim len = GetCharsCore(src, srcCount, StrPtr(sb), bufCount)
     209        sb.Length = len
     210        getStringCore = sb.ToString()
    166211    End Function
    167212#endif
    168 Protected
    169     /*!
    170     @brief  GetBytesの処理を行う。
    171     @param[in] chars    入力
    172     @param[in] charCount    charsの長さ
    173     @param[out] bytes   出力
    174     @param[in] byteCount    bytesのバッファの大きさ
    175     @return bytesに書き込まれたバイト数
    176     @exception ArgumentException    バッファの大きさが足りない
    177     @exception EncoderFallbackException フォールバックが発生した
    178     @date   2007/12/08
    179     */
    180     Abstract Function GetBytesCore(chars As *WCHAR, charCount As Long, bytes As *Byte, byteCount As Long) As Long
    181 
    182 Public
    183     /*!
    184     @brief  復号して得られる文字列の長さを計算する。
    185     @param[in] s    対象文字列
    186     @param[in] n    sの長さ
    187     @return 復号して得られる文字列の長さ
    188     @date   2007/12/08
    189     */
    190     Function GetCharsCount(s As *Byte, n As Long) As Long
    191         If s = 0 Then
    192             Throw New ArgumentNullException("Encoding.GetCharsCount: An argument is null value.", "s")
    193         ElseIf n < 0 Then
    194             Throw New ArgumentOutOfRangeException("Encoding.GetCharsCount: An argument is out of range value.", "n")
    195         End If
    196         Return GetCharsCountCore(s, n)
    197     End Function
    198     /*!
    199     @brief  復号して得られる文字列の長さを計算する。
    200     @param[in] s    対象文字列
    201     @param[in] index    開始位置
    202     @param[in] count    符号化する文字の数
    203     @return 符号化して得られる文字列の長さ
    204     @date   2007/12/08
    205     */
    206     Function GetCharsCount(s As *Byte, index As Long, count As Long) As Long
    207         If s = 0 Then
    208             Throw New ArgumentNullException("Encoding.GetCharsCount: An argument is null value.", "s")
    209         ElseIf index < 0 Then
    210             Throw New ArgumentOutOfRangeException("Encoding.GetCharsCount: An argument is out of range value.", "index")
    211         ElseIf count < 0 Then
    212             Throw New ArgumentOutOfRangeException("Encoding.GetCharsCount: An argument is out of range value.", "count")
    213         End If
    214         Return GetCharsCountCore(VarPtr(s[index]), count)
    215     End Function
    216 Protected
    217     /*!
    218     @brief  GetCharsCountの処理を行う。
    219     @param[in] s    対象文字列
    220     @param[in] n    sの長さ
    221     @return 符号化して得られる文字列の長さ
    222     @date   2007/12/08
    223     */
    224     Abstract Function GetCharsCountCore(s As *Byte, n As Long) As Long
    225     /*!
    226     */
    227 Public
    228     /*!
    229     @brief  復号する。
    230     @param[in] bytes    入力
    231     @param[in] byteCount    charsの長さ
    232     @param[out] chars   出力
    233     @param[in] charCount    bytesのバッファの大きさ
    234     @return bytesに書き込まれたバイト数
    235     @date   2007/12/08
    236     */
    237     Function GetChars(bytes As *Byte, byteCount As Long, chars As *WCHAR, charCount As Long) As Long
    238         If chars = 0 Then
    239             Throw New ArgumentNullException("Encoding.GetChars: An argument is null value.", "chars")
    240         ElseIf bytes = 0 Then
    241             Throw New ArgumentNullException("Encoding.GetChars: An argument is null value.", "bytes")
    242         ElseIf charCount < 0 Then
    243             Throw New ArgumentOutOfRangeException("Encoding.GetChars: An argument is out of range value.", "charCount")
    244         ElseIf byteCount < 0 Then
    245             Throw New ArgumentOutOfRangeException("Encoding.GetChars: An argument is out of range value.", "byteCount")
    246         End If
    247 
    248         Return GetCharsCore(bytes, byteCount, chars, charCount)
    249     End Function
    250     /*!
    251     @brief  復号する。
    252     @param[in] bytes    入力
    253     @param[in] index    charsの開始位置
    254     @param[in] count    符号化する文字の数
    255     @param[out] chars   出力
    256     @param[in] charCount    bytesのバッファの大きさ
    257     @return bytesに書き込まれたバイト数
    258     @date   2007/12/08
    259     */
    260     Function GetChars(bytes As *Byte, index As Long, count As Long, chars As *WCHAR, charCount As Long) As Long
    261         If chars = 0 Then
    262             Throw New ArgumentNullException("Encoding.GetChars: An argument is null value.", "chars")
    263         ElseIf bytes = 0 Then
    264             Throw New ArgumentNullException("Encoding.GetChars: An argument is null value.", "bytes")
    265         ElseIf index < 0 Then
    266             Throw New ArgumentOutOfRangeException("Encoding.GetChars: An argument is out of range value.", "index")
    267         ElseIf count < 0 Then
    268             Throw New ArgumentOutOfRangeException("Encoding.GetChars: An argument is out of range value.", "count")
    269         ElseIf charCount < 0 Then
    270             Throw New ArgumentOutOfRangeException("Encoding.GetChars: An argument is out of range value.", "byteCount")
    271         End If
    272 
    273         Return GetCharsCore(VarPtr(bytes[index]), count, chars, charCount)
    274     End Function
    275 Protected
    276     /*!
    277     @brief  GetCharsの処理を行う。
    278     @param[in] bytes    入力
    279     @param[in] byteCount    charsの長さ
    280     @param[out] chars   出力
    281     @param[in] charCount    bytesのバッファの大きさ
    282     @return bytesに書き込まれたバイト数
    283     @exception ArgumentException    バッファの大きさが足りない
    284     @exception EncoderFallbackException フォールバックが発生した
    285     @date   2007/12/08
    286     */
    287     Abstract Function GetCharsCore(bytes As *Byte, byteCount As Long, chars As *WCHAR, charCount As Long) As Long
    288 Public
    289 #ifdef UNICODE
    290     /*!
    291     @brief  復号し、Stringで結果を返す。
    292     @param[in] bytes    入力
    293     @param[in] byteCount    charsの長さ
    294     @return 変換結果の文字列
    295     @date   2007/12/08
    296     */
    297     Function GetString(bytes As *Byte, byteCount As Long) As String
    298         If bytes = 0 Then
    299             Throw New ArgumentNullException("Encoding.GetString: An argument is null value.", "bytes")
    300         ElseIf byteCount < 0 Then
    301             Throw New ArgumentOutOfRangeException("Encoding.GetString: An argument is out of range value.", "byteCount")
    302         End If
    303         Return getStringCore(bytes, byteCount)
    304     End Function
    305     /*!
    306     @brief  復号し、Stringで結果を返す。
    307     @param[in] bytes    入力
    308     @param[in] index    charsの開始位置
    309     @param[in] count    符号化する文字の数
    310     @return 変換結果の文字列
    311     @date   2007/12/08
    312     */
    313     Function GetString(bytes As *Byte, index As Long, count As Long) As String
    314         If bytes = 0 Then
    315             Throw New ArgumentNullException("Encoding.GetString: An argument is null value.", "bytes")
    316         ElseIf index < 0 Then
    317             Throw New ArgumentOutOfRangeException("Encoding.GetString: An argument is out of range value.", "index")
    318         ElseIf count < 0 Then
    319             Throw New ArgumentOutOfRangeException("Encoding.GetString: An argument is out of range value.", "count")
    320         End If
    321         Return getStringCore(VarPtr(bytes[index]), count)
    322     End Function
    323 Private
    324 
    325     Function getStringCore(bytes As *Byte, byteCount As Long) As String
    326         Dim sb = New StringBuilder
    327         Dim bufSize = GetMaxCharCount(byteCount)
    328         sb.Length = bufSize
    329         Dim len = GetCharsCore(bytes, byteCount, StrPtr(sb), bufSize)
    330         sb.Length = len
    331         getStringCore = sb.ToString
    332     End Function
    333 #endif
    334213
    335214Public
    … …  
    347226    @brief  ある長さの文字列を符号化して得られるバイト列の最大の長さを返す。
    348227    */
    349     Abstract Function GetMaxByteCount(charCount As Long) As Long
     228    Abstract Function GetMaxByteCount(srcCount As Long) As Long
    350229
    351230    /*!
    352231    @brief  ある長さのバイト列を復号して得られる文字列の最大の長さを返す。
    353232    */
    354     Abstract Function GetMaxCharCount(charCount As Long) As Long
     233    Abstract Function GetMaxCharCount(srcCount As Long) As Long
    355234
    356235    /*!
    357236    @brief  符号化された文字列の先頭につける識別文字列の取得
    358     ようするにUTFのBOM
     237    ようするにUTFのBOM。
    359238    */
    360239    Virtual Function GetPreamble() As *Byte
    … …  
    369248    End Function
    370249
    371     /*!
    372     @brief  正規化されるかどうか。
    373     */
    374     Abstract Function IsAlwaysNormalized() As Boolean
    375 
    376     /*!
    377     @brief  指定された方式で正規化されるかどうか。
    378     */
    379     Abstract Function IsAlwaysNormalized(form As NormalizationForm) As Boolean
    380 
    381     Abstract Function BodyName() As String
    382     Abstract Function HeaderName() As String
     250'   Abstract Function BodyName() As String
     251'   Abstract Function HeaderName() As String
    383252
    384253    /*!
    … …  
    391260'   Abstract Function WindowsCodePage() As Long
    392261
    393     Function DecoderFallback() As DecoderFallback
    394         Return decoderFallback
    395     End Function
    396 
    397     Sub DecoderFallback(f As DecoderFallback)
    398         If ActiveBasic.IsNothing(f) Then
    399             Throw New ArgumentNullException("f")
    400         End If
    401         decoderFallback = f
    402     End Sub
    403 
    404     Function EncoderFallback() As EncoderFallback
    405         Return encoderFallback
    406     End Function
    407 
    408     Sub EncoderFallback(f As EncoderFallback)
    409         If ActiveBasic.IsNothing(f) Then
    410             Throw New ArgumentNullException("f")
    411         End If
    412         encoderFallback = f
    413     End Sub
    414 
    415 Private
    416     decoderFallback As DecoderFallback
    417     encoderFallback As EncoderFallback
    418262Public
    419263    /*!
    420264    @brief  この符号化形式の名前の取得。
    421265    */
    422     Abstract Function EncodingName() As String
     266'   Abstract Function EncodingName() As String
    423267
    424268    /*!
    425269    @brief  この符号化形式のIANA登録名の取得。
    426270    */
    427     Abstract Function WebName() As String
     271'   Abstract Function WebName() As String
    428272
    429273'   Abstract Function IsBrowserDisplay() As Boolean
    … …  
    432276'   Abstract Function IsMailNewsSave() As Boolean
    433277
    434 '   Abstract Function IsReadOnly() Boolean
    435 
    436278    /*!
    437279    @brief  この符号化形式が、1バイト文字だけを使う（複数バイト文字を使わない）かどうか。
    438280    */
    439     Abstract Function IsSingleByte() As Boolean
     281'   Abstract Function IsSingleByte() As Boolean
    440282
    441283    'GetPreamble
    … …  
    450292    @exception ArgumentNullException    srcEncoding, dstEncoding, bytesの少なくとも1つ以上がNothing/NULLのとき。
    451293    @exception ArgumentOutOfRangeException  sizeが明らかに範囲外（負の値など）のとき。
    452     @exception DecoderFallbackException
    453     @exception EncoderFallbackException
    454     */
    455     Static Function Convert(srcEncoding As Encoding, dstEncoding As Encoding, bytes As *Byte, size As Long) As *Byte
    456     End Function
     294    */
     295'   Static Function Convert(srcEncoding As Encoding, dstEncoding As Encoding, bytes As *Byte, size As Long) As *Byte
     296'   End Function
    457297   
    458     Static Function Convert(srcEncoding As Encoding, dstEncoding As Encoding, bytes As *Byte, index As Long, count As Long) As *Byte
    459     End Function
     298'   Static Function Convert(srcEncoding As Encoding, dstEncoding As Encoding, bytes As *Byte, index As Long, count As Long) As *Byte
     299'   End Function
    460300
    461301    /*!
    462302    @brief  指定したコードページ用のEncodingインスタンスの取得。
    463303    */
    464     Static Function GetEncoding(codepage As Long) As Encoding
    465     End Function
    466 '   Static Function GetEncoding(codepage As Long, encoderFallback As EncoderFallback, decoderFallback As DecoderFallback) As Encoding
     304'   Static Function GetEncoding(codepage As Long) As Encoding
    467305'   End Function
    468306    /*!
    469307    @brief  指定した符号化形式名用のEncodingインスタンスの取得。
    470308    */
    471     Static Function GetEncoding(name As String) As Encoding
    472     End Function
    473 '   Static Function GetEncoding(name As String, encoderFallback As EncoderFallback, decoderFallback As DecoderFallback) As Encoding
     309'   Static Function GetEncoding(name As String) As Encoding
    474310'   End Function
    475 
    476     /*!
    477     @brief  システム既定のANSIコードページ用のEncodingインスタンスの取得。
     311    /*!
     312    @brief  システムで標準のANSIコードページ用のEncodingインスタンスの取得。
    478313    */
    479314    Static Function Default() As Encoding
    480315    End Function
    481316    /*!
    482     @brief  UTF-7用のEncodingインスタンスの取得。
    483     */
    484     Static Function UTF7() As Encoding
    485     End Function
    486     /*!
    487317    @brief  UTF-8用のEncodingインスタンスの取得。
    488318    */
    … …  
    498328    */
    499329    Static Function UTF16BE() As Encoding
    500     End Function
    501     /*!
    502     @brief  UTF-32LE用のEncodingインスタンスの取得。
    503     */
    504     Static Function UTF32() As Encoding
    505330    End Function
    506331End Class
    … …  
    515340    /*!
    516341    @brief  変換する
    517     @param[in] bytes    入力
    518     @param[in] byteIndex 入力開始位置
    519     @param[in] byteCount 入力要素数
    520     @param[out] chars   出力
    521     @param[in] charIndex 出力開始位置
    522     @param[in] charCount 出力要素数
     342    @param[in] src  入力
     343    @param[in] srcCount 入力要素数
     344    @param[out] dst 出力
     345    @param[in] dstCount 出力要素数
    523346    @param[in] flush    終了後に内部状態を初期化するかどうか
    524     @param[out] charsUsed   使用された入力の要素数
    525     @param[out] bytesUsed   出力の内、実際に書き込まれた要素数
     347    @param[out] srcUsed 使用された入力の要素数
     348    @param[out] dstUsed 出力の内、実際に書き込まれた要素数
    526349    @param[out] completed   入力の全ての文字が変換に使われたかどうか
    527350    */
    528     Sub Convert(bytes As *Byte, byteIndex As Long, byteCount As Long,
    529         chars As *WCHAR, charIndex As Long, charCount As Long, flush As Boolean,
    530         ByRef bytesUsed As Long, ByRef charsUsed As Long, ByRef completed As Boolean)
    531 
    532         If bytes = 0 Then
    533             Throw New ArgumentNullException("bytes")
    534         ElseIf byteIndex < 0 Then
    535             Throw New ArgumentOutOfRangeException("byteIndex")
    536         ElseIf byteCount < 0 Then
    537             Throw New ArgumentOutOfRangeException("byteCount")
    538         ElseIf chars = 0 Then
    539             Throw New ArgumentNullException("chars")
    540         ElseIf charIndex < 0 Then
    541             Throw New ArgumentOutOfRangeException("charIndex")
    542         ElseIf charCount < 0 Then
    543             Throw New ArgumentOutOfRangeException("charCount")
    544         End If
    545         ConvertCore(VarPtr(bytes[byteIndex]), byteCount, VarPtr(chars[charIndex]), charCount, flush, bytesUsed, charsUsed, completed)
    546     End Sub
    547 
    548     /*!
    549     @overload Sub Convert(bytes As *Byte, byteIndex As Long, byteCount As Long,
    550         chars As *WCHAR, charIndex As Long, charCount As Long, flush As Boolean,
    551         ByRef bytesUsed As Long, ByRef charsUsed As Long, ByRef completed As Boolean)
    552     */
    553     Sub Convert(bytes As *Byte, byteCount As Long,
    554         chars As *WCHAR, charCount As Long, flush As Boolean,
    555         ByRef bytesUsed As Long, ByRef charsUsed As Long, ByRef completed As Boolean)
    556 
    557         If bytes = 0 Then
    558             Throw New ArgumentNullException("bytes")
    559         ElseIf byteCount < 0 Then
    560             Throw New ArgumentOutOfRangeException("byteCount")
    561         ElseIf chars = 0 Then
    562             Throw New ArgumentNullException("chars")
    563         ElseIf charCount < 0 Then
    564             Throw New ArgumentOutOfRangeException("charCount")
    565         End If
    566         ConvertCore(bytes, byteCount, chars, charCount, flush, bytesUsed, charsUsed, completed)
     351    Sub Convert(src As *Byte, srcCount As Long,
     352        dst As *WCHAR, dstCount As Long, flush As Boolean,
     353        ByRef srcUsed As Long, ByRef dstUsed As Long, ByRef completed As Boolean)
     354
     355        If src = 0 Then
     356            Throw New ArgumentNullException("src")
     357        ElseIf srcCount < 0 Then
     358            Throw New ArgumentOutOfRangeException("srcCount")
     359        ElseIf dst = 0 Then
     360            Throw New ArgumentNullException("dst")
     361        ElseIf dstCount < 0 Then
     362            Throw New ArgumentOutOfRangeException("dstCount")
     363        End If
     364        ConvertCore(src, srcCount, dst, dstCount, flush, srcUsed, dstUsed, completed)
    567365    End Sub
    568366
    569367    /*!
    570368    @brief  変換する
    571     @param[in] bytes    入力
    572     @param[in] byteIndex 入力開始位置
    573     @param[in] byteCount 入力要素数
    574     @param[out] chars   出力
    575     @param[in] charIndex 出力開始位置
    576     @param[in] charCount 出力要素数
     369    @param[in] src  入力
     370    @param[in] srcCount 入力要素数
     371    @param[out] dst 出力
     372    @param[in] dstCount 出力要素数
    577373    @param[in] flush    終了後に内部状態を初期化するかどうか
    578     @return 出力の内、実際に書き込まれた要素数
    579     */
    580     Function GetChars(bytes As *Byte, byteIndex As Long, byteCount As Long, chars As *WCHAR, charIndex As Long, charCount As Long, flush As Boolean) As Long
    581         Dim bytesUsed As Long
     374    @return 出力の内、実際に書き込まれた要素数
     375    */
     376    Function GetChars(src As *Byte, srcCount As Long, dst As *WCHAR, dstCount As Long, flush As Boolean) As Long
     377        Dim srcUsed As Long
    582378        Dim completed As Boolean
    583         Convert(bytes, byteIndex, byteCount, chars, charIndex, charCount, flush, bytesUsed, GetChars, completed)
    584     End Function
    585 
    586     /*!
    587     @overload Function GetChars(bytes As *Byte, byteIndex As Long, byteCount As Long, chars As *WCHAR, charIndex As Long, charCount As Long, flush As Boolean) As Long
    588     */
    589     Function GetChars(bytes As *Byte, byteCount As Long, chars As *WCHAR, charCount As Long, flush As Boolean) As Long
    590         Dim bytesUsed As Long
    591         Dim completed As Boolean
    592         Convert(bytes, byteCount, chars, charCount, flush, bytesUsed, GetChars, completed)
    593     End Function
    594 
    595     /*!
    596     @overload Function GetChars(bytes As *Byte, byteIndex As Long, byteCount As Long, chars As *WCHAR, charIndex As Long, charCount As Long, flush As Boolean) As Long
    597     */
    598     Function GetChars(bytes As *Byte, byteIndex As Long, byteCount As Long, chars As *WCHAR, charIndex As Long, charCount As Long) As Long
    599         GetChars = GetChars(bytes, byteIndex, byteCount, chars, charIndex, charCount, False)
    600     End Function
    601 
    602     /*!
    603     @brief  フォールバックの取得
    604     */
    605     Function Fallback() As DecoderFallback
    606         Return fallback
    607     End Function
    608 
    609     /*!
    610     @brief  フォールバックの設定
    611     */
    612     Sub Fallback(newFallback As DecoderFallback)
    613         If ActiveBasic.IsNothing(newFallback) Then
    614             Throw New ArgumentNullException("newFallback")
    615         End If
    616         fallback = newFallback
    617     End Sub
     379        Convert(src, srcCount, dst, dstCount, flush, srcUsed, GetChars, completed)
     380        If srcUsed < srcCount Then
     381            Throw New ArgumentException("src", "buffer is too small")
     382        End If
     383    End Function
     384
     385    /*!
     386    @brief  変換すると何文字になるか数える
     387    @param[in] src  入力
     388    @param[in] srcCount 入力要素数
     389    @param[in] flush    終了後に内部状態を初期化するとして計算するかどうか
     390    @return 必要な文字数
     391    */
     392    Function GetCharsCount(src As *Byte, srcCount As Long, flush As Boolean) As Long
     393        If src = 0 Then
     394            Throw New ArgumentNullException("src")
     395        ElseIf srcCount < 0 Then
     396            Throw New ArgumentOutOfRangeException("srcCount")
     397        End If
     398        GetCharsCountCore(src, srcCount, flush)
     399    End Function
     400
     401    /*!
     402    @brief  内部状態を初期状態に戻す
     403    */
     404    Virtual Sub Reset()
     405    End Sub
     406
    618407Protected
    619408    /*!
    620     @brief  実際に変換するメソッド
    621     @param[in] bytes    入力
    622     @param[in] byteCount 入力要素数
    623     @param[out] chars   出力
    624     @param[in] charCount 出力要素数
     409    @brief  実際に変換する
     410    @param[in] src  入力
     411    @param[in] srcCount 入力要素数
     412    @param[out] dst 出力
     413    @param[in] dstCount 出力要素数
    625414    @param[in] flush    終了後に内部状態を初期化するかどうか
    626     @param[out] charsUsed   使用された入力の要素数
    627     @param[out] bytesUsed   出力の内、実際に書き込まれた要素数
     415    @param[out] dstUsed 使用された入力の要素数
     416    @param[out] srcUsed 出力の内、実際に書き込まれた要素数
    628417    @param[out] completed   入力の全ての文字が変換に使われたかどうか
    629418    */
    630     Abstract Sub ConvertCore(bytes As *Byte, byteCount As Long, chars As *WCHAR, charCount As Long, flush As Boolean,
    631         ByRef bytesUsed As Long, ByRef charsUsed As Long, ByRef completed As Boolean)
    632 
    633 Private
    634     fallback As DecoderFallback
     419    Abstract Sub ConvertCore(src As *Byte, srcCount As Long, dst As *WCHAR, dstCount As Long, flush As Boolean,
     420        ByRef srcUsed As Long, ByRef dstUsed As Long, ByRef completed As Boolean)
     421
     422    /*!
     423    @brief  変換すると何文字になるか数える
     424    @param[in] src  入力
     425    @param[in] srcCount 入力要素数
     426    @param[in] flush    終了後に内部状態を初期化するとして計算するかどうか
     427    @return 必要な文字数
     428    */
     429    Abstract Function GetCharsCountCore(src As *Byte, srcCount As Long, flush As Boolean) As Long
    635430End Class
    636431
    … …  
    644439    /*!
    645440    @brief  変換する
    646     @param[in] chars    入力
    647     @param[in] charIndex 入力開始位置
    648     @param[in] charCount 入力要素数
    649     @param[out] bytes   出力
    650     @param[in] byteIndex 出力開始位置
    651     @param[in] byteCount 出力要素数
     441    @param[in] src  入力
     442    @param[in] srcCount 入力要素数
     443    @param[out] dst 出力
     444    @param[in] dstCount 出力要素数
    652445    @param[in] flush    終了後に内部状態を初期化するかどうか
    653     @param[out] charsUsed   使用された入力の要素数
    654     @param[out] bytesUsed   出力の内、実際に書き込まれた要素数
     446    @param[out] srcUsed 使用された入力の要素数
     447    @param[out] dstUsed 出力の内、実際に書き込まれた要素数
    655448    @param[out] completed   入力の全ての文字が変換に使われたかどうか
    656449    */
    657     Sub Convert(chars As *WCHAR, charIndex As Long, charCount As Long,
    658         bytes As *Byte, byteIndex As Long, byteCount As Long, flush As Boolean,
    659         ByRef charsUsed As Long, ByRef bytesUsed As Long, ByRef completed As Boolean)
    660 
    661         If chars = 0 Then
    662             Throw New ArgumentNullException("chars")
    663         ElseIf charIndex < 0 Then
    664             Throw New ArgumentOutOfRangeException("charIndex")
    665         ElseIf charCount < 0 Then
    666             Throw New ArgumentOutOfRangeException("charCount")
    667         ElseIf bytes = 0 Then
    668             Throw New ArgumentNullException("bytes")
    669         ElseIf byteIndex < 0 Then
    670             Throw New ArgumentOutOfRangeException("byteIndex")
    671         ElseIf byteCount < 0 Then
    672             Throw New ArgumentOutOfRangeException("byteCount")
    673         End If
    674         ConvertCore(VarPtr(chars[charIndex]), charCount, VarPtr(bytes[byteIndex]), byteCount, flush, charsUsed, bytesUsed, completed)
    675     End Sub
    676 
    677     /*!
    678     @overload Sub Convert(chars As *WCHAR, charIndex As Long, charCount As Long,
    679         bytes As *Byte, byteIndex As Long, byteCount As Long, flush As Boolean,
    680         ByRef charsUsed As Long, ByRef bytesUsed As Long, ByRef completed As Boolean)
    681     */
    682     Sub Convert(chars As *WCHAR, charCount As Long,
    683         bytes As *Byte, byteCount As Long, flush As Boolean,
    684         ByRef charsUsed As Long, ByRef bytesUsed As Long, ByRef completed As Boolean)
    685 
    686         If chars = 0 Then
    687             Throw New ArgumentNullException("chars")
    688         ElseIf charCount < 0 Then
    689             Throw New ArgumentOutOfRangeException("charCount")
    690         ElseIf bytes = 0 Then
    691             Throw New ArgumentNullException("bytes")
    692         ElseIf byteCount < 0 Then
    693             Throw New ArgumentOutOfRangeException("byteCount")
    694         End If
    695         ConvertCore(chars, charCount, bytes, byteCount, flush, charsUsed, bytesUsed, completed)
     450    Sub Convert(src As *WCHAR, srcCount As Long,
     451        dst As *Byte, dstCount As Long, flush As Boolean,
     452        ByRef srcUsed As Long, ByRef dstUsed As Long, ByRef completed As Boolean)
     453
     454        If src = 0 Then
     455            Throw New ArgumentNullException("src")
     456        ElseIf srcCount < 0 Then
     457            Throw New ArgumentOutOfRangeException("srcCount")
     458        ElseIf dst = 0 Then
     459            Throw New ArgumentNullException("dst")
     460        ElseIf dstCount < 0 Then
     461            Throw New ArgumentOutOfRangeException("dstCount")
     462        End If
     463        ConvertCore(src, srcCount, dst, dstCount, flush, srcUsed, dstUsed, completed)
    696464    End Sub
    697465
    698466    /*!
    699467    @brief  変換する
    700     @param[in] chars    入力
    701     @param[in] charIndex 入力開始位置
    702     @param[in] charCount 入力要素数
    703     @param[out] bytes   出力
    704     @param[in] byteIndex 出力開始位置
    705     @param[in] byteCount 出力要素数
     468    @param[in] src  入力
     469    @param[in] srcCount 入力要素数
     470    @param[out] dst 出力
     471    @param[in] dstCount 出力要素数
    706472    @param[in] flush    終了後に内部状態を初期化するかどうか
    707     @return bytesUsed   出力の内、実際に書き込まれた要素数
    708     */
    709     Function GetBytes(chars As *WCHAR, charIndex As Long, charCount As Long, bytes As *Byte, byteIndex As Long, byteCount As Long, flush As Boolean) As Long
    710         Dim charsUsed As Long
     473    @return 出力の内、実際に書き込まれた要素数
     474    */
     475    Function GetBytes(src As *WCHAR, srcCount As Long, dst As *Byte, dstCount As Long, flush As Boolean) As Long
     476        Dim srcUsed As Long
    711477        Dim completed As Boolean
    712         Convert(chars, charIndex, charCount, bytes, byteIndex, byteCount, flush, charsUsed, GetBytes, completed)
    713     End Function
    714 
    715     /*!
    716     @overload Function GetBytes(chars As *WCHAR, charIndex As Long, charCount As Long, bytes As *Byte, byteIndex As Long, byteCount As Long, flush As Boolean) As Long
    717     */
    718     Function GetBytes(chars As *WCHAR, charCount As Long, bytes As *Byte, byteCount As Long, flush As Boolean) As Long
    719         Dim charsUsed As Long
    720         Dim completed As Boolean
    721         Convert(chars, charCount, bytes, byteCount, flush, charsUsed, GetBytes, completed)
    722     End Function
    723 
    724     /*!
    725     @overload Function GetBytes(chars As *WCHAR, charIndex As Long, charCount As Long, bytes As *Byte, byteIndex As Long, byteCount As Long, flush As Boolean) As Long
    726     */
    727     Function GetBytes(chars As *WCHAR, charIndex As Long, charCount As Long, bytes As *Byte, byteIndex As Long, byteCount As Long) As Long
    728         GetBytes = GetBytes(chars, charIndex, charCount, bytes, byteIndex, byteCount, False)
    729     End Function
    730 
    731     /*!
    732     @brief  フォールバックの取得
    733     */
    734     Function Fallback() As EncoderFallback
    735         Return fallback
    736     End Function
    737 
    738     /*!
    739     @brief  フォールバックの設定
    740     */
    741     Sub Fallback(newFallback As EncoderFallback)
    742         If ActiveBasic.IsNothing(newFallback) Then
    743             Throw New ArgumentNullException("newFallback")
    744         End If
    745         fallback = newFallback
    746     End Sub
     478        Convert(src, srcCount, dst, dstCount, flush, srcUsed, GetBytes, completed)
     479        If srcUsed < srcCount Then
     480            Throw New ArgumentException("src", "buffer is too small")
     481        End If
     482    End Function
     483
     484    /*!
     485    @brief  変換すると何文字になるか数える
     486    @param[in] src  入力
     487    @param[in] srcCount 入力要素数
     488    @param[in] flush    終了後に内部状態を初期化するとして計算するかどうか
     489    @return 必要な文字数
     490    */
     491    Function GetBytesCount(src As *WCHAR, srcCount As Long, flush As Boolean) As Long
     492        If src = 0 Then
     493            Throw New ArgumentNullException("src")
     494        ElseIf srcCount < 0 Then
     495            Throw New ArgumentOutOfRangeException("srcCount")
     496        End If
     497        GetBytesCountCore(src, srcCount, flush)
     498    End Function
     499
     500    /*!
     501    @brief  内部状態を初期状態に戻す
     502    */
     503    Virtual Sub Reset()
     504    End Sub
     505
    747506Protected
    748507    /*!
    749     @brief  実際に変換するメソッド
    750     @param[in] chars    入力
    751     @param[in] charCount 入力要素数
    752     @param[out] bytes   出力
    753     @param[in] byteCount 出力要素数
     508    @brief  実際に変換する
     509    @param[in] src  入力
     510    @param[in] srcCount 入力要素数
     511    @param[out] dst 出力
     512    @param[in] dstCount 出力要素数
    754513    @param[in] flush    終了後に内部状態を初期化するかどうか
    755     @param[out] bytesUsed   使用された入力の要素数
    756     @param[out] charsUsed   出力の内、実際に書き込まれた要素数
     514    @param[out] dstUsed 使用された入力の要素数
     515    @param[out] srcUsed 出力の内、実際に書き込まれた要素数
    757516    @param[out] completed   入力の全ての文字が変換に使われたかどうか
    758517    */
    759     Abstract Sub ConvertCore(chars As *WCHAR, charCount As Long, bytes As *Byte, byteCount As Long, flush As Boolean,
    760         ByRef bytesUsed As Long, ByRef charsUsed As Long, ByRef completed As Boolean)
    761 
    762 Private
    763     fallback As EncoderFallback
     518    Abstract Sub ConvertCore(src As *WCHAR, srcCount As Long, dst As *Byte, dstCount As Long, flush As Boolean,
     519        ByRef dstUsed As Long, ByRef srcUsed As Long, ByRef completed As Boolean)
     520
     521    /*!
     522    @brief  変換すると何文字になるか数える
     523    @param[in] src  入力
     524    @param[in] srcCount 入力要素数
     525    @param[in] flush    終了後に内部状態を初期化するとして計算するかどうか
     526    @return 必要な文字数
     527    */
     528    Abstract Function GetBytesCountCore(src As *WCHAR, srcCount As Long, flush As Boolean) As Long
    764529End Class
    765530
    … …  
    771536End Enum
    772537
    773 Class EncoderFallback
     538Namespace Detail
     539
     540/*!
     541@brief WideCharToMultiByte/MultiByteToWideCharで変換を行うエンコーディング。
     542DBCS/SBCS限定。UTF-8やUTF-7は非対応。
     543*/
     544Class WindowsCodePageEncoding
     545    Inherits Encoding
     546Public
     547    Sub WindowsCodePageEncoding(codepage As DWord)
     548        cp = codepage
     549    End Sub
     550
     551    /*!
     552    @brief  符号器を取得する。
     553    */
     554    Override Function GetDecoder() As Decoder
     555        GetDecoder = New WindowsCodePageDecoder(cp)
     556    End Function
     557
     558    /*!
     559    @brief  復号器を取得する。
     560    */
     561    Override Function GetEncoder() As Encoder
     562        GetEncoder = New WindowsCodePageEncoder(cp)
     563    End Function
     564
     565    Override Function GetHashCode() As Long
     566        GetHashCode = cp As Long
     567    End Function
     568
     569    Override Function Equals(x As Object) As Boolean
     570        If GetType().Equals(x.GetType()) Then
     571            Dim xe = x As WindowsCodePageEncoding
     572            Equals = cp = xe.cp
     573        Else
     574            Equals = False
     575        End If
     576    End Function
     577
     578    /*!
     579    @brief  ある長さの文字列を符号化して得られるバイト列の最大の長さを返す。
     580    */
     581    Override Function GetMaxByteCount(srcCount As Long) As Long
     582        GetMaxByteCount = srcCount * 2
     583    End Function
     584
     585    /*!
     586    @brief  ある長さのバイト列を復号して得られる文字列の最大の長さを返す。
     587    */
     588    Override Function GetMaxCharCount(srcCount As Long) As Long
     589        GetMaxCharCount = srcCount
     590    End Function
     591
     592Private
     593    cp As DWord
    774594End Class
     595
     596Class WindowsCodePageEncoder
     597    Inherits Encoder
     598Public
     599    Sub WindowsCodePageEncoder(codepage As DWord)
     600        cp = codepage
     601    End Sub
     602
     603    Override Sub Reset()
     604        nextByte = 0
     605    End Sub
     606
     607Protected
     608    Override Sub ConvertCore(src As *WCHAR, srcCount As Long, dst As *Byte, dstCount As Long, flush As Boolean,
     609        ByRef srcUsed As Long, ByRef dstUsed As Long, ByRef completed As Boolean)
     610
     611        Dim srcPos = 0 As Long
     612        Dim dstPos = 0 As Long
     613        If dstCount > 0 And nextByte <> 0 Then
     614            dst[0] = nextByte
     615            nextByte = 0
     616            dstPos++
     617        End If
     618        While srcPos < srcCount And dstPos < srcCount
     619            Dim buf[1] As CHAR
     620            Dim len = WideCharToMultiByte(cp, WC_COMPOSITECHECK Or WC_DEFAULTCHAR, VarPtr(src[srcPos]), 1, buf, Len(buf), 0, 0)
     621            If len = 0 Then
     622                ActiveBasic.Windows.ThrowWithLastError()
     623            End If
     624            dst[dstPos] = buf[0] As Byte
     625            If len = 2 Then
     626                If dstCount = 1 Then
     627                    nextByte = buf[1] As Byte
     628                    Exit While
     629                End If
     630                dstPos++
     631                dst[dstPos] = buf[1] As Byte
     632                nextByte = 0
     633            End If
     634            srcPos++
     635            dstPos++
     636        Wend
     637        srcUsed = srcPos
     638        dstUsed = dstPos
     639        completed = (srcPos = srcCount And dstPos = srcCount And nextByte = 0)
     640    End Sub
     641
     642    Override Function GetBytesCountCore(src As *WCHAR, srcCount As Long, flush As Boolean) As Long
     643    End Function
     644
     645Private
     646    cp As DWord
     647    nextByte As Byte
     648End Class
     649
     650Class WindowsCodePageDecoder
     651    Inherits Decoder
     652Public
     653    Sub WindowsCodePageDecoder(codepage As DWord)
     654        cp = codepage
     655    End Sub
     656
     657Protected
     658    Override Sub ConvertCore(src As *Byte, srcCount As Long, dst As *WCHAR, dstCount As Long, flush As Boolean,
     659        ByRef srcUsed As Long, ByRef dstUsed As Long, ByRef completed As Boolean)
     660    End Sub
     661
     662    Override Function GetCharsCountCore(src As *Byte, srcCount As Long, flush As Boolean) As Long
     663    End Function
     664
     665Private
     666    cp As DWord
     667End Class
     668
     669End Namespace
    775670
    776671End Namespace 'Text
Note: See TracChangeset for help on using the changeset viewer.