mirrors/libguestfs
1
0
Fork 0
mirror of https://github.com/libguestfs/libguestfs.git synced 2026-03-21 22:53:37 +00:00
Code Issues Packages Projects Releases Wiki Activity

generator: gobject: Remove parameters which are not used.

Browse Source 
Revealed by adding typed interfaces in the previous commit.
This commit is contained in:
Richard W.M. Jones
2016-02-22 22:45:28 +00:00
parent 30d2a308c0
commit 9eb26a1748
3 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
generator/gobject.ml
View File

@@ -271,7 +271,7 @@ let generate_gobject_struct_header filename typ cols () =
header_end filename
let generate_gobject_struct_source filename typ cols () =
let generate_gobject_struct_source filename typ () =
let title = "Guestfs" ^ camel_name_of_struct typ in
source_start ~title filename;
@@ -295,7 +295,7 @@ let generate_gobject_struct_source filename typ cols () =
pr "G_DEFINE_BOXED_TYPE (%s, %s, %s_copy, %s_free)\n"
camel_name name name name
let generate_gobject_optargs_header filename name optargs f () =
let generate_gobject_optargs_header filename name f () =
header_start filename;
let uc_name = String.uppercase name in
let camel_name = camel_of_name f in

4
generator/gobject.mli
View File

@@ -19,11 +19,11 @@
val generate_gobject_doc_title : unit -> unit
val generate_gobject_header : unit -> unit
val generate_gobject_makefile : unit -> unit
val generate_gobject_optargs_header : string -> string -> 'a -> Types.action -> unit -> unit
val generate_gobject_optargs_header : string -> string -> Types.action -> unit -> unit
val generate_gobject_optargs_source : string -> string -> Types.optargt list -> Types.action -> unit -> unit
val generate_gobject_session_header : unit -> unit
val generate_gobject_session_source : unit -> unit
val generate_gobject_struct_header : string -> string -> (string * Types.field) list -> unit -> unit
val generate_gobject_struct_source : string -> string -> 'a -> unit -> unit
val generate_gobject_struct_source : string -> string -> unit -> unit
val generate_gobject_tristate_header : unit -> unit
val generate_gobject_tristate_source : unit -> unit

4
generator/main.ml
View File

@@ -179,7 +179,7 @@ Run it from the top source directory using the command
sprintf "gobject/include/guestfs-gobject/%s.h" short in
output_to filename (generate_gobject_struct_header short typ cols);
let filename = sprintf "gobject/src/%s.c" short in
output_to filename (generate_gobject_struct_source short typ cols)
output_to filename (generate_gobject_struct_source short typ)
) external_structs;
delete_except_generated "gobject/include/guestfs-gobject/struct-*.h";
delete_except_generated "gobject/src/struct-*.c";
@@ -191,7 +191,7 @@ Run it from the top source directory using the command
let filename =
sprintf "gobject/include/guestfs-gobject/%s.h" short in
output_to filename
(generate_gobject_optargs_header short name optargs f);
(generate_gobject_optargs_header short name f);
let filename = sprintf "gobject/src/%s.c" short in
output_to filename
(generate_gobject_optargs_source short name optargs f)