/[james]/factorcss/Parser.y
ViewVC logotype

Diff of /factorcss/Parser.y

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 61 by james, Sun Dec 19 22:10:41 2004 UTC revision 70 by james, Sat Jan 8 00:02:19 2005 UTC
# Line 1  Line 1 
1    --
2    -- This file is part of FactorCSS
3    -- Licensed under the MIT License,
4    --                http://www.opensource.org/licenses/mit-license
5    -- Copyright 2004 James Bursa <james@semichrome.net>
6    --
7    
8  -- Parser for CSS 2.1  -- Parser for CSS 2.1
9  -- See CSS 2.1 G.2  -- See CSS 2.1 G.2
10    
# Line 8  import CSS Line 15  import CSS
15  }  }
16    
17  %name parser  %name parser
18  %tokentype { Token }  %tokentype { TokenPosn }
19  %token  %token
20          INCLUDES        { INCLUDES      }          S               { (S            , _) }
21          DASHMATCH       { DASHMATCH     }          INCLUDES        { (INCLUDES     , _) }
22          LBRACE          { LBRACE        }          DASHMATCH       { (DASHMATCH    , _) }
23          PLUS            { PLUS          }          LBRACE          { (LBRACE       , _) }
24          GREATER         { GREATER       }          PLUS            { (PLUS         , _) }
25          COMMA           { COMMA         }          GREATER         { (GREATER      , _) }
26          STRING          { STRING $$     }          COMMA           { (COMMA        , _) }
27          IDENT           { IDENT $$      }          STRING          { (STRING $$    , _) }
28          HASH            { HASH $$       }          IDENT           { (IDENT $$     , _) }
29          IMPORT_SYM      { IMPORT_SYM    }          HASH            { (HASH $$      , _) }
30          PAGE_SYM        { PAGE_SYM      }          IMPORT_SYM      { (IMPORT_SYM   , _) }
31          MEDIA_SYM       { MEDIA_SYM     }          PAGE_SYM        { (PAGE_SYM     , _) }
32          CHARSET_SYM     { CHARSET_SYM   }          MEDIA_SYM       { (MEDIA_SYM    , _) }
33          IMPORTANT_SYM   { IMPORTANT_SYM }          CHARSET_SYM     { (CHARSET_SYM  , _) }
34          EMS             { EMS $$        }          IMPORTANT_SYM   { (IMPORTANT_SYM, _) }
35          EXS             { EXS $$        }          EMS             { (EMS $$       , _) }
36          LENGTH          { LENGTH $$     }          EXS             { (EXS $$       , _) }
37          ANGLE           { ANGLE $$      }          LENGTH          { (LENGTH $$    , _) }
38          TIME            { TIME $$       }          ANGLE           { (ANGLE $$     , _) }
39          FREQ            { FREQ $$       }          TIME            { (TIME $$      , _) }
40          DIMEN           { DIMEN $$      }          FREQ            { (FREQ $$      , _) }
41          PERCENTAGE      { PERCENTAGE $$ }          DIMEN           { (DIMEN $$     , _) }
42          NUMBER          { NUMBER $$     }          PERCENTAGE      { (PERCENTAGE $$, _) }
43          URI             { URI $$        }          NUMBER          { (NUMBER $$    , _) }
44          FUNCTION        { FUNCTION $$   }          URI             { (URI $$       , _) }
45          DELIM           { DELIM $$      }          FUNCTION        { (FUNCTION $$  , _) }
46          SEMI            { SEMI          }          DELIM           { (DELIM $$     , _) }
47          RBRACE          { RBRACE        }          SEMI            { (SEMI         , _) }
48          COLON           { COLON         }          RBRACE          { (RBRACE       , _) }
49          SLASH           { SLASH         }          COLON           { (COLON        , _) }
50          MINUS           { MINUS         }          SLASH           { (SLASH        , _) }
51          DOT             { DOT           }          MINUS           { (MINUS        , _) }
52          LBRAC           { LBRAC         }          DOT             { (DOT          , _) }
53          RBRAC           { RBRAC         }          LBRAC           { (LBRAC        , _) }
54          ASTERISK        { ASTERISK      }          RBRAC           { (RBRAC        , _) }
55          EQUALS          { EQUALS        }          ASTERISK        { (ASTERISK     , _) }
56          RPAREN          { RPAREN        }          EQUALS          { (EQUALS       , _) }
57            RPAREN          { (RPAREN       , _) }
58    
59  %%  %%
60    
61  stylesheet      :: { Stylesheet }  stylesheet      :: { Stylesheet }
62                  : charset import_list statement_list    { Stylesheet $1 $2 $3 }                  : charset s import_list s statement_list s
63                                                            { Stylesheet $1 $3 $5 }
64    
65  charset         :: { Maybe String }  charset         :: { Maybe String }
66                  :                                       { Nothing }                  :                                       { Nothing }
67                  | CHARSET_SYM STRING SEMI               { Just $2 }                  | CHARSET_SYM s STRING s SEMI           { Just $3 }
68    
69  import_list     :: { [(String, [String])] }  import_list     :: { [(String, [String])] }
70                  :                                       { [] }                  :                                       { [] }
71                  | import_list import                    { $2 : $1 }                  | import_list s import                  { $3 : $1 }
72    
73  import          :: { (String, [String]) }  import          :: { (String, [String]) }
74                  : IMPORT_SYM STRING medium_list SEMI    { ($2, $3) }                  : IMPORT_SYM s STRING s medium_list SEMI s
75                  | IMPORT_SYM URI medium_list SEMI       { ($2, $3) }                                                          { ($3, $5) }
76                    | IMPORT_SYM s URI s medium_list SEMI s { ($3, $5) }
77    
78  statement_list  :: { [Statement] }  statement_list  :: { [Statement] }
79                  :                                       { [] }                  :                                       { [] }
80                  | statement_list statement              { $2 : $1 }                  | statement_list s statement            { $3 : $1 }
81    
82  statement       :: { Statement }  statement       :: { Statement }
83                  : ruleset                               { $1 }                  : ruleset                               { $1 }
# Line 80  medium_list    :: { [String] } Line 90  medium_list    :: { [String] }
90    
91  medium_list_1   :: { [String] }  medium_list_1   :: { [String] }
92                  : medium                                { [$1] }                  : medium                                { [$1] }
93                  | medium_list_1 COMMA medium            { $3 : $1 }                  | medium_list_1 s COMMA s medium        { $5 : $1 }
94    
95  media           :: { Statement }  media           :: { Statement }
96                  : MEDIA_SYM medium_list_1 LBRACE ruleset_list RBRACE                  : MEDIA_SYM s medium_list_1 LBRACE s ruleset_list RBRACE
97                                                          { Media $2 $4 }                                                          { Media $3 $6 }
98    
99  medium          :: { String }  medium          :: { String }
100                  : IDENT                                 { $1 }                  : IDENT                                 { $1 }
101    
102  ruleset_list    :: { [Statement] }  ruleset_list    :: { [Statement] }
103                  :                                       { [] }                  :                                       { [] }
104                  | ruleset_list ruleset                  { $2 : $1 }                  | ruleset_list s ruleset                { $3 : $1 }
105    
106  page            :: { Statement }  page            :: { Statement }
107                  : PAGE_SYM LBRACE declaration_list_1 RBRACE                  : PAGE_SYM LBRACE s declaration_list_1 RBRACE
108                                                          { Page Nothing $3 }                                                          { Page Nothing $4 }
109                  | PAGE_SYM pseudo_page LBRACE declaration_list_1 RBRACE                  | PAGE_SYM s pseudo_page LBRACE s declaration_list_1 RBRACE
110                                                          { Page (Just $2) $4 }                                                          { Page (Just $3) $6 }
111    
112  declaration_list_1 :: { [Declaration] }  declaration_list_1 :: { [Declaration] }
113                  :                                       { [] }                  :                                       { [] }
114                  | declaration                           { [$1] }                  | declaration                           { [$1] }
115                  | declaration_list_1 SEMI               { $1 }                  | declaration_list_1 s SEMI s           { $1 }
116                  | declaration_list_1 SEMI declaration   { $3 : $1 }                  | declaration_list_1 s SEMI s declaration
117                                                            { $5 : $1 }
118    
119  pseudo_page     :: { String }  pseudo_page     :: { String }
120                  : COLON IDENT                           { $2 }                  : COLON IDENT                           { $2 }
121    
122  ruleset         :: { Statement }  ruleset         :: { Statement }
123                  : selector_list_1 LBRACE declaration_list_1 RBRACE                  : selector_list_1 LBRACE s declaration_list_1 RBRACE
124                                                          { Ruleset $1 $3 }                                                          { Ruleset $1 $4 }
125    
126  selector_list_1 :: { [Selector] }  selector_list_1 :: { [Selector] }
127                  : selector                              { [$1] }                  : selector                              { [$1] }
128                  | selector_list_1 COMMA selector        { $3 : $1 }                  | selector_list_1 COMMA s selector      { $4 : $1 }
129    
130  selector        :: { Selector }  selector        :: { Selector }
131                  : simple_selector                       { [($1, NoMore)] }                  : simple_selector                       { [($1, NoMore)] }
132                  | simple_selector combinator selector   { ($1, $2) : $3 }                  | simple_selector combinator selector
133                                                            { ($1, $2) : $3 }
134    
135  combinator      :: { Combinator }  combinator      :: { Combinator }
136                  :                                       { Ancestor }                  : PLUS s                                { Preceded }
137                  | PLUS                                  { Preceded }                  | GREATER s                             { Parent }
138                  | GREATER                               { Parent }                  | S                                     { Ancestor }
139    
140  simple_selector :: { SimpleSelector }  simple_selector :: { SimpleSelector }
141                  : element_name detail_list_1            { ($1, $2) }                  : element_name detail_list_1            { ($1, $2) }
# Line 148  class          :: { Detail } Line 160  class          :: { Detail }
160                  : DOT IDENT                             { Class $2 }                  : DOT IDENT                             { Class $2 }
161    
162  attrib          :: { Detail }  attrib          :: { Detail }
163                  : LBRAC IDENT RBRAC                     { Attrib $2 }                  : LBRAC s IDENT s RBRAC                 { Attrib $3 }
164                  | LBRAC IDENT EQUALS IDENT RBRAC        { AttribEq $2 $4 }                  | LBRAC s IDENT s EQUALS s IDENT s RBRAC
165                  | LBRAC IDENT EQUALS STRING RBRAC       { AttribEq $2 $4 }                                                          { AttribEq $3 $7 }
166                  | LBRAC IDENT INCLUDES IDENT RBRAC      { AttribInc $2 $4 }                  | LBRAC s IDENT s EQUALS s STRING s RBRAC
167                  | LBRAC IDENT INCLUDES STRING RBRAC     { AttribInc $2 $4 }                                                          { AttribEq $3 $7 }
168                  | LBRAC IDENT DASHMATCH IDENT RBRAC     { AttribDM $2 $4 }                  | LBRAC s IDENT s INCLUDES s IDENT s RBRAC
169                  | LBRAC IDENT DASHMATCH STRING RBRAC    { AttribDM $2 $4 }                                                          { AttribInc $3 $7 }
170                    | LBRAC s IDENT s INCLUDES s STRING s RBRAC
171                                                            { AttribInc $3 $7 }
172                    | LBRAC s IDENT s DASHMATCH s IDENT s RBRAC
173                                                            { AttribDM $3 $7 }
174                    | LBRAC s IDENT s DASHMATCH s STRING s RBRAC
175                                                            { AttribDM $3 $7 }
176    
177  pseudo          :: { Detail }  pseudo          :: { Detail }
178                  : COLON IDENT                           { Pseudo $2 }                  : COLON IDENT                           { Pseudo $2 }
179                  | COLON FUNCTION RPAREN                 { PseudoFunc $2 "" }                  | COLON FUNCTION s RPAREN               { PseudoFunc $2 "" }
180                  | COLON FUNCTION IDENT RPAREN           { PseudoFunc $2 $3 }                  | COLON FUNCTION s IDENT s RPAREN       { PseudoFunc $2 $4 }
181    
182  declaration     :: { Declaration }  declaration     :: { Declaration }
183                  : property COLON value_list_1           { ($1, $3, False) }                  : property COLON s value_list_1         { ($1, $4, False) }
184                  | property COLON value_list_1 prio      { ($1, $3, True) }                  | property COLON s value_list_1 prio    { ($1, $4, True) }
185    
186  property        :: { String }  property        :: { String }
187                  : IDENT                                 { $1 }                  : IDENT s                               { $1 }
188    
189  prio            :: { Bool }  prio            :: { Bool }
190                  : IMPORTANT_SYM                         { True }                  : IMPORTANT_SYM                         { True }
191    
192  value_list      :: { [Value] }  value_list      :: { [Value] }
193                  :                                       { [] }                  :                                       { [] }
194                  | value value_list                      { $1 : $2 }                  | value s value_list                    { $1 : $3 }
195    
196  value_list_1    :: { [Value] }  value_list_1    :: { [Value] }
197                  : value                                 { [$1] }                  : value s                               { [$1] }
198                  | value value_list_1                    { $1 : $2 }                  | value s value_list_1                  { $1 : $3 }
199    
200  value           :: { Value }  value           :: { Value }
201                  : NUMBER                                { Number $1 }                  : NUMBER                                { Number $1 }
# Line 194  value          :: { Value } Line 212  value          :: { Value }
212                  | HASH                                  { HexColour $1 }                  | HASH                                  { HexColour $1 }
213                  | SLASH                                 { Slash }                  | SLASH                                 { Slash }
214                  | COMMA                                 { Comma }                  | COMMA                                 { Comma }
215                  | FUNCTION value_list RPAREN            { Function $1 $2 }                  | FUNCTION s value_list s RPAREN        { Function $1 $3 }
216    
217    s               :: {}
218                    :                                       { }
219                    | s S                                   { }
220    
221  {  {
222  happyError :: [Token] -> a  happyError :: [TokenPosn] -> a
223  happyError _ = error "Parse error"  happyError tks = error ("Parse error at " ++ lcn)
224            where
225            lcn =   case tks of
226                      [] -> "end of file"
227                      tk:_ -> "line " ++ show l ++ ", column " ++ show c
228                            where
229                            AlexPn _ l c = snd tk
230  }  }
Legend:
Removed from v.61  
changed lines
  Added in v.70
  ViewVC Help
Powered by ViewVC 1.1.26