/* mpg123 note: This is BSD-licensed code that is no problem for mpg123 usage under LGPL.
   It's Free, understood? ;-) */

/* Another note: This code is basically written by Thorsten Glaser,
   Thomas Orgis did just some rearrangements and comments. */

/*-
 * Copyright (c) 2008
 *	Thorsten Glaser <tg@mirbsd.org>
 *
 * Provided that these terms and disclaimer and all copyright notices
 * are retained or reproduced in an accompanying document, permission
 * is granted to deal in this work without restriction, including un-
 * limited rights to use, publicly perform, distribute, sell, modify,
 * merge, give away, or sublicence.
 *
 * This work is provided "AS IS" and WITHOUT WARRANTY of any kind, to
 * the utmost extent permitted by applicable law, neither express nor
 * implied; without malicious intent or gross negligence. In no event
 * may a licensor, author or contributor be held liable for indirect,
 * direct, other damage, loss, or other issues arising in any way out
 * of dealing in the work, even if advised of the possibility of such
 * damage or existence of a defect, except proven that it results out
 * of said person's immediate fault when using the work as intended.
 *-
 * Convert from ICY encoding (windows-1252 codepage) to UTF-8
 */

#include "config.h"
#include "intsym.h"
/* Includes string and stdlib headers... */
#include "compat.h"

/* ThOr: too lazy for this type check; also we use char/short all around anyway.
   Of cource, it would be the proper way to use _these_ kind of types all around. */
#define uint8_t  unsigned char
#define uint16_t unsigned short

