+++ /dev/null
-#!/usr/bin/perl -w
-#
-# NSISWrapper - a helper program for making Windows installers.
-# Copyright (C) 2008 Red Hat Inc.
-# Written by Richard W.M. Jones <rjones@redhat.com>,
-# http://fedoraproject.org/wiki/MinGW
-#
-# This program is free software; you can redistribute it and/or modify
-# it under the terms of the GNU General Public License as published by
-# the Free Software Foundation; either version 2 of the License, or (at
-# your option) any later version.
-#
-# This program is distributed in the hope that it will be useful, but
-# WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
-# General Public License for more details.
-#
-# You should have received a copy of the GNU General Public License
-# along with this program; if not, write to the Free Software
-# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
-
-use strict;
-use Getopt::Long;
-use Pod::Usage;
-use File::Temp qw/tempfile/;
-#use Data::Dumper;
-
-=pod
-
-=head1 NAME
-
-nsiswrapper - Helper program for making NSIS Windows installers
-
-=head1 SYNOPSIS
-
- nsiswrapper [options] [roots...]
-
- nsiswrapper myprogram.exe anotherprog.exe docs/ > script.nsis
-
- nsiswrapper --run myprogram.exe anotherprog.exe docs/
-
-=head1 DESCRIPTION
-
-nsiswrapper is a helper program for making it easier to create Windows
-installers in a cross-compiler environment. It still requires NSIS (a
-Windows installer generator) but cuts out the tedium of writing the
-NSIS command script, and can even invoke NSIS automatically to
-generate a final Windows executable.
-
-The general way to use it is to list out some files that you want
-packaged. For example:
-
- nsiswrapper myprogram.exe
-
-This will search for C<myprogram.exe> and any libraries (C<*.dll>)
-that it depends upon, and then it will print out an NSIS script.
-
-If you want to have it run C<makensis> as well (to automatically
-create a Windows installer) then do:
-
- nsiswrapper --run myprogram.exe
-
-which will generate C<installer.exe> output file that contains
-C<myprogram.exe> plus any dependencies.
-
-You can list other files and directories that you want to have
-contained in your installer. For example:
-
- nsiswrapper myprogram.exe anotherprog.exe docs/*.html
-
-There are many other command line options which control aspects of the
-NSIS command script (and hence, the final installer), such as:
-
-=over 4
-
-=item *
-
-The name of the final installer.
-
-=item *
-
-Desktop shortcuts and menu items.
-
-=item *
-
-License files.
-
-=back
-
-It's a good idea to examine the NSIS command script, to check that
-nsiswrapper is including all the right dependencies.
-
-=head1 ROOTS (FILES AND DIRECTORIES)
-
-Each parameter should refer to a file or directory which is to be
-included in the installer.
-
-These are known as "roots" because we also automatically add any
-dependencies to the list of files. Thus if a Windows executable
-requires any DLLs, those are added automatically. DLLs are searched
-for on the current C<$PATH> (environment variable).
-
-We choose the install location by removing any common prefix from the
-names of roots, which generally ensures that the original directory
-structure is preserved. Thus for example if the original roots (and
-any dependencies) are:
-
- /usr/i686-pc-mingw32/sys-root/mingw/bin/program.exe
- /usr/i686-pc-mingw32/sys-root/mingw/bin/library.dll
- /usr/i686-pc-mingw32/sys-root/mingw/etc/config
-
-then the install directory will look like this:
-
- $INSTDIR/bin/program.exe
- $INSTDIR/bin/library.dll
- $INSTDIR/etc/config
-
-(C<$INSTDIR> is the installation directory chosen by the user at
-install time).
-
-You can also specify the install location (relative to C<$INSTDIR>) by
-adding roots of the form:
-
- source=destination
-
-for example:
-
- /usr/i686-pc-mingw32/sys-root/mingw/bin/program.exe=program.exe
- /usr/i686-pc-mingw32/sys-root/mingw/bin/library.dll=library.dll
- /usr/i686-pc-mingw32/sys-root/mingw/etc/config=conf/config
-
-which results in:
-
- $INSTDIR/program.exe
- $INSTDIR/library.dll
- $INSTDIR/conf/config
-
-=head1 OPTIONS
-
-=over 4
-
-=item B<--help>
-
-Print brief help message and exit.
-
-=item B<--man>
-
-Print the full manual page for the command and exit.
-
-=item B<--verbose>
-
-Print verbose messages while running. If this is not given then we
-try to operate quietly.
-
-=item B<--run>
-
-Normally this program just prints out the NSIS installer command
-script. However if you supply this option, then we run C<makensis>
-and attempt to generate an actual Windows installer.
-
-=item B<--with-gtk>
-
-GTK programs should normally supply this option. It ensures that the
-correct files are copied and/or created by the installer for GTK
-programs to work.
-
-=item B<--name "Name">
-
-Set the long name of the installer.
-
-If not set, the script tries to invent a suitable name based on the
-first root file given on the command line.
-
-See also B<--outfile>.
-
-=item B<--outfile myinstaller.exe>
-
-Set the output filename for the installer.
-
-If not set, this defaults to C<installer.exe>.
-
-This is the same as the C<OutFile> option to NSIS.
-
-=item B<--installdir 'C:\foo'>
-
-Set the default Windows installation directory. If not set, this
-program will choose a suitable default based on the name.
-
-In any case, the end user can override this when they run the
-installer.
-
-Note that since this string will contain backslashes, you should
-single-quote it to protect it from the shell.
-
-This is the same as the C<InstallDir> option to NSIS.
-
-=item B<--installdirregkey 'HKLM SOFTWARE\FOO'>
-
-Set the name of the registry key used to save the installation
-directory. This has two purposes: Firstly it is used to automagically
-remember the installation directory between installs. Secondly your
-program can use this as one method to find its own installation
-directory (there are other ways to do this).
-
-The default is C<HKLM SOFTWARE\Name> where C<Name> is derived from the
-name of the installer.
-
-Note that since this string will contain backslashes and spaces, you
-should single-quote it to protect it from the shell.
-
-This is the same as the C<InstallDirRegKey> option to NSIS.
-
-=back
-
-=cut
-
-my $objdump;
-my %files;
-
-my $help = '';
-my $man = '';
-my $verbose = '';
-my $run = '';
-my $with_gtk = '';
-my $name = '';
-my $outfile = 'installer.exe';
-my $installdir = '';
-my $installdirregkey = '';
-
-# XXX Should make these configurable.
-my $mingw32_prefix = '/usr/i686-pc-mingw32/sys-root/mingw';
-my $mingw32_bindir = $mingw32_prefix . '/bin';
-my $mingw32_libdir = $mingw32_prefix . '/lib';
-my $mingw32_sysconfdir = $mingw32_prefix . '/etc';
-
-sub get_options
-{
- my $result = GetOptions (
- "help|?" => \$help,
- "man" => \$man,
- "verbose" => \$verbose,
- "run" => \$run,
- "with-gtk" => \$with_gtk,
- "name=s" => \$name,
- "outfile=s" => \$outfile,
- "installdir=s" => \$installdir,
- "installdirregkey=s" => \$installdirregkey,
- );
- die "nsiswrapper: use --help for information about command line options\n"
- unless $result;
-
- pod2usage(1) if $help;
- pod2usage(-exitstatus => 0, -verbose => 2) if $man;
-
- # Add the roots to the list of files.
- die "nsiswrapper: no roots specified: use --help for more help\n"
- if @ARGV == 0;
- foreach my $file (@ARGV) {
- my ($dir, $exec) = (0, 0);
-
- # Is it source=destination?
- my ($source, $dest);
- if ($file =~ /^(.*)=(.*)$/) {
- $source = $1;
- $dest = $2;
- } else {
- $source = $file;
- }
-
- die "$source: not a file or directory\n"
- unless -f $source || -d $source;
-
- $exec = 1 if $source =~ m/\.exe$/i;
- $dir = 1 if -d $source;
-
- $files{$source} = {
- name => $source,
- root => 1,
- dir => $dir,
- exec => $exec,
- };
-
- # Deal with explicit destination.
- if (defined $dest) {
- my ($install_dir, $install_name);
-
- if ($dest =~ m{(.*)/(.*)}) {
- $install_dir = $1;
- $install_name = $2;
- } else {
- $install_dir = ".";
- $install_name = $dest;
- }
-
- # Convert / in install_dir into backslashes.
- $install_dir =~ s{/}{\\}g;
-
- $files{$source}->{install_dir} = $install_dir;
- $files{$source}->{install_name} = $install_name;
- }
- }
-
- # Name not set?
- if (!$name) {
- # Massage the first root into a suitable package name.
- $_ = $ARGV[0];
- s{.*/}{};
- s{=.*$}{};
- s{\.\w\w\w\w?$}{};
- $_ = ucfirst;
- $name = $_;
- }
-
- # InstallDir not set?
- if (!$installdir) {
- $_ = $name;
- s/\W/-/g;
- $installdir = "c:\\$_"
- }
-
- # InstallDirRegKey not set?
- if (!$installdirregkey) {
- $_ = $name;
- s/\W/-/g;
- $installdirregkey = "HKLM SOFTWARE\\$_"
- }
-}
-
-# Check prerequisites.
-
-sub check_prereqs
-{
- my @paths = split (/:/, $ENV{PATH});
-
- if (! $objdump) {
- $objdump = check_path ("i686-pc-mingw32-objdump", @paths);
- if (! $objdump || ! -x $objdump) {
- die "i686-pc-mingw32-objdump: program not found on \$PATH\n"
- }
- }
-}
-
-# Check for the existance of a file at the given paths (not
-# necessarily executable). Returns the pathname of the file or
-# undefined if not found.
-
-sub check_path
-{
- local $_ = shift;
- my @paths = @_;
-
- my $found;
- foreach my $dir (@paths) {
- my $file = $dir . "/" . $_;
- if (-f $file) {
- $found = $file;
- last;
- }
- }
- $found
-}
-
-# Print configuration.
-
-sub print_config
-{
- print "Configuration:\n";
- print "\t\$PATH = $ENV{PATH}\n";
- print "\t\$objdump = $objdump\n";
- print "\t\$verbose = $verbose\n";
- print "\t\$name = \"$name\"\n";
- print "\t\$outfile = \"$outfile\"\n";
- print "\t\$installdir = \"$installdir\"\n";
- print "\t\$installdirregkey = \"$installdirregkey\"\n";
- my @roots = keys %files;
- print "\t\@roots = (", join (", ", @roots), ")\n";
- print "End of configuration.\n";
-}
-
-# Starting at the roots, get the dependencies.
-
-my $missing_deps = 0;
-
-sub do_dependencies
-{
- my $deps_added = 1;
-
- while ($deps_added > 0) {
- $deps_added = 0;
-
- foreach (keys %files) {
- my @deps = get_deps_for_file ($_);
-
- # Add the deps as separate files.
- foreach (@deps) {
- $deps_added += add_file_unless_exists (
- $_,
- root => 0,
- dir => 0,
- exec => 0
- );
- }
- }
- }
-
- die "please correct missing dependencies shown above\n"
- if $missing_deps > 0;
-}
-
-sub add_file_unless_exists
-{
- my $name = shift;
- my %details = @_;
-
- unless (exists $files{$name}) {
- die "$name: not a file or directory\n" unless -f $name || -d $name;
-
- $details{name} = $name;
- $files{$name} = \%details;
-
- return 1;
- } else {
- return 0;
- }
-}
-
-my $path_warning = 0;
-
-sub get_deps_for_file
-{
- my $file = shift;
- my @paths = split (/:/, $ENV{PATH});
-
- # If we already fetched the dependencies for this file, just
- # return that list now.
- if (exists $files{$file}->{deps}) {
- return @{$files{$file}->{deps}}
- }
-
- my @deps = ();
-
- # We only know how to do this for *.exe and *.dll files.
- if (m/\.exe$/i || m/\.dll$/i) {
- my $cmd = "$objdump -p '$file' |
- grep 'DLL Name:' |
- grep -Eo '[-._[:alnum:]]+\.dll' |
- sort -u"; # XXX quoting
- open DEPS, "$cmd |" or die "$cmd: $!";
- foreach (<DEPS>) {
- chomp; $_ = lc;
-
- # Ignore Windows system DLL deps.
- next if is_windows_system_dll ($_);
-
- # Does the file exist on the path?
- my $found = check_path ($_, @paths);
- if ($found) {
- push @deps, $found;
- } else {
- warn "MISSING DEPENDENCY: $_ (for $file)\n";
- $missing_deps++;
- unless ($path_warning) {
- warn "You may need to add the directory containing this file to your \$PATH\n";
- $path_warning = 1;
- }
- }
- }
- close DEPS;
-
- if ($verbose) {
- if (@deps > 0) {
- print "dependencies found for binary $file:\n\t",
- join ("\n\t", @deps), "\n";
- } else {
- print "no dependencies found for $file\n"
- }
- }
-
- }
-
- # Cache the list of dependencies so we can just return it
- # immediately next time.
- $files{$file}->{deps} = \@deps;
- return @deps;
-}
-
-sub is_windows_system_dll
-{
- local $_ = shift;
-
- $_ eq 'gdi32.dll' ||
- $_ eq 'kernel32.dll' ||
- $_ eq 'ole32.dll' ||
- $_ eq 'mscoree.dll' ||
- $_ eq 'msvcrt.dll' ||
- $_ eq 'user32.dll'
-}
-
-# Add Gtk dependencies, if --with-gtk.
-
-sub do_gtk
-{
- add_file_unless_exists (
- "$mingw32_libdir/gtk-2.0",
- root => 0,
- dir => 1,
- exec => 0,
- install_dir => "lib",
- install_name => "gtk-2.0"
- );
-
- add_file_unless_exists (
- "$mingw32_libdir/pango",
- root => 0,
- dir => 1,
- exec => 0,
- install_dir => "lib",
- install_name => "pango"
- );
-
- add_file_unless_exists (
- "$mingw32_sysconfdir/fonts",
- root => 0,
- dir => 1,
- exec => 0,
- install_dir => "etc",
- install_name => "fonts"
- );
-
- add_file_unless_exists (
- "$mingw32_sysconfdir/gtk-2.0",
- root => 0,
- dir => 1,
- exec => 0,
- install_dir => "etc",
- install_name => "gtk-2.0"
- );
-
- add_file_unless_exists (
- "$mingw32_sysconfdir/pango",
- root => 0,
- dir => 1,
- only_mkdir => 1,
- exec => 0,
- install_dir => "etc",
- install_name => "pango"
- );
-
- # We need to run pango-querymodules after installation to
- # rebuild etc\pango\pango.modules.
- add_file_unless_exists (
- "$mingw32_bindir/pango-querymodules.exe",
- root => 0,
- dir => 0,
- exec => 0
- );
-}
-
-# Decide how we will name the output files. This removes the
-# common prefix from filenames, if it can determine one.
-
-sub install_names
-{
- my @names = keys %files;
-
- # Don't care about files that already have an install
- # directory/name defined, ie. they were specified as source=dest
- # on the command line.
- @names = grep { ! exists $files{$_}->{install_name} } @names;
-
- # Determine if all the names share a common prefix.
- my @namelens = map { length } @names;
- my $shortest = min (@namelens);
-
- my $prefixlen;
- for ($prefixlen = $shortest; $prefixlen >= 0; --$prefixlen) {
- my @ns = map { substr $_, 0, $prefixlen } @names;
- last if same (@ns);
- }
-
- if ($verbose) { print "prefix length = $prefixlen\n" }
-
- # Remove the prefix from each name and save the install directory
- # and install filename separately.
- foreach my $name (@names) {
- my $install_as = substr $name, $prefixlen;
-
- my ($install_dir, $install_name);
-
- if ($install_as =~ m{(.*)/(.*)}) {
- $install_dir = $1;
- $install_name = $2;
- } else {
- $install_dir = ".";
- $install_name = $install_as;
- }
-
- # Convert / in install_dir into backslashes.
- $install_dir =~ s{/}{\\}g;
-
- $files{$name}->{install_dir} = $install_dir;
- $files{$name}->{install_name} = $install_name;
- }
-}
-
-sub max
-{
- my $max = $_[0];
- for (@_[1..$#_]) {
- $max = $_ if $_ > $max;
- }
- $max
-}
-
-sub min
-{
- my $min = $_[0];
- for (@_[1..$#_]) {
- $min = $_ if $_ < $min;
- }
- $min
-}
-
-sub same
-{
- my $s = $_[0];
- for (@_[1..$#_]) {
- return 0 if $_ ne $s;
- }
- 1;
-}
-
-# Print the list of files.
-
-sub print_files
-{
- print "Files:\n";
- foreach (sort keys %files) {
- print "\t$_";
- if ($files{$_}->{root}) {
- print " [root]";
- }
- if ($files{$_}->{dir}) {
- print " [dir]";
- }
- print STDOUT ("\n\t => ",
- $files{$_}->{install_dir}, " \\ ", $files{$_}->{install_name},
- "\n");
- }
- print "End of files.\n";
-}
-
-# Write the NSIS script.
-
-sub write_script
-{
- my $io = shift;
-
- print $io <<EOT;
-#!Nsis Installer Command Script
-#
-# This is an NSIS Installer Command Script generated automatically
-# by the Fedora nsiswrapper program. For more information see:
-#
-# http://fedoraproject.org/wiki/MinGW
-#
-# To build an installer from the script you would normally do:
-#
-# makensis this_script
-#
-# which will generate the output file '$outfile' which is a Windows
-# installer containing your program.
-
-Name "$name"
-OutFile "$outfile"
-InstallDir "$installdir"
-InstallDirRegKey $installdirregkey "Install_Dir"
-
-ShowInstDetails hide
-ShowUninstDetails hide
-
-# Uncomment this to enable BZip2 compression, which results in
-# slightly smaller files but uses more memory at install time.
-#SetCompressor bzip2
-
-XPStyle on
-
-Page components
-Page directory
-Page instfiles
-
-ComponentText "Select which optional components you want to install."
-
-DirText "Please select the installation folder."
-
-Section "$name"
- SectionIn RO
-EOT
-
- # Set the output files.
- my $olddir;
- foreach (sort keys %files) {
- if (!$olddir || $files{$_}->{install_dir} ne $olddir) {
- # Moved into a new install directory.
- my $dir = $files{$_}->{install_dir};
- print $io "\n SetOutPath \"\$INSTDIR\\$dir\"\n";
- $olddir = $dir;
- }
-
- # If it's a directory, we copy it recursively, otherwise
- # just copy the single file.
- if ($files{$_}->{dir}) {
- if ($files{$_}->{only_mkdir}) {
- # This is a hack to allow us to create empty directories.
- my $install_dir = $files{$_}->{install_dir};
- my $install_name = $files{$_}->{install_name};
- print $io " CreateDirectory \"\$INSTDIR\\$install_dir\\$install_name\"\n";
- } else {
- print $io " File /r \"$_\"\n";
- }
- } else {
- print $io " File \"$_\"\n";
- }
- }
-
- # GTK?
- if ($with_gtk) {
- my $install_dir = $files{"$mingw32_bindir/pango-querymodules.exe"}->{install_dir};
- my $install_name = $files{"$mingw32_bindir/pango-querymodules.exe"}->{install_name};
-
- # This particular piece of Windows stupidity is documented here:
- # http://forums.winamp.com/showthread.php?postid=438771#post438771
- # http://forums.winamp.com/printthread.php?s=53c76b4ae4221ff1d9dc361fc5bf7ea2&threadid=231797
- print $io "\n";
- print $io " ReadEnvStr \$0 COMSPEC\n";
- print $io " SetOutPath \"\$INSTDIR\"\n";
- print $io " nsExec::ExecToLog '\$0 /C $install_dir\\$install_name > etc\\pango\\pango.modules'\n"
- }
-
- print $io <<EOT;
-SectionEnd
-
-Section "Start Menu Shortcuts"
- CreateDirectory "\$SMPROGRAMS\\$name"
- CreateShortCut "\$SMPROGRAMS\\$name\\Uninstall $name.lnk" "\$INSTDIR\\Uninstall $name.exe" "" "\$INSTDIR\\Uninstall $name.exe" 0
-EOT
-
- # Start menu entries for each executable.
- foreach (sort keys %files) {
- if ($files{$_}->{exec}) {
- my $install_dir = $files{$_}->{install_dir};
- my $install_name = $files{$_}->{install_name};
- print $io " CreateShortCut \"\$SMPROGRAMS\\$name\\$install_name.lnk\" \"\$INSTDIR\\$install_dir\\$install_name\" \"\" \"\$INSTDIR\\$install_dir\\$install_name\" 0\n";
- }
- }
-
- print $io <<EOT;
-SectionEnd
-
-Section "Desktop Icons"
-EOT
-
- # Desktop icons for each executable.
- foreach (sort keys %files) {
- if ($files{$_}->{exec}) {
- my $install_dir = $files{$_}->{install_dir};
- my $install_name = $files{$_}->{install_name};
- print $io " CreateShortCut \"\$DESKTOP\\$install_name.lnk\" \"\$INSTDIR\\$install_dir\\$install_name\" \"\" \"\$INSTDIR\\$install_dir\\$install_name\" 0\n";
- }
- }
-
- print $io <<EOT;
-SectionEnd
-
-Section "Uninstall"
-EOT
-
- # Remove desktop icons and menu shortcuts.
- foreach (reverse sort keys %files) {
- if ($files{$_}->{exec}) {
- my $install_name = $files{$_}->{install_name};
- print $io " Delete /rebootok \"\$DESKTOP\\$install_name.lnk\"\n";
- print $io " Delete /rebootok \"\$SMPROGRAMS\\$name\\$install_name.lnk\"\n";
- }
- }
- print $io " Delete /rebootok \"\$SMPROGRAMS\\$name\\Uninstall $name.lnk\"\n";
- print $io " RMDir \"\$SMPROGRAMS\\$name\"\n\n";
-
- # Remove remaining files.
- $olddir = '';
- foreach (reverse sort keys %files) {
- if (!$olddir || $files{$_}->{install_dir} ne $olddir) {
- # Moved into a new install directory, so delete the previous one.
- print $io " RMDir \"\$INSTDIR\\$olddir\"\n\n"
- if $olddir;
- $olddir = $files{$_}->{install_dir};
- }
-
- # If it's a directory, we delete it recursively, otherwise
- # just delete the single file.
- my $install_dir = $files{$_}->{install_dir};
- my $install_name = $files{$_}->{install_name};
- if ($files{$_}->{dir}) {
- print $io " RMDir /r \"\$INSTDIR\\$install_dir\\$install_name\"\n\n";
- $olddir = ''; # Don't double-delete directory.
- } else {
- print $io " Delete /rebootok \"\$INSTDIR\\$install_dir\\$install_name\"\n";
- }
- }
-
- print $io " RMDir \"\$INSTDIR\\$olddir\"\n" if $olddir;
-
- print $io <<EOT;
- RMDir "\$INSTDIR"
-SectionEnd
-
-Section -post
- WriteUninstaller "\$INSTDIR\\Uninstall $name.exe"
-SectionEnd
-EOT
-}
-
-# Run makensis on the named file.
-
-sub run_makensis
-{
- my $filename = shift;
-
- system ("makensis", $filename) == 0 or die "makensis: $?"
-}
-
-# Main program.
-
-sub main
-{
- get_options ();
- check_prereqs ();
- print_config () if $verbose;
- do_gtk () if $with_gtk;
- do_dependencies ();
- install_names ();
- print_files () if $verbose;
- if ($run) {
- my ($io, $filename) = tempfile ("nswXXXXXX", UNLINK => 1);
- write_script ($io);
- close $io;
- run_makensis ($filename);
- } else {
- write_script (\*STDOUT);
- }
-}
-
-main ()
git.annexia.org / fedora-mingw.git / blobdiff