SMS_DATA *SMSD=NULL;


char *_in, *_out, *_draft;

struct{
	char all,d,in,out,df,inf,outf;
}scnt;
    
PROCESSOR_MODE void Hex2Num(char *hex, char *num, int len)
{   
	int c;
	int i=0,j;
	char *p=hex;
	if(*p==0x91)
	{
		num[i]='+';
		i++;
	}
	p++;
	for (j=0; j<len; j++)
	{
		c=p[j]%0x10;
		if(c>=0&&c<=9)
			num[i]=c+'0';
		else
			break;
		i++;
		c=p[j]/0x10;
		if(c>=0&&c<=9)
			num[i]=c+'0';
		else
			break;
		i++;
	}
	num[i]=0;
}

PROCESSOR_MODE void Add2WS(char *data, char *wsbody, int len, char type)
{
	int i;
	for(i=0; i<len; i+=2)
	{
		wsbody[i+2]=data[i+1];
		wsbody[i+3]=data[i];
	}
	unsigned short *p=(unsigned short *)wsbody;
	*p=len/2;
}

// 00		§³§Ü§Ý§Ö§Ö§ß§ß§í§Ö §Ü§à§â§à§ä§Ü§Ú§Ö §ã§à§à§Ò§ë§Ö§ß§Ú§ñ, 8-§Ò§Ú§ä§ß§Ñ§ñ §ã§ã§í§Ý§Ü§Ñ
// 01		§ª§ß§Õ§Ú§Ü§Ñ§ä§à§â §ã§á§Ö§è§Ú§Ñ§Ý§î§ß§à§Ô§à §³§®§³
// 02		§Ù§Ñ§â§Ö§Ù§Ö§â§Ó§Ú§â§à§Ó§Ñ§ß
// 03		§¯§Ö §Ú§ã§á§à§Ý§î§Ù§å§Ö§ä§ã§ñ
// 04		8 §Ò§Ú§ä§à§Ó§í§Û §Ñ§Õ§â§Ö§ã
// 05		16 §Ò§Ú§ä§à§Ó§í§Û §Ñ§Õ§â§Ö§ã
// 06		§±§Ñ§â§Ñ§Þ§Ö§ä§â§í §Õ§Ý§ñ §Ü§à§ß§ä§â§à§Ý§ñ SMSC
// 07		§ª§ß§Õ§Ú§Ü§Ñ§ä§à§â §Ú§ã§ä§à§é§ß§Ú§Ü§Ñ UDH
// 08		§³§Ü§Ý§Ö§Ö§ß§ß§í§Ö §Ü§à§â§à§ä§Ü§Ú§Ö §ã§à§à§Ò§ë§Ö§ß§Ú§ñ, 16-§Ò§Ú§ä§ß§Ñ§ñ §ã§ã§í§Ý§Ü§Ñ
// 09		Wireless Control Message Protocol
// 0A		§¶§à§â§Þ§Ñ§ä§Ú§â§à§Ó§Ñ§ß§ß§í§Û §ä§Ö§Ü§ã§ä
// 0B		§±§â§Ö§Õ§à§á§â§Ö§Õ§Ö§Ý§Ö§ß§ß§Ñ§ñ §Þ§Ö§Ý§à§Õ§Ú§ñ
// 0C		§±§à§Ý§î§Ù§à§Ó§Ñ§ä§Ö§Ý§î§ã§Ü§Ñ§ñ §Þ§Ö§Ý§à§Õ§Ú§ñ §Ó §æ§à§â§Þ§Ñ§ä§Ö iMelody, §Þ§Ñ§Ü§ã§Ú§Þ§Ñ§Ý§î§ß§Ñ§ñ §Õ§Ý§Ú§ß§Ñ 128 §Ò§Ñ§Û§ä.
// 0D		§±§â§Ö§Õ§à§á§â§Ö§Õ§Ö§Ý§Ö§ß§ß§Ñ§ñ §Þ§å§Ý§î§ä§Ú§á§Ý§Ú§Ü§Ñ§è§Ú§ñ
// 0E		§¢§à§Ý§î§ê§Ñ§ñ §Þ§å§Ý§î§ä§Ú§á§Ý§Ú§Ü§Ñ§è§Ú§ñ (16*16 §â§Ñ§Ù 4 = 32*4 =128 §Ò§Ñ§Û§ä§à§Ó)
// 0F		§®§Ñ§Ý§Ö§ß§î§Ü§Ñ§ñ §Þ§å§Ý§î§ä§Ú§á§Ý§Ú§Ü§Ñ§è§Ú§ñ (8*8 §â§Ñ§Ù 4 = 8*4 =32 §Ò§Ñ§Û§ä§Ñ)
// 10		§¢§à§Ý§î§ê§à§Û §â§Ú§ã§å§ß§à§Ü (32*32 = 128 §Ò§Ñ§Û§ä§à§Ó)
// 11		§®§Ñ§Ý§Ö§ß§î§Ü§Ú§Û §â§Ú§ã§å§ß§à§Ü (16*16 = 32 §Ò§Ñ§Û§ä§Ñ)
// 12		§²§Ú§ã§å§ß§à§Ü §Ý§ð§Ò§à§Ô§à §â§Ñ§Ù§Þ§Ö§â§Ñ
// 13		User prompt indicator
// 14		Extended Object
// 15		Reused Extended Object
// 16		§¬§à§ß§ä§â§à§Ý§î c§Ø§Ñ§ä§Ú§ñ
// 17		Object Distribution Indicator
// 18-1F	§Ù§Ñ§â§Ö§Ù§Ö§â§Ó§Ú§â§à§Ó§Ñ§ß§à
// 20		RFC 822 §Ù§Ñ§Ô§à§Ý§à§Ó§à§Ü §Õ§Ý§ñ E-Mail
// 21		HTTP §ã§ã§í§Ý§Ü§Ñ
// 22-6F	§Ù§Ñ§â§Ö§Ù§Ö§â§Ó§Ú§â§à§Ó§Ñ§ß§à
// 70-7F	§©§Ñ§Ô§à§Ý§à§Ó§à§Ü §á§â§à§Ô§â§Ñ§Þ§Þ §Ò§Ö§Ù§à§á§Ñ§ã§ß§à§ã§ä§Ú (U)SIM
// 80-9F	SME to SME specific use
// A0-BF	§Ù§Ñ§â§Ö§Ù§Ö§â§Ó§Ú§â§à§Ó§Ñ§ß§à
// C0-DF	SC specific use
// E0-FF	§Ù§Ñ§â§Ö§Ù§Ö§â§Ó§Ú§â§à§Ó§Ñ§ß§à


