/*
 * Copyright (c) 1994  Sony Corporation
 *
 * Permission is hereby granted, free of charge, to any person obtaining
 * a copy of this software and associated documentation files (the
 * "Software"), to deal in the Software without restriction, including
 * without limitation the rights to use, copy, modify, merge, publish,
 * distribute, sublicense, and/or sell copies of the Software, and to
 * permit persons to whom the Software is furnished to do so, subject to
 * the following conditions:
 *
 * The above copyright notice and this permission notice shall be
 * included in all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.
 * IN NO EVENT SHALL SONY CORPORATION BE LIABLE FOR ANY CLAIM,
 * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR
 * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR
 * THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 *
 * Except as contained in this notice, the name of Sony Corporation
 * shall not be used in advertising or otherwise to promote the sale, use
 * or other dealings in this Software without prior written authorization
 * from Sony Corporation.
 *
 */


#include <stdio.h>
#include <locale.h>
#include "wchar16.h"

#include "sj4rkcv.h"

#define MSB 0x80

#ifndef TRUE
#define TRUE (1)
#define FALSE (0)
#endif

#define sjis2euc sj4_sjis2euc
#define euc2sjis sj4_euc2sjis

#define issjis1(c) (((0x81 <= (c)) && ((c) <= 0x9f)) || \
		    ((0xe0 <= (c)) && ((c) <= 0xfc)))
#define iseuc(c) ((0xa1 <= (c)) && ((c) <= 0xfe))
#define iskana(c) ((0xa1 <= (c)) && ((c) <= 0xdf))

extern int current_locale;

int sj4_iswcntrl16(wchar16_t wc) {
	if((wc < 0x20) || (wc == 0x7f)) return TRUE;

	return FALSE;
}

int sj4_iswupper16(wchar16_t wc) {
	if(((0x40 < wc) && (wc < 0x5b)) ||
	   ((0xa3c0 < wc) && (wc < 0xa3db))) return TRUE;

	return FALSE;
}

int sj4_iswdigit16(wchar16_t wc) {
	if(((0x29 < wc) && (wc < 0x3a)) ||
	   ((0xa3af < wc) && (wc < 0xa3ba))) return TRUE;

	return FALSE;
}

int sj4_iswxdigit16(wchar16_t wc) {
	if(((0x29 < wc) && (wc < 0x3a)) ||
	   ((0xa3af < wc) && (wc < 0xa3ba))) return TRUE;

	if(((0x60 < wc) && (wc < 0x67)) ||
	   ((0x40 < wc) && (wc < 0x47))) return TRUE;

	if(((0xa3c0 < wc) && (wc < 0xa3c7)) ||
	   ((0xa3e0 < wc) && (wc < 0xa3e6))) return TRUE;

	return FALSE;
}

int sj4_wslen16(wchar16_t* ws) {
	int i = 0;

	if(!ws) return 0;

	while(*ws++) i++;
	return i;
}

int sj4_wscmp16(wchar16_t* ws1, wchar16_t* ws2) {
	while((*ws1 && *ws2) && (*ws1 == *ws2)) {
		ws1++;
		ws2++;
	}
	if(!*ws1 && !*ws2) return 0;
	if(!*ws1) return -1;
	if(!*ws2) return 1;
	if(*ws1 < *ws2) return -1;
	return 1;
}

int sj4_wsncmp16(wchar16_t* ws1, wchar16_t* ws2, int n) {
	int i = 0;

	while((*ws1 && *ws2) && (*ws1 == *ws2) && (i < n)) {
		ws1++;
		ws2++;
		i++;
	}
	if(!*ws1 && !*ws2) return 0;
	if(i == n) return 0;
	if(!*ws1) return -1;
	if(!*ws2) return 1;
	if(*ws1 < *ws2) return -1;
	return 1;
}

wchar16_t*
sj4_wscpy16(wchar16_t* ws1, wchar16_t* ws2) {
	wchar16_t* ws;

	if(!ws2) return NULL;
	ws = ws1;
	while(*ws2) {
		*ws++ = *ws2++;
	}
	*ws = 0;

	return ws1;
}

wchar16_t*
sj4_wsncpy16(wchar16_t* ws1, wchar16_t* ws2, int n) {
	wchar16_t* ws;
	int	   i = 0;

	if(!ws2) return NULL;
	ws = ws1;
	while(*ws2 && (i < n)) {
		*ws++ = *ws2++;
		i++;
	}
	if(i < n) *ws = 0;

	return ws1;
}

wchar16_t*
sj4_wscat16(wchar16_t* ws1, wchar16_t* ws2) {
	wchar16_t* ws;

	if(!ws1) return NULL;
	if(!ws2) return NULL;

	ws = ws1;

	while(*ws) ws++;
	while(*ws2) {
		*ws++ = *ws2++;
	}
	*ws = 0;

	return ws1;
}