static const uint8_t cp1252_utf8[] = {
	/* 0x00 @   0 */	0x00,
	/* 0x01 @   1 */	0x01,
	/* 0x02 @   2 */	0x02,
	/* 0x03 @   3 */	0x03,
	/* 0x04 @   4 */	0x04,
	/* 0x05 @   5 */	0x05,
	/* 0x06 @   6 */	0x06,
	/* 0x07 @   7 */	0x07,
	/* 0x08 @   8 */	0x08,
	/* 0x09 @   9 */	0x09,
	/* 0x0A @  10 */	0x0A,
	/* 0x0B @  11 */	0x0B,
	/* 0x0C @  12 */	0x0C,
	/* 0x0D @  13 */	0x0D,
	/* 0x0E @  14 */	0x0E,
	/* 0x0F @  15 */	0x0F,
	/* 0x10 @  16 */	0x10,
	/* 0x11 @  17 */	0x11,
	/* 0x12 @  18 */	0x12,
	/* 0x13 @  19 */	0x13,
	/* 0x14 @  20 */	0x14,
	/* 0x15 @  21 */	0x15,
	/* 0x16 @  22 */	0x16,
	/* 0x17 @  23 */	0x17,
	/* 0x18 @  24 */	0x18,
	/* 0x19 @  25 */	0x19,
	/* 0x1A @  26 */	0x1A,
	/* 0x1B @  27 */	0x1B,
	/* 0x1C @  28 */	0x1C,
	/* 0x1D @  29 */	0x1D,
	/* 0x1E @  30 */	0x1E,
	/* 0x1F @  31 */	0x1F,
	/* 0x20 @  32 */	0x20,
	/* 0x21 @  33 */	0x21,
	/* 0x22 @  34 */	0x22,
	/* 0x23 @  35 */	0x23,
	/* 0x24 @  36 */	0x24,
	/* 0x25 @  37 */	0x25,
	/* 0x26 @  38 */	0x26,
	/* 0x27 @  39 */	0x27,
	/* 0x28 @  40 */	0x28,
	/* 0x29 @  41 */	0x29,
	/* 0x2A @  42 */	0x2A,
	/* 0x2B @  43 */	0x2B,
	/* 0x2C @  44 */	0x2C,
	/* 0x2D @  45 */	0x2D,
	/* 0x2E @  46 */	0x2E,
	/* 0x2F @  47 */	0x2F,
	/* 0x30 @  48 */	0x30,
	/* 0x31 @  49 */	0x31,
	/* 0x32 @  50 */	0x32,
	/* 0x33 @  51 */	0x33,
	/* 0x34 @  52 */	0x34,
	/* 0x35 @  53 */	0x35,
	/* 0x36 @  54 */	0x36,
	/* 0x37 @  55 */	0x37,
	/* 0x38 @  56 */	0x38,
	/* 0x39 @  57 */	0x39,
	/* 0x3A @  58 */	0x3A,
	/* 0x3B @  59 */	0x3B,
	/* 0x3C @  60 */	0x3C,
	/* 0x3D @  61 */	0x3D,
	/* 0x3E @  62 */	0x3E,
	/* 0x3F @  63 */	0x3F,
	/* 0x40 @  64 */	0x40,
	/* 0x41 @  65 */	0x41,
	/* 0x42 @  66 */	0x42,
	/* 0x43 @  67 */	0x43,
	/* 0x44 @  68 */	0x44,
	/* 0x45 @  69 */	0x45,
	/* 0x46 @  70 */	0x46,
	/* 0x47 @  71 */	0x47,
	/* 0x48 @  72 */	0x48,
	/* 0x49 @  73 */	0x49,
	/* 0x4A @  74 */	0x4A,
	/* 0x4B @  75 */	0x4B,
	/* 0x4C @  76 */	0x4C,
	/* 0x4D @  77 */	0x4D,
	/* 0x4E @  78 */	0x4E,
	/* 0x4F @  79 */	0x4F,
	/* 0x50 @  80 */	0x50,
	/* 0x51 @  81 */	0x51,
	/* 0x52 @  82 */	0x52,
	/* 0x53 @  83 */	0x53,
	/* 0x54 @  84 */	0x54,
	/* 0x55 @  85 */	0x55,
	/* 0x56 @  86 */	0x56,
	/* 0x57 @  87 */	0x57,
	/* 0x58 @  88 */	0x58,
	/* 0x59 @  89 */	0x59,
	/* 0x5A @  90 */	0x5A,
	/* 0x5B @  91 */	0x5B,
	/* 0x5C @  92 */	0x5C,
	/* 0x5D @  93 */	0x5D,
	/* 0x5E @  94 */	0x5E,
	/* 0x5F @  95 */	0x5F,
	/* 0x60 @  96 */	0x60,
	/* 0x61 @  97 */	0x61,
	/* 0x62 @  98 */	0x62,
	/* 0x63 @  99 */	0x63,
	/* 0x64 @ 100 */	0x64,
	/* 0x65 @ 101 */	0x65,
	/* 0x66 @ 102 */	0x66,
	/* 0x67 @ 103 */	0x67,
	/* 0x68 @ 104 */	0x68,
	/* 0x69 @ 105 */	0x69,
	/* 0x6A @ 106 */	0x6A,
	/* 0x6B @ 107 */	0x6B,
	/* 0x6C @ 108 */	0x6C,
	/* 0x6D @ 109 */	0x6D,
	/* 0x6E @ 110 */	0x6E,
	/* 0x6F @ 111 */	0x6F,
	/* 0x70 @ 112 */	0x70,
	/* 0x71 @ 113 */	0x71,
	/* 0x72 @ 114 */	0x72,
	/* 0x73 @ 115 */	0x73,
	/* 0x74 @ 116 */	0x74,
	/* 0x75 @ 117 */	0x75,
	/* 0x76 @ 118 */	0x76,
	/* 0x77 @ 119 */	0x77,
	/* 0x78 @ 120 */	0x78,
	/* 0x79 @ 121 */	0x79,
	/* 0x7A @ 122 */	0x7A,
	/* 0x7B @ 123 */	0x7B,
	/* 0x7C @ 124 */	0x7C,
	/* 0x7D @ 125 */	0x7D,
	/* 0x7E @ 126 */	0x7E,
	/* 0x7F @ 127 */	0x7F,
	/* 0x80 @ 128 */	0xE2, 0x82, 0xAC,
	/* 0x81 @ 131 */	0xEF, 0xBF, 0xBD,
	/* 0x82 @ 134 */	0xE2, 0x80, 0x9A,
	/* 0x83 @ 137 */	0xC6, 0x92,
	/* 0x84 @ 139 */	0xE2, 0x80, 0x9E,
	/* 0x85 @ 142 */	0xE2, 0x80, 0xA6,
	/* 0x86 @ 145 */	0xE2, 0x80, 0xA0,
	/* 0x87 @ 148 */	0xE2, 0x80, 0xA1,
	/* 0x88 @ 151 */	0xCB, 0x86,
	/* 0x89 @ 153 */	0xE2, 0x80, 0xB0,
	/* 0x8A @ 156 */	0xC5, 0xA0,
	/* 0x8B @ 158 */	0xE2, 0x80, 0xB9,
	/* 0x8C @ 161 */	0xC5, 0x92,
	/* 0x8D @ 163 */	0xEF, 0xBF, 0xBD,
	/* 0x8E @ 166 */	0xC5, 0xBD,
	/* 0x8F @ 168 */	0xEF, 0xBF, 0xBD,
	/* 0x90 @ 171 */	0xEF, 0xBF, 0xBD,
	/* 0x91 @ 174 */	0xE2, 0x80, 0x98,
	/* 0x92 @ 177 */	0xE2, 0x80, 0x99,
	/* 0x93 @ 180 */	0xE2, 0x80, 0x9C,
	/* 0x94 @ 183 */	0xE2, 0x80, 0x9D,
	/* 0x95 @ 186 */	0xE2, 0x80, 0xA2,
	/* 0x96 @ 189 */	0xE2, 0x80, 0x93,
	/* 0x97 @ 192 */	0xE2, 0x80, 0x94,
	/* 0x98 @ 195 */	0xCB, 0x9C,
	/* 0x99 @ 197 */	0xE2, 0x84, 0xA2,
	/* 0x9A @ 200 */	0xC5, 0xA1,
	/* 0x9B @ 202 */	0xE2, 0x80, 0xBA,
	/* 0x9C @ 205 */	0xC5, 0x93,
	/* 0x9D @ 207 */	0xEF, 0xBF, 0xBD,
	/* 0x9E @ 210 */	0xC5, 0xBE,
	/* 0x9F @ 212 */	0xC5, 0xB8,
	/* 0xA0 @ 214 */	0xC2, 0xA0,
	/* 0xA1 @ 216 */	0xC2, 0xA1,
	/* 0xA2 @ 218 */	0xC2, 0xA2,
	/* 0xA3 @ 220 */	0xC2, 0xA3,
	/* 0xA4 @ 222 */	0xC2, 0xA4,
	/* 0xA5 @ 224 */	0xC2, 0xA5,
	/* 0xA6 @ 226 */	0xC2, 0xA6,
	/* 0xA7 @ 228 */	0xC2, 0xA7,
	/* 0xA8 @ 230 */	0xC2, 0xA8,
	/* 0xA9 @ 232 */	0xC2, 0xA9,
	/* 0xAA @ 234 */	0xC2, 0xAA,
	/* 0xAB @ 236 */	0xC2, 0xAB,
	/* 0xAC @ 238 */	0xC2, 0xAC,
	/* 0xAD @ 240 */	0xC2, 0xAD,
	/* 0xAE @ 242 */	0xC2, 0xAE,
	/* 0xAF @ 244 */	0xC2, 0xAF,
	/* 0xB0 @ 246 */	0xC2, 0xB0,
	/* 0xB1 @ 248 */	0xC2, 0xB1,
	/* 0xB2 @ 250 */	0xC2, 0xB2,
	/* 0xB3 @ 252 */	0xC2, 0xB3,
	/* 0xB4 @ 254 */	0xC2, 0xB4,
	/* 0xB5 @ 256 */	0xC2, 0xB5,
	/* 0xB6 @ 258 */	0xC2, 0xB6,
	/* 0xB7 @ 260 */	0xC2, 0xB7,
	/* 0xB8 @ 262 */	0xC2, 0xB8,
	/* 0xB9 @ 264 */	0xC2, 0xB9,
	/* 0xBA @ 266 */	0xC2, 0xBA,
	/* 0xBB @ 268 */	0xC2, 0xBB,
	/* 0xBC @ 270 */	0xC2, 0xBC,
	/* 0xBD @ 272 */	0xC2, 0xBD,
	/* 0xBE @ 274 */	0xC2, 0xBE,
	/* 0xBF @ 276 */	0xC2, 0xBF,
	/* 0xC0 @ 278 */	0xC3, 0x80,
	/* 0xC1 @ 280 */	0xC3, 0x81,
	/* 0xC2 @ 282 */	0xC3, 0x82,
	/* 0xC3 @ 284 */	0xC3, 0x83,
	/* 0xC4 @ 286 */	0xC3, 0x84,
	/* 0xC5 @ 288 */	0xC3, 0x85,
	/* 0xC6 @ 290 */	0xC3, 0x86,
	/* 0xC7 @ 292 */	0xC3, 0x87,
	/* 0xC8 @ 294 */	0xC3, 0x88,
	/* 0xC9 @ 296 */	0xC3, 0x89,
	/* 0xCA @ 298 */	0xC3, 0x8A,
	/* 0xCB @ 300 */	0xC3, 0x8B,
	/* 0xCC @ 302 */	0xC3, 0x8C,
	/* 0xCD @ 304 */	0xC3, 0x8D,
	/* 0xCE @ 306 */	0xC3, 0x8E,
	/* 0xCF @ 308 */	0xC3, 0x8F,
	/* 0xD0 @ 310 */	0xC3, 0x90,
	/* 0xD1 @ 312 */	0xC3, 0x91,
	/* 0xD2 @ 314 */	0xC3, 0x92,
	/* 0xD3 @ 316 */	0xC3, 0x93,
	/* 0xD4 @ 318 */	0xC3, 0x94,
	/* 0xD5 @ 320 */	0xC3, 0x95,
	/* 0xD6 @ 322 */	0xC3, 0x96,
	/* 0xD7 @ 324 */	0xC3, 0x97,
	/* 0xD8 @ 326 */	0xC3, 0x98,
	/* 0xD9 @ 328 */	0xC3, 0x99,
	/* 0xDA @ 330 */	0xC3, 0x9A,
	/* 0xDB @ 332 */	0xC3, 0x9B,
	/* 0xDC @ 334 */	0xC3, 0x9C,
	/* 0xDD @ 336 */	0xC3, 0x9D,
	/* 0xDE @ 338 */	0xC3, 0x9E,
	/* 0xDF @ 340 */	0xC3, 0x9F,
	/* 0xE0 @ 342 */	0xC3, 0xA0,
	/* 0xE1 @ 344 */	0xC3, 0xA1,
	/* 0xE2 @ 346 */	0xC3, 0xA2,
	/* 0xE3 @ 348 */	0xC3, 0xA3,
	/* 0xE4 @ 350 */	0xC3, 0xA4,
	/* 0xE5 @ 352 */	0xC3, 0xA5,
	/* 0xE6 @ 354 */	0xC3, 0xA6,
	/* 0xE7 @ 356 */	0xC3, 0xA7,
	/* 0xE8 @ 358 */	0xC3, 0xA8,
	/* 0xE9 @ 360 */	0xC3, 0xA9,
	/* 0xEA @ 362 */	0xC3, 0xAA,
	/* 0xEB @ 364 */	0xC3, 0xAB,
	/* 0xEC @ 366 */	0xC3, 0xAC,
	/* 0xED @ 368 */	0xC3, 0xAD,
	/* 0xEE @ 370 */	0xC3, 0xAE,
	/* 0xEF @ 372 */	0xC3, 0xAF,
	/* 0xF0 @ 374 */	0xC3, 0xB0,
	/* 0xF1 @ 376 */	0xC3, 0xB1,
	/* 0xF2 @ 378 */	0xC3, 0xB2,
	/* 0xF3 @ 380 */	0xC3, 0xB3,
	/* 0xF4 @ 382 */	0xC3, 0xB4,
	/* 0xF5 @ 384 */	0xC3, 0xB5,
	/* 0xF6 @ 386 */	0xC3, 0xB6,
	/* 0xF7 @ 388 */	0xC3, 0xB7,
	/* 0xF8 @ 390 */	0xC3, 0xB8,
	/* 0xF9 @ 392 */	0xC3, 0xB9,
	/* 0xFA @ 394 */	0xC3, 0xBA,
	/* 0xFB @ 396 */	0xC3, 0xBB,
	/* 0xFC @ 398 */	0xC3, 0xBC,
	/* 0xFD @ 400 */	0xC3, 0xBD,
	/* 0xFE @ 402 */	0xC3, 0xBE,
	/* 0xFF @ 404 */	0xC3, 0xBF,
};

