OCaml implementation of the Mozilla Public Suffix service
Upgrade to ocamlformat 0.29.0; fix csvt/sexpt streaming; reformat
- Update .ocamlformat to 0.29.0 across all 591 files
- csvt: reuse single Buffer.t for field reads (no alloc per field)
- sexpt: Obj members decoded from stream into Dict, typed Variant GADT
- Reformat all source files for 0.29.0
+20
-20
+19
-19
lib/publicsuffix.mli
+19
-19
lib/publicsuffix.mli
···
50
50
{1 Example Usage}
51
51
52
52
{[
53
-
let psl = Publicsuffix.v () in
53
+
let psl = Publicsuffix.v () in
54
54
55
-
(* Get the public suffix of a domain *)
56
-
Publicsuffix.public_suffix psl "www.example.com" (* Returns: Ok "com" *)
57
-
Publicsuffix.public_suffix psl
58
-
"www.example.co.uk" (* Returns: Ok "co.uk" *)
59
-
(* Get the registrable domain *)
60
-
Publicsuffix.registrable_domain psl
61
-
"www.example.com" (* Returns: Ok "example.com" *)
62
-
(* Check if a domain is a public suffix *)
63
-
Publicsuffix.is_public_suffix psl "com" (* Returns: Ok true *)
64
-
Publicsuffix.is_public_suffix psl "example.com"
65
-
(* Returns: Ok false *)
55
+
(* Get the public suffix of a domain *)
56
+
Publicsuffix.public_suffix psl "www.example.com" (* Returns: Ok "com" *)
57
+
Publicsuffix.public_suffix psl
58
+
"www.example.co.uk" (* Returns: Ok "co.uk" *)
59
+
(* Get the registrable domain *)
60
+
Publicsuffix.registrable_domain psl
61
+
"www.example.com" (* Returns: Ok "example.com" *)
62
+
(* Check if a domain is a public suffix *)
63
+
Publicsuffix.is_public_suffix psl "com" (* Returns: Ok true *)
64
+
Publicsuffix.is_public_suffix psl "example.com"
65
+
(* Returns: Ok false *)
66
66
]}
67
67
68
68
{1 Internationalized Domain Names}
···
81
81
encoding implementation. Both Unicode and Punycode input are accepted:
82
82
83
83
{[
84
-
Publicsuffix.registrable_domain psl
85
-
"www.食狮.com.cn" (* Returns: Ok "食狮.com.cn" *)
86
-
Publicsuffix.registrable_domain psl "www.xn--85x722f.com.cn"
87
-
(* Returns: Ok "xn--85x722f.com.cn" *)
84
+
Publicsuffix.registrable_domain psl
85
+
"www.食狮.com.cn" (* Returns: Ok "食狮.com.cn" *)
86
+
Publicsuffix.registrable_domain psl "www.xn--85x722f.com.cn"
87
+
(* Returns: Ok "xn--85x722f.com.cn" *)
88
88
]}
89
89
90
90
{1 Trailing Dots}
···
93
93
names) are preserved in the output:
94
94
95
95
{[
96
-
Publicsuffix.public_suffix psl "example.com" (* Returns: Ok "com" *)
97
-
Publicsuffix.public_suffix psl "example.com."
98
-
(* Returns: Ok "com." *)
96
+
Publicsuffix.public_suffix psl "example.com" (* Returns: Ok "com" *)
97
+
Publicsuffix.public_suffix psl "example.com."
98
+
(* Returns: Ok "com." *)
99
99
]}
100
100
101
101
{1 References}