void DoEMS(char *P_data, SMS_DATA *data)
{
// 	char skip=*P_data;
// 	if((skip<5)||(skip>10)) return 0;
	P_data++;
	char t=*P_data;
// 	if(t==0xa) return 1;
// 	if((t==0x2)||(t==0x3)||(t>=0x18&&t<=0x1F)||(t>=0x22&&t<=0x6F)|| (t>=0xA0&&t<=0xBF)||(t>=0xE0&&t<=0xFF)) return 0; // not ems
	switch(t)
	{
	 case 0:
		 P_data+=2;
		 data->sig=*P_data++;
		 data->cnt=*P_data++;
		 data->n=*P_data++;
	   break;
	 case 8:
		 P_data+=2;
		 data->sig=P_data[0]*0x100+P_data[1];
		 P_data+=2;
		 data->cnt=*P_data++;
		 data->n=*P_data++;
	   break;
// 	default:
// 		 return 0; 
	}
// 	return 1;
}

PROCESSOR_MODE void SMS_NotOut(PDU *PDU_data, SMS_DATA *data)//, int oftype)
{
	char *p=(char*)PDU_data;
	char isems, isplus;
	p+=3;
	int c=*p++;
	if(c) //len
		Hex2Num(p, data->SMS_CENTER, c);
	p+=c;
	if((*p>>4)%2) isplus=1;
	else isplus=0;
	if((*p>>6)%2) isems=1;
	else isems=0;
	p+=2;
	c=*p++;
	if(c)
	{
		if(c%2)
		{
			c=c/2+2;
			Hex2Num(p, data->Number, c);
		}
		else
		{
			Hex2Num(p, data->Number, c/2);
			c=c/2+1;
		}
	}
	else p++;
	p+=c+2;//oftype;
// 	p+=oftype;
	c=*p++;
	char ttype=*(p-2);//oftype);
	/*if(c>0xA0)*/if(isplus) c=*p++;
	char skip=*p;
	
	data->cnt=1;
	data->n=1;
	if(isems)
	{
		DoEMS(p,data);
		if(ttype==8)
		{
			p+=skip+1;
			c-=skip+1;
		}
// 		else c-=(skip+1)*8/7+1;
	}
	
	if(ttype==8) Add2WS(p, (char *)data->SMS_TEXT->wsbody, c, ttype);
	else
	{
		GSMTXT_Decode(data->SMS_TEXT,(void*)p,c*7/8+1,ttype, (void*(*)(int))malloc_adr(),(void(*)(void))mfree_adr());
		if(isems)
		{
			c-=(skip+1)*8/7+1;
			unsigned short *tb=malloc(wstrlen(data->SMS_TEXT)*2+2);
			zeromem(tb,wstrlen(data->SMS_TEXT)*2+2);
			tb[0]=c;
			memcpy(tb+1, data->SMS_TEXT->wsbody+(skip+1)*8/7+2, c*2);
			mfree(data->SMS_TEXT->wsbody);
			data->SMS_TEXT->wsbody=tb;
		}
		else
		{
			if(wstrlen(data->SMS_TEXT)>c)
			{
				data->SMS_TEXT->wsbody[0]=c;
				data->SMS_TEXT->wsbody[c+1]=0;
			}
		}
	}
	data->Time[0]=0;
}

PROCESSOR_MODE void SMS_In(PDU *PDU_data, SMS_DATA *data)
{
	char *p=(char*)PDU_data;
	char isems;
	p+=3;
	int c=*p++;
	if(c) //len
		Hex2Num(p, data->SMS_CENTER, c);
	p+=c;
	if((*p>>6)%2) isems=1;
	else isems=0;
	p++;
	c=*p++;
	if(c)
	{
		if(c%2)
		{
			c=c/2+2;
			Hex2Num(p, data->Number, c);
		}
		else
		{
			Hex2Num(p, data->Number, c/2);
			c=c/2+1;
		}
	}
	else p++;
	p+=c+1;
	char ttype=*p;
	p++;
	//time
	int i;
	char *pp=data->Time;
// 	data->tm=0;
	for (i=0; i<6; i++)
	{
		data->tm[i]=p[i]%0x10*10+p[i]/0x10;
		*pp++=p[i]%0x10+'0';
		*pp++=p[i]/0x10+'0';
		if(i<2)
			*pp++='.';
		if(i==2)
			*pp++=' ';
		if(i>2&&i<5)
			*pp++=':';
	}
	char tmp=data->Time[0];
	data->Time[0]=data->Time[6];
	data->Time[6]=tmp;
	tmp=data->Time[1];
	data->Time[1]=data->Time[7];
	data->Time[7]=tmp;
	*pp=0;
	p+=7;
	c=*p++;
	char skip=*p;
	
	data->cnt=1;
	data->n=1;
	if(isems)
	{
		DoEMS(p,data);
		if(ttype==8)
		{
			p+=skip+1;
			c-=skip+1;
		}
// 		else c-=(skip+1)*8/7+1;
	}
	
	if(ttype==8) Add2WS(p, (char *)data->SMS_TEXT->wsbody, c, ttype);
	else
	{
		GSMTXT_Decode(data->SMS_TEXT,(void*)p,c*7/8+1,ttype,(void*(*)(int))malloc_adr(),(void(*)(void))mfree_adr());
		if(isems)
		{
			c-=(skip+1)*8/7+1;
			unsigned short *tb=malloc(wstrlen(data->SMS_TEXT)*2+2);
			zeromem(tb,wstrlen(data->SMS_TEXT)*2+2);
			tb[0]=c;
			memcpy(tb+1, data->SMS_TEXT->wsbody+(skip+1)*8/7+2, c*2);
			mfree(data->SMS_TEXT->wsbody);
			data->SMS_TEXT->wsbody=tb;
		}
		else
		{
			if(wstrlen(data->SMS_TEXT)>c)
			{
				data->SMS_TEXT->wsbody[0]=c;
				data->SMS_TEXT->wsbody[c+1]=0;
			}
		}
	}
}

//0 fail, 1, seccess, 2,unk type
PROCESSOR_MODE int PDU_decode(PDU *PDU_data, SMS_DATA *data)
{
	int c;
	char *p=(char*)PDU_data;
	if ( *p++ != 0x11 )
		return 0;
	if ( *p++ != 0x11 )
		return 0;
	c=*p++;
	switch(c)
	{
		case 0x5: // output
			data->type=TYPE_OUT;
			SMS_NotOut(PDU_data, data);//, 0);
			return 1;
		case 0x3: //input
		case 0x1:
			data->type=TYPE_IN;
			SMS_In(PDU_data, data);
			return 1;
		case 0x7:
			data->type=TYPE_DRAFT;
			SMS_NotOut(PDU_data, data);//, 1);
			return 1;
		default:
			return 0;
	}
// 	data->type=TYPE_UNK;
// 	return 2;
}

void GetSMSData(SMS_DATA *data, PDU *sms)
{
	zeromem(data, sizeof(SMS_DATA));
	WSHDR *xws=AllocWS(256);
	data->SMS_TEXT=xws;
	int i=PDU_decode(sms, data);
	if(i!=1)
	{
		FreeWS(xws);
		data->SMS_TEXT=NULL;
	}
}