mirror of
https://github.com/FirebirdSQL/firebird.git
synced 2025-01-30 20:03:03 +01:00
129 lines
3.5 KiB
C++
129 lines
3.5 KiB
C++
/*
|
|
* PROGRAM: InterBase International support
|
|
* MODULE: lc_big5.cpp
|
|
* DESCRIPTION: Language Drivers in the BIG5 family.
|
|
*
|
|
* The contents of this file are subject to the Interbase Public
|
|
* License Version 1.0 (the "License"); you may not use this file
|
|
* except in compliance with the License. You may obtain a copy
|
|
* of the License at http://www.Inprise.com/IPL.html
|
|
*
|
|
* Software distributed under the License is distributed on an
|
|
* "AS IS" basis, WITHOUT WARRANTY OF ANY KIND, either express
|
|
* or implied. See the License for the specific language governing
|
|
* rights and limitations under the License.
|
|
*
|
|
* The Original Code was created by Inprise Corporation
|
|
* and its predecessors. Portions created by Inprise Corporation are
|
|
* Copyright (C) Inprise Corporation.
|
|
*
|
|
* All Rights Reserved.
|
|
* Contributor(s): ______________________________________.
|
|
*/
|
|
|
|
#include "firebird.h"
|
|
#include "../intl/ldcommon.h"
|
|
#include "lc_ascii.h"
|
|
#include "cv_big5.h"
|
|
#include "lc_big5.h"
|
|
#include "ld_proto.h"
|
|
|
|
static inline bool FAMILY_MULTIBYTE(TEXTTYPE cache,
|
|
SSHORT country,
|
|
const ASCII* POSIX,
|
|
USHORT attributes,
|
|
const UCHAR* specific_attributes,
|
|
ULONG specific_attributes_length)
|
|
//#define FAMILY_MULTIBYTE(id_number, name, charset, country)
|
|
{
|
|
if ((attributes & ~TEXTTYPE_ATTR_PAD_SPACE) || specific_attributes_length)
|
|
return false;
|
|
|
|
cache->texttype_version = TEXTTYPE_VERSION_1;
|
|
cache->texttype_name = POSIX;
|
|
cache->texttype_country = country;
|
|
cache->texttype_pad_option = (attributes & TEXTTYPE_ATTR_PAD_SPACE) ? true : false;
|
|
cache->texttype_fn_key_length = famasc_key_length;
|
|
cache->texttype_fn_string_to_key= famasc_string_to_key;
|
|
cache->texttype_fn_compare = famasc_compare;
|
|
//cache->texttype_fn_str_to_upper = big5_str_to_upper;
|
|
//cache->texttype_fn_str_to_lower = big5_str_to_lower;
|
|
|
|
return true;
|
|
}
|
|
|
|
|
|
|
|
TEXTTYPE_ENTRY(BIG5_init)
|
|
{
|
|
static const ASCII POSIX[] = "C.BIG5";
|
|
|
|
return FAMILY_MULTIBYTE(cache, CC_C, POSIX, attributes, specific_attributes, specific_attributes_length);
|
|
}
|
|
|
|
|
|
/*
|
|
* Returns INTL_BAD_STR_LENGTH if output buffer was too small
|
|
*/
|
|
/*
|
|
* Note: This function expects Multibyte input
|
|
*/
|
|
static ULONG big5_str_to_upper(TEXTTYPE obj, ULONG iLen, const BYTE* pStr, ULONG iOutLen, BYTE *pOutStr)
|
|
{
|
|
bool waiting_for_big52 = false;
|
|
|
|
fb_assert(pStr != NULL);
|
|
fb_assert(pOutStr != NULL);
|
|
fb_assert(iOutLen >= iLen);
|
|
const BYTE* const p = pOutStr;
|
|
while (iLen && iOutLen) {
|
|
BYTE c = *pStr++;
|
|
if (waiting_for_big52 || BIG51(c)) {
|
|
waiting_for_big52 = !waiting_for_big52;
|
|
}
|
|
else {
|
|
if (c >= ASCII_LOWER_A && c <= ASCII_LOWER_Z)
|
|
c = (c - ASCII_LOWER_A + ASCII_UPPER_A);
|
|
}
|
|
*pOutStr++ = c;
|
|
iLen--;
|
|
iOutLen--;
|
|
}
|
|
if (iLen != 0)
|
|
return (INTL_BAD_STR_LENGTH); /* Must have ran out of output space */
|
|
return (pOutStr - p);
|
|
}
|
|
|
|
|
|
/*
|
|
* Returns INTL_BAD_STR_LENGTH if output buffer was too small
|
|
*/
|
|
/*
|
|
* Note: This function expects Multibyte input
|
|
*/
|
|
static ULONG big5_str_to_lower(TEXTTYPE obj, ULONG iLen, const BYTE* pStr, ULONG iOutLen, BYTE *pOutStr)
|
|
{
|
|
bool waiting_for_big52 = false;
|
|
|
|
fb_assert(pStr != NULL);
|
|
fb_assert(pOutStr != NULL);
|
|
fb_assert(iOutLen >= iLen);
|
|
const BYTE* const p = pOutStr;
|
|
while (iLen && iOutLen) {
|
|
BYTE c = *pStr++;
|
|
if (waiting_for_big52 || BIG51(c)) {
|
|
waiting_for_big52 = !waiting_for_big52;
|
|
}
|
|
else {
|
|
if (c >= ASCII_UPPER_A && c <= ASCII_UPPER_Z)
|
|
c = (c - ASCII_UPPER_A + ASCII_LOWER_A);
|
|
}
|
|
*pOutStr++ = c;
|
|
iLen--;
|
|
iOutLen--;
|
|
}
|
|
if (iLen != 0)
|
|
return (INTL_BAD_STR_LENGTH); /* Must have ran out of output space */
|
|
return (pOutStr - p);
|
|
}
|