From bedfb8e2fc58ea7898e7c1bcfaa0fcc5196dd1e6 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <thierry.vignaud@gmail.com>
Date: Mon, 25 May 2015 14:37:47 -0400
Subject: update Glib

---
 fake_packages/Glib.pm | 85 +++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 85 insertions(+)

(limited to 'fake_packages')

diff --git a/fake_packages/Glib.pm b/fake_packages/Glib.pm
index e45e1e1..b24d29a 100644
--- a/fake_packages/Glib.pm
+++ b/fake_packages/Glib.pm
@@ -481,6 +481,91 @@ sub register_enum { my ($_class, $_name, @_more_paras) = @_ }
 sub register_flags { my ($_class, $_name, @_more_paras) = @_ }
 sub register_object { my ($_class, $_parent_package, $_new_package, @_more_paras) = @_ }
 
+package Glib::Variant;
+our @ISA = qw();
+sub DESTROY { my ($_variant) = @_ }
+sub byteswap { my ($_value) = @_ }
+sub classify { my ($_value) = @_ }
+sub compare { my ($_one, $_two) = @_ }
+sub equal { my ($_one, $_two) = @_ }
+sub get { my ($_v, $_o_format) = @_ }
+sub get_boolean { my ($_value) = @_ }
+sub get_byte { my ($_value) = @_ }
+sub get_bytestring { my ($_value) = @_ }
+sub get_child_value { my ($_value, $_index_) = @_ }
+sub get_double { my ($_value) = @_ }
+sub get_handle { my ($_value) = @_ }
+sub get_int16 { my ($_value) = @_ }
+sub get_int32 { my ($_value) = @_ }
+sub get_int64 { my ($_value) = @_ }
+sub get_maybe { my ($_value) = @_ }
+sub get_normal_form { my ($_value) = @_ }
+sub get_size { my ($_value) = @_ }
+sub get_string { my ($_value) = @_ }
+sub get_type { my ($_value) = @_ }
+sub get_type_string { my ($_value) = @_ }
+sub get_uint16 { my ($_value) = @_ }
+sub get_uint32 { my ($_value) = @_ }
+sub get_uint64 { my ($_value) = @_ }
+sub get_variant { my ($_value) = @_ }
+sub hash { my ($_value) = @_ }
+sub is_container { my ($_value) = @_ }
+sub is_normal_form { my ($_value) = @_ }
+sub is_object_path { my ($_string) = @_ }
+sub is_of_type { my ($_value, $_type) = @_ }
+sub is_signature { my ($_string) = @_ }
+sub lookup_value { my ($_dictionary, $_key, $_expected_type) = @_ }
+sub n_children { my ($_value) = @_ }
+sub new { my ($_class, $_format, @_more_paras) = @_ }
+sub new_array { my ($_class, $_child_type, $_children) = @_ }
+sub new_boolean { my ($_class, $_value) = @_ }
+sub new_byte { my ($_class, $_value) = @_ }
+sub new_bytestring { my ($_class, $_string) = @_ }
+sub new_dict_entry { my ($_class, $_key, $_value) = @_ }
+sub new_double { my ($_class, $_value) = @_ }
+sub new_handle { my ($_class, $_value) = @_ }
+sub new_int16 { my ($_class, $_value) = @_ }
+sub new_int32 { my ($_class, $_value) = @_ }
+sub new_int64 { my ($_class, $_value) = @_ }
+sub new_maybe { my ($_class, $_child_type, $_child) = @_ }
+sub new_object_path { my ($_class, $_object_path) = @_ }
+sub new_signature { my ($_class, $_signature) = @_ }
+sub new_string { my ($_class, $_string) = @_ }
+sub new_tuple { my ($_class, $_children) = @_ }
+sub new_uint16 { my ($_class, $_value) = @_ }
+sub new_uint32 { my ($_class, $_value) = @_ }
+sub new_uint64 { my ($_class, $_value) = @_ }
+sub new_variant { my ($_class, $_value) = @_ }
+sub parse { my ($_type, $_text) = @_ }
+
+package Glib::VariantType;
+our @ISA = qw();
+sub element { my ($_type) = @_ }
+sub equal { my ($_type1, $_type2) = @_ }
+sub first { my ($_type) = @_ }
+sub get_string { my ($_type) = @_ }
+sub hash { my ($_type) = @_ }
+sub is_array { my ($_type) = @_ }
+sub is_basic { my ($_type) = @_ }
+sub is_container { my ($_type) = @_ }
+sub is_definite { my ($_type) = @_ }
+sub is_dict_entry { my ($_type) = @_ }
+sub is_maybe { my ($_type) = @_ }
+sub is_subtype_of { my ($_type, $_supertype) = @_ }
+sub is_tuple { my ($_type) = @_ }
+sub is_variant { my ($_type) = @_ }
+sub key { my ($_type) = @_ }
+sub n_items { my ($_type) = @_ }
+sub new { my ($_class, $_type_string) = @_ }
+sub new_array { my ($_class, $_element) = @_ }
+sub new_dict_entry { my ($_class, $_key, $_value) = @_ }
+sub new_maybe { my ($_class, $_element) = @_ }
+sub new_tuple { my ($_class, $_items) = @_ }
+sub next { my ($_type) = @_ }
+sub string_is_valid { my ($_type_string) = @_ }
+sub string_scan { my ($_string) = @_ }
+sub value { my ($_type) = @_ }
+
 package MY;
 our @ISA = qw();
 sub c_o { my ($__) = @_ }
-- 
cgit v1.2.1