[feature] cactutf: check

MLstate · May 16, 2012 · 22ad17f · 22ad17f
1 parent b9f9569
commit 22ad17f
Show file tree

Hide file tree

Showing 3 changed files with 10 additions and 3 deletions.
diff --git a/libbase/cactutf.mli b/libbase/cactutf.mli
@@ -1,5 +1,5 @@
 (*
-    Copyright © 2011 MLstate
+    Copyright © 2011, 2012 MLstate
 
     This file is part of OPA.
 
@@ -159,6 +159,10 @@ val uppercase : string -> string
 *)
 val lowercase : string -> string
 
+(**
+   check utf8 validity
+*)
+val check : string -> bool
 
 (**
    {6 Deprecated}

diff --git a/opabsl/mlbsl/bslCactutf.ml b/opabsl/mlbsl/bslCactutf.ml
@@ -1,5 +1,5 @@
 (*
-    Copyright © 2011 MLstate
+    Copyright © 2011, 2012 MLstate
 
     This file is part of OPA.
 
@@ -49,5 +49,6 @@ let lenbytes x =
 ##register two_bytes \ `Cactutf.two_bytes` : int, int -> int
 ##register three_bytes \ `Cactutf.three_bytes` : int, int, int -> int
 ##register four_bytes \ `Cactutf.four_bytes` : int, int, int, int -> int
+##register check \ `Cactutf.check` : string -> bool
 
 (*register charutf8 : string -> int -> int*)
diff --git a/stdlib/core/cactutf.opa b/stdlib/core/cactutf.opa
@@ -1,5 +1,5 @@
 /*
-    Copyright © 2011 MLstate
+    Copyright © 2011, 2012 MLstate
 
     This file is part of OPA.
 
@@ -83,4 +83,6 @@ Cactutf = {{
   /* cons */
   cons = %% BslCactutf.cons %% : int -> string
 
+  check = %% BslCactutf.check %% : string -> bool
+
 }}