daily update
[binutils.git] / binutils / arparse.y
bloba7ea0157f4113b48043ee98ef00ff1ab5330bfb9
1 %{
2 /* arparse.y - Stange script language parser */
4 /* Copyright 1992, 1993, 1995, 1997, 1999, 2002, 2003
5 Free Software Foundation, Inc.
7 This file is part of GNU Binutils.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 2 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program; if not, write to the Free Software
21 Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. */
24 /* Contributed by Steve Chamberlain
25 sac@cygnus.com
28 #define DONTDECLARE_MALLOC
29 #include "bfd.h"
30 #include "bucomm.h"
31 #include "arsup.h"
32 extern int verbose;
33 extern int yylex (void);
34 static int yyerror (const char *);
37 %union {
38 char *name;
39 struct list *list ;
43 %token NEWLINE
44 %token VERBOSE
45 %token <name> FILENAME
46 %token ADDLIB
47 %token LIST
48 %token ADDMOD
49 %token CLEAR
50 %token CREATE
51 %token DELETE
52 %token DIRECTORY
53 %token END
54 %token EXTRACT
55 %token FULLDIR
56 %token HELP
57 %token QUIT
58 %token REPLACE
59 %token SAVE
60 %token OPEN
62 %type <list> modulelist
63 %type <list> modulename
64 %type <name> optional_filename
67 start:
68 { prompt(); } session
71 session:
72 session command_line
76 command_line:
77 command NEWLINE { prompt(); }
80 command:
81 open_command
82 | create_command
83 | verbose_command
84 | directory_command
85 | addlib_command
86 | clear_command
87 | addmod_command
88 | save_command
89 | extract_command
90 | replace_command
91 | delete_command
92 | list_command
93 | END { ar_end(); return 0; }
94 | error
95 | FILENAME { yyerror("foo"); }
100 extract_command:
101 EXTRACT modulename
102 { ar_extract($2); }
105 replace_command:
106 REPLACE modulename
107 { ar_replace($2); }
110 clear_command:
111 CLEAR
112 { ar_clear(); }
115 delete_command:
116 DELETE modulename
117 { ar_delete($2); }
119 addmod_command:
120 ADDMOD modulename
121 { ar_addmod($2); }
124 list_command:
125 LIST
126 { ar_list(); }
129 save_command:
130 SAVE
131 { ar_save(); }
136 open_command:
137 OPEN FILENAME
138 { ar_open($2,0); }
141 create_command:
142 CREATE FILENAME
143 { ar_open($2,1); }
147 addlib_command:
148 ADDLIB FILENAME modulelist
149 { ar_addlib($2,$3); }
151 directory_command:
152 DIRECTORY FILENAME modulelist optional_filename
153 { ar_directory($2, $3, $4); }
158 optional_filename:
159 FILENAME
160 { $$ = $1; }
161 | { $$ = 0; }
164 modulelist:
165 '(' modulename ')'
166 { $$ = $2; }
168 { $$ = 0; }
171 modulename:
172 modulename optcomma FILENAME
173 { struct list *n = (struct list *) malloc(sizeof(struct list));
174 n->next = $1;
175 n->name = $3;
176 $$ = n;
178 | { $$ = 0; }
182 optcomma:
188 verbose_command:
189 VERBOSE
190 { verbose = !verbose; }
196 static int
197 yyerror (const char *x ATTRIBUTE_UNUSED)
199 extern int linenumber;
201 printf (_("Syntax error in archive script, line %d\n"), linenumber + 1);
202 return 0;