search for: deprecation_notice

...nerator/fish.ml b/generator/fish.ml index 0cbc781..864f65d 100644 --- a/generator/fish.ml +++ b/generator/fish.ml @@ -897,9 +897,17 @@ Guestfish will prompt for these separately.\n\n"; if f.protocol_limit_warning then pr "%s\n\n" protocol_limit_warning; - match deprecation_notice ~replace_underscores:true f with + (match deprecation_notice ~replace_underscores:true f with | None -> () | Some txt -> pr "%s\n\n" txt + ); + + (match f.optional with + | None -> () + | Some opt -> + pr "This command depends...

...event bitmask into a printable string. */ static VALUE @@ -477,13 +477,18 @@ get_all_event_callbacks (guestfs_h *g, size_t *len_rtn) if f.protocol_limit_warning then doc ^ "\n\n" ^ protocol_limit_warning else doc in - let doc = - match deprecation_notice f with - | None -> doc - | Some txt -> doc ^ "\n\n" ^ txt in let doc = pod2text ~width:60 f.name doc in let doc = String.concat "\n * " doc in let doc = trim doc in + let doc = + match version_added f with +...

...amp; in_docs - ) all_functions_sorted in + let fishdoc_functions_sorted = + List.filter is_documented fish_functions_sorted + in let rex = Str.regexp "C<guestfs_\\([^>]+\\)>" in @@ -895,7 +881,7 @@ Guestfish will prompt for these separately.\n\n"; match deprecation_notice ~replace_underscores:true f with | None -> () | Some txt -> pr "%s\n\n" txt - ) all_functions_sorted + ) fishdoc_functions_sorted (* Generate documentation for guestfish-only commands. *) and generate_fish_commands_pod () = diff --git a/generator/gobject.ml b/gen...

--- generator/utils.ml | 8 +++++++- generator/utils.mli | 3 +++ 2 files changed, 10 insertions(+), 1 deletion(-) diff --git a/generator/utils.ml b/generator/utils.ml index b24ba8c..3a62084 100644 --- a/generator/utils.ml +++ b/generator/utils.ml @@ -360,4 +360,10 @@ let args_of_optargs optargs = | OInt64 n -> Int64 n | OString n -> String n | OStringList n ->

By splitting up large C files we can make parallel compiles a bit faster. Rich.

This rather complex set of patches allow non-optargs functions to gain optional arguments, while preserving source and binary backwards compatibility. The problem is that we cannot add an optional argument to an existing function. For example, we might want to add flags to the 'lvresize' API which currently has no optional arguments.

...itten to C<*size_r>. I<The caller must free the returned buffer after use>.\n\n" - ); - if List.mem ProtocolLimitWarning flags then - pr "%s\n\n" protocol_limit_warning; - if List.mem DangerWillRobinson flags then - pr "%s\n\n" danger_will_robinson; - match deprecation_notice flags with - | None -> () - | Some txt -> pr "%s\n\n" txt + ); + if List.mem ProtocolLimitWarning flags then + pr "%s\n\n" protocol_limit_warning; + if List.mem DangerWillRobinson flags then + pr "%s\n\n" danger_will_robinso...

...reet, Fifth Floor, Boston, MA 02110-1301 USA + *) + +type comment_style = + CStyle | CPlusPlusStyle | HashStyle | OCamlStyle | HaskellStyle + | ErlangStyle | LuaStyle | PODStyle +type license = GPLv2plus | LGPLv2plus + +val progress_message : string + +val protocol_limit_warning : string + +val deprecation_notice : ?prefix:string -> ?replace_underscores:bool -> Types.action -> string option + +val version_added : Types.action -> string option + +val copyright_years : string + +val generate_header : ?extra_inputs:string list -> ?emacs_mode:string -> comment_style -> license -> unit di...

...h f.optional with | Some n -> diff --git a/generator/docstrings.ml b/generator/docstrings.ml index acfdb53..2ce595d 100644 --- a/generator/docstrings.ml +++ b/generator/docstrings.ml @@ -39,8 +39,9 @@ of somewhere between 2MB and 4MB. See L<guestfs(3)/PROTOCOL LIMITS>." let deprecation_notice ?(prefix = "") ?(replace_underscores = false) = function - | { deprecated_by = None } -> None - | { deprecated_by = Some alt } -> + | { deprecated_by = Not_deprecated } -> None + + | { deprecated_by = Replaced_by alt } -> let alt = if replace_underscores the...

Use interfaces files (*.mli files) instead of exporting all symbols randomly. Change the 'file is generated' warnings at the top of generated files so they accurately describe which source file generates each output file. Rich.

...gs_of_optargs optargs, [] in diff --git a/generator/docstrings.ml b/generator/docstrings.ml index 9d3fd0b..845ec63 100644 --- a/generator/docstrings.ml +++ b/generator/docstrings.ml @@ -21,6 +21,7 @@ open Unix open Printf +open Common_utils open Types open Utils open Pr @@ -41,7 +42,7 @@ let deprecation_notice ?(prefix = "") ?(replace_underscores = false) = | { deprecated_by = None } -> None | { deprecated_by = Some alt } -> let alt = - if replace_underscores then replace_char alt '_' '-' else alt in + if replace_underscores then String.replace_char al...