mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
2c0d16e82e
Extend the generator to generate a source (and the header for it) with functions that print the content of a guestfs struct. The code is modelled after the code for it in fish.ml, although made a bit more generic (destination FILE*, line separator) so it can be used also in the library, when tracing. This just introduces the new code and builds it as part of the helper libutils.la.
44 lines
2.0 KiB
OCaml
44 lines
2.0 KiB
OCaml
(* libguestfs
|
|
* Copyright (C) 2009-2016 Red Hat Inc.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
|
|
*)
|
|
|
|
type optarg_proto = Dots | VA | Argv
|
|
|
|
val generate_prototype : ?extern:bool -> ?static:bool -> ?semicolon:bool -> ?single_line:bool -> ?indent:string -> ?newline:bool -> ?in_daemon:bool -> ?dll_public:bool -> ?attribute_noreturn:bool -> ?prefix:string -> ?suffix:string -> ?handle:string -> ?optarg_proto:optarg_proto -> string -> Types.style -> unit
|
|
|
|
val generate_c_call_args : ?handle:string -> ?implicit_size_ptr:string -> ?in_daemon:bool -> Types.ret * Types.args * Types.optargs -> unit
|
|
|
|
val nr_actions_files : int
|
|
|
|
val generate_actions_pod : unit -> unit
|
|
val generate_availability_pod : unit -> unit
|
|
val generate_client_actions : int -> unit -> unit
|
|
val generate_client_actions_variants : unit -> unit
|
|
val generate_client_structs_cleanup : unit -> unit
|
|
val generate_client_structs_compare : unit -> unit
|
|
val generate_client_structs_copy : unit -> unit
|
|
val generate_client_structs_free : unit -> unit
|
|
val generate_client_structs_print_h : unit -> unit
|
|
val generate_client_structs_print_c : unit -> unit
|
|
val generate_event_string_c : unit -> unit
|
|
val generate_guestfs_h : unit -> unit
|
|
val generate_internal_actions_h : unit -> unit
|
|
val generate_internal_frontend_cleanups_h : unit -> unit
|
|
val generate_linker_script : unit -> unit
|
|
val generate_max_proc_nr : unit -> unit
|
|
val generate_structs_pod : unit -> unit
|