static const uint16_t tblofs[257] = {
	/* 0x00 */   0,   1,   2,   3,   4,   5,   6,   7,
	/* 0x08 */   8,   9,  10,  11,  12,  13,  14,  15,
	/* 0x10 */  16,  17,  18,  19,  20,  21,  22,  23,
	/* 0x18 */  24,  25,  26,  27,  28,  29,  30,  31,
	/* 0x20 */  32,  33,  34,  35,  36,  37,  38,  39,
	/* 0x28 */  40,  41,  42,  43,  44,  45,  46,  47,
	/* 0x30 */  48,  49,  50,  51,  52,  53,  54,  55,
	/* 0x38 */  56,  57,  58,  59,  60,  61,  62,  63,
	/* 0x40 */  64,  65,  66,  67,  68,  69,  70,  71,
	/* 0x48 */  72,  73,  74,  75,  76,  77,  78,  79,
	/* 0x50 */  80,  81,  82,  83,  84,  85,  86,  87,
	/* 0x58 */  88,  89,  90,  91,  92,  93,  94,  95,
	/* 0x60 */  96,  97,  98,  99, 100, 101, 102, 103,
	/* 0x68 */ 104, 105, 106, 107, 108, 109, 110, 111,
	/* 0x70 */ 112, 113, 114, 115, 116, 117, 118, 119,
	/* 0x78 */ 120, 121, 122, 123, 124, 125, 126, 127,
	/* 0x80 */ 128, 131, 134, 137, 139, 142, 145, 148,
	/* 0x88 */ 151, 153, 156, 158, 161, 163, 166, 168,
	/* 0x90 */ 171, 174, 177, 180, 183, 186, 189, 192,
	/* 0x98 */ 195, 197, 200, 202, 205, 207, 210, 212,
	/* 0xA0 */ 214, 216, 218, 220, 222, 224, 226, 228,
	/* 0xA8 */ 230, 232, 234, 236, 238, 240, 242, 244,
	/* 0xB0 */ 246, 248, 250, 252, 254, 256, 258, 260,
	/* 0xB8 */ 262, 264, 266, 268, 270, 272, 274, 276,
	/* 0xC0 */ 278, 280, 282, 284, 286, 288, 290, 292,
	/* 0xC8 */ 294, 296, 298, 300, 302, 304, 306, 308,
	/* 0xD0 */ 310, 312, 314, 316, 318, 320, 322, 324,
	/* 0xD8 */ 326, 328, 330, 332, 334, 336, 338, 340,
	/* 0xE0 */ 342, 344, 346, 348, 350, 352, 354, 356,
	/* 0xE8 */ 358, 360, 362, 364, 366, 368, 370, 372,
	/* 0xF0 */ 374, 376, 378, 380, 382, 384, 386, 388,
	/* 0xF8 */ 390, 392, 394, 396, 398, 400, 402, 404,
	/* sizeof (cp1252_utf8) */ 406
};

