* tc-i386.c (md_assemble): Refuse 's' and 'l' suffixes in the intel
[binutils.git] / binutils / arparse.y
bloba5e90faeb1b3991b93522792b9981ef036853f7c
1 %{
2 /* arparse.y - Stange script language parser */
4 /* Copyright (C) 1992, 93, 95, 97, 98, 1999 Free Software Foundation, Inc.
6 This file is part of GNU Binutils.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
23 /* Contributed by Steve Chamberlain
24 sac@cygnus.com
27 #define DONTDECLARE_MALLOC
28 #include "bfd.h"
29 #include "bucomm.h"
30 #include "arsup.h"
31 extern int verbose;
32 extern int yylex PARAMS ((void));
33 static int yyerror PARAMS ((const char *));
36 %union {
37 char *name;
38 struct list *list ;
42 %token NEWLINE
43 %token VERBOSE
44 %token <name> FILENAME
45 %token ADDLIB
46 %token LIST
47 %token ADDMOD
48 %token CLEAR
49 %token CREATE
50 %token DELETE
51 %token DIRECTORY
52 %token END
53 %token EXTRACT
54 %token FULLDIR
55 %token HELP
56 %token QUIT
57 %token REPLACE
58 %token SAVE
59 %token OPEN
61 %type <list> modulelist
62 %type <list> modulename
63 %type <name> optional_filename
66 start:
67 { prompt(); } session
70 session:
71 session command_line
75 command_line:
76 command NEWLINE { prompt(); }
78 command:
79 open_command
80 | create_command
81 | verbose_command
82 | directory_command
83 | addlib_command
84 | clear_command
85 | addmod_command
86 | save_command
87 | extract_command
88 | replace_command
89 | delete_command
90 | list_command
91 | END { ar_end(); return 0; }
92 | error
93 | FILENAME { yyerror("foo"); }
98 extract_command:
99 EXTRACT modulename
100 { ar_extract($2); }
103 replace_command:
104 REPLACE modulename
105 { ar_replace($2); }
108 clear_command:
109 CLEAR
110 { ar_clear(); }
113 delete_command:
114 DELETE modulename
115 { ar_delete($2); }
117 addmod_command:
118 ADDMOD modulename
119 { ar_addmod($2); }
122 list_command:
123 LIST
124 { ar_list(); }
127 save_command:
128 SAVE
129 { ar_save(); }
134 open_command:
135 OPEN FILENAME
136 { ar_open($2,0); }
139 create_command:
140 CREATE FILENAME
141 { ar_open($2,1); }
145 addlib_command:
146 ADDLIB FILENAME modulelist
147 { ar_addlib($2,$3); }
149 directory_command:
150 DIRECTORY FILENAME modulelist optional_filename
151 { ar_directory($2, $3, $4); }
156 optional_filename:
157 FILENAME
158 { $$ = $1; }
159 | { $$ = 0; }
162 modulelist:
163 '(' modulename ')'
164 { $$ = $2; }
166 { $$ = 0; }
169 modulename:
170 modulename optcomma FILENAME
171 { struct list *n = (struct list *) malloc(sizeof(struct list));
172 n->next = $1;
173 n->name = $3;
174 $$ = n;
176 | { $$ = 0; }
180 optcomma:
186 verbose_command:
187 VERBOSE
188 { verbose = !verbose; }
194 static int
195 yyerror (x)
196 const char *x ATTRIBUTE_UNUSED;
198 extern int linenumber;
200 printf (_("Syntax error in archive script, line %d\n"), linenumber + 1);
201 return 0;