/* $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);

}