change how the widgets' _dirty flag works so that all inheritence levels of the widge...
[mikachu/openbox.git] / util / epist / epist.y
1 %{
2 #ifdef    HAVE_CONFIG_H
3 #  include "../../config.h"
4 #endif // HAVE_CONFIG_H
5
6 #include <stdio.h>
7 #include <string.h>
8 #include "parser.hh"
9     
10 #define YYPARSE_PARAM parser_obj
11 #define YYSTYPE char*
12
13 extern int yylineno;
14 extern char *yytext;
15
16 extern "C" {
17     int yylex();
18     int yywrap() {
19         return 1;
20     }
21 }
22
23 void yyerror(const char *c)
24 {
25     printf("ERROR: %s, on line %d, near %s\n", c, yylineno, yytext);
26 }
27
28 %}
29
30 %token OBRACE EBRACE SEMICOLON DASH NUMBER QUOTES WORD BINDING OPTIONS TRUE FALSE
31 %expect 1
32
33 %%
34
35 commands:
36     | commands command
37     | commands options_block
38     ;
39
40 command:
41     action_command | chain_command
42     ;
43
44 action_command:
45     binding WORD parameter SEMICOLON
46     {
47         ((parser*)parser_obj)->setAction($2);
48         ((parser*)parser_obj)->endAction();
49     }
50     
51     ;
52
53 chain_command:
54     binding obrace commands ebrace
55     {
56         ((parser*)parser_obj)->endChain();
57     }
58     ;
59
60 options_block:
61     options_keyword OBRACE options EBRACE
62     ;
63
64 binding:
65     binding_w_modifier bind_key
66     ;
67
68 obrace:
69     OBRACE { ((parser*)parser_obj)->startChain(); }
70     ;
71
72 ebrace:
73     EBRACE { /* ((parser*)parser_obj)->endChain(); */ }
74     ;
75
76 binding_w_modifier:
77     | BINDING DASH binding_w_modifier { ((parser*)parser_obj)->addModifier($1); }
78     ;
79
80 bind_key:
81     OBRACE       { ((parser*)parser_obj)->setKey($1); }
82     | EBRACE     { ((parser*)parser_obj)->setKey($1); }
83     | DASH       { ((parser*)parser_obj)->setKey($1); }
84     | SEMICOLON  { ((parser*)parser_obj)->setKey($1); }
85     | NUMBER     { ((parser*)parser_obj)->setKey($1); }
86     | WORD       { ((parser*)parser_obj)->setKey($1); }
87     ;
88
89 parameter:
90     | NUMBER      { ((parser*)parser_obj)->setArgumentNum($1); }
91     | DASH NUMBER { ((parser*)parser_obj)->setArgumentNegNum($2); }
92     | QUOTES      { ((parser*)parser_obj)->setArgumentStr($1); }
93     | TRUE        { ((parser*)parser_obj)->setArgumentTrue($1); }
94     | FALSE       { ((parser*)parser_obj)->setArgumentFalse($1); }
95     ;
96
97 options_keyword:
98     OPTIONS
99     ;
100
101 options:
102     | options option
103     ;
104
105 option:
106     WORD parameter SEMICOLON
107     { ((parser*)parser_obj)->setOption($1); }
108     ;
109
110 %%
111