~alcinnz/haskell-stylist

ref: b26bb3d190dcd3f81b5acc6c288afc3645dc1420 haskell-stylist/Stylish/Parse/Selector.hs -rw-r--r-- 2.3 KiB
b26bb3d1 — Adrian Cochrane Implement basic parser. TODO test. 5 years ago 
                                                                                
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
module Stylish.Parse.Selector(
        Selector(..), SimpleSelector(..), PropertyTest(..),
        parseSelectors
    ) where

import Data.CSS.Syntax.Tokens
import Utils

data Selector = Selector [SimpleSelector]
data SimpleSelector = Tag Text | Id Text | Class Text | Property Text PropertyTest |
    Child | Descendant | Adjacent | Sibling
data PropertyTest = Exists | Equals Text | Suffix Text | Prefix Text | Substring Text |
    Include Text | Dash Text

parseSelectors :: [Token] -> (Selector, [Token])
parseSelectors tokens = concatP (:) (parseSelector) (parseSelectorsTail) skipSpace tokens
parseSelectorsTail Comma:tokens = parseSelectors token
parseSelectorsTail tokens = ([], tokens)

parseSelector' op tokens = (op:selector, tokens')
    where (selector, tokens') = parseSelector tokens

parseSelector Ident tag:tokens = parseSelector' Tag tag tokens
parseSelector Hash _ id:tokens = parseSelector' Id id tokens
parseSelector Delim '.':Ident class_:tokens = parseSelector' Class class_ tokens
parseSelector LeftSquareBracket:Ident prop:tokens =
        concatP (appendPropertySel) (parsePropertySel) (parseSelector) tokens
    where appendPropertySel test selector = (Property prop test):selector

parseSelector Whitespace:tokens = parseCombinator skipSpace tokens
parseSelector Delim c:tokens = parseCombinator Delim c:tokens
parseSelector tokens = ([], tokens)

parseCombinator Delim '>':tokens = parseSelector' Child skipSpace tokens
parseCombinator Delim '~':tokens = parseSelector' Sibling skipSpace tokens
parseCombinator Delim '+':tokens = parseSelector' Adjacent skipSpace tokens
parseCombinator tokens = parseSelector' Descendant tokens

parsePropertySel RightSquareBracket:tokens = (Exists, tokens)
parsePropertySel Delim '=':tokens = parsePropertyVal (Equals) tokens
parsePropertySel SuffixMatch:tokens = parsePropertyVal (Suffix) tokens
parsePropertySel PrefixMatch:tokens = parsePropertyVal (Prefix) tokens
parsePropertySel SubstringMatch:tokens = parsePropertyVal (Substring) tokens
parsePropertySel IncludeMatch:tokens = parsePropertyVal (Include) tokens
parsePropertySel DashMatch:tokens = parsePropertyVal (Dash) tokens
parsePropertySel tokens = (Exists, skipBlock tokens)

parsePropertyVal wrapper Ident val:RightSquareBracket:tokens = (wrapper val, tokens)
parsePropertyVal wrapper String val:RightSquareBracket:tokens = (wrapper val, tokens)