wchar16_t
sj4_euc2wc16(unsigned int code) {
	wchar16_t wc = 0;

	if(((code >> 16) & 0xff) == SS3) {
		wc = code & 0xff7f;
	} else if(((code >> 8) & 0xff) == SS2) {
		wc = code & 0xff;
	} else {
		wc = code;
	}

	return wc;
}

wchar16_t
sj4_sjis2wc16(unsigned int code) {
	unsigned short ch;

	if((code >> 8) & 0xff) {
		ch = sjis2euc(code);
	} else if(code & MSB) {
		ch = (SS2 << 8) + (code & 0xff);
	} else {
		return code;
	}
	return (sj4_euc2wc16(ch));
}

unsigned int
sj4_wc2euc16(wchar16_t wc) {
	unsigned int  code = 0;
	unsigned char tmp;

	tmp = (wc >> 8) & 0xff;
	if(tmp) {
		if(wc & MSB) {
			code = wc;
		} else {
			code = (SS3 << 16) + wc + MSB;
		}
	} else {
		if(wc & MSB) {
			code = (SS2 << 8) + wc;
		} else {
			code = wc;
		}
	}

	return code;
}

unsigned int
sj4_wc2sjis16(wchar16_t wc) {
	unsigned int ch;

	ch = sj4_wc2euc16(wc);
	if((ch >> 16) == SS3) {
		return 0;
	} else if((ch >> 8) == SS2) {
		return (ch & 0xff);
	} else if((ch >> 8) & 0xff) {
		return euc2sjis(ch);
	} else {
		return wc;
	}
}

int sj4_wcs2eucs16(unsigned char* mb, wchar16_t* ws, int n) {
	int	      i = 0;
	unsigned int  code;
	unsigned char c;

	while(*ws && (i < n)) {
		code = sj4_wc2euc16(*ws);
		if(c = ((code >> 16) & 0xff)) {
			*mb++ = c;
			i++;
			if(i == n) break;
			*mb++ = ((code >> 8) & 0xff);
			i++;
			if(i == n) break;
			*mb++ = code & 0xff;
			i++;
			if(i == n) break;
		} else if(c = ((code >> 8) & 0xff)) {
			*mb++ = c;
			i++;
			if(i == n) break;
			*mb++ = code & 0xff;
			i++;
			if(i == n) break;
		} else if(c = (code & 0xff)) {
			*mb++ = c;
			i++;
		} else {
			return -1;
		}
		ws++;
	}

	if(!*ws) {
		*mb = '\0';
	}

	return i;
}

int sj4_wcs2sjiss16(unsigned char* mb, wchar16_t* ws, int n) {
	int	      i = 0;
	unsigned int  code;
	unsigned char c;

	while(*ws && (i < n)) {
		code = sj4_wc2sjis16(*ws);
		if(c = ((code >> 8) & 0xff)) {
			*mb++ = c;
			i++;
			if(i == n) break;
			*mb++ = code & 0xff;
			i++;
			if(i == n) break;
		} else if(c = (code & 0xff)) {
			*mb++ = c;
			i++;
		} else {
			return -1;
		}
		ws++;
	}

	if(!*ws) {
		*mb = '\0';
	}

	return i;
}

int sj4_eucs2wcs16(wchar16_t* ws, unsigned char* mb, int n) {
	int	     i = 0;
	unsigned int code;

	while(*mb && (i < n)) {
		if(*mb == SS3) {
			code = *mb++ << 16;
			code += *mb++ << 8;
			code += *mb++;
		} else if((*mb == SS2) || (*mb & 0x80)) {
			code = *mb++ << 8;
			code += *mb++;
		} else {
			code = *mb++;
		}
		*ws = sj4_euc2wc16(code);
		if(!*ws) return -1;
		ws++;
		i++;
	}
	if(!*mb) {
		*ws = 0;
	}

	return i;
}

int sj4_sjiss2wcs16(wchar16_t* ws, unsigned char* mb, int n) {
	int	     i = 0;
	unsigned int code;

	while(*mb && (i < n)) {
		if(issjis1(*mb)) {
			code = *mb++ << 8;
			code += *mb++;
		} else {
			code = *mb++;
		}
		*ws = sj4_sjis2wc16(code);
		if(!*ws) return -1;
		ws++;
		i++;
	}
	if(!*mb) {
		*ws = 0;
	}

	return i;
}

int sj4_mbstowcs16(wchar16_t* ws, unsigned char* mb, int n) {
	if(current_locale == LC_CTYPE_EUC)
		return sj4_eucs2wcs16(ws, mb, n);
	else
		return sj4_sjiss2wcs16(ws, mb, n);
}

int sj4_wcstombs16(unsigned char* mb, wchar16_t* ws, int n) {
	if(current_locale == LC_CTYPE_EUC)
		return sj4_wcs2eucs16(mb, ws, n);
	else
		return sj4_wcs2sjiss16(mb, ws, n);
}