--- /dev/null
+#!/usr/bin/perl -w
+#
+# CrossReport - analysis tool.
+# Copyright (C) 2009 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 GDBM_File;
+use POSIX qw(strftime floor);
+
+=pod
+
+=head1 NAME
+
+CrossReport - Analysis tool to help cross-compilation to Windows.
+
+=head1 SYNOPSIS
+
+ mingw32-crossreport [options] /path/to/linuxbinary
+
+=head1 DESCRIPTION
+
+CrossReport is a tool to help you analyze the APIs used by a compiled
+Linux program, in order to work out the effort required to
+cross-compile that program for Windows, using the Fedora MinGW
+cross-compiler.
+
+The simplest way to use it is to point it at an existing Linux binary,
+and then read the generated report.
+
+What it does in more detail: It looks at the libraries and API calls
+used by the Linux binary, and compares them to the libraries and API
+calls that we currently support under the Fedora MinGW cross-compiler.
+It then works out what is missing, and produces a report suggesting
+the amount of work that needs to be done to port the program. For
+example, whether whole libraries need to be ported first, and/or how
+to substitute individual calls to work on Windows.
+
+=head1 EXAMPLE
+
+Assuming that the excellent vector graphics editor Inkscape
+(L<http://www.inkscape.org/>) is installed, you could do:
+
+ mingw32-crossreport /usr/bin/inkscape > inkscape-report.txt
+ less inkscape-report.txt
+
+=head1 SHORTCOMINGS
+
+The report is only a general guide. CrossReport contains a lot of
+knowledge about common Linux calls and APIs, but does not know about
+every possible library.
+
+=head1 DATABASE
+
+The program relies on a database of MinGW APIs. The default location
+for this database is C</usr/share/crossreport/crossreport.db> or the
+same file in the current working directory. If the database cannot be
+found in either location, the program will fail with an error message.
+
+The database is updated regularly and distributed with CrossReport.
+To get the best quality report, make sure you are running a recent
+version of the program.
+
+=cut
+
+my $help = '';
+my $man = '';
+my $verbose = '';
+my $binary = '';
+
+sub get_options
+{
+ my $result = GetOptions (
+ "help|?" => \$help,
+ "man" => \$man,
+ "verbose" => \$verbose,
+ );
+ die "crossreport: use --help for information about command line options\n"
+ unless $result;
+
+ pod2usage(1) if $help;
+ pod2usage(-exitstatus => 0, -verbose => 2) if $man;
+
+ die "crossreport: no binary specified: use --help for more help\n"
+ if @ARGV != 1;
+
+ $binary = $ARGV[0];
+}
+
+my %symbols;
+
+sub get_db
+{
+ foreach ("/usr/local/share/crossreport/crossreport.db",
+ "/usr/share/crossreport/crossreport.db",
+ "crossreport.db") {
+ if (-f $_) {
+ tie %symbols, "GDBM_File", $_, &GDBM_READER, 0;
+ return;
+ }
+ }
+ die "Could not find crossreport.db\n"
+}
+
+# Get the symbols (API calls) used by the binary.
+
+my %api = (); # Count how each API is used.
+my @unresolved = (); # List of unresolved symbols.
+
+sub get_symbols
+{
+ my $cmd = "nm -D $binary | grep ' U ' | awk '{print \$2}' | c++filt";
+ open CMD, "$cmd |" or die "$cmd: $!";
+ foreach (<CMD>) {
+ chomp;
+ if (exists $symbols{$_}) {
+ my $rpm_name = $symbols{$_};
+ $api{$rpm_name} = 0 unless exists $api{$rpm_name};
+ $api{$rpm_name}++;
+ } else {
+ push @unresolved, $_;
+ }
+ }
+ close CMD;
+}
+
+#----------------------------------------------------------------------
+# Reporting section.
+
+# This hash contains our area expertise about some unresolved symbols.
+
+my $suggest_portability_library =
+ "To get more reliable semantics, we suggest you use a portability\n".
+ "library such as Gnulib, glib2, QtCore, etc.\n";
+my $warning_about_read_write_on_sockets =
+ "If you are using read/write on sockets, then this won't work on\n".
+ "Windows. You should use recv/send instead.\n";
+
+my %report = (
+ "open" =>
+ "Program uses POSIX open/close/read/write/... APIs. You should be\n".
+ "aware that Win32 provides functions with the same name which do not\n".
+ "have POSIX semantics. Simple file operations will be fine, but you\n".
+ "will not be able to, for example, open /dev/* or other special files,\n".
+ "and select, locking and other POSIX features will not work the same\n".
+ "way.\n".
+ "\n".
+ "$suggest_portability_library".
+ "\n".
+ "$warning_about_read_write_on_sockets",
+ "close" => '@open',
+ "read" => '@open',
+ "write" => '@open',
+
+ "socket" =>
+ "Program uses Berkeley sockets API. Windows has a reasonable facsimile\n".
+ "called Winsock. However it has some annoying API differences, in\n".
+ "particular: (1) You have to use WSAGetLastError instead of errno,\n".
+ "(2) error numbers have different names, (3) you cannot select on,\n".
+ "sockets, (4) a multitude of small API differences, (5) you have to\n".
+ "initialize Winsock before using it by calling WSAStartup.\n".
+ "\n".
+ "$suggest_portability_library".
+ "\n".
+ "$warning_about_read_write_on_sockets",
+ "socketpair" => '@socket',
+ "accept" => '@socket',
+ "bind" => '@socket',
+ "connect" => '@socket',
+ "listen" => '@socket',
+ "getsockopt" => '@socket',
+ "setsockopt" => '@socket',
+ "shutdown" => '@socket',
+
+ "ioctl" =>
+ "Program uses fcntl or ioctl system calls. Only a tiny fraction of\n".
+ "the functionality of these system calls is available in Windows,\n".
+ "often with differences in semantics.\n".
+ "\n".
+ "$suggest_portability_library",
+ "fcntl" => '@ioctl',
+
+ "select" =>
+ "The select/poll/etc system calls are not available on Windows. You\n".
+ "have to use WSAWaitForMultipleEvents instead.\n".
+ "\n".
+ "$suggest_portability_library",
+ "poll" => '@select',
+ "epoll_create" => '@select',
+ "epoll_ctl" => '@select',
+ "epoll_wait" => '@select',
+
+ "fork" =>
+ "You cannot use fork to create new processes under Windows. You have\n".
+ "to replace calls to fork/exec with CreateProcess or CreateThread.\n".
+ "\n".
+ "If your program forks in order to run in parallel or to create\n".
+ "multiple identical workers, then you may have to restructure the\n".
+ "program.\n".
+ "\n".
+ "If your program needs to share resources such as file descriptors\n".
+ "across the fork, then some limited options are available through\n".
+ "CreateProcess, but nothing like as rich as what is available in\n".
+ "Unix.\n".
+ "\n".
+ "For server programs, we suggest using a portability library tuned\n".
+ "for the needs of servers, such as Apache Portable Runtime.\n",
+ "execl" => '@fork',
+ "execlp" => '@fork',
+ "execle" => '@fork',
+ "execv" => '@fork',
+ "execvp" => '@fork',
+ "execve" => '@fork',
+
+ "usleep" =>
+ "usleep/nanosleep system calls do not exist on Windows. You should\n".
+ "replace this with one of the Win32 equivalents such as Sleep.\n".
+ "\n".
+ "$suggest_portability_library",
+ "nanosleep" => '@usleep',
+
+ "dup" =>
+ "dup/dup2 may not work as expected in Win32.\n".
+ "\n".
+ "$suggest_portability_library",
+ "dup2" => '@dup2',
+
+ "getopt_long" =>
+ "GNU getopt_long is not available in Windows.\n".
+ "\n".
+ "$suggest_portability_library",
+
+ "__stack_chk_fail" =>
+ "The -fstack-protector option may not work with the Fedora MinGW\n".
+ "cross-compiler at this time.\n",
+);
+
+# List of symbols for which there is no known problem.
+
+my %no_report = (
+ __libc_start_main => 1,
+ _exit => 1,
+ fputc => 1,
+ free => 1,
+ fwrite => 1,
+ malloc => 1,
+ strcasecmp => 1,
+ strchr => 1,
+ strcmp => 1,
+ strtol => 1,
+);
+
+sub report_start
+{
+ my $time = time ();
+ my $date = strftime "%a %b %e %H:%M:%S %Y", localtime ($time);
+ my $sym_time = $symbols{__crossreport_time};
+ my $sym_date = strftime "%a %b %e %H:%M:%S %Y", localtime ($sym_time);
+ my $days = floor (($time - $sym_time) / 86400);
+
+ print <<EOT;
+Cross-compilation report for: $binary
+
+Report prepared on $date.
+Symbol database last updated on $sym_date ($days days ago).
+
+EOT
+}
+
+# Report resolved libraries.
+
+sub report_resolved
+{
+ print <<EOT;
+This table shows the supported APIs that this program uses,
+including the number of different calls made to each API.
+In most cases, you just need to arrange it so that your program
+'BuildRequires' these RPMs and links to the libraries within them.
+
+ #calls RPM name
+EOT
+
+ foreach (sort (keys %api)) {
+ printf " %10d %s\n", $api{$_}, $_;
+ }
+
+ print "\n";
+}
+
+# Report unresolved symbols.
+
+sub report_unresolved
+{
+ @unresolved = sort @unresolved;
+
+ if (0 == @unresolved) {
+ print <<EOT;
+No unresolved symbols were found. Programs which have no
+unresolved symbols at all are the easiest to port because
+portability libraries (eg. glib, Qt) have already done all
+the hard work for you.
+EOT
+ } else {
+ my $nr_unresolved = @unresolved;
+ print <<EOT;
+$nr_unresolved unresolved symbols were found. The full list of symbols
+is listed as an appendix at the end of this report. In this
+section we try to identify known portability problems from
+this list of symbols.
+
+EOT
+
+ foreach (@unresolved) {
+ if (!exists $no_report{$_}) {
+ if (exists $report{$_}) {
+ my $r = $report{$_};
+ $r = $report{$1} while $r =~ /@(.*)/;
+ print "Program uses: $_\n\n$r\n";
+ }
+ }
+ }
+
+
+ print <<EOT;
+Appendix - Full list of unresolved symbols
+
+* = Symbol we were not able to give advice about. If you know
+more about this symbol, consider providing a patch for the
+CrossReport program.
+
+✓ = Win32 should supply this symbol, or it can be ignored because
+it is a side-effect of the Unix toolchain.
+
+EOT
+
+ foreach (@unresolved) {
+ my $star =
+ exists $no_report{$_} ? "✓" :
+ (exists $report{$_} ? " " : "*");
+ print "\t$star $_\n"
+ }
+ }
+}
+
+# Main program.
+
+sub main
+{
+ get_options ();
+ get_db ();
+ get_symbols ();
+ report_start ();
+ report_resolved ();
+ report_unresolved ();
+}
+
+main ();
+
+=pod
+
+=head1 COPYRIGHT
+
+Copyright (C) 2009 Red Hat Inc.
+Written by Richard W.M. Jones <rjones@redhat.com>.
+
+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.
+
+=cut