#include <stdio.h>
#include <unicode/utf8.h>
#include "dictre.h"

static int url_get(FILE *f)
{
    int val;

    val = fgetc(f);
    if (val == '%')
    {
        unsigned char num[3];
        num[2] = '\0';
        num[0] = fgetc(f);
        num[1] = fgetc(f);
        val = strtol(num, 0, 16);
    } else if (val == '&')
        return END_OF_URL;
    else if (val == '+')
        return ' ';
    /*printf("[%i]", val);*/
    return val;
}

static int char2num(unsigned char c)
{
    if (c >= '0' && c <= '9')
        return c - '0';
    if (c >= 'A' && c <= 'Z')
        return c + 10 - 'A';
    if (c >= 'a' && c <= 'z')
        return c + 10 - 'a';
    return 0;
}

int http_getc(FILE *f)
{
    int c;
    static unsigned char tmp[6]; /* for a UTF-8 string */
    static int itmp = -1;
    static int tmplen;

    if (itmp == -1)
    {
        c = url_get(f);
        if (c == '&')
        {
            c = url_get(f);
            if (c == '#')
            {
                char iserror = 0;
                int entval;
                /*Get number*/
                entval = 0;
                while((c = url_get(f)) != ';')
                {
                    /* Digits in base 10 */
                    entval = char2num(c) + entval * 10;
                }
                /*printf("{%i}", entval);*/
                /*Get utf-8 version*/
                tmplen = 0;
                U8_APPEND(tmp, tmplen, 6, entval, iserror);
                if (iserror)
                    return -3;
                /* We need not to program itmp for the next run
                 * if we have only one character to send */
                if (tmplen != 1)
                    itmp = 1;
                return tmp[0];
            }
            else
                return HTTP_DECODE_ERROR; /* ERROR! */
        }
    } else /* We already have a character to keep on sending */
    {
        int tosend;
        tosend = itmp;
        ++itmp;
        if (itmp == tmplen)
            itmp = -1;
        return tmp[tosend];
    }
    return c;
}