/* Check if a string qualifies as UTF-8. */
static int
is_utf8(const char* src)
{
	uint8_t ch;
	size_t i;
	const uint8_t* s = (const uint8_t*) src;

	/* We make a loop over every character, until we find a null one.
	   Remember: The string is supposed to end with a NUL, so ahead checks are safe. */
	while ((ch = *s++))	{
		/* Ye olde 7bit ASCII chars 'rr fine for anything */
		if(ch < 0x80) continue;

		/* Now, we watch out for non-UTF conform sequences. */
		else if ((ch < 0xC2) || (ch > 0xFD))
			return 0;
		/* check for some misformed sequences */
		if (((ch == 0xC2) && (s[0] < 0xA0)) ||
		    ((ch == 0xEF) && (s[0] == 0xBF) && (s[1] > 0xBD)))
			/* XXX add more for outside the BMP */
			return 0;

		/* Check the continuation bytes. */
		if      (ch < 0xE0) i = 1;
		else if (ch < 0xF0) i = 2;
		else if (ch < 0xF8)	i = 3;
		else if (ch < 0xFC)	i = 4;
		else
			i = 5;

		while (i--)
			if ((*s++ & 0xC0) != 0x80)
				return 0;
	}

	/* If no check failed, the string indeed looks like valid UTF-8. */
	return 1;
}

