/* $XConsortium: lex.c /main/5 1995/07/15 21:01:33 drk $ */
/*
 * Motif
 *
 * Copyright (c) 1987-2012, The Open Group. All rights reserved.
 *
 * These libraries and programs are free software; you can
 * redistribute them and/or modify them under the terms of the GNU
 * Lesser General Public License as published by the Free Software
 * Foundation; either version 2 of the License, or (at your option)
 * any later version.
 *
 * These libraries and programs are distributed in the hope that
 * they will be useful, but WITHOUT ANY WARRANTY; without even the
 * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
 * PURPOSE. See the GNU Lesser General Public License for more
 * details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with these librararies and programs; if not, write
 * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
 * Floor, Boston, MA 02110-1301 USA
 */
/*
 * HISTORY
 */


#include <stdio.h>
#include <string.h>
#include <X11/Intrinsic.h>
#include <Xm/Xm.h>
#include "y.tab.h"
#include "toolchest.h"

extern YYSTYPE yylval;

void
getstring()
{
    Boolean inquote = FALSE;
    static Boolean firstLineChar = TRUE;
    static Boolean firstTokChar;
    static char newline[] = "\n";
    extern char * SaveChar();
    char c;

    /* skip white space and comments */
    while ((c = NextChar()) == ' ' || c == '\t' || c == '\n' || c == '#' ||
	   (c == '!' && firstLineChar))
    {
	if (c == '\n')
	{
	    firstLineChar = TRUE;
	    yylval.string = newline;
	    return;
	}
	else if (c == '#' || firstLineChar && c == '!')
	{
	    while ((c = NextChar()) != '\n' && c != EOF)
		;
	    firstLineChar = TRUE;
	    yylval.string = newline;
	    return;
	}
	else
	    firstLineChar = FALSE;
    }
    PrevChar();
    firstTokChar = TRUE;
    yylval.string = SaveChar();
    while ((c = NextChar()) != '\0' && c != '\n' && (inquote || (c != ' ' && c != '\t')))
    {
	if (c == '!' && firstTokChar)
	{
	    yylval.string = "!";
	    return;
	}
	firstTokChar = FALSE;
	if (c == '"')
	{
	    inquote = !inquote;
	}
	else if (c == '\\')
	{
	    c = NextChar();
	}
    }
    NullChar();
}

int
yylex()
{
    getstring();

    if (yylval.string[0] == '\n')
    {
	return ('\n');
    }
    if (yylval.string[0] == '\0')
    {
	return (0);
    }
    if (yylval.string[0] == '!')
    {
	return (F_EXEC);
    }
    else if ((yylval.string[0] == 'f' || yylval.string[0] == 'F') &&
	     yylval.string[1] == '.')
    {
	if (strcasecmp(yylval.string+2, "exec") == 0)
	{
	    return (F_EXEC);
	}
	else if (strcasecmp(yylval.string+2, "checkexec") == 0)
	{
	    return (F_CHECKEXEC);
	}
	else if (strcasecmp(yylval.string+2, "checkexpr") == 0)
	{
	    return (F_CHECKEXPR);
	}
	else if (strcasecmp(yylval.string+2, "separator") == 0)
	{
	    return (F_SEPARATOR);
	}
	else if (strcasecmp(yylval.string+2, "menu") == 0)
	{
	    return (F_MENU);
	}
	else if (strcasecmp(yylval.string+2, "label") == 0)
	{
	    return (F_LABEL);
	}
	else if (strcasecmp(yylval.string+2, "title") == 0)
	{
	    return (F_TITLE);
	}
	else
	{
	    FileError ("unknown f function %s\n", yylval.string+2);
	    return (STRING);
	}
    }
    else if (strcasecmp(yylval.string, "menu") == 0)
    {
	return (MENU);
    }
    else if (strcasecmp(yylval.string, "sinclude") == 0)
    {
	return (SINCLUDE);
    }
    else if (strcasecmp(yylval.string, "include") == 0)
    {
	return (INCLUDE);
    }
    else if (strcasecmp(yylval.string, "remove") == 0)
    {
	return (REMOVE);
    }
    else if (strcasecmp(yylval.string, "from") == 0)
    {
	return (FROM);
    }
    else if ((yylval.string[0] == '{' || yylval.string[0] == '}') &&
	     yylval.string[1] == '\0')
    {
	return (yylval.string[0]);
    }
    else
    {
	return (STRING);
    }
}

/* internal routine to remove quotes from string */
static char *
realUnquoteString(char *string)
{
    register char *p, *q;
    char *ret;
    Boolean quoted=FALSE;

    ret = (char *)tcMalloc(strlen(string)+1);

    p = string;
    q = ret;
    do
    {
	if (*p == '\\')
	    /* skip it */;
	else if (*p == '"')
	    quoted = !quoted;
	else
	    *q++ = *p;
    }
    while (*p++ != '\0');
    return (ret);
}

/* if the string has no quotes, just return the string itself.
 * if it is a simple string with beginning and ending quotes, Null out
 * the beginning and ending quotes and return it.
 * if it is complexly quoted, tcMalloc a new string and return it.
 */
char *
UnquoteString(char *string)
{
    /* check for embedded backslash */
    if (strchr(string, '\\'))
	return (realUnquoteString(string));
    /* check for simply quoted string */
    if (string[0] == '"' && string[strlen(string)-1] == '"')
    {
	/* remove the quotes */
	string++;
	string[strlen(string)-1] = '\0';
	if (strchr(string, '"'))
	{
	    /* it has an embeeded quote.  undo damage and dequote the string */
	    string[strlen(string)-1] = '"';
	    string--;
	    return (realUnquoteString(string));
	}
	/* no embedded quotes; return the string with quotes removed */
	return (string);
    }
    if (strchr(string, '"'))
	return (realUnquoteString(string));
    /* unquoted string, return it */
    return (string);
}