blob: 48ea1d2b4676d1d8e36620ffd0e7e52cffeb4159 (
plain)
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
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
|
/*
* This is a bison parser for genbind
*
*/
%{
#include <stdio.h>
#include <string.h>
#include "genjsbind-parser.h"
#include "genjsbind-lexer.h"
#include "webidl-ast.h"
#include "jsapi-binding.h"
static void genjsbind_error(const char *str)
{
fprintf(stderr,"error: %s\n",str);
}
int genjsbind_wrap()
{
return 1;
}
%}
%define api.pure
%union
{
char* text;
}
%token TOK_IDLFILE
%token TOK_HDR_COMMENT
%token TOK_INTERFACE
%token <text> TOK_STRING_LITERAL
%type <text> Strings
%%
/* [1] start with Statements */
Statements
: Statement
| Statements Statement
;
Statement
: IdlFile
| HdrComment
| Interface
;
/* [3] load a web IDL file */
IdlFile
: TOK_IDLFILE TOK_STRING_LITERAL ';'
{
if (webidl_parsefile($2) != 0) {
YYABORT;
}
}
;
HdrComment
: TOK_HDR_COMMENT Strings ';'
{
genjsbind_header_comment($2);
}
;
Strings
: TOK_STRING_LITERAL
{
$$ = $1;
}
| Strings TOK_STRING_LITERAL
{
char *fullstr;
int fulllen;
fulllen = strlen($1) + strlen($2) + 2;
fullstr = malloc(fulllen);
snprintf(fullstr, fulllen, "%s\n%s", $1, $2);
free($1);
free($2);
$$ = fullstr;
}
;
Interface
: TOK_INTERFACE TOK_STRING_LITERAL ';'
{
genjsbind_output_interface($2);
}
;
%%
|