/*
 * 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 <Xm/Xm.h>
#include "toolchest.h"
%}

%union
{
    char *string;
    struct menuEntry *menuEntry;
}

%token <string>  STRING
%token <string>  MENU
%token <string>  INCLUDE
%token <string>  SINCLUDE
%token <string>  REMOVE
%token <string>  FROM
%token <string>  F_EXEC
%token <string>  F_CHECKEXEC
%token <string>  F_CHECKEXPR
%token <string>  F_SEPARATOR
%token <string>  F_LABEL
%token <string>  F_TITLE
%token <string>  F_MENU

%type <string> string _string
%type <menuEntry> menuitem menuspec

%%
specs	: /* empty */
	| specs spec newline
	| specs newline
	;

spec	: INCLUDE string
	    {
		IncludeFile($2, TRUE);
	    }
	| SINCLUDE string
	    {
		IncludeFile($2, FALSE);
	    }
	| MENU string newline '{' newline menuspec '}'
	    {
		if ($6 != NULL);
		{
		    register struct menu *menu;
		    
		    menu = FindMenu($2, TRUE);
		    /* if the menu already existed, add new items to end */
		    if (menu->firstMenuEntry)
		    {
			struct menuEntry *tlast;
			
			menu->lastMenuEntry->next = $6;
			$6->prev->next = NULL;
			tlast = menu->lastMenuEntry;
			menu->lastMenuEntry = $6->prev;
			$6->prev = tlast;
		    }
		    /* otherwise just put these on the new menu */
		    else
		    {
			menu->firstMenuEntry = $6;
			menu->lastMenuEntry = $6->prev;
			$6->prev->next = NULL;
			$6->prev = NULL;
		    }
#ifdef TCMENU
		    {
			register struct menuEntry *entry;

			for (entry = menu->firstMenuEntry; entry;
			     entry = entry->next)
			    entry->containingMenu = menu;
		    }
#endif /* TCMENU */
		}
	    }
		
	| REMOVE string
	    {
		RemoveMenuEntry($2, NULL);
	    }
	| REMOVE string FROM string
	    {
		RemoveMenuEntry($2, $4);
	    }
	;

menuspec: /* empty */
	    {
		$$ = NULL;
	    }
	| menuspec newline
	| menuspec menuitem newline
	    {
		/* so that we can keep track of both the first and
		 * last menu entry, keep the menu entries as a circular
		 * list.  Always return a pointer to the first item
		 */
		if ($1 == NULL)
		{
		    $2->next = $2;
		    $2->prev = $2;
		    $$=$2;
		}
		else
		{
		    $2->prev = $1->prev;
		    $2->next = $1;
		    $1->prev->next = $2;
		    $1->prev = $2;
		    $$ = $1;
		}
	    }
	;

menuitem: string F_MENU string
	    {
		$$ = NewMenuEntry($1, ME_MENU);
		$$->menuName = $3;
	    }
	| string F_LABEL
	    {
		$$ = NewMenuEntry($1, ME_LABEL);
	    }
	| string F_TITLE
	    {
		$$ = NewMenuEntry($1, ME_TITLE);
	    }
	| string F_SEPARATOR
	    {
		$$ = NewMenuEntry($1, ME_SEPARATOR);
	    }
	| string F_EXEC string
	    {
		$$ = NewMenuEntry($1, ME_EXEC);
		$$->execString = $3;
	    }
	| string F_CHECKEXEC string
	    {
		$$ = NewMenuEntry($1, ME_CHECKEXEC);
		$$->execString = $3;
	    }
	| string F_CHECKEXPR string string
	    {
		$$ = NewMenuEntry($1, ME_CHECKEXPR);
		$$->exprString = $3;
		$$->execString = $4;
	    }
	;

/* all tokens are also valid strings, so accept them.  Include an intermediate
 * node so that all strings can be stripped of quotes
 */
string	: _string
	    {
		$$ = UnquoteString($1);
	    }
	;

_string	: STRING
	| MENU
	| INCLUDE
	| REMOVE
	| FROM
	| F_EXEC
	| F_CHECKEXEC
	| F_CHECKEXPR
	| F_SEPARATOR
	| F_LABEL
	| F_TITLE
	| F_MENU
	| '{'
	    {
		$$ = "{";
	    }
	| '}'
	    {
		$$ = "{";
	    }
	;

newline	: '\n'
	    {
		lineno++;
	    }
%%
yyerror(s)
char *s;
{
    FileError("%s\n",s);
}