79 lines
1.5 KiB
C
79 lines
1.5 KiB
C
/* Contributed by Jiro SEKIBA <jir@yamato.ibm.com>. */
|
|
#include <errno.h>
|
|
#include <iconv.h>
|
|
#include <stdbool.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <string.h>
|
|
|
|
#define UCS_STR "\x4e\x8c" /* EUC-TW 0xa2a2, EUC-JP 0x */
|
|
|
|
static const char *to_code;
|
|
|
|
static bool
|
|
xiconv (iconv_t cd, int out_size)
|
|
{
|
|
unsigned char euc[4];
|
|
char *inp = (char *) UCS_STR;
|
|
char *outp = euc;
|
|
size_t inbytesleft = strlen (UCS_STR);
|
|
size_t outbytesleft = out_size;
|
|
size_t ret;
|
|
bool fail = false;
|
|
|
|
errno = 0;
|
|
ret = iconv (cd, &inp, &inbytesleft, &outp, &outbytesleft);
|
|
if (errno || ret == (size_t) -1)
|
|
{
|
|
fail = out_size == 4 || errno != E2BIG;
|
|
printf ("expected %d (E2BIG), got %d (%m)\n", E2BIG, errno);
|
|
}
|
|
else
|
|
{
|
|
printf ("%s: 0x%02x%02x\n", to_code, euc[0], euc[1]);
|
|
if (out_size == 1)
|
|
fail = true;
|
|
}
|
|
|
|
return fail;
|
|
}
|
|
|
|
|
|
static iconv_t
|
|
xiconv_open (const char *code)
|
|
{
|
|
iconv_t cd;
|
|
to_code = code;
|
|
errno = 0;
|
|
if (errno || (cd = iconv_open (to_code, "UCS-2BE")) == (iconv_t) -1)
|
|
{
|
|
puts ("Can't open converter");
|
|
exit (1);
|
|
}
|
|
return cd;
|
|
}
|
|
|
|
|
|
int
|
|
main (void)
|
|
{
|
|
iconv_t cd;
|
|
int result = 0;
|
|
|
|
cd = xiconv_open ("EUC-TW");
|
|
result |= xiconv (cd, 4) == true;
|
|
puts ("---");
|
|
result |= xiconv (cd, 1) == true;
|
|
puts ("---");
|
|
iconv_close (cd);
|
|
|
|
cd = xiconv_open ("EUC-JP");
|
|
result |= xiconv (cd, 4) == true;
|
|
puts ("---");
|
|
result |= xiconv (cd, 1) == true;
|
|
puts ("---");
|
|
iconv_close (cd);
|
|
|
|
return result;
|
|
}
|