2 * Copyright (c) 1990, 1993
3 * The Regents of the University of California. All rights reserved.
5 * This code is derived from software contributed to Berkeley by
8 * Redistribution and use in source and binary forms, with or without
9 * modification, are permitted provided that the following conditions
11 * 1. Redistributions of source code must retain the above copyright
12 * notice, this list of conditions and the following disclaimer.
13 * 2. Redistributions in binary form must reproduce the above copyright
14 * notice, this list of conditions and the following disclaimer in the
15 * documentation and/or other materials provided with the distribution.
16 * 3. Neither the name of the University nor the names of its contributors
17 * may be used to endorse or promote products derived from this software
18 * without specific prior written permission.
20 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
21 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
22 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
23 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
24 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
25 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
26 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
27 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
28 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
29 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
32 * @(#)grammar.y 8.1 (Berkeley) 5/31/93
33 * $DragonFly: src/games/atc/grammar.y,v 1.3 2006/08/08 15:03:02 pavalos Exp $
37 * Copyright (c) 1987 by Ed James, UC Berkeley. All rights reserved.
39 * Copy permission is hereby granted provided that this notice is
40 * retained on all partial or complete copies.
42 * For more info on this and all of my stuff, mail edjames@berkeley.edu.
45 %token
<ival
> HeightOp
47 %token
<ival
> UpdateOp
48 %token
<ival
> NewplaneOp
52 %token
<ival
> AirportOp
53 %token
<ival
> BeaconOp
63 extern
int yylex(void);
65 static void check_edge
(int, int);
66 static void check_point
(int, int);
67 static void check_linepoint
(int, int);
68 static void check_line
(int, int, int, int);
69 static int yyerror(const char *);
70 static void check_edir
(int, int, int);
71 static int checkdefs
(void);
79 bunch_of_defs
{ if
(checkdefs
() < 0) return
(errors
); } bunch_of_lines
81 if
(sp
->num_exits
+ sp
->num_airports
< 2)
82 yyerror("Need at least 2 airports and/or exits.");
100 UpdateOp
'=' ConstOp
';'
102 if
(sp
->update_secs
!= 0)
103 return
(yyerror("Redefinition of 'update'."));
105 return
(yyerror("'update' is too small."));
107 sp
->update_secs
= $3;
112 NewplaneOp
'=' ConstOp
';'
114 if
(sp
->newplane_time
!= 0)
115 return
(yyerror("Redefinition of 'newplane'."));
117 return
(yyerror("'newplane' is too small."));
119 sp
->newplane_time
= $3;
124 HeightOp
'=' ConstOp
';'
127 return
(yyerror("Redefinition of 'height'."));
129 return
(yyerror("'height' is too small."));
136 WidthOp
'=' ConstOp
';'
139 return
(yyerror("Redefinition of 'width'."));
141 return
(yyerror("'width' is too small."));
155 BeaconOp
':' Bpoint_list
';'
157 | ExitOp
':' Epoint_list
';'
159 | LineOp
':' Lline_list
';'
161 | AirportOp
':' Apoint_list
';'
173 '(' ConstOp ConstOp
')'
175 if
(sp
->num_beacons % REALLOC
== 0) {
176 if
(sp
->beacon
== NULL
)
177 sp
->beacon
= malloc
((sp
->num_beacons
+ REALLOC
)
180 sp
->beacon
= realloc
(sp
->beacon
,
181 (sp
->num_beacons
+ REALLOC
) *
183 if
(sp
->beacon
== NULL
)
184 return
(yyerror("No memory available."));
186 sp
->beacon
[sp
->num_beacons
].x
= $2;
187 sp
->beacon
[sp
->num_beacons
].y
= $3;
201 '(' ConstOp ConstOp DirOp
')'
205 if
(sp
->num_exits % REALLOC
== 0) {
206 if
(sp
->exit
== NULL
)
207 sp
->exit
= malloc
((sp
->num_exits
+ REALLOC
) *
210 sp
->exit
= realloc
(sp
->exit
, (sp
->num_exits
+
211 REALLOC
) * sizeof
(EXIT
));
212 if
(sp
->exit
== NULL
)
213 return
(yyerror("No memory available."));
216 sp
->exit
[sp
->num_exits
].x
= $2;
217 sp
->exit
[sp
->num_exits
].y
= $3;
218 sp
->exit
[sp
->num_exits
].dir
= dir
;
220 check_edir
($2, $3, dir
);
233 '(' ConstOp ConstOp DirOp
')'
237 if
(sp
->num_airports % REALLOC
== 0) {
238 if
(sp
->airport
== NULL
)
239 sp
->airport
= malloc
((sp
->num_airports
+
240 REALLOC
) * sizeof
(AIRPORT
));
242 sp
->airport
= realloc
(sp
->airport
,
243 (sp
->num_airports
+ REALLOC
) *
245 if
(sp
->airport
== NULL
)
246 return
(yyerror("No memory available."));
249 sp
->airport
[sp
->num_airports
].x
= $2;
250 sp
->airport
[sp
->num_airports
].y
= $3;
251 sp
->airport
[sp
->num_airports
].dir
= dir
;
265 '[' '(' ConstOp ConstOp
')' '(' ConstOp ConstOp
')' ']'
267 if
(sp
->num_lines % REALLOC
== 0) {
268 if
(sp
->line
== NULL
)
269 sp
->line
= malloc
((sp
->num_lines
+ REALLOC
) *
272 sp
->line
= realloc
(sp
->line
, (sp
->num_lines
+
273 REALLOC
) * sizeof
(LINE
));
274 if
(sp
->line
== NULL
)
275 return
(yyerror("No memory available."));
277 sp
->line
[sp
->num_lines
].p1.x
= $3;
278 sp
->line
[sp
->num_lines
].p1.y
= $4;
279 sp
->line
[sp
->num_lines
].p2.x
= $7;
280 sp
->line
[sp
->num_lines
].p2.y
= $8;
281 check_line
($3, $4, $7, $8);
288 check_edge
(int x
, int y
)
290 if
(!(x
== 0) && !(x
== sp
->width
- 1) &&
291 !(y
== 0) && !(y
== sp
->height
- 1))
292 yyerror("edge value not on edge.");
296 check_point
(int x
, int y
)
298 if
(x
< 1 || x
>= sp
->width
- 1)
299 yyerror("X value out of range.");
300 if
(y
< 1 || y
>= sp
->height
- 1)
301 yyerror("Y value out of range.");
305 check_linepoint
(int x
, int y
)
307 if
(x
< 0 || x
>= sp
->width
)
308 yyerror("X value out of range.");
309 if
(y
< 0 || y
>= sp
->height
)
310 yyerror("Y value out of range.");
314 check_line
(int x_1
, int y_1
, int x_2
, int y_2
)
318 check_linepoint
(x_1
, y_1
);
319 check_linepoint
(x_2
, y_2
);
324 if
(!(d1
== d2
) && !(d1
== 0) && !(d2
== 0))
325 yyerror("Bad line endpoints.");
329 yyerror(const char *s
)
331 fprintf
(stderr
, "\"%s\": line %d: %s\n", filename
, line
, s
);
338 check_edir
(int x
, int y
, int dir
)
342 if
(x
== sp
->width
- 1)
346 if
(y
== sp
->height
- 1)
351 switch
(x
* 10 + y
) {
352 case
00: if
(dir
!= 3) bad
++; break
;
353 case
01: if
(dir
< 1 || dir
> 3) bad
++; break
;
354 case
02: if
(dir
!= 1) bad
++; break
;
355 case
10: if
(dir
< 3 || dir
> 5) bad
++; break
;
357 case
12: if
(dir
> 1 && dir
< 7) bad
++; break
;
358 case
20: if
(dir
!= 5) bad
++; break
;
359 case
21: if
(dir
< 5) bad
++; break
;
360 case
22: if
(dir
!= 7) bad
++; break
;
362 yyerror("Unknown value in checkdir! Get help!");
366 yyerror("Bad direction for entrance at exit.");
374 if
(sp
->width
== 0) {
375 yyerror("'width' undefined.");
378 if
(sp
->height
== 0) {
379 yyerror("'height' undefined.");
382 if
(sp
->update_secs
== 0) {
383 yyerror("'update' undefined.");
386 if
(sp
->newplane_time
== 0) {
387 yyerror("'newplane' undefined.");