--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/dict.c	Sun Aug 05 23:06:42 2007 +0200
@@ -0,0 +1,157 @@
+#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;
+        case '/': return 63;
+        default:
+                  return 0;
+    }
+}
+
+static int str2int(const char *str)
+{
+    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;
+}