This commit was generated by cvs2svn to track changes on a CVS vendor
[external/binutils.git] / binutils / arparse.y
1 %{
2 /* arparse.y - Stange script language parser */
3
4 /*   Copyright 1992, 1993, 1995, 1997, 1999, 2002, 2003
5      Free Software Foundation, Inc.
6
7 This file is part of GNU Binutils.
8
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.
13
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.
18
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.  */
22
23
24 /* Contributed by Steve Chamberlain
25                   sac@cygnus.com
26
27 */
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 *);
35 %}
36
37 %union {
38   char *name;
39 struct list *list ;
40
41 };
42
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
61
62 %type <list> modulelist 
63 %type <list> modulename
64 %type <name> optional_filename
65 %%
66
67 start:
68         { prompt(); } session
69         ;
70
71 session:
72             session command_line
73         |
74         ;
75
76 command_line:
77                 command NEWLINE { prompt(); }
78         ;
79
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"); }
96         |
97         ;
98
99
100 extract_command:
101                 EXTRACT modulename
102                 { ar_extract($2); }
103         ;
104
105 replace_command:        
106                 REPLACE modulename
107                 { ar_replace($2); }
108         ;
109         
110 clear_command:
111                 CLEAR
112                 { ar_clear(); }
113         ;
114
115 delete_command:
116                 DELETE modulename
117                 { ar_delete($2); }
118         ;
119 addmod_command:
120         ADDMOD modulename
121                 { ar_addmod($2); }
122         ;
123
124 list_command:   
125                 LIST
126                 { ar_list(); }
127         ;
128
129 save_command:   
130                 SAVE
131                 { ar_save(); }
132         ;
133
134
135
136 open_command:
137                 OPEN FILENAME 
138                 { ar_open($2,0); }
139         ;
140
141 create_command:
142                 CREATE FILENAME 
143                 { ar_open($2,1); }
144         ;
145
146
147 addlib_command:
148                 ADDLIB FILENAME modulelist
149                 { ar_addlib($2,$3); }
150         ;
151 directory_command:
152                 DIRECTORY FILENAME modulelist optional_filename
153                 { ar_directory($2, $3, $4); }
154         ;
155
156
157
158 optional_filename:
159                 FILENAME
160                 { $$ = $1; }
161         |       { $$ = 0; }
162         ;
163
164 modulelist:
165         '(' modulename ')' 
166                 { $$ = $2; }
167         |
168                 { $$ = 0; }
169         ;
170
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;
177                  }
178         |       { $$ = 0; }
179         ;
180         
181
182 optcomma:
183                 ','
184         |
185         ;
186         
187                 
188 verbose_command:
189         VERBOSE 
190                 { verbose = !verbose; }
191         ;
192
193
194 %%
195
196 static int
197 yyerror (const char *x ATTRIBUTE_UNUSED)
198 {
199   extern int linenumber;
200
201   printf (_("Syntax error in archive script, line %d\n"), linenumber + 1);
202   return 0;
203 }