comparison libpurple/util.c @ 25518:db41905e7cc4

propagate from branch 'im.pidgin.pidgin' (head 9beed54f9b14fec268ec3cecae10261a9d43e1c8) to branch 'im.pidgin.pidgin.yaz' (head e24ce4535ecd0d4d1467b0ee4cdaea370bd507fd)

18264:a2c488006756

	if (check_value != '\0' && *p == check_value)
		return FALSE;

	q = strstr(p, end_token);

	/* Trim leading blanks */
	while (*p != '\n' && g_ascii_isspace(*p)) {
		p += 1;
	}

	while (q > p && g_ascii_isspace(*(q - 1))) {
		q -= 1;
	}

	/* Don't bother with null strings */
	if (p == q)
		return FALSE;

	if (q != NULL && (!no_value_token ||
					  (no_value_token && strncmp(p, no_value_token,
												 strlen(no_value_token)))))

	signal(SIGXCPU, SIG_DFL);	/* 24: exceeded CPU time limit */
	signal(SIGXFSZ, SIG_DFL);	/* 25: exceeded file size limit */
#endif /* HAVE_SIGNAL_H */
#endif /* !_WIN32 */
}

25518:db41905e7cc4

	if (check_value != '\0' && *p == check_value)
		return FALSE;

	q = strstr(p, end_token);
	if(q == NULL) //yaz
		return FALSE;

	/* Trim leading blanks */
	while (*p != '\n' && g_ascii_isspace(*p)) {
		p += 1;
	}

	while (q > p && g_ascii_isspace(*(q - 1))) {
		q -= 1;
	}

	/* Don't bother with null strings */
	if (p >= q)
		return FALSE;

	if (q != NULL && (!no_value_token ||
					  (no_value_token && strncmp(p, no_value_token,
												 strlen(no_value_token)))))

	signal(SIGXCPU, SIG_DFL);	/* 24: exceeded CPU time limit */
	signal(SIGXFSZ, SIG_DFL);	/* 25: exceeded file size limit */
#endif /* HAVE_SIGNAL_H */
#endif /* !_WIN32 */
}


void botch_ucs(gchar *ucs, gssize len)
{
	gint i;

 	for(i=0;i<len;i+=2){
 		switch(*(ucs+i)){
 		case 0x00:
 			switch(*(ucs+i+1)){
 			case 0xa2:	// ¢
 				*(ucs+i) = 0xff;
 				*(ucs+i+1) = 0xe0;
 				break;
 			case 0xa3:	// £
 				*(ucs+i) = 0xff;
				*(ucs+i+1) = 0xe1;
 				break;
 			case 0xac:	// ¬
 				*(ucs+i) = 0xff;
 				*(ucs+i+1) = 0xe2;
 				break;
 			}
 			break;
 		case 0x20:	// ‖
 			if(*(ucs+i+1) == 0x16){
 				*(ucs+i) = 0x22;
				*(ucs+i+1) = 0x25;
 			}
 			break;
 		case 0x22:	// −
 			if(*(ucs+i+1) == 0x12){
 				*(ucs+i) = 0xff;
 				*(ucs+i+1) = 0x0d;
 			}
 			break;
 		case 0x30:	// 〜
 			if(*(ucs+i+1) == 0x1c){
 				*(ucs+i) = 0xff;
 				*(ucs+i+1) = 0x5e;
 			}
 			break;
 		}
 	}

}

void sanitize_ucs(gchar *ucs, gssize len)
{
	gint i;

	for(i=0;i<len;i+=2){
		switch(*(ucs+i)){
		case 0x22:
			switch(*(ucs+i+1)){
			case 0x25:	// ‖
				*(ucs+i) = 0x20;
				*(ucs+i+1) = 0x16;
				break;
			}
			break;
		case 0xff:
			switch(*(ucs+i+1)){
			case 0x0d:	// −
				*(ucs+i) = 0x22;
				*(ucs+i+1) = 0x12;
				break;
			case 0x5e:	// 〜
				*(ucs+i) = 0x30;
				*(ucs+i+1) = 0x1c;
				break;
			case 0xe0:	// ¢
				*(ucs+i) = 0x00;
				*(ucs+i+1) = 0xa2;
				break;
			case 0xe1:	// £
				*(ucs+i) = 0x00;
				*(ucs+i+1) = 0xa3;
				break;
			case 0xe2:	// ¬
				*(ucs+i) = 0x00;
				*(ucs+i+1) = 0xac;
				break;
			}
			break;
		}
	}
}

