[linux-2.6-block.git] / drivers / scsi / aic7xxx / aicasm / aicasm_macro_gram.y

%{
/*
 * Sub-parser for macro invocation in the Aic7xxx SCSI
 * Host adapter sequencer assembler.
 *
 * Copyright (c) 2001 Adaptec Inc.
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions, and the following disclaimer,
 *    without modification.
 * 2. Redistributions in binary form must reproduce at minimum a disclaimer
 *    substantially similar to the "NO WARRANTY" disclaimer below
 *    ("Disclaimer") and any redistribution must be conditioned upon
 *    including a substantially similar Disclaimer requirement for further
 *    binary redistribution.
 * 3. Neither the names of the above-listed copyright holders nor the names
 *    of any contributors may be used to endorse or promote products derived
 *    from this software without specific prior written permission.
 *
 * Alternatively, this software may be distributed under the terms of the
 * GNU General Public License ("GPL") version 2 as published by the Free
 * Software Foundation.
 *
 * NO WARRANTY
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
 * A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
 * HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
 * STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
 * IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGES.
 *
 * $Id: //depot/aic7xxx/aic7xxx/aicasm/aicasm_macro_gram.y#5 $
 *
 * $FreeBSD$
 */

#include <sys/types.h>

#include <inttypes.h>
#include <regex.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sysexits.h>

#ifdef __linux__
#include "../queue.h"
#else
#include <sys/queue.h>
#endif

#include "aicasm.h"
#include "aicasm_symbol.h"
#include "aicasm_insformat.h"

static symbol_t *macro_symbol;

static void add_macro_arg(const char *argtext, int position);
void mmerror(const char *string);

%}

%union {
	int		value;
	char		*str;
	symbol_t	*sym;
}


%token <str> T_ARG

%token <sym> T_SYMBOL

%type <value> macro_arglist

%%

macrocall:
	T_SYMBOL '('
	{
		macro_symbol = $1;
	}
	macro_arglist ')'
	{
		if (macro_symbol->info.macroinfo->narg != $4) {
			printf("Narg == %d", macro_symbol->info.macroinfo->narg);
			stop("Too few arguments for macro invocation",
			     EX_DATAERR);
			/* NOTREACHED */
		}
		macro_symbol = NULL;
		YYACCEPT;
	}
;

macro_arglist:
	{
		/* Macros can take 0 arguments */
		$$ = 0;
	}
|	T_ARG
	{
		$$ = 1;
		add_macro_arg($1, 1);
	}
|	macro_arglist ',' T_ARG
	{
		if ($1 == 0) {
			stop("Comma without preceding argument in arg list",
			     EX_DATAERR);
			/* NOTREACHED */
		}
		$$ = $1 + 1;
		add_macro_arg($3, $$);
	}
;

%%

static void
add_macro_arg(const char *argtext, int argnum)
{
	struct macro_arg *marg;
	int i;

	if (macro_symbol == NULL || macro_symbol->type != MACRO) {
		stop("Invalid current symbol for adding macro arg",
		     EX_SOFTWARE);
		/* NOTREACHED */
	}
	/*
	 * Macro Invocation.  Find the appropriate argument and fill
	 * in the replace ment text for this call.
	 */
	i = 0;
	STAILQ_FOREACH(marg, &macro_symbol->info.macroinfo->args, links) {
		i++;
		if (i == argnum)
			break;
	}
	if (marg == NULL) {
		stop("Too many arguments for macro invocation", EX_DATAERR);
		/* NOTREACHED */
	}
	marg->replacement_text = strdup(argtext);
	if (marg->replacement_text == NULL) {
		stop("Unable to replicate replacement text", EX_SOFTWARE);
		/* NOTREACHED */
	}
}

