1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
|
/* ScummVM - Graphic Adventure Engine
*
* ScummVM is the legal property of its developers, whose names
* are too numerous to list here. Please refer to the COPYRIGHT
* file distributed with this source distribution.
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA.
*
*/
%{
#include "common/hash-str.h"
#include "director/lingo/lingo.h"
#include "director/lingo/lingo-gr.h"
Common::HashMap<Common::String, int, Common::IgnoreCase_Hash, Common::IgnoreCase_EqualTo> vars;
extern int yylex();
extern int yyparse();
void yyerror(char *s) { error("%s", s); }
int func_mci(Common::String *s);
%}
%union { int i; Common::String *s; }
%token UNARY
%token<i> INT
%token<s> VAR
%token<s> STRING
%token FUNC_MCI
%type<i> expr
%type<i> func
%right '='
%left '+' '-'
%left '*' '/' '%'
%right UNARY
%%
list: statement
| list statement
;
statement: expr { warning("%d", $1); }
| func { warning("%d", $1); }
;
expr: INT { $$ = $1; }
| VAR { $$ = vars[*$1]; delete $1; }
| VAR '=' expr { $$ = vars[*$1] = $3; delete $1; }
| expr '+' expr { $$ = $1 + $3; }
| expr '-' expr { $$ = $1 - $3; }
| expr '*' expr { $$ = $1 * $3; }
| expr '/' expr { $$ = $1 / $3; }
| expr '%' expr { $$ = $1 % $3; }
| '+' expr %prec UNARY { $$ = $2; }
| '-' expr %prec UNARY { $$ = -$2; }
| '(' expr ')' { $$ = $2; }
|
;
func: FUNC_MCI STRING { func_mci($2); delete $2; }
%%
int func_mci(Common::String *s) {
warning("mci: %s", s->c_str());
return 0;
}
|
