#include <stdlib.h>
#include <stdio.h>
#include <unistd.h>
#include <string.h>
#include <grass/glocale.h>

#include "local_proto.h"

int 
input (char *blank1, char *word1, char *blank2, char *word2, char *rest)
{
    char buf[1024];
    char *b,*w1, *w2;
    int string_size;

    if (isatty(0))
	fprintf (stderr, "> ");
    
    *blank1 = *blank2 = 0;
    *word1 = *word2 = *rest = 0;

    if(!fgets(buf,1024,stdin))
    {
	*buf = 0;
	return 0;
    }

    /* note ebuf and nbuf in main.c (w1 and w2 here) are only 256 chars, we
       check here to make sure we don't move the pointer past sizeof(buf) */
    if(strlen(buf) >= 1023)
	G_fatal_error(_("One coordinate pair per line, please."));

    b = buf;
    w1 = word1;
    w2 = word2;

    while(*b == ' ' || *b == '\t' || *b == ',')
	*blank1++ = *b++;
    *blank1 = 0;

    while (*b != '\n' && *b != ' ' && *b != '\t' && *b != ',')
	*word1++ = *b++;
    *word1 = 0;

    string_size = strlen(w1);
    G_debug(5, "strlen w1=%d  [%s]", string_size, w1);
    if(string_size > 255)
	G_fatal_error(_("One coordinate pair per line, please."));

    while(*b == ' ' || *b == '\t' || *b == ',')
	*blank2++ = *b++;
    *blank2 = 0;

    while (*b != '\n' && *b != ' ' && *b != '\t' && *b != ',')
	*word2++ = *b++;
    *word2 = 0;

    string_size = strlen(w2);
    G_debug(5, "strlen w2=%d  [%s]", string_size, w2);
    if(string_size > 255)
	G_fatal_error(_("One coordinate pair per line, please."));

    /* bug? really = and not ==? */
    /* not a bug: we are filling "rest" with the remaining fgets buffer. 
        This goes unused though so could be ripped out if a worry */
    while ((*rest++ = *b++))
	;

    if (isatty(0) && strcmp ("end", w1) == 0 && *w2 == 0)
	return 0;
    
    return 1;
}