void
mmerror(const char *string)
{
	stop(string, EX_DATAERR);
}
Commit	Line	Data
1da177e4 LT	1	%{
	2	/*
	3	* Sub-parser for macro invocation in the Aic7xxx SCSI
	4	* Host adapter sequencer assembler.
	5	*
	6	* Copyright (c) 2001 Adaptec Inc.
	7	* All rights reserved.
	8	*
	9	* Redistribution and use in source and binary forms, with or without
	10	* modification, are permitted provided that the following conditions
	11	* are met:
	12	* 1. Redistributions of source code must retain the above copyright
	13	* notice, this list of conditions, and the following disclaimer,
	14	* without modification.
	15	* 2. Redistributions in binary form must reproduce at minimum a disclaimer
	16	* substantially similar to the "NO WARRANTY" disclaimer below
	17	* ("Disclaimer") and any redistribution must be conditioned upon
	18	* including a substantially similar Disclaimer requirement for further
	19	* binary redistribution.
	20	* 3. Neither the names of the above-listed copyright holders nor the names
	21	* of any contributors may be used to endorse or promote products derived
	22	* from this software without specific prior written permission.
	23	*
	24	* Alternatively, this software may be distributed under the terms of the
	25	* GNU General Public License ("GPL") version 2 as published by the Free
	26	* Software Foundation.
	27	*
	28	* NO WARRANTY
	29	* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
	30	* "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
	31	* LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTIBILITY AND FITNESS FOR
	32	* A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT
	33	* HOLDERS OR CONTRIBUTORS BE LIABLE FOR SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	34	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	35	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	36	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT,
	37	* STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING
	38	* IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
	39	* POSSIBILITY OF SUCH DAMAGES.
	40	*
	41	* $Id: //depot/aic7xxx/aic7xxx/aicasm/aicasm_macro_gram.y#5 $
	42	*
	43	* $FreeBSD$
	44	*/
	45
	46	#include <sys/types.h>
	47
	48	#include <inttypes.h>
	49	#include <regex.h>
	50	#include <stdio.h>
	51	#include <stdlib.h>
	52	#include <string.h>
	53	#include <sysexits.h>
	54
	55	#ifdef __linux__
	56	#include "../queue.h"
	57	#else
	58	#include <sys/queue.h>
	59	#endif
	60
	61	#include "aicasm.h"
	62	#include "aicasm_symbol.h"
	63	#include "aicasm_insformat.h"
	64
65	static symbol_t *macro_symbol;
66
67	static void add_macro_arg(const char *argtext, int position);
f45ffaec	68	void mmerror(const char *string);
1da177e4 LT	69
	70	%}
	71
	72	%union {
	73	int value;
	74	char *str;
	75	symbol_t *sym;
	76	}
	77
	78
	79	%token <str> T_ARG
	80
	81	%token <sym> T_SYMBOL
	82
	83	%type <value> macro_arglist
	84
	85	%%
	86
	87	macrocall:
	88	T_SYMBOL '('
	89	{
	90	macro_symbol = $1;
	91	}
	92	macro_arglist ')'
	93	{
	94	if (macro_symbol->info.macroinfo->narg != $4) {
	95	printf("Narg == %d", macro_symbol->info.macroinfo->narg);
	96	stop("Too few arguments for macro invocation",
	97	EX_DATAERR);
	98	/* NOTREACHED */
	99	}
	100	macro_symbol = NULL;
	101	YYACCEPT;
	102	}
	103	;
	104
	105	macro_arglist:
	106	{
	107	/* Macros can take 0 arguments */
	108	$$ = 0;
	109	}
	110	\| T_ARG
	111	{
	112	$$ = 1;
	113	add_macro_arg($1, 1);
	114	}
	115	\| macro_arglist ',' T_ARG
	116	{
	117	if ($1 == 0) {
25985edc	118	stop("Comma without preceding argument in arg list",
1da177e4 LT	119	EX_DATAERR);
	120	/* NOTREACHED */
	121	}
	122	$$ = $1 + 1;
	123	add_macro_arg($3, $$);
	124	}
	125	;
	126
	127	%%
	128
	129	static void
	130	add_macro_arg(const char *argtext, int argnum)
	131	{
	132	struct macro_arg *marg;
	133	int i;
	134
	135	if (macro_symbol == NULL \|\| macro_symbol->type != MACRO) {
	136	stop("Invalid current symbol for adding macro arg",
	137	EX_SOFTWARE);
	138	/* NOTREACHED */
	139	}
	140	/*
	141	* Macro Invocation. Find the appropriate argument and fill
	142	* in the replace ment text for this call.
	143	*/
	144	i = 0;
	145	STAILQ_FOREACH(marg, &macro_symbol->info.macroinfo->args, links) {
	146	i++;
	147	if (i == argnum)
	148	break;
	149	}
	150	if (marg == NULL) {
	151	stop("Too many arguments for macro invocation", EX_DATAERR);
	152	/* NOTREACHED */
	153	}
	154	marg->replacement_text = strdup(argtext);
	155	if (marg->replacement_text == NULL) {
	156	stop("Unable to replicate replacement text", EX_SOFTWARE);
	157	/* NOTREACHED */
	158	}
	159	}
	160
	161	void
	162	mmerror(const char *string)
	163	{
	164	stop(string, EX_DATAERR);
	165	}