/* The main conversion routine.
   ICY in CP-1252 (or UTF-8 alreay) to UTF-8 encoded string.
   If force is applied, it will always encode to UTF-8, without checking. */
char *
icy2utf8(const char *src, int force)
{
	const uint8_t *s = (const uint8_t *)src;
	size_t srclen, dstlen, i, k;
	uint8_t ch, *d;
	char *dst;

	/* Some funny streams from Apple/iTunes give ICY info in UTF-8 already.
	   So, be prepared and don't try to re-encode such. Unless forced. */
	if(!force && is_utf8(src)) return (compat_strdup(src));

	srclen = strlen(src) + 1;
	/* allocate conservatively */
	if ((d = malloc(srclen * 3)) == NULL)
		return (NULL);

	i = 0;
	dstlen = 0;
	while (i < srclen) {
		ch = s[i++];
		k = tblofs[ch];
		while (k < tblofs[ch + 1])
			d[dstlen++] = cp1252_utf8[k++];
	}

	/* dstlen includes trailing NUL since srclen also does */
	if ((dst = realloc(d, dstlen)) == NULL) {
		free(d);
		return (NULL);
	}
	return (dst);
}

/* This stuff is for testing only. */
#ifdef TEST
static const char intext[] = "\225 Gr\374\337e kosten 0,55 \200\205";

#include <stdio.h>

int
main(void)
{
	char *t, *t2;

	if ((t = icy2utf8(intext, 0)) == NULL) {
		fprintf(stderr, "out of memory\n");
		return (1);
	}

	/* make sure it won't be converted twice */
	if ((t2 = icy2utf8(t), 0) == NULL) {
		fprintf(stderr, "out of memory\n");
		return (1);
	}

	printf("Result is:\t\343\200\214%s\343\200\215\n"
		"\t\t\343\200\214%s\343\200\215\n", t, t2);

	free(t);
	free(t2);
	return (0);
}
#endif
