OCaml HTML5 parser/serialiser based on Python's JustHTML
1(* HTML5 tree builder insertion modes *)
2
3type t =
4 | Initial
5 | Before_html
6 | Before_head
7 | In_head
8 | In_head_noscript
9 | After_head
10 | In_body
11 | Text
12 | In_table
13 | In_table_text
14 | In_caption
15 | In_column_group
16 | In_table_body
17 | In_row
18 | In_cell
19 | In_select
20 | In_select_in_table
21 | In_template
22 | After_body
23 | In_frameset
24 | After_frameset
25 | After_after_body
26 | After_after_frameset
27
28let to_string = function
29 | Initial -> "initial"
30 | Before_html -> "before html"
31 | Before_head -> "before head"
32 | In_head -> "in head"
33 | In_head_noscript -> "in head noscript"
34 | After_head -> "after head"
35 | In_body -> "in body"
36 | Text -> "text"
37 | In_table -> "in table"
38 | In_table_text -> "in table text"
39 | In_caption -> "in caption"
40 | In_column_group -> "in column group"
41 | In_table_body -> "in table body"
42 | In_row -> "in row"
43 | In_cell -> "in cell"
44 | In_select -> "in select"
45 | In_select_in_table -> "in select in table"
46 | In_template -> "in template"
47 | After_body -> "after body"
48 | In_frameset -> "in frameset"
49 | After_frameset -> "after frameset"
50 | After_after_body -> "after after body"
51 | After_after_frameset -> "after after frameset"