/**

 *  $Id: sentence.c 53 2008-01-10 00:19:41Z mbroeker $

 * $URL: http://localhost/svn/c/VirtualReader/trunk/src/sentence.c $

 */

#include <sentence.h>

int words (char *ptr)

{

    char *buffer = NULL;

    char *token;

    int count = 0;

    if (ptr != NULL)

        buffer = strdup (ptr);

    if (buffer == NULL)

        return -1;

    token = strtok (buffer, " ");

    while (token != NULL) {

        token = strtok (NULL, " ");

        count++;

    }

    if (buffer != NULL)

        free (buffer);

    return count;

}

int *parse (char *buf)

{

    int count = 0;

    int i;

    int *s_ptr = NULL;

    s_ptr = malloc (2 * sizeof (int));

    s_ptr[count++] = 0;

    for (i = 0; i < strlen (buf); i++)

        switch (buf[i]) {

        case '\n':

        case '\t':

        case '"':

        case '\'':

            buf[i] = ' ';

            break;

        case '.':

        case '!':

        case '?':

            s_ptr = realloc (s_ptr, (count + 2) * sizeof (int));

            if (s_ptr == NULL) {

                printf ("Not enough memory\n");

                return NULL;

            }

            s_ptr[count++] = ++i;

            break;

        default:

            break;

        }

    s_ptr[count] = 0;

    return s_ptr;

}

char *readbuffer (char *fname)

{

    FILE *f;

    char *text = NULL;

    char buffer[201];

    if ((f = fopen (fname, "r")) == NULL) {

        fprintf (stderr, "ERROR: Cannot open %s for reading!\n", fname);

        return NULL;

    }

    text = malloc (2);

    *text = 0;

    while (fgets (buffer, 200, f) != 0) {

        if ((text = realloc (text, strlen (text) + strlen (buffer) + 1)) == NULL) {

            printf ("Not enough memory\n");

            return NULL;

        };

        strcat (text, buffer);

        *buffer = 0;

    }

    fclose (f);

    return text;

}

char *getSentence (char *text, int start, int end)

{

    int i;

    char *value = NULL;

    if ((i = end - start) < 0)

        return NULL;

    value = malloc (i + 1);

    if (value == NULL)

        return NULL;

    i = 1;

    while (i) {

        switch (text[start]) {

        case '.':

        case ',':

        case '!':

        case '?':

        case '(':

        case ')':

        case '\n':

        case ' ':

            start++;

            break;

        default:

            i = 0;

            break;

        }

    }

    for (i = start; i < end; i++) {

        value[i - start] = text[i];

    }

    value[i - start] = 0;

    return value;

}

char **getstrings (char *Text, int *value)

{

    char *ptr;

    int i = 0;

    int count = 0;

    char **sentences = NULL;

    int *s_ptr;

    if ((s_ptr = parse (Text)) == NULL)

        return NULL;

    while (s_ptr[i + 1] > 0) {

        if ((ptr = getSentence (Text, s_ptr[i], s_ptr[i + 1])) == NULL)

            return NULL;

        if (strlen (ptr) > 0) {

            if ((sentences = realloc (sentences, (count + 1) * sizeof (char *) + 1)) == NULL)

                return NULL;

            sentences[count++] = strdup (ptr);

        }

        if (ptr != NULL)

            free (ptr);

        i++;

    }

    if (s_ptr)

        free (s_ptr);

    *value = count;

    return sentences;

}