blob: 94b0ea1069929118f3e7a358b0a0fb574cc3c7ed (
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
|
type 'a with_loc = 'a * Location.t
type dimension = Length | Angle | Time | Frequency
module rec Component_value : sig
type t =
| Paren_block of t with_loc list
| Bracket_block of t with_loc list
| Percentage of string
| Ident of string
| String of string
| Uri of string
| Operator of string
| Delim of string
| Function of string with_loc * t with_loc list with_loc
| Hash of string
| Number of string
| Unicode_range of string
| Float_dimension of (string * string * dimension)
| Dimension of (string * string)
end
and Brace_block : sig
type t =
| Empty
| Declaration_list of Declaration_list.t
| Stylesheet of Stylesheet.t
end
and At_rule : sig
type t = {
name : string with_loc;
prelude : Component_value.t with_loc list with_loc;
block : Brace_block.t;
loc : Location.t;
}
end
and Declaration : sig
type t = {
name : string with_loc;
value : Component_value.t with_loc list with_loc;
important : bool with_loc;
loc : Location.t;
}
end
and Declaration_list : sig
type kind = Declaration of Declaration.t | At_rule of At_rule.t
type t = kind list with_loc
end
and Style_rule : sig
type t = {
prelude : Component_value.t with_loc list with_loc;
block : Declaration_list.t;
loc : Location.t;
}
end
and Rule : sig
type t = Style_rule of Style_rule.t | At_rule of At_rule.t
end
and Stylesheet : sig
type t = Rule.t list with_loc
end
|
