From 0b53955bb2bec43454ccbd317a09787a24fff3ae Mon Sep 17 00:00:00 2001 From: Pierre-Marie Pédrot Date: Tue, 17 Feb 2015 23:29:06 +0100 Subject: Deprecated options issue a warning. --- library/goptions.ml | 10 +++++++--- 1 file changed, 7 insertions(+), 3 deletions(-) (limited to 'library/goptions.ml') diff --git a/library/goptions.ml b/library/goptions.ml index 4aea33685..ef25fa590 100644 --- a/library/goptions.ml +++ b/library/goptions.ml @@ -268,10 +268,14 @@ let declare_option cast uncast begin fun v -> add_anonymous_leaf (gdecl_obj v) end else write,write,write in + let warn () = + if depr then + msg_warning (str "Option " ++ str (nickname key) ++ str " is deprecated") + in let cread () = cast (read ()) in - let cwrite v = write (uncast v) in - let clwrite v = lwrite (uncast v) in - let cgwrite v = gwrite (uncast v) in + let cwrite v = warn (); write (uncast v) in + let clwrite v = warn (); lwrite (uncast v) in + let cgwrite v = warn (); gwrite (uncast v) in value_tab := OptionMap.add key (name, depr, (sync,cread,cwrite,clwrite,cgwrite)) !value_tab; write -- cgit v1.2.3