#include <stdio.h>

#include "dictre.h"

static char * get_string(FILE *index, char *buffer)

{

    int c;

    int count;

    count = 0;

    do

    {

        c = fgetc(index);

        if(c == EOF)

        {

            count = 1; /* for next [count-1] */

            break;

        }

        buffer[count++] = (char) c;

    } while(c != '\t' && c != '\n');

    buffer[count-1] = '\0';

}

char * get_word(FILE *index)

{

    char buffer[500];

    char *out;

    int len;

    get_string(index, buffer);

    if ((len = strlen(buffer)) > 0)

    {

        out = (char *) malloc(len + 1);

        strcpy(out, buffer);

    }

    else

        out = 0;

    return out;

}

static int char2val(char letter)

{

    switch(letter)

    {

        case 'A': return 0;

        case 'B': return 1;

        case 'C': return 2;

        case 'D': return 3;

        case 'E': return 4;

        case 'F': return 5;

        case 'G': return 6;

        case 'H': return 7;

        case 'I': return 8;

        case 'J': return 9;

        case 'K': return 10;

        case 'L': return 11;

        case 'M': return 12;

        case 'N': return 13;

        case 'O': return 14;

        case 'P': return 15;

        case 'Q': return 16;

        case 'R': return 17;

        case 'S': return 18;

        case 'T': return 19;

        case 'U': return 20;

        case 'V': return 21;

        case 'W': return 22;

        case 'X': return 23;

        case 'Y': return 24;

        case 'Z': return 25;

        case 'a': return 26;

        case 'b': return 27;

        case 'c': return 28;

        case 'd': return 29;

        case 'e': return 30;

        case 'f': return 31;

        case 'g': return 32;

        case 'h': return 33;

        case 'i': return 34;

        case 'j': return 35;

        case 'k': return 36;

        case 'l': return 37;

        case 'm': return 38;

        case 'n': return 39;

        case 'o': return 40;

        case 'p': return 41;

        case 'q': return 42;

        case 'r': return 43;

        case 's': return 44;

        case 't': return 45;

        case 'u': return 46;

        case 'v': return 47;

        case 'w': return 48;

        case 'x': return 49;

        case 'y': return 50;

        case 'z': return 51;

        case '0': return 52;

        case '1': return 53;

        case '2': return 54;

        case '3': return 55;

        case '4': return 56;

        case '5': return 57;

        case '6': return 58;

        case '7': return 59;

        case '8': return 60;

        case '9': return 61;

        case '+': return 62;

        default:

                  return 0;

    }

}

{

    int i = 0;

    int length;

    int val = 0;

    length = strlen(str);

    while (i < length)

    {

        val = char2val(str[i]) + val * 64;

        ++i;

    }

    return val;

}

int get_int(FILE *index)

{

    char buffer[500];

    int val;

    get_string(index, buffer);

    if (strlen(buffer) > 0)

    {

        val = str2int(buffer);

    } else

        val = -1;

    return val;

}

char * get_def(FILE *fdefs, int offset, int length)

{

    char *out;

    fseek(fdefs, offset, SEEK_SET);

    out = (char *) malloc(length);

    fread(out, length, 1, fdefs);

    return out;

}