summaryrefslogtreecommitdiff
path: root/src/genjsbind-parser.y
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);
        }
        ;

%%