sergiotarxz/wine-strawberry-perl
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Update generate_folder.pl

Browse Source
This commit is contained in:
sergiotarxz 2024-02-26 22:50:15 +01:00
parent fb6183b265
commit a77289d930
1 changed files with 10 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
readme.txt → generate_folder.pl
View File

@ -10,6 +10,7 @@ use File::pushd;
use feature 'signatures'; use feature 'signatures';
my @dlls = ( my @dlls = (
glob('/usr/x86_64-w64-mingw32/usr/bin/*'), glob('/usr/x86_64-w64-mingw32/usr/bin/*'),
glob('/usr/x86_64-w64-mingw32/usr/lib/*') glob('/usr/x86_64-w64-mingw32/usr/lib/*')
@ -100,14 +101,14 @@ my $destdir = path(__FILE__)->parent->absolute;
"@{[$destdir->child('c/bin')]};@{[$destdir->child('perl/bin')]}", "@{[$destdir->child('c/bin')]};@{[$destdir->child('perl/bin')]}",
); );
exec 'wperl.exe', $destdir->child('start.pl'); exec 'perl/bin/wperl.exe', $destdir->child('start.pl');
EOF EOF
my $start_c_file_contents = <<'EOF'; my $start_c_file_contents = <<'EOF';
#include <unistd.h> #include <unistd.h>
int main() { int main() {
return execl( "perl/bin/wperl.exe", "wperl.exe", "-Iperl/lib", "setup_env.pl", NULL ); return execl( "perl/bin/wperl.exe", "wperl.exe", "-Iperl/lib", "setup_env.pl", (char *)NULL );
} }
EOF EOF
@ -139,12 +140,18 @@ EOF
$destdir->child('start.c')->spew_raw($start_c_file_contents); $destdir->child('start.c')->spew_raw($start_c_file_contents);
$destdir->child('start.pl')->spew_raw($start_pl_file_contents); $destdir->child('start.pl')->spew_raw($start_pl_file_contents);
$destdir->child('setup_env.pl')->spew_raw($setup_env_file_contents); $destdir->child('setup_env.pl')->spew_raw($setup_env_file_contents);
execute('rm', $destdir->child('start.exe')); execute('rm', '-f', $destdir->child('start.exe'));
execute( execute(
qw{/usr/bin/x86_64-w64-mingw32-gcc -mwindows -o}, qw{/usr/bin/x86_64-w64-mingw32-gcc -mwindows -o},
$destdir->child('start.exe'), $destdir->child('start.exe'),
$destdir->child('start.c'), '-Wl,--subsystem,windows', $destdir->child('start.c'), '-Wl,--subsystem,windows',
); );
execute( 'rm', '-r', $destdir->child('.wine'));
execute( 'find', $destdir, '-name', '*.h', '-delete');
execute( 'find', $destdir, '-name', '*.a', '-delete');
execute( 'find', $destdir, '-name', '*.cmake', '-delete');
execute( 'find', $destdir, '-name', '*.idl', '-delete');
execute( 'find', $destdir, '-name', '*.rst', '-delete');
} }
sub execute(@command) { sub execute(@command) {