Update readme.txt
This commit is contained in:
sergiotarxz
parent
dcfe2d2068
commit
fb6183b265
161
readme.txt
161
readme.txt
@ -1 +1,160 @@
|
|||||||
CPAN_OPTS="-j12 -T" PERL_LOCAL_LIB_ROOT="$(realpath perl)" PERL_MB_OPT="--install_base \"$(realpath perl)\"" PERL_MM_OPT="INSTALL_BASE=$(realpath perl)" LANG="English_United Kingdom.1252" WINEDEBUG=-all LIBRARY_PATH="$(realpath c/bin);$(realpath ./)" WINEPATH="$(realpath c/bin/);$(realpath perl/bin)" PKG_CONFIG_PATH=$(realpath lib/pkgconfig/ ) CPATH="$(realpath lib/include/glib-2.0);$(realpath lib/include/gobject-introspection-1.0)" PERL5LIB="$(realpath perl/lib/perl5/MSWin32-x64-multi-thread/);$(realpath perl/lib);$(realpath perl/vendor/lib/);$(realpath perl/site/lib/)" wine perl.exe -MCPAN -e 'install "Glib::Object::Introspection"'
|
#!/usr/bin/env perl
|
||||||
|
|
||||||
|
use v5.38.1;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use Path::Tiny;
|
||||||
|
use File::pushd;
|
||||||
|
|
||||||
|
use feature 'signatures';
|
||||||
|
|
||||||
|
my @dlls = (
|
||||||
|
glob('/usr/x86_64-w64-mingw32/usr/bin/*'),
|
||||||
|
glob('/usr/x86_64-w64-mingw32/usr/lib/*')
|
||||||
|
);
|
||||||
|
my $strawberry_zip = path('strawberry-perl-5.38.2.2-64bit-portable.zip');
|
||||||
|
my @typelibs =
|
||||||
|
glob('/usr/x86_64-w64-mingw32/usr/lib/girepository-1.0/*.typelib');
|
||||||
|
my @includes = (
|
||||||
|
glob('/usr/x86_64-w64-mingw32/usr/include/*'),
|
||||||
|
'/usr/x86_64-w64-mingw32/usr/lib/glib-2.0/include/glibconfig.h'
|
||||||
|
);
|
||||||
|
my @pkgconfigs = glob('/usr/x86_64-w64-mingw32/usr/lib/pkgconfig/*.pc');
|
||||||
|
|
||||||
|
# my $destdir = Path::Tiny->tempdir;
|
||||||
|
my $destdir = path('__gtk_install__')->absolute;
|
||||||
|
|
||||||
|
%ENV = (
|
||||||
|
PERL_LOCAL_LIB_ROOT => $destdir->child('perl'),
|
||||||
|
PERL_MB_OPT => "--install_base \"@{[$destdir->child('perl')]}\"",
|
||||||
|
PERL_MM_OPT => "INSTALL_BASE=@{[$destdir->child('perl')]}",
|
||||||
|
LANG => "C.utf8",
|
||||||
|
PKG_CONFIG_PATH => $destdir->child('lib/pkgconfig'),
|
||||||
|
LIBRARY_PATH => "@{[$destdir->child('c/bin')]};@{[$destdir->child('.')]}",
|
||||||
|
CPATH => "@{[$destdir->child('lib/include/glib-2.0')]};"
|
||||||
|
. "@{[$destdir->child('lib/include/gobject-introspection-1.0')]};"
|
||||||
|
. "@{[$destdir->child('lib/include/')]}",
|
||||||
|
PERL5LIB =>
|
||||||
|
"@{[$destdir->child('perl/lib/perl5/MSWin32-x64-multi-thread')]};"
|
||||||
|
. "@{[$destdir->child('perl/lib')]};"
|
||||||
|
. "@{[$destdir->child('perl/lib/perl5')]};"
|
||||||
|
. "@{[$destdir->child('perl/vendor/lib')]};@{[$destdir->child('perl/site/lib/')]}",
|
||||||
|
GI_TYPELIB_PATH => $destdir->child('lib/typelib'),
|
||||||
|
WINEPATH =>
|
||||||
|
"@{[$destdir->child('c/bin')]};@{[$destdir->child('perl/bin')]}",
|
||||||
|
WINEPREFIX => $destdir->child('.wine'),
|
||||||
|
WINEDEBUG => '-all',
|
||||||
|
);
|
||||||
|
|
||||||
|
system 'unzip', '-d', $destdir, $strawberry_zip;
|
||||||
|
|
||||||
|
system 'cp', '-r', @dlls, $destdir->child('c/bin');
|
||||||
|
system( qw/mkdir -pv/, $destdir->child('lib/include') );
|
||||||
|
system( qw/mkdir -pv/, $destdir->child('lib/typelib') );
|
||||||
|
system( qw/mkdir -pv/, $destdir->child('lib/pkgconfig') );
|
||||||
|
system 'cp', '-r', @includes, $destdir->child('lib/include');
|
||||||
|
system 'cp', @typelibs, $destdir->child('lib/typelib');
|
||||||
|
system 'cp', @pkgconfigs, $destdir->child('lib/pkgconfig');
|
||||||
|
|
||||||
|
{
|
||||||
|
my $pushd = pushd $destdir;
|
||||||
|
execute_wine(
|
||||||
|
qw{perl},
|
||||||
|
$destdir->child('perl/bin/cpan.bat'),
|
||||||
|
qw{-T Glib::Object::Introspection}
|
||||||
|
);
|
||||||
|
execute_wine(
|
||||||
|
qw{perl},
|
||||||
|
$destdir->child('perl/bin/cpan.bat'),
|
||||||
|
qw{-T Glib::IO}
|
||||||
|
);
|
||||||
|
my $setup_env_file_contents = <<'EOF';
|
||||||
|
use v5.38.0;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use File::Basename;
|
||||||
|
use Path::Tiny;
|
||||||
|
my $destdir = path(__FILE__)->parent->absolute;
|
||||||
|
|
||||||
|
%ENV = (
|
||||||
|
PERL_LOCAL_LIB_ROOT => $destdir->child('perl'),
|
||||||
|
PERL_MB_OPT => "--install_base \"@{[$destdir->child('perl')]}\"",
|
||||||
|
PERL_MM_OPT => "INSTALL_BASE=@{[$destdir->child('perl')]}",
|
||||||
|
LANG => "C.utf8",
|
||||||
|
PKG_CONFIG_PATH => $destdir->child('lib/pkgconfig'),
|
||||||
|
LIBRARY_PATH => "@{[$destdir->child('c/bin')]};@{[$destdir->child('.')]}",
|
||||||
|
CPATH => "@{[$destdir->child('lib/include/glib-2.0')]};"
|
||||||
|
. "@{[$destdir->child('lib/include/gobject-introspection-1.0')]};"
|
||||||
|
. "@{[$destdir->child('lib/include/')]}",
|
||||||
|
PERL5LIB =>
|
||||||
|
"@{[$destdir->child('perl/lib/perl5/MSWin32-x64-multi-thread')]};"
|
||||||
|
. "@{[$destdir->child('perl/lib')]};"
|
||||||
|
. "@{[$destdir->child('perl/lib/perl5')]};"
|
||||||
|
. "@{[$destdir->child('perl/vendor/lib')]};@{[$destdir->child('perl/site/lib/')]}",
|
||||||
|
GI_TYPELIB_PATH => $destdir->child('lib/typelib'),
|
||||||
|
PATH =>
|
||||||
|
"@{[$destdir->child('c/bin')]};@{[$destdir->child('perl/bin')]}",
|
||||||
|
);
|
||||||
|
|
||||||
|
exec 'wperl.exe', $destdir->child('start.pl');
|
||||||
|
EOF
|
||||||
|
|
||||||
|
my $start_c_file_contents = <<'EOF';
|
||||||
|
#include <unistd.h>
|
||||||
|
|
||||||
|
int main() {
|
||||||
|
return execl( "perl/bin/wperl.exe", "wperl.exe", "-Iperl/lib", "setup_env.pl", NULL );
|
||||||
|
}
|
||||||
|
EOF
|
||||||
|
|
||||||
|
my $start_pl_file_contents = <<'EOF';
|
||||||
|
use v5.38.1;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
|
||||||
|
use Glib::IO;
|
||||||
|
use Glib::Object::Introspection;
|
||||||
|
|
||||||
|
Glib::Object::Introspection->setup(
|
||||||
|
basename => 'Gtk',
|
||||||
|
version => '4.0',
|
||||||
|
package => 'Gtk',
|
||||||
|
);
|
||||||
|
|
||||||
|
my $app = Gtk::Application->new('com.example.App', 'default-flags');
|
||||||
|
|
||||||
|
$app->signal_connect(activate => sub {
|
||||||
|
my $win = Gtk::ApplicationWindow->new($app);
|
||||||
|
$win->set_title('hola');
|
||||||
|
$win->present;
|
||||||
|
});
|
||||||
|
$app->run();
|
||||||
|
EOF
|
||||||
|
|
||||||
|
$destdir->child('start.c')->spew_raw($start_c_file_contents);
|
||||||
|
$destdir->child('start.pl')->spew_raw($start_pl_file_contents);
|
||||||
|
$destdir->child('setup_env.pl')->spew_raw($setup_env_file_contents);
|
||||||
|
execute('rm', $destdir->child('start.exe'));
|
||||||
|
execute(
|
||||||
|
qw{/usr/bin/x86_64-w64-mingw32-gcc -mwindows -o},
|
||||||
|
$destdir->child('start.exe'),
|
||||||
|
$destdir->child('start.c'), '-Wl,--subsystem,windows',
|
||||||
|
);
|
||||||
|
}
|
||||||
|
|
||||||
|
sub execute(@command) {
|
||||||
|
print join( ' ', @command ) . "\n";
|
||||||
|
if ( system @command ) {
|
||||||
|
die "Command failed @{[join ' ', @command]}";
|
||||||
|
}
|
||||||
|
}
|
||||||
|
|
||||||
|
sub execute_wine(@args) {
|
||||||
|
my @command = ( 'wine', @args );
|
||||||
|
execute(@command);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue
Block a user