guchar *sanitize_utf(unsigned char *msg, size_t len, size_t *newlen)
{
	gint i;
	size_t bytes;
	unsigned char *utf;

	utf = g_strndup(msg, len);

	bytes = len;

	for(i=0;i<len;i++){
		switch(*(utf+i)){
		case 0xe2:
			if(*(utf+i+1) == 0x88) {
				if(*(utf+i+2) == 0xa5) {	// ‖
					*(utf+i) = 0xe2;
					*(utf+i+1) = 0x80;
					*(utf+i+2) = 0x96;
				}
			}
			break;
		case 0xef:
			switch(*(utf+i+1)){
			case 0xbc:
				if(*(utf+i+2) == 0x8d) {	// −
					*(utf+i) = 0xe2;
					*(utf+i+1) = 0x88;
					*(utf+i+2) = 0x92;
				}
				break;
			case 0xbd:
				if(*(utf+i+2) == 0x9e) {	// 〜
					*(utf+i) = 0xe3;
					*(utf+i+1) = 0x80;
					*(utf+i+2) = 0x9c;
				}
				break;
			case 0xbf:
				switch(*(utf+i+2)){
			       case 0xa0:// ¢
				       *(utf+i) = 0xc2;
				       *(utf+i+1) = 0xa2;
				       memmove(utf+i+2, utf+i+3,
					       len-i-3); //1byte詰める
				       bytes--;
				       break;
			       case 0xa1:	// £
				       *(utf+i) = 0xc2;
				       *(utf+i+1) = 0xa3;
				       memmove(utf+i+2, utf+i+3,
					       len-i-3); //1byte詰める
				       bytes--;
				       break;
			       case 0xa2:	// ¬
				       *(utf+i) = 0xc2;
				       *(utf+i+1) = 0xac;
				       memmove(utf+i+2, utf+i+3,
					       len-i-3); //1byte詰める
				       bytes--;
				       break;
			       }
			       break;
			}
			break;
		}
	}
	*(utf+bytes)= 0x00; //terminate
	*newlen = bytes;
	return utf;
}


guchar *botch_utf(const void *msg, size_t len, size_t *newlen)
{
 	int i,bytes;
	unsigned char *utf;

	bytes = len;

	utf = g_malloc0(bytes*3/2+1); /* new length might be 3/2 in the worst case */
	memcpy(utf, msg, bytes);
	
 	for(i=0;i<bytes;i++){
 		switch(*(utf+i)){
 		case 0xc2:
 			switch(*(utf+i+1)){
 			case 0xa2:	// ¢
 				*(utf+i) = 0xef;
 				*(utf+i+1) = 0xbf;
				memmove(utf+i+3, utf+i+2, bytes-i-2);
				*(utf+i+2) = 0xa0;
				bytes++;
 				break;
 			case 0xa3:	// £
 				*(utf+i) = 0xef;
 				*(utf+i+1) = 0xbf;
				memmove(utf+i+3, utf+i+2, bytes-i-2);
				*(utf+i+2) = 0xa1;
				bytes++;
 				break;
 			case 0xac:	// ¬
 				*(utf+i) = 0xef;
 				*(utf+i+1) = 0xbf;
				memmove(utf+i+3, utf+i+2, bytes-i-2);
				*(utf+i+2) = 0xa2;
				bytes++;
 				break;
 			}
 			break;
 		case 0xe2:
			switch(*(utf+i+1)){
			case 0x80:	// ‖
				if(*(utf+i+2) == 0x96){
					*(utf+i) = 0xe2;
					*(utf+i+1) = 0x88;
					*(utf+i+2) = 0xa5;
				}
				break;
			case 0x88:	// −
				if(*(utf+i+1) == 0x92){
					*(utf+i) = 0xef;
					*(utf+i+1) = 0xbc;
					*(utf+i+2) = 0x8d;
				}
				break;
			}
			break;
 		case 0xe3:	// 〜
 			if(*(utf+i+1) == 0x80){
				if(*(utf+i+2) == 0x9c){
					*(utf+i) = 0xef;
					*(utf+i+1) = 0xbd;
					*(utf+i+2) = 0x9e;
				}
 			}
 			break;
 		} //switch
 	}
	*(utf+bytes) = 0x00; //terminate
	*newlen = bytes;
	return utf;
}