aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
Diffstat
-rw-r--r--Build.PL12
-rw-r--r--com.algaos.Installer.desktop8
-rw-r--r--com.algaos.Updater.desktop8
-rw-r--r--com.algaos.Updater.svg (renamed from com.algaos.Installer.svg)0
-rw-r--r--lib/AlgaOS/Constants.xsi6
-rw-r--r--lib/AlgaOS/Updater.pm (renamed from lib/AlgaOS/Installer.pm)4
-rw-r--r--lib/AlgaOS/Updater.xs (renamed from lib/AlgaOS/Installer.xs)44
-rw-r--r--lib/AlgaOS/Updater/GUI.pm (renamed from lib/AlgaOS/Installer/GUI.pm)14
-rw-r--r--lib/AlgaOS/Updater/Util.pm (renamed from lib/AlgaOS/Installer/Util.pm)2
-rw-r--r--pre_typedef.h2
-rw-r--r--pre_typemap2
-rwxr-xr-xscripts/algaos-updater (renamed from scripts/algaos-installer)8
-rw-r--r--typedefs.h26
-rw-r--r--typemap639
14 files changed, 55 insertions, 720 deletions
diff --git a/Build.PL b/Build.PL
index 07de155..d03a5dc 100644
--- a/Build.PL
+++ b/Build.PL
@@ -67,7 +67,7 @@ generate_constants_xsi();
sub generate_constants_xsi {
open my $fh, '>', 'lib/AlgaOS/Constants.xsi'
or die "Cannot create Constants.xsi: $!";
- say $fh "MODULE = AlgaOS::Installer PACKAGE = AlgaOS::Installer::Constants";
+ say $fh "MODULE = AlgaOS::Updater PACKAGE = AlgaOS::Updater::Constants";
say $fh "";
@@ -85,7 +85,7 @@ XS
}
say $fh <<"XS";
-AlgaOS::Installer::Constants
+AlgaOS::Updater::Constants
new(...)
CODE:
RETVAL = malloc(sizeof *RETVAL);
@@ -94,14 +94,14 @@ new(...)
RETVAL
void
-DESTROY(AlgaOS::Installer::Constants self)
+DESTROY(AlgaOS::Updater::Constants self)
CODE:
free(self);
XS
}
sub generate_parentships {
- open my $fh, '>', 'lib/AlgaOS/Installer/Parents.pm'
+ open my $fh, '>', 'lib/AlgaOS/Updater/Parents.pm'
or die "Cannot create parentships: $!";
for my $child ( keys %parentships ) {
say $fh "package $child;";
@@ -112,7 +112,7 @@ sub generate_parentships {
}
my $build = Module::Build->new(
- module_name => 'AlgaOS::Installer',
+ module_name => 'AlgaOS::Updater',
license => 'perl',
requires => {
'perl' => '5.38.2',
@@ -124,7 +124,7 @@ my $build = Module::Build->new(
'File::ShareDir' => 0,
},
script_files => [
- 'scripts/algaos-installer',
+ 'scripts/algaos-updater',
],
share_dir => 'share',
extra_compiler_flags => scalar `pkg-config --cflags gtk4` . " -I$ENV{PWD}",
diff --git a/com.algaos.Installer.desktop b/com.algaos.Installer.desktop
deleted file mode 100644
index d7b1ac0..0000000
--- a/com.algaos.Installer.desktop
+++ /dev/null
@@ -1,8 +0,0 @@
-[Desktop Entry]
-Version=1.0
-Name=Instalar AlgaOS
-GenericName=Instalador
-Exec=algaos-installer
-Icon=com.algaos.Installer
-Terminal=true
-Type=Application
diff --git a/com.algaos.Updater.desktop b/com.algaos.Updater.desktop
new file mode 100644
index 0000000..0697123
--- /dev/null
+++ b/com.algaos.Updater.desktop
@@ -0,0 +1,8 @@
+[Desktop Entry]
+Version=1.0
+Name=Actualiza AlgaOS
+GenericName=Actualizador
+Exec=algaos-updater
+Icon=com.algaos.Updater
+Terminal=true
+Type=Application
diff --git a/com.algaos.Installer.svg b/com.algaos.Updater.svg
index 6db4591..6db4591 100644
--- a/com.algaos.Installer.svg
+++ b/com.algaos.Updater.svg
diff --git a/lib/AlgaOS/Constants.xsi b/lib/AlgaOS/Constants.xsi
index 436daab..97e505c 100644
--- a/lib/AlgaOS/Constants.xsi
+++ b/lib/AlgaOS/Constants.xsi
@@ -1,4 +1,4 @@
-MODULE = AlgaOS::Installer PACKAGE = AlgaOS::Installer::Constants
+MODULE = AlgaOS::Updater PACKAGE = AlgaOS::Updater::Constants
unsigned int
GTK_ALIGN_FILL(...)
@@ -56,7 +56,7 @@ CODE:
OUTPUT:
RETVAL
-AlgaOS::Installer::Constants
+AlgaOS::Updater::Constants
new(...)
CODE:
RETVAL = malloc(sizeof *RETVAL);
@@ -65,7 +65,7 @@ new(...)
RETVAL
void
-DESTROY(AlgaOS::Installer::Constants self)
+DESTROY(AlgaOS::Updater::Constants self)
CODE:
free(self);
diff --git a/lib/AlgaOS/Installer.pm b/lib/AlgaOS/Updater.pm
index c92ed5c..8398fca 100644
--- a/lib/AlgaOS/Installer.pm
+++ b/lib/AlgaOS/Updater.pm
@@ -1,4 +1,4 @@
-package AlgaOS::Installer;
+package AlgaOS::Updater;
use v5.38.0;
use strict;
@@ -10,5 +10,5 @@ our $VERSION = "0.001";
require XSLoader;
XSLoader::load(__PACKAGE__, $VERSION);
-require AlgaOS::Installer::Parents;
+require AlgaOS::Updater::Parents;
1;
diff --git a/lib/AlgaOS/Installer.xs b/lib/AlgaOS/Updater.xs
index 270c98b..1f47b21 100644
--- a/lib/AlgaOS/Installer.xs
+++ b/lib/AlgaOS/Updater.xs
@@ -396,7 +396,7 @@ perl_signal_callback(GObject *object, gpointer data)
LEAVE;
}
-MODULE = AlgaOS::Installer PACKAGE = Gtk::AlertDialog
+MODULE = AlgaOS::Updater PACKAGE = Gtk::AlertDialog
Gtk::AlertDialog
new(SV *class, char *title, char *detail)
@@ -428,7 +428,7 @@ choose(Gtk::AlertDialog self, Gtk::Window window, SV *callback)
SvREFCNT_inc(callback);
gtk_alert_dialog_choose(self, window, NULL, gtk_alert_dialog_choose_callback, callback);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Overlay
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Overlay
Gtk::Overlay
new(...)
@@ -448,7 +448,7 @@ set_child(Gtk::Overlay over, GtkWidget *child)
CODE:
gtk_overlay_set_child(over, child);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Grid
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Grid
Gtk::Grid
new(...)
@@ -463,7 +463,7 @@ attach(Gtk::Grid self, Gtk::Widget widget, int column, int row, int width, int h
CODE:
gtk_grid_attach(self, widget, column, row, width, height);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Label
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Label
Gtk::Label
new(SV *class, char *label)
@@ -475,7 +475,7 @@ new(SV *class, char *label)
INCLUDE: Constants.xsi
-MODULE = AlgaOS::Installer PACKAGE = Gtk::ApplicationWindow
+MODULE = AlgaOS::Updater PACKAGE = Gtk::ApplicationWindow
Gtk::ApplicationWindow
new(SV *class, Gtk::Application app)
@@ -485,7 +485,7 @@ new(SV *class, Gtk::Application app)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Editable
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Editable
const char *
get_text(Gtk::Editable self)
@@ -494,7 +494,7 @@ get_text(Gtk::Editable self)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Entry
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Entry
Gtk::Entry
new(...)
@@ -504,7 +504,7 @@ new(...)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::CheckButton
+MODULE = AlgaOS::Updater PACKAGE = Gtk::CheckButton
Gtk::CheckButton
new(...)
@@ -521,7 +521,7 @@ get_active(Gtk::CheckButton self)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Button
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Button
void
set_label(Gtk::Button button, char *label)
@@ -536,7 +536,7 @@ new(SV *class, char *label)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Dropdown
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Dropdown
Gtk::Dropdown
new(SV *class, AV *items)
@@ -599,7 +599,7 @@ selected(Gtk::Dropdown self)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::ScrolledWindow
+MODULE = AlgaOS::Updater PACKAGE = Gtk::ScrolledWindow
Gtk::ScrolledWindow
new(SV *class)
@@ -614,7 +614,7 @@ set_child(Gtk::ScrolledWindow self, Gtk::Widget widget)
CODE:
gtk_scrolled_window_set_child(self, widget);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Window
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Window
void
set_title(Gtk::Window self, char *title)
@@ -649,7 +649,7 @@ present(Gtk::Window win)
CODE:
gtk_window_present(win);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Box
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Box
Gtk::Box
new(SV *class, unsigned int orientation, int spacing)
@@ -659,7 +659,7 @@ new(SV *class, unsigned int orientation, int spacing)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Widget
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Widget
void
add_css_class(Gtk::Widget widget, char *class)
@@ -684,7 +684,7 @@ set_halign(Gtk::Widget widget, unsigned int constant)
CODE:
gtk_widget_set_halign(widget, constant);
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Application
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Application
Gtk::Application
new(SV *class, char *app_name, size_t flags)
@@ -694,7 +694,7 @@ new(SV *class, char *app_name, size_t flags)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gio::Application
+MODULE = AlgaOS::Updater PACKAGE = Gio::Application
void
timeout_add(SV *class, unsigned int interval, SV *callback)
@@ -730,7 +730,7 @@ run(Gio::Application app, ...)
free(argv);
-MODULE = AlgaOS::Installer PACKAGE = Gio::File
+MODULE = AlgaOS::Updater PACKAGE = Gio::File
Gio::File
new(SV *class, const char *path)
@@ -740,7 +740,7 @@ new(SV *class, const char *path)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::Picture
+MODULE = AlgaOS::Updater PACKAGE = Gtk::Picture
Gtk::Picture
new(SV *class, Gdk::Texture texture)
@@ -750,7 +750,7 @@ new(SV *class, Gdk::Texture texture)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = Gtk::CssProvider
+MODULE = AlgaOS::Updater PACKAGE = Gtk::CssProvider
Gtk::CssProvider
new(...)
@@ -765,14 +765,14 @@ load_from_path(Gtk::CssProvider self, char *path)
CODE:
gtk_css_provider_load_from_path(self, path);
-MODULE = AlgaOS::Installer PACKAGE = Gdk::Display
+MODULE = AlgaOS::Updater PACKAGE = Gdk::Display
void
add_css_provider(Gdk::Display self, Gtk::CssProvider provider, int priority)
CODE:
gtk_style_context_add_provider_for_display(self, GTK_STYLE_PROVIDER (provider), priority);
-MODULE = AlgaOS::Installer PACKAGE = Gdk::Texture
+MODULE = AlgaOS::Updater PACKAGE = Gdk::Texture
Gdk::Texture
new(SV *class, Gio::File file)
@@ -786,7 +786,7 @@ new(SV *class, Gio::File file)
OUTPUT:
RETVAL
-MODULE = AlgaOS::Installer PACKAGE = G::Object
+MODULE = AlgaOS::Updater PACKAGE = G::Object
void
bind_property_full(G::Object self, char *self_property, G::Object target, char *target_property, int flags, SV *transform_to, SV *transform_from)
diff --git a/lib/AlgaOS/Installer/GUI.pm b/lib/AlgaOS/Updater/GUI.pm
index 22a29b6..b019362 100644
--- a/lib/AlgaOS/Installer/GUI.pm
+++ b/lib/AlgaOS/Updater/GUI.pm
@@ -1,19 +1,19 @@
-package AlgaOS::Installer::GUI;
+package AlgaOS::Updater::GUI;
use v5.40.0;
use strict;
use warnings;
use Moo;
-use AlgaOS::Installer;
-use AlgaOS::Installer::Util;
+use AlgaOS::Updater;
+use AlgaOS::Updater::Util;
use List::Util;
use JSON;
use POSIX qw/WNOHANG/;
use PBKDF2::Tiny;
use Crypt::URandom qw/urandom/;
use File::ShareDir ':ALL';
-my $dist_dir_files = dist_dir('AlgaOS-Installer');
+my $dist_dir_files = dist_dir('AlgaOS-Updater');
my @perl_args_chroot = @ARGV;
@@ -66,11 +66,11 @@ sub call_and_increment_grid_row( $self, $coderef ) {
}
sub _build_const {
- return AlgaOS::Installer::Constants->new;
+ return AlgaOS::Updater::Constants->new;
}
sub _build_app {
- return Gtk::Application->new( "com.algaos.Installer", 0 );
+ return Gtk::Application->new( "com.algaos.Updater", 0 );
}
sub _create_install_grid( $self, $desc ) {
@@ -570,7 +570,7 @@ sub _install( $self, %args ) {
eval {
$prepare->();
excfailexit qw{sudo perl}, @perl_args_chroot,
- qw{-MAlgaOS::Installer::GUI -e AlgaOS::Installer::GUI::chroot_install_commands(@ARGV)},
+ qw{-MAlgaOS::Updater::GUI -e AlgaOS::Updater::GUI::chroot_install_commands(@ARGV)},
$hostname, $username, $password, $timezone, $locale,
$container_block, $complete_systemd;
diff --git a/lib/AlgaOS/Installer/Util.pm b/lib/AlgaOS/Updater/Util.pm
index 2c147f9..9ad5f98 100644
--- a/lib/AlgaOS/Installer/Util.pm
+++ b/lib/AlgaOS/Updater/Util.pm
@@ -1,4 +1,4 @@
-package AlgaOS::Installer::Util;
+package AlgaOS::Updater::Util;
use v5.40.0;
use strict;
diff --git a/pre_typedef.h b/pre_typedef.h
index 7b11af9..0895793 100644
--- a/pre_typedef.h
+++ b/pre_typedef.h
@@ -1,3 +1,3 @@
typedef struct bpf_program *PCAP__Program;
typedef int *Constants;
-typedef Constants AlgaOS__Installer__Constants;
+typedef Constants AlgaOS__Updater__Constants;
diff --git a/pre_typemap b/pre_typemap
index 949bfe4..3800659 100644
--- a/pre_typemap
+++ b/pre_typemap
@@ -14,4 +14,4 @@ PCAP::Header T_PTROBJ
struct pcap_pkthdr *T_PTROBJ
Constants T_PTROBJ
-AlgaOS::Installer::Constants T_PTROBJ
+AlgaOS::Updater::Constants T_PTROBJ
diff --git a/scripts/algaos-installer b/scripts/algaos-updater
index dc7acfa..87b4cf9 100755
--- a/scripts/algaos-installer
+++ b/scripts/algaos-updater
@@ -4,11 +4,11 @@ use strict;
use warnings;
use Data::Dumper;
-use AlgaOS::Installer::GUI;
-use AlgaOS::Installer::Util;
+use AlgaOS::Updater::GUI;
+use AlgaOS::Updater::Util;
use JSON qw/from_json to_json/;
-use AlgaOS::Installer;
+use AlgaOS::Updater;
use Moo;
use Crypt::URandom qw/urandom/;
@@ -39,7 +39,7 @@ sub _build__is_windows {
}
sub run($self) {
- AlgaOS::Installer::GUI->new(
+ AlgaOS::Updater::GUI->new(
pipe_name => $self->_pipe_name,
secret => $self->_secret
)->run;
diff --git a/typedefs.h b/typedefs.h
deleted file mode 100644
index 4162ef7..0000000
--- a/typedefs.h
+++ /dev/null
@@ -1,26 +0,0 @@
-typedef struct bpf_program *PCAP__Program;
-typedef int *Constants;
-typedef Constants AlgaOS__Installer__Constants;
-
-typedef GtkApplication *Gtk__Application;
-typedef GApplication *Gio__Application;
-typedef GtkBox *Gtk__Box;
-typedef GtkWindow *Gtk__Window;
-typedef GtkScrolledWindow *Gtk__ScrolledWindow;
-typedef GtkApplicationWindow *Gtk__ApplicationWindow;
-typedef GtkOverlay *Gtk__Overlay;
-typedef GObject *G__Object;
-typedef GtkWidget *Gtk__Widget;
-typedef GtkButton *Gtk__Button;
-typedef GtkCheckButton *Gtk__CheckButton;
-typedef GtkEntry *Gtk__Entry;
-typedef GtkDropDown *Gtk__Dropdown;
-typedef GtkPicture *Gtk__Picture;
-typedef GFile *Gio__File;
-typedef GdkTexture *Gdk__Texture;
-typedef GdkDisplay *Gdk__Display;
-typedef GtkCssProvider *Gtk__CssProvider;
-typedef GtkGrid *Gtk__Grid;
-typedef GtkLabel *Gtk__Label;
-typedef GtkEditable *Gtk__Editable;
-typedef GtkAlertDialog *Gtk__AlertDialog;
diff --git a/typemap b/typemap
deleted file mode 100644
index 33a7dd5..0000000
--- a/typemap
+++ /dev/null
@@ -1,639 +0,0 @@
-TYPEMAP
-
-PCAP::Handle T_PTROBJ
-pcap_t *T_PTROBJ
-
-PCAP::Packet T_PTROBJ
-UDPPacketInfo *T_PTROBJ
-
-PCAP::If T_PTROBJ
-pcap_if_t *T_PTROBJ
-
-PCAP::Program T_PTROBJ
-struct bpf_program *T_PTROBJ
-
-PCAP::Header T_PTROBJ
-struct pcap_pkthdr *T_PTROBJ
-
-Constants T_PTROBJ
-AlgaOS::Installer::Constants T_PTROBJ
-
-
-
-Gtk::Application T_PTROBJ_GOBJECT_GTK_APPLICATION
-
-GtkApplication * T_PTROBJ_GOBJECT_GTK_APPLICATION
-
-
-Gio::Application T_PTROBJ_GOBJECT_G_APPLICATION
-
-GApplication * T_PTROBJ_GOBJECT_G_APPLICATION
-
-
-Gtk::Box T_PTROBJ_GOBJECT_GTK_BOX
-
-GtkBox * T_PTROBJ_GOBJECT_GTK_BOX
-
-
-Gtk::Window T_PTROBJ_GOBJECT_GTK_WINDOW
-
-GtkWindow * T_PTROBJ_GOBJECT_GTK_WINDOW
-
-
-Gtk::ScrolledWindow T_PTROBJ_GOBJECT_GTK_SCROLLED_WINDOW
-
-GtkScrolledWindow * T_PTROBJ_GOBJECT_GTK_SCROLLED_WINDOW
-
-
-Gtk::ApplicationWindow T_PTROBJ_GOBJECT_GTK_APPLICATION_WINDOW
-
-GtkApplicationWindow * T_PTROBJ_GOBJECT_GTK_APPLICATION_WINDOW
-
-
-Gtk::Overlay T_PTROBJ_GOBJECT_GTK_OVERLAY
-
-GtkOverlay * T_PTROBJ_GOBJECT_GTK_OVERLAY
-
-
-G::Object T_PTROBJ_GOBJECT_G_OBJECT
-
-GObject * T_PTROBJ_GOBJECT_G_OBJECT
-
-
-Gtk::Widget T_PTROBJ_GOBJECT_GTK_WIDGET
-
-GtkWidget * T_PTROBJ_GOBJECT_GTK_WIDGET
-
-
-Gtk::Button T_PTROBJ_GOBJECT_GTK_BUTTON
-
-GtkButton * T_PTROBJ_GOBJECT_GTK_BUTTON
-
-
-Gtk::CheckButton T_PTROBJ_GOBJECT_GTK_CHECK_BUTTON
-
-GtkCheckButton * T_PTROBJ_GOBJECT_GTK_CHECK_BUTTON
-
-
-Gtk::Entry T_PTROBJ_GOBJECT_GTK_ENTRY
-
-GtkEntry * T_PTROBJ_GOBJECT_GTK_ENTRY
-
-
-Gtk::Dropdown T_PTROBJ_GOBJECT_GTK_DROP_DOWN
-
-GtkDropDown * T_PTROBJ_GOBJECT_GTK_DROP_DOWN
-
-
-Gtk::Picture T_PTROBJ_GOBJECT_GTK_PICTURE
-
-GtkPicture * T_PTROBJ_GOBJECT_GTK_PICTURE
-
-
-Gio::File T_PTROBJ_GOBJECT_G_FILE
-
-GFile * T_PTROBJ_GOBJECT_G_FILE
-
-
-Gdk::Texture T_PTROBJ_GOBJECT_GDK_TEXTURE
-
-GdkTexture * T_PTROBJ_GOBJECT_GDK_TEXTURE
-
-
-Gdk::Display T_PTROBJ_GOBJECT_GDK_DISPLAY
-
-GdkDisplay * T_PTROBJ_GOBJECT_GDK_DISPLAY
-
-
-Gtk::CssProvider T_PTROBJ_GOBJECT_GTK_CSS_PROVIDER
-
-GtkCssProvider * T_PTROBJ_GOBJECT_GTK_CSS_PROVIDER
-
-
-Gtk::Grid T_PTROBJ_GOBJECT_GTK_GRID
-
-GtkGrid * T_PTROBJ_GOBJECT_GTK_GRID
-
-
-Gtk::Label T_PTROBJ_GOBJECT_GTK_LABEL
-
-GtkLabel * T_PTROBJ_GOBJECT_GTK_LABEL
-
-
-Gtk::Editable T_PTROBJ_GOBJECT_GTK_EDITABLE
-
-GtkEditable * T_PTROBJ_GOBJECT_GTK_EDITABLE
-
-
-Gtk::AlertDialog T_PTROBJ_GOBJECT_GTK_ALERT_DIALOG
-
-GtkAlertDialog * T_PTROBJ_GOBJECT_GTK_ALERT_DIALOG
-
-INPUT
-
-T_PTROBJ_GOBJECT_GTK_APPLICATION
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_application_get_type())) {
- $var = GTK_APPLICATION (gobject);
- } else {
- croak("Not implementing GTK_APPLICATION");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Application object");
- }
-
-
-T_PTROBJ_GOBJECT_G_APPLICATION
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, g_application_get_type())) {
- $var = G_APPLICATION (gobject);
- } else {
- croak("Not implementing G_APPLICATION");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gio::Application object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_BOX
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_box_get_type())) {
- $var = GTK_BOX (gobject);
- } else {
- croak("Not implementing GTK_BOX");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Box object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_WINDOW
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_window_get_type())) {
- $var = GTK_WINDOW (gobject);
- } else {
- croak("Not implementing GTK_WINDOW");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Window object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_SCROLLED_WINDOW
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_scrolled_window_get_type())) {
- $var = GTK_SCROLLED_WINDOW (gobject);
- } else {
- croak("Not implementing GTK_SCROLLED_WINDOW");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::ScrolledWindow object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_APPLICATION_WINDOW
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_application_window_get_type())) {
- $var = GTK_APPLICATION_WINDOW (gobject);
- } else {
- croak("Not implementing GTK_APPLICATION_WINDOW");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::ApplicationWindow object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_OVERLAY
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_overlay_get_type())) {
- $var = GTK_OVERLAY (gobject);
- } else {
- croak("Not implementing GTK_OVERLAY");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Overlay object");
- }
-
-
-T_PTROBJ_GOBJECT_G_OBJECT
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, g_object_get_type())) {
- $var = G_OBJECT (gobject);
- } else {
- croak("Not implementing G_OBJECT");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected G::Object object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_WIDGET
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_widget_get_type())) {
- $var = GTK_WIDGET (gobject);
- } else {
- croak("Not implementing GTK_WIDGET");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Widget object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_BUTTON
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_button_get_type())) {
- $var = GTK_BUTTON (gobject);
- } else {
- croak("Not implementing GTK_BUTTON");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Button object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_CHECK_BUTTON
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_check_button_get_type())) {
- $var = GTK_CHECK_BUTTON (gobject);
- } else {
- croak("Not implementing GTK_CHECK_BUTTON");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::CheckButton object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_ENTRY
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_entry_get_type())) {
- $var = GTK_ENTRY (gobject);
- } else {
- croak("Not implementing GTK_ENTRY");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Entry object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_DROP_DOWN
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_drop_down_get_type())) {
- $var = GTK_DROP_DOWN (gobject);
- } else {
- croak("Not implementing GTK_DROP_DOWN");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Dropdown object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_PICTURE
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_picture_get_type())) {
- $var = GTK_PICTURE (gobject);
- } else {
- croak("Not implementing GTK_PICTURE");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Picture object");
- }
-
-
-T_PTROBJ_GOBJECT_G_FILE
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, g_file_get_type())) {
- $var = G_FILE (gobject);
- } else {
- croak("Not implementing G_FILE");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gio::File object");
- }
-
-
-T_PTROBJ_GOBJECT_GDK_TEXTURE
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gdk_texture_get_type())) {
- $var = GDK_TEXTURE (gobject);
- } else {
- croak("Not implementing GDK_TEXTURE");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gdk::Texture object");
- }
-
-
-T_PTROBJ_GOBJECT_GDK_DISPLAY
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gdk_display_get_type())) {
- $var = GDK_DISPLAY (gobject);
- } else {
- croak("Not implementing GDK_DISPLAY");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gdk::Display object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_CSS_PROVIDER
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_css_provider_get_type())) {
- $var = GTK_CSS_PROVIDER (gobject);
- } else {
- croak("Not implementing GTK_CSS_PROVIDER");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::CssProvider object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_GRID
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_grid_get_type())) {
- $var = GTK_GRID (gobject);
- } else {
- croak("Not implementing GTK_GRID");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Grid object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_LABEL
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_label_get_type())) {
- $var = GTK_LABEL (gobject);
- } else {
- croak("Not implementing GTK_LABEL");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Label object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_EDITABLE
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_editable_get_type())) {
- $var = GTK_EDITABLE (gobject);
- } else {
- croak("Not implementing GTK_EDITABLE");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::Editable object");
- }
-
-
-T_PTROBJ_GOBJECT_GTK_ALERT_DIALOG
- if (sv_isobject($arg)) {
- IV integer_pointer = SvIV(SvRV($arg));
- void *void_object = INT2PTR(void *, integer_pointer);
- if (G_IS_OBJECT(void_object)) {
- GObject *gobject = G_OBJECT (void_object);
- if (G_TYPE_CHECK_INSTANCE_TYPE(gobject, gtk_alert_dialog_get_type())) {
- $var = GTK_ALERT_DIALOG (gobject);
- } else {
- croak("Not implementing GTK_ALERT_DIALOG");
- }
- } else {
- croak("Expected gobject");
- }
- } else {
- croak("Expected Gtk::AlertDialog object");
- }
-
-OUTPUT
-
-T_PTROBJ_GOBJECT_GTK_APPLICATION
- sv_setref_pv($arg, "Gtk::Application", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_G_APPLICATION
- sv_setref_pv($arg, "Gio::Application", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_BOX
- sv_setref_pv($arg, "Gtk::Box", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_WINDOW
- sv_setref_pv($arg, "Gtk::Window", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_SCROLLED_WINDOW
- sv_setref_pv($arg, "Gtk::ScrolledWindow", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_APPLICATION_WINDOW
- sv_setref_pv($arg, "Gtk::ApplicationWindow", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_OVERLAY
- sv_setref_pv($arg, "Gtk::Overlay", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_G_OBJECT
- sv_setref_pv($arg, "G::Object", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_WIDGET
- sv_setref_pv($arg, "Gtk::Widget", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_BUTTON
- sv_setref_pv($arg, "Gtk::Button", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_CHECK_BUTTON
- sv_setref_pv($arg, "Gtk::CheckButton", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_ENTRY
- sv_setref_pv($arg, "Gtk::Entry", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_DROP_DOWN
- sv_setref_pv($arg, "Gtk::Dropdown", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_PICTURE
- sv_setref_pv($arg, "Gtk::Picture", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_G_FILE
- sv_setref_pv($arg, "Gio::File", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GDK_TEXTURE
- sv_setref_pv($arg, "Gdk::Texture", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GDK_DISPLAY
- sv_setref_pv($arg, "Gdk::Display", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_CSS_PROVIDER
- sv_setref_pv($arg, "Gtk::CssProvider", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_GRID
- sv_setref_pv($arg, "Gtk::Grid", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_LABEL
- sv_setref_pv($arg, "Gtk::Label", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_EDITABLE
- sv_setref_pv($arg, "Gtk::Editable", (void *)$var);
-
-
-T_PTROBJ_GOBJECT_GTK_ALERT_DIALOG
- sv_setref_pv($arg, "Gtk::AlertDialog", (void *)$var);
-
generated by cgit v1.3 (git 2.53.0) at 2026-09-24 23:23:21 +0000