From bcaa58a035c4dd7163a503d30f83efb45fa4662c Mon Sep 17 00:00:00 2001 From: Gabriel Scherer Date: Sun, 21 Dec 2014 11:46:18 +0000 Subject: PR6694: Deprecate Latin-1 string manipulation functions. Also, add documentation for the US-ASCII variants. From: Peter Zotov git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@15729 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02 --- stdlib/bytes.ml | 14 ++++++++------ 1 file changed, 8 insertions(+), 6 deletions(-) (limited to 'stdlib/bytes.ml') diff --git a/stdlib/bytes.ml b/stdlib/bytes.ml index b3e7679a6..193c3ceea 100644 --- a/stdlib/bytes.ml +++ b/stdlib/bytes.ml @@ -203,9 +203,6 @@ let mapi f s = r end -let uppercase s = map Char.uppercase s -let lowercase s = map Char.lowercase s - let uppercase_ascii s = map Char.uppercase_ascii s let lowercase_ascii s = map Char.lowercase_ascii s @@ -216,9 +213,6 @@ let apply1 f s = r end -let capitalize s = apply1 Char.uppercase s -let uncapitalize s = apply1 Char.lowercase s - let capitalize_ascii s = apply1 Char.uppercase_ascii s let uncapitalize_ascii s = apply1 Char.lowercase_ascii s @@ -267,3 +261,11 @@ type t = bytes let compare (x: t) (y: t) = Pervasives.compare x y external equal : t -> t -> bool = "caml_string_equal" + +(* Deprecated functions implemented via other deprecated functions *) +[@@@ocaml.warning "-3"] +let uppercase s = map Char.uppercase s +let lowercase s = map Char.lowercase s + +let capitalize s = apply1 Char.uppercase s +let uncapitalize s = apply1 Char.lowercase s -- cgit v1.2.3-70-g09d2