/* This stuff is taken from the p.map/cmd files text.h, scan_ref.c and case.c
 **
 ** Paul W. Carlson     March 1992
 */

#include <stdio.h>
#include <string.h>
#include "local_proto.h"

#define LEFT   0
#define RIGHT  1
#define LOWER  0
#define UPPER  1
#define CENTER 2

static int xok, yok;
static int ymatch(char *, int *);
static int xmatch(char *, int *);

int scan_ref(char *buf, int *xref, int *yref)
{
    char word1[50], word2[50];

    xok = yok = 0;

    *xref = *yref = CENTER;
    switch (sscanf(buf, "%s%s", word1, word2)) {
    case 2:
        lowercase(word2);
        if (!(xmatch(word2, xref) || ymatch(word2, yref)))
            return 0;
        G_FALLTHROUGH;
    case 1:
        lowercase(word1);
        if (xmatch(word1, xref) || ymatch(word1, yref))
            return 1;
        G_FALLTHROUGH;
    default:
        return 0;
    }
}

static int xmatch(char *word, int *xref)
{
    if (strcmp(word, "center") == 0)
        return 1;
    if (strcmp(word, "middle") == 0)
        return 1;
    if (xok)
        return 0;

    if (strcmp(word, "left") == 0)
        *xref = LEFT;
    else if (strcmp(word, "right") == 0)
        *xref = RIGHT;
    else
        return 0;
    xok = 1;
    return 1;
}

static int ymatch(char *word, int *yref)
{
    if (strcmp(word, "center") == 0)
        return 1;
    if (strcmp(word, "middle") == 0)
        return 1;
    if (yok)
        return 0;

    if (strcmp(word, "upper") == 0)
        *yref = UPPER;
    else if (strcmp(word, "top") == 0)
        *yref = UPPER;
    else if (strcmp(word, "lower") == 0)
        *yref = LOWER;
    else if (strcmp(word, "bottom") == 0)
        *yref = LOWER;
    else
        return 0;
    yok = 1;
    return 1;
}

int lowercase(register char *s)
{
    for (; *s; s++)
        if (*s >= 'A' && *s <= 'Z')
            *s += 'a' - 'A';

    return 0;
}
