]>
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, ¯o_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 | } |