#include "unicoderange.h"

#include <malloc.h>

#include <string.h>

static unsigned int hex2int(char* s){

int res=0;

int i=0, mul=1;

while(s[i+1]!='\0') i++;

while(i>=0){

if (s[i] > '9') res += mul * (s[i]-'A'+10);

else res += mul * (s[i]-'0');

i--;

mul*=16;

}

return res;

}

UnicodeRange::UnicodeRange(const gchar* value){

gchar* val = (gchar*) value;

while(val[0] != '\0'){

if (val[0]=='U' && val[1]=='+'){

val += add_range(val);

} else {

this->unichars.push_back(g_utf8_get_char(&val[0]));

val++;

}

//skip spaces or commas

while(val[0]==' ' || val[0]==',') val++;

}

}

UnicodeRange::add_range(gchar* val){

Urange r;

//U+

val+=2;

int i=0, count=2;

while(val[i]!='\0' && val[i]!='-' && val[i]!=' ' && val[i]!=',') i++;

r.start = (gchar*) malloc((i+1)*sizeof(gchar*));

strncpy(r.start, val, i);

r.start[i] = '\0';

val+=i;

count+=i;

i=0;

if (val[0]=='-'){

val++;

while(val[i]!='\0' && val[i]!='-' && val[i]!=' ' && val[i]!=',') i++;

r.end = (gchar*) malloc((i+1)*sizeof(gchar*));

strncpy(r.end, val, i);

r.end[i] = '\0';

val+=i;

count+=i;

} else {

r.end=NULL;

}

this->range.push_back(r);

return count+1;

}

bool UnicodeRange::contains(gchar unicode){

for(unsigned int i=0;i<this->unichars.size();i++){

if ((gunichar) unicode == this->unichars[i]) return true;

}

unsigned int unival;

unival = g_utf8_get_char (&unicode);

g_warning("unival=%d", unival);

char uni[9] = "00000000";

uni[8]= '\0';

unsigned char val;

for (unsigned int i=7; unival>0; i--){

val = unival & 0xf;

unival = unival >> 4;

if (val < 10) uni[i] = '0' + val;

else uni[i] = 'A'+ val - 10;

}

bool found;

for(unsigned int i=0;i<this->range.size();i++){

Urange r = this->range[i];

if (r.end){

if (unival >= hex2int(r.start) && unival <= hex2int(r.end)) return true;

} else {

found = true;

for (int pos=0;pos<8;pos++){

if (uni[pos]!='?' && uni[pos]!=r.start[pos]) found = false;

}

if (found) return true;

}

}

return false;

}