comparison src/charset.c @ 21514:fa9ff387d260

Fix -Wimplicit warnings.

21513:984881b316fc

   character is set to the address ACTUAL_LEN.

   Use macro `STRING_CHAR (STR, LEN)' instead of calling this function
   directly if STR can hold an ASCII character.  */

string_to_non_ascii_char (str, len, actual_len)
     const unsigned char *str;
     int len, *actual_len;
{
  int charset;

   a character.  If valid, charset and position codes of the character
   is set at *CHARSET, *C1, and *C2, and return 0.  If not valid,
   return -1.  This should be used only in the macro SPLIT_STRING
   which checks range of STR in advance.  */

split_non_ascii_string (str, len, charset, c1, c2)
     register const unsigned char *str;
     register unsigned char *c1, *c2;
     register int len, *charset;
{

}

/* Return a character unified with C (or a character made of CHARSET,
   C1, and C2) in unification table TABLE.  If no unification is found
   in TABLE, return C.  */
unify_char (table, c, charset, c1, c2)
     Lisp_Object table;
     int c, charset, c1, c2;
{
  Lisp_Object ch;

/* Convert the unibyte character C to multibyte based on
   Vnonascii_translate_table or nonascii_insert_offset.  If they can't
   convert C to a valid multibyte character, convert it based on
   DEFAULT_NONASCII_INSERT_OFFSET which makes C a Latin-1 character.  */

unibyte_char_to_multibyte (c)
     int c;
{
  if (c >= 0240 && c < 0400)
    {

  return make_string_from_bytes (buf, 1, i);
}


charset_id_internal (charset_name)
     char *charset_name;
{
  Lisp_Object val = Fget (intern (charset_name), Qcharset);

  charset_big5_1 = charset_id_internal ("chinese-big5-1");
  charset_big5_2 = charset_id_internal ("chinese-big5-2");
  return Qnil;
}

init_charset_once ()
{
  int i, j, k;

  staticpro (&Vcharset_table);

  WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_22) = 2;
}

#ifdef emacs

syms_of_charset ()
{
  Qascii = intern ("ascii");
  staticpro (&Qascii);

21514:fa9ff387d260

   character is set to the address ACTUAL_LEN.

   Use macro `STRING_CHAR (STR, LEN)' instead of calling this function
   directly if STR can hold an ASCII character.  */

int
string_to_non_ascii_char (str, len, actual_len)
     const unsigned char *str;
     int len, *actual_len;
{
  int charset;

   a character.  If valid, charset and position codes of the character
   is set at *CHARSET, *C1, and *C2, and return 0.  If not valid,
   return -1.  This should be used only in the macro SPLIT_STRING
   which checks range of STR in advance.  */

int
split_non_ascii_string (str, len, charset, c1, c2)
     register const unsigned char *str;
     register unsigned char *c1, *c2;
     register int len, *charset;
{

}

/* Return a character unified with C (or a character made of CHARSET,
   C1, and C2) in unification table TABLE.  If no unification is found
   in TABLE, return C.  */
int
unify_char (table, c, charset, c1, c2)
     Lisp_Object table;
     int c, charset, c1, c2;
{
  Lisp_Object ch;

/* Convert the unibyte character C to multibyte based on
   Vnonascii_translate_table or nonascii_insert_offset.  If they can't
   convert C to a valid multibyte character, convert it based on
   DEFAULT_NONASCII_INSERT_OFFSET which makes C a Latin-1 character.  */

int
unibyte_char_to_multibyte (c)
     int c;
{
  if (c >= 0240 && c < 0400)
    {

  return make_string_from_bytes (buf, 1, i);
}


int
charset_id_internal (charset_name)
     char *charset_name;
{
  Lisp_Object val = Fget (intern (charset_name), Qcharset);

  charset_big5_1 = charset_id_internal ("chinese-big5-1");
  charset_big5_2 = charset_id_internal ("chinese-big5-2");
  return Qnil;
}

void
init_charset_once ()
{
  int i, j, k;

  staticpro (&Vcharset_table);

  WIDTH_BY_CHAR_HEAD (LEADING_CODE_PRIVATE_22) = 2;
}

#ifdef emacs

void
syms_of_charset ()
{
  Qascii = intern ("ascii");
  staticpro (&Qascii);