X-Git-Url: http://git.annexia.org/?a=blobdiff_plain;f=generator%2Fgenerator_docstrings.ml;h=baccdd64ee8bda31f257a25f234f8afe87b13ebf;hb=6cabc1cd02e181063596b48df55c3f6db51a6bb9;hp=44f92c05c7f136734928343ad6fd30cbb043358a;hpb=04d8209077d2227eb1d42695ba71147f78987050;p=libguestfs.git diff --git a/generator/generator_docstrings.ml b/generator/generator_docstrings.ml index 44f92c0..baccdd6 100644 --- a/generator/generator_docstrings.ml +++ b/generator/generator_docstrings.ml @@ -30,7 +30,7 @@ let progress_message = "This long-running command can generate progress notification messages so that the caller can display a progress bar or indicator. To receive these messages, the caller must register a progress -callback. See L." +event callback. See L." let protocol_limit_warning = "Because of the message protocol, there is a transfer limit @@ -40,17 +40,17 @@ let danger_will_robinson = "B." -let deprecation_notice flags = +let deprecation_notice ?(prefix = "") flags = try let alt = find_map (function DeprecatedBy str -> Some str | _ -> None) flags in let txt = - sprintf "This function is deprecated. -In new code, use the C<%s> call instead. + sprintf "I +In new code, use the L call instead. Deprecated functions will not be removed from the API, but the fact that they are deprecated indicates that there are problems -with correct use of these functions." alt in +with correct use of these functions." prefix alt in Some txt with Not_found -> None