+++ /dev/null
-#!/usr/bin/perl -w
-
-# Copyright (C) 2012 Wind River Systems, Inc.
-#
-# Copyright (C) 2010 Intel Corporation
-#
-#
-# 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 3 of the License.
-#
-# 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, see <http://www.gnu.org/licenses/>.
-#
-# As a special exception, you may create a larger work that contains
-# part or all of the autospectacle output and distribute that work
-# under terms of your choice.
-# Alternatively, if you modify or redistribute autospectacle itself,
-# you may (at your option) remove this special exception.
-#
-# This special exception was modeled after the bison exception
-# (as done by the Free Software Foundation in version 2.2 of Bison)
-#
-
-
-use File::Temp qw(tempdir);
-use File::Path qw(mkpath rmtree);
-use File::Spec ();
-use File::Basename qw(basename dirname);
-
-
-my $name = "";
-my $predef_version = "TO BE FILLED IN";
-my $version = $predef_version;
-my $pversion = $predef_version;
-my $description = "";
-my $summary = "";
-my $url = "";
-my $homepage = "";
-my @depends;
-my @rdepends;
-my @rawpythondeps;
-my $configure = "";
-my $localename = "";
-my @sources;
-my @mainfiles;
-my @patches;
-
-my $md5sum = "";
-my $sh256sum = "";
-my @inherits;
-
-my $printed_subpackages = 0;
-my $fulldir = "";
-
-my $builder = "";
-
-
-my $oscmode = 0;
-my $python = 0;
-
-my @banned_pkgconfig;
-my %failed_commands;
-my %failed_libs;
-my %failed_headers;
-
-
-
-######################################################################
-#
-# License management
-#
-# We store the sha1sum of common COPYING files in an associative array
-# %licenses.
-#
-# For all matching sha1's in the tarball, we then push the result
-# in the @license array (which we'll dedupe at the time of printing).
-#
-
-my %licenses;
-my @license;
-my %lic_files;
-
-sub setup_licenses
-{
- $licenses{"06877624ea5c77efe3b7e39b0f909eda6e25a4ec"} = "GPLv2";
- $licenses{"075d599585584bb0e4b526f5c40cb6b17e0da35a"} = "GPLv2";
- $licenses{"10782dd732f42f49918c839e8a5e2894c508b079"} = "GPLv2";
- $licenses{"2d29c273fda30310211bbf6a24127d589be09b6c"} = "GPLv2";
- $licenses{"4df5d4b947cf4e63e675729dd3f168ba844483c7"} = "LGPLv2.1";
- $licenses{"503df7650052cf38efde55e85f0fe363e59b9739"} = "GPLv2";
- $licenses{"5405311284eab5ab51113f87c9bfac435c695bb9"} = "GPLv2";
- $licenses{"5fb362ef1680e635fe5fb212b55eef4db9ead48f"} = "LGPLv2";
- $licenses{"68c94ffc34f8ad2d7bfae3f5a6b996409211c1b1"} = "GPLv2";
- $licenses{"66c77efd1cf9c70d4f982ea59487b2eeb6338e26"} = "LGPLv2.1";
- $licenses{"74a8a6531a42e124df07ab5599aad63870fa0bd4"} = "GPLv2";
- $licenses{"8088b44375ef05202c0fca4e9e82d47591563609"} = "LGPLv2.1";
- $licenses{"8624bcdae55baeef00cd11d5dfcfa60f68710a02"} = "GPLv3";
- $licenses{"8e57ffebd0ed4417edc22e3f404ea3664d7fed27"} = "MIT";
- $licenses{"99b5245b4714b9b89e7584bfc88da64e2d315b81"} = "BSD";
- $licenses{"aba8d76d0af67d57da3c3c321caa59f3d242386b"} = "MPLv1.1";
- $licenses{"bf50bac24e7ec325dbb09c6b6c4dcc88a7d79e8f"} = "LGPLv2";
- $licenses{"caeb68c46fa36651acf592771d09de7937926bb3"} = "LGPLv2.1";
- $licenses{"dfac199a7539a404407098a2541b9482279f690d"} = "GPLv2";
- $licenses{"e60c2e780886f95df9c9ee36992b8edabec00bcc"} = "LGPLv2.1";
- $licenses{"c931aad3017d975b7f20666cde0953234a9efde3"} = "GPLv2";
-}
-
-sub guess_license_from_file {
- my ($copying) = @_;
-
- if (!-e $copying) {
- return;
- }
-
- my $sha1output = `sha1sum $copying`;
- $sha1output =~ /^([a-zA-Z0-9]*) /;
- my $sha1 = $1;
-
- chomp($sha1);
-
- #
- # if sha1 matches.. push there result
- #
- if (defined($licenses{$sha1})) {
- my $lic = $licenses{$sha1};
- push(@license, $lic);
-
- my $md5output = `md5sum $copying`;
- $md5output =~ /^([a-zA-Z0-9]*) /;
- my $md5 = $1;
- chomp($md5);
- $lic_files{$copying} = $md5
- }
-
- #
- # if file is found, and licence of python
- # package is already aquired, add file.
- #
- if ($python == 1 && @license != 0) {
- my $md5output = `md5sum $copying`;
- $md5output =~ /^([a-zA-Z0-9]*) /;
- my $md5 = $1;
- chomp($md5);
- $lic_files{$copying} = $md5
- }
-
- #
- # We also must make sure that the COPYING/etc files
- # end up in the main package as %doc..
- #
- $copying =~ s/$fulldir//g;
- $copying =~ s/^\///g;
- $copying = "\"\%doc " . $copying ."\"";
-
- push(@mainfiles, $copying);
-}
-
-sub print_license
-{
- my $count = @license;
- if ($count == 0) {
- print OUTFILE "License: TO BE FILLED IN\n";
- return;
- }
-
- # remove dupes
- undef %saw;
- @saw{@license} = ();
- @out = sort keys %saw;
-
- print OUTFILE "License : ";
- foreach (@out) {
- print OUTFILE "$_ ";
- }
- print OUTFILE "\n";
-}
-
-# end of license section
-#
-#######################################################################
-
-######################################################################
-#
-# Package group management
-#
-# We set up an associative array of regexp patterns, where the content
-# of the array is the name of the group.
-#
-# These are "strings of regexps", which means one needs to escape
-# everything, and if you want the actual regexp to have a \,
-# it needs to be a \\ in this string.
-
-my %group_patterns;
-my @groups;
-my $group = "TO_BE/FILLED_IN";
-
-sub setup_group_rules
-{
- $group_patterns{"^\\/usr\\/lib\\/.*so"} = "System/Libraries";
- $group_patterns{"^\\/lib\\/.*so"} = "System/Libraries";
- $group_patterns{"^\\/bin\\/.*"} = "Applications/System";
- $group_patterns{"^\\/sbin\\/.*"} = "Applications/System";
- $group_patterns{"^\\/usr\\/sbin\\/.*"} = "Applications/System";
-}
-
-sub guess_group_from_file
-{
- my ($filename) = @_;
- while (($key,$value) = each %group_patterns) {
- if ($filename =~ /$key/) {
- push(@groups, $value);
- }
- }
-
-}
-
-# end of group section
-#
-######################################################################
-
-
-######################################################################
-#
-# Files and package section
-#
-# This section creates the %files section, but also decides which
-# subpackages (devel and/or doc) we need to have.
-#
-# We start out with the @allfiles array, which will contain all the
-# files installed by the %build phase of the package. The task is
-# to sort these into @mainfiles, @develfiles and @docfiles.
-# In addition, an attempt is made to compress the files list by
-# replacing full filenames with "*" patterns.
-#
-# For this we use a set of regexps from the @files_match array,
-# which are then used as index to three associative arrays:
-# %files_target : numerical index for which package the regexp
-# would place the file at hand.
-# 0 - main package
-# 1 - devel package
-# 2 - doc package
-# 99 - don't package this at all
-#
-# %files_from: regexp to match the file against for filename-wildcarding
-# %files_to : pattern to append to the ()'d part of %files_from to end up
-# with the filename-wildcard.
-
-my @allfiles;
-my @develfiles;
-my @docfiles;
-
-
-my @files_match;
-my %files_target;
-my %files_from;
-my %files_to;
-
-my $totaldocs = 0;
-
-
-sub add_files_rule
-{
- my ($match, $target, $from, $to) =@_;
- push(@files_match, $match);
- $files_target{"$match"} = $target;
-
- if (length($from) > 0) {
- $files_from{"$match"} = $from;
- }
-
- if (length($to) > 0) {
- $files_to{"$match"} = $to;
- }
-}
-
-sub setup_files_rules
-{
-
-#
-# Files for the Main package
-#
-
- add_files_rule("^\\/usr\\/lib\\/[a-z0-9A-Z\\_\\-\\.]+\\.so\\.", 0,
- "(\\/usr\\/lib\\/.*\\.so\\.).*", "\*");
-
-
- add_files_rule("^\\/usr\\/share\\/omf\\/", 0,
- "(\\/usr\\/share\\/omf\\/.*?\\/).*", "\*");
-
-#
-# Files for the Devel subpackage
-#
- add_files_rule("^\\/usr\\/share\\/gir-1\\.0\\/[a-z0-9A-Z\\_\\-\\.]+\\.gir\$", 1,
- "(\\/usr\\/share\\/gir-1\\.0\/).*", "\*\.gir");
- add_files_rule("^\\/usr\\/lib\\/girepository-1\\.0\\/[a-z0-9A-Z\\_\\-\\.]+\\.typelib\$", 1,
- "(\\/usr\\/lib\\/girepository-1\\.0\/).*", "\*\.typelib");
- add_files_rule("^\\/usr\\/include\\/[a-z0-9A-Z\\_\\-\\.]+\\.h\$", 1,
- "(\\/usr\\/include\/).*", "\*\.h");
- add_files_rule("^\\/usr\\/include\\/[a-z0-9A-Z\\_\\-\\.]+\\/.*?\\.h\$", 1,
- "(\\/usr\\/include\\/[a-z0-9A-Z\\_\\-\\.]+\\/.*?)[a-z0-9A-Z\\_\\-\\.]+\\.h", "\*\.h");
- add_files_rule("^\\/usr\\/lib\\/[a-z0-9A-Z\\_\\-\\.]+\\.so\$", 1,
- "(\\/usr\\/lib\\/).*\\.so\$", "\*.so");
- add_files_rule("^\\/usr\\/lib\\/pkgconfig\\/[a-z0-9A-Z\\_\\-\\.\+]+\\.pc\$", 1,
- "(\\/usr\\/lib\\/pkgconfig\\/).*\\.pc\$", "\*.pc");
- add_files_rule("^\\/usr\\/share\\/aclocal", 1, "", "");
- add_files_rule("^\\/usr\\/lib\\/qt4\\/mkspecs/", 1, "", "");
-
-
-
-
-#
-# Files for the documentation subpackage
-#
- add_files_rule("^\\/usr\\/share\\/gtk\-doc\\/html\\/[a-z0-9A-Z\\_\\-\\.]+\\/.\*", 2,
- "(\\/usr\\/share\\/gtk\-doc\\/html\\/[a-z0-9A-Z\\_\\-\\.]+\\/).\*", "\*");
- add_files_rule("^\\/usr\\/share\\/doc\\/[a-zA-Z0-9\-]*", 2,
- "(\\/usr\\/share\\/doc\\/[a-zA-Z0-9\-]+\\/).*", "\*");
- add_files_rule("^\\/usr\\/share\\/man\\/man[0-9]\\/[a-zA-Z0-9\-]*", 2,
- "(\\/usr\\/share\\/man\\/man[0-9]\\/[a-zA-Z0-9\-]+\\/).*", "\*");
- add_files_rule("^\\/usr\\/share\\/gnome\\/help\\/", 2,
- "(\\/usr\\/share\\/gnome\\/help\\/.*?\\/.*?\\/).*", "\*");
-
-
-#
-# Files to just not package at all (picked up by other things)
-#
- add_files_rule("^\\/usr\\/share\\/locale", 99, "", "");
- # compiled python things will get auto cleaned by rpm
-# add_files_rule("\.pyo\$", 99, "", "");
-# add_files_rule("\.pyc\$", 99, "", "");
-
-}
-
-sub apply_files_rules
-{
- my $filenumber = @allfiles;
-
- if ($filenumber == 0) {
- return;
- }
-
- while (@allfiles > 0) {
- my $filename = $allfiles[0];
- my $destname = $filename;
- my $handled = 0;
-
-#
-# while we're here, try to guess what group our package is
-#
- guess_group_from_file($filename);
-
- foreach (@files_match) {
- my $match = $_;
-
- if ($filename =~ /$match/) {
-#
-# First try to see if we can turn the full filename into a
-# wildcard based filename
-#
- if (defined($files_from{$match}) && defined($files_to{$match})) {
- $from = $files_from{$match};
- $to = $files_to{$match};
- $destname =~ s/$from/$1$to/;
-# print "changing $filename to $destname\n";
- }
-
-# devel package
- if ($files_target{$match} == 1) {
- $handled = 1;
- push(@develfiles, $destname);
- }
-# doc rules.. also prepend %doc
- if ($files_target{$match} == 2) {
- $handled = 1;
- $destname = "\"%doc " . $destname . "\"";
- push(@docfiles, $destname);
- $totaldocs = $totaldocs + 1;
- }
-# don't package
- if ($files_target{$match} == 99) {
- $handled = 1;
- if ($filename =~ /\/usr\/share\/locale\/.*?\/LC_MESSAGES\/(.*)\.mo/) {
- $localename = $1;
- }
- }
- }
- }
-
-
-#
-# if the destination name contains our package version,
-# use %version instead for future maintenance
-#
- $destname =~ s/$version/\%\{version\}/g;
- if ($handled == 0) {
- push(@mainfiles, $destname);
- }
- shift(@allfiles);
- }
-
-#
-# Now.. if we have less than 5 documentation files, just stick them in the main package
-#
-
- $filenumber = @docfiles;
-
- if ($filenumber <= 5) {
- while (@docfiles > 0) {
- my $filename = $docfiles[0];
-
- push(@mainfiles, $filename);
- shift(@docfiles);
- }
- }
-
-}
-
-sub print_files
-{
- my $count = @mainfiles;
- if ($count == 0) {
- return;
- }
-
- # remove dupes
- undef %saw;
- @saw{@mainfiles} = ();
- @out = sort keys %saw;
-
- print OUTFILE "Files:\n";
- foreach (@out) {
- print OUTFILE " - $_\n";
- }
-}
-
-sub print_devel
-{
- my $count = @develfiles;
- if ($count == 0) {
- return;
- }
- print OUTFILE "SubPackages:\n";
- $printed_subpackages = 1;
- print OUTFILE " - Name: devel\n";
- print OUTFILE " Summary: Development components for the $name package\n";
- print OUTFILE " Group: Development/Libraries\n";
- print OUTFILE " Description:\n";
- print OUTFILE " - Development files for the $name package\n";
-
- # remove dupes
- undef %saw;
- @saw{@develfiles} = ();
- @out = sort keys %saw;
-
- print OUTFILE " Files:\n";
- foreach (@out) {
- print OUTFILE " - $_\n";
- }
-}
-
-sub print_doc
-{
- my $count = @docfiles;
- if ($count == 0) {
- return;
- }
- if ($printed_subpackages == 0) {
- print OUTFILE "SubPackages:\n";
- $printed_subpackages = 1;
- }
- print OUTFILE " - Name: docs\n";
- print OUTFILE " Summary: Documentation components for the $name package\n";
- print OUTFILE " Group: Documentation\n";
-
- # remove dupes
- undef %saw;
- @saw{@docfiles} = ();
- @out = sort keys %saw;
-
- print OUTFILE " Files:\n";
- foreach (@out) {
- print OUTFILE " - $_\n";
- }
-}
-
-
-# end of %files section
-#
-######################################################################
-
-
-######################################################################
-#
-# What we can learn from configure.ac/configure
-#
-# - pkgconfig requirements
-# - regular build requirements
-# - package name / version
-
-
-sub setup_pkgconfig_ban
-{
- push(@banned_pkgconfig, "^dnl\$");
- push(@banned_pkgconfig, "^hal\$"); # we don't have nor want HAL
- push(@banned_pkgconfig, "tslib-0.0"); # we don't want tslib-0.0 (legacy touchscreen interface)
- push(@banned_pkgconfig, "intel-gen4asm");
- push(@banned_pkgconfig, "^xp\$"); # xprint - deprecated and not in meego
- push(@banned_pkgconfig, "^directfb\$"); # we use X, not directfb
- push(@banned_pkgconfig, "^gtkmm-2.4\$"); # we use X, not directfb
- push(@banned_pkgconfig, "^evil\$");
- push(@banned_pkgconfig, "^directfb");
- push(@banned_pkgconfig, "^sdl ");
-
-
-}
-
-sub setup_failed_commands
-{
- $failed_commands{"doxygen"} = "doxygen";
- $failed_commands{"scrollkeeper-config"} = "rarian-compat";
- $failed_commands{"dot"} = "graphviz";
- $failed_commands{"flex"} = "flex";
- $failed_commands{"lex"} = "flex";
- $failed_commands{"freetype-config"} = "freetype-devel";
- $failed_commands{"makeinfo"} = "texinfo";
- $failed_commands{"desktop-file-install"} = "desktop-file-utils";
- $failed_commands{"deflateBound in -lz"} = "zlib-devel";
- $failed_commands{"gconftool-2"} = "GConf-dbus";
- $failed_commands{"jpeglib.h"} = "libjpeg-devel";
- $failed_commands{"expat.h"} = "expat-devel";
- $failed_commands{"bison"} = "bison";
- $failed_commands{"msgfmt"} = "gettext";
- $failed_commands{"curl-config"} = "libcurl-devel";
- $failed_commands{"doxygen"} = "doxygen";
- $failed_commands{"X"} = "pkgconfig(x11)";
-
- $failed_commands{"gawk"} = "gawk";
- $failed_commands{"xbkcomp"} = "xkbcomp";
- $failed_commands{"Vorbis"} = "libvorbis-devel";
- # checking Expat 1.95.x... no
- $failed_commands{"Expat 1.95.x"} = "expat-devel";
- $failed_commands{"xml2-config path"} = "libxml2-devel";
-
- $failed_libs{"-lz"} = "zlib-devel";
- $failed_libs{"-lncursesw"} = "ncurses-devel";
- $failed_libs{"-ltiff"} = "libtiff-devel";
- $failed_libs{"-lasound"} = "alsa-lib-devel";
- $failed_libs{"Curses"} = "ncurses-devel";
-
- $failed_headers{"X11/extensions/randr.h"} = "xrandr";
- $failed_headers{"X11/Xlib.h"} = "x11";
- $failed_headers{"X11/extensions/XShm.h"} = "xext";
- $failed_headers{"X11/extensions/shape.h"} = "xext";
- $failed_headers{"ncurses.h"} = "ncursesw";
- $failed_headers{"curses.h"} = "ncursesw";
- $failed_headers{"pci/pci.h"} = "libpci";
- $failed_headers{"xf86.h"} = "xorg-server";
- $failed_headers{"sqlite.h"} = "sqlite3";
-
- $failed_headers{"X11/extensions/XIproto.h"} = "xi";
- $failed_headers{"QElapsedTimer"} = "";
-}
-
-
-
-my @package_configs;
-my @buildreqs;
-my $uses_configure = 0;
-
-
-sub push_pkgconfig_buildreq
-{
- my ($pr) = @_;
-
- $pr =~ s/\s+//g;
-
- # remove collateral ] ) etc damage in the string
- $pr =~ s/\"//g;
- $pr =~ s/\)//g;
- $pr =~ s/\]//g;
- $pr =~ s/\[//g;
-
-
- # first, undo the space packing
-
- $pr =~ s/\>\=/ \>\= /g;
- $pr =~ s/\<\=/ \<\= /g;
-
- $pr =~ s/\<1.1.1/ /g;
-
- # don't show configure variables, we can't deal with them
- if ($pr =~ /^\$/) {
- return;
- }
- if ($pr =~ /AC_SUBST/) {
- return;
- }
-
-
-
-
- # process banned pkgconfig options for things that we don't
- # have or don't want.
-
-
- # remore versions that are macros or strings, not numbers
- $pr =~ s/\s\>\= \$.*//g;
-
- $pr =~ s/\s\>\= [a-zA-Z]+.*//g;
-
- # don't show configure variables, we can't deal with them
- if ($pr =~ /\$/) {
- return;
- }
-
- foreach (@banned_pkgconfig) {
- my $ban = $_;
- if ($pr =~ /$ban/) {
- return;
- }
- }
-
- push(@package_configs, $pr);
-}
-
-#
-# detect cases where we require both a generic pkgconfig, and a version specific
-# case
-#
-sub uniquify_pkgconfig
-{
- # first remove real dupes
- undef %saw;
- @saw{@package_configs} = ();
- @out = sort keys %saw;
-
- my $count = 0;
-
- while ($count < @out) {
-
- my $entry = $out[$count];
-
- foreach(@out) {
- my $compare = $_;
- if ($entry eq $compare) {
- next;
- }
-
- $compare =~ s/ \>\=.*//g;
- if ($entry eq $compare) {
- $out[$count] = "";
- }
- }
- $count = $count + 1;
- }
- @package_configs = @out;
-}
-
-
-sub process_configure_ac
-{
- my ($filename) = @_;
- my $line = "";
- my $depth = 0;
- my $keepgoing = 1;
- my $buffer = "";
-
- if (!-e $filename) {
- return;
- }
-
- $uses_configure = 1;
-
-
-
- open(CONFIGURE, "$filename") || die "Couldn't open $filename\n";
- seek(CONFIGURE, 0,0) or die "seek : $!";
- while ($keepgoing && !eof(CONFIGURE)) {
- $buffer = getc(CONFIGURE);
-
- if ($buffer eq "(") {
- $depth = $depth + 1;
- }
- if ($buffer eq ")" && $depth > 0) {
- $depth = $depth - 1;
- }
-
- if (!($buffer eq "\n")) {
- $line = $line . $buffer;
- }
-
- if (!($buffer eq "\n") || $depth > 0) {
- redo unless eof(CONFIGURE);
- }
-
- if ($line =~ /PKG_CHECK_MODULES\((.*)\)/) {
- my $match = $1;
- $match =~ s/\s+/ /g;
- $match =~ s/, /,/g;
- my @pkgs = split(/,/, $match);
- my $pkg;
- if (defined($pkgs[1])) {
- $pkg = $pkgs[1];
- } else {
- next;
- }
- if ($pkg =~ /\[(.*)\]/) {
- $pkg = $1;
- }
-
- $pkg =~ s/\s+/ /g;
- # deal with versioned pkgconfig's by removing the spaces around >= 's
- $pkg =~ s/\>\=\s/\>\=/g;
- $pkg =~ s/\s\>\=/\>\=/g;
- $pkg =~ s/\=\s/\=/g;
- $pkg =~ s/\s\=/\=/g;
- $pkg =~ s/\<\=\s/\<\=/g;
- $pkg =~ s/\<\s/\</g;
- $pkg =~ s/\s\<\=/\<\=/g;
- $pkg =~ s/\s\</\</g;
-
- @words = split(/ /, $pkg);
- foreach(@words) {
- push_pkgconfig_buildreq($_);
- }
- }
-
- if ($line =~ /PKG_CHECK_EXISTS\((.*)\)/) {
- my $match = $1;
- $match =~ s/\s+/ /g;
- $match =~ s/, /,/g;
- my @pkgs = split(/,/, $match);
- my $pkg = $pkgs[0];
- if ($pkg =~ /\[(.*)\]/) {
- $pkg = $1;
- }
-
- $pkg =~ s/\s+/ /g;
- # deal with versioned pkgconfig's by removing the spaces around >= 's
- $pkg =~ s/\>\=\s/\>\=/g;
- $pkg =~ s/\s\>\=/\>\=/g;
- $pkg =~ s/\<\=\s/\<\=/g;
- $pkg =~ s/\<\s/\</g;
- $pkg =~ s/\s\<\=/\<\=/g;
- $pkg =~ s/\s\</\</g;
- $pkg =~ s/\=\s/\=/g;
- $pkg =~ s/\s\=/\=/g;
-
- @words = split(/ /, $pkg);
- foreach(@words) {
- push_pkgconfig_buildreq($_);
- }
- }
-
- if ($line =~ /XDT_CHECK_PACKAGE\(.*?,.*?\[(.*?)\].*\)/) {
- my $pkg = $1;
-
- $pkg =~ s/\s+/ /g;
- # deal with versioned pkgconfig's by removing the spaces around >= 's
- $pkg =~ s/\>\=\s/\>\=/g;
- $pkg =~ s/\s\>\=/\>\=/g;
- $pkg =~ s/\=\s/\=/g;
- $pkg =~ s/\s\=/\=/g;
-
- @words = split(/ /, $pkg);
- foreach(@words) {
- push_pkgconfig_buildreq($_);
- }
- }
-
- if ($line =~ /XDT_CHECK_OPTIONAL_PACKAGE\(.*?,.*?\[(.*?)\].*\)/) {
- my $pkg = $1;
-
- $pkg =~ s/\s+/ /g;
- # deal with versioned pkgconfig's by removing the spaces around >= 's
- $pkg =~ s/\>\=\s/\>\=/g;
- $pkg =~ s/\s\>\=/\>\=/g;
- $pkg =~ s/\=\s/\=/g;
- $pkg =~ s/\s\=/\=/g;
-
- @words = split(/ /, $pkg);
- foreach(@words) {
- push_pkgconfig_buildreq($_);
- }
- }
-
- if ($line =~ /AC_CHECK_LIB\(\[expat\]/) {
- push(@buildreqs, "expat-devel");
- }
- if ($line =~ /AC_CHECK_FUNC\(\[tgetent\]/) {
- push(@buildreqs, "ncurses-devel");
- }
- if ($line =~ /_PROG_INTLTOOL/) {
- push(@buildreqs, "intltool");
- }
- if ($line =~ /GETTEXT_PACKAGE/) {
- push(@buildreqs, "gettext");
- }
- if ($line =~ /GTK_DOC_CHECK/) {
- push_pkgconfig_buildreq("gtk-doc");
- }
- if ($line =~ /GNOME_DOC_INIT/) {
- push(@buildreqs, "gnome-doc-utils");
- }
- if ($line =~ /AM_GLIB_GNU_GETTEXT/) {
- push(@buildreqs, "gettext");
- }
-
- if ($line =~ /AC_INIT\((.*)\)/) {
- my $match = $1;
- $match =~ s/\s+/ /g;
- @acinit = split(/,/, $match);
-# $name = $acinit[0];
-
- if ($name =~ /\[(.*)\]/) {
-# $name = $1;
- }
-
- if (defined($acinit[3])) {
-# $name = $acinit[3];
- if ($name =~ /\[(.*)\]/) {
-# $name = $1;
- }
- }
- if (defined($acinit[1]) and $version eq $predef_version) {
- my $ver = $acinit[1];
- $ver =~ s/\[//g;
- $ver =~ s/\]//g;
- if ($ver =~ /\$/){} else {
- $version = $ver;
- $version =~ s/\s+//g;
- }
- }
- }
- if ($line =~ /AM_INIT_AUTOMAKE\((.*)\)/) {
- my $match = $1;
- $match =~ s/\s+/ /g;
- @acinit = split(/,/, $match);
-# $name = $acinit[0];
-
- if ($name =~ /\[(.*)\]/) {
-# $name = $1;
- }
-
- if (defined($acinit[3])) {
-# $name = $acinit[3];
- if ($name =~ /\[(.*)\]/) {
-# $name = $1;
- }
- }
- if (defined($acinit[1]) and $version eq $predef_version) {
- my $ver = $acinit[1];
- $ver =~ s/\[//g;
- $ver =~ s/\]//g;
- if ($ver =~ /\$/){} else {
- $version = $ver;
- $version =~ s/\s+//g;
- }
- }
- }
-
- $line = "";
- }
- close(CONFIGURE);
-}
-
-sub process_qmake_pro
-{
- my ($filename) = @_;
- my $line = "";
- my $depth = 0;
- my $keepgoing = 1;
- my $buffer = "";
- my $prev_char = "";
-
- if (!-e $filename) {
- return;
- }
-
-
- open(CONFIGURE, "$filename") || die "Couldn't open $filename\n";
- seek(CONFIGURE, 0,0) or die "seek : $!";
- while ($keepgoing && !eof(CONFIGURE)) {
- $buffer = getc(CONFIGURE);
-
- if ($buffer eq "(") {
- $depth = $depth + 1;
- }
- if ($buffer eq ")" && $depth > 0) {
- $depth = $depth - 1;
- }
-
- if (!($buffer eq "\n")) {
- $line = $line . $buffer;
- }
-
- if (!($buffer eq "\n") || ($prev_char eq "\\") ) {
- $prev_char = $buffer;
- redo unless eof(CONFIGURE);
- }
- $prev_char = " ";
-
- if ($line =~ /PKGCONFIG.*?\=(.*)/) {
- my $l = $1;
- my @pkgs;
-
- $l =~ s/\\//g;
- $l =~ s/\s/ /g;
- @pkgs = split(/ /, $l);
- foreach (@pkgs) {
- if (length($_)>1) {
- push_pkgconfig_buildreq($_);
- }
- }
- }
-
- $line = "";
- }
- close(CONFIGURE);
-}
-
-#
-# We also check configure if it exists, it's nice for some things
-# because various configure.ac macros have been expanded for us already.
-#
-sub process_configure
-{
- my ($filename) = @_;
- my $line = "";
- my $depth = 0;
- my $keepgoing = 1;
-
- if (!-e $filename) {
- return;
- }
-
- $uses_configure = 1;
-
- open(CONFIGURE, "$filename") || die "Couldn't open $filename\n";
- seek(CONFIGURE, 0,0) or die "seek : $!";
- while ($keepgoing && !eof(CONFIGURE)) {
- $buffer = getc(CONFIGURE);
-
- if ($buffer eq "(") {
- $depth = $depth + 1;
- }
- if ($buffer eq ")" && $depth > 0) {
- $depth = $depth - 1;
- }
-
- if (!($buffer eq "\n")) {
- $line = $line . $buffer;
- }
-
- if (!($buffer eq "\n") || $depth > 0) {
- redo unless eof(CONFIGURE);
- }
-
-
-
- if ($line =~ /^PACKAGE_NAME=\'(.*?)\'/) {
- $name = $1;
- }
- if ($line =~ /^PACKAGE_TARNAME=\'(.*?)\'/) {
- $name = $1;
- }
- if ($line =~ /^PACKAGE_VERSION=\'(.*?)\'/) {
- $version = $1;
- $version =~ s/\s+//g;
- }
- if ($line =~ /^PACKAGE_URL=\'(.*?)\'/) {
- if (length($1) > 2) {
- $url = $1;
- }
- }
-
-
- $line = "";
- }
- close(CONFIGURE);
-}
-
-sub print_pkgconfig
-{
- my $count = @package_configs;
- if ($count == 0) {
- return;
- }
-
- uniquify_pkgconfig();
-
- print OUTFILE "PkgConfigBR:\n";
- foreach (@out) {
- $line = $_;
- $line =~ s/^\s+//g;
- if (length($line) > 1) {
- print OUTFILE " - $line\n";
- }
- }
-}
-
-sub print_buildreq
-{
- my $count = @buildreqs;
- if ($count == 0) {
- return;
- }
-
- # remove dupes
- undef %saw;
- @saw{@buildreqs} = ();
- @out = sort keys %saw;
-
- print OUTFILE "PkgBR:\n";
- foreach (@out) {
- print OUTFILE " - $_\n";
- }
-}
-
-
-# end of configure section
-#
-######################################################################
-
-
-######################################################################
-#
-# Guessing the Description and Summary for a package
-#
-# We'll look at various sources of information for this:
-# - spec files in the package
-# - debain files in the package
-# - DOAP files in the package
-# - pkgconfig files in the package
-# - the README file in the package
-# - freshmeat.net online
-#
-
-sub guess_description_from_spec {
- my ($specfile) = @_;
-
- my $state = 0;
- my $cummul = "";
-
- open(SPEC, $specfile);
- while (<SPEC>) {
- my $line = $_;
- if ($state == 1 && $line =~ /^\%/) {
- $state = 2;
- }
- if ($state == 1) {
- $cummul = $cummul . $line;
- }
- if ($state==0 && $line =~ /\%description/) {
- $state = 1;
- }
-
- if ($line =~ /Summary:\s*(.*)/ && length($summary) < 2) {
- $summary = $1;
- }
- if ($line =~ /URL:\s*(.*)/ && length($url) < 2) {
- $url = $1;
- }
- }
- close(SPEC);
- if (length($cummul) > 4) {
- $description = $cummul;
- }
-}
-
-#
-# DOAP is a project to create an XML/RDF vocabulary to describe software projects, and in particular open source.
-# so if someone ships a .doap file... we can learn from it.
-#
-sub guess_description_from_doap {
- my ($doapfile) = @_;
-
- open(DOAP, $doapfile);
- while (<DOAP>) {
- my $line = $_;
- # <shortdesc xml:lang="en">Virtual filesystem implementation for gio</shortdesc>
- if ($line =~ /\<shortdesc .*?\>(.*)\<\/shortdesc\>/) {
- $summary = $1;
- }
- if ($line =~ /\<homepage .*?resource=\"(.*)\"\s*\/>/) {
- $url = $1;
- }
- }
- close(DOAP);
-}
-
-#
-# Debian control files have some interesting fields we can glean information
-# from as well.
-#
-sub guess_description_from_debian_control {
- my ($file) = @_;
-
- my $state = 0;
- my $cummul = "";
-
- $file = $file . "/debian/control";
-
- open(FILE, $file) || return;
- while (<FILE>) {
- my $line = $_;
- if ($state == 1 && length($line) < 2) {
- $state = 2;
- }
- if ($state == 1) {
- $cummul = $cummul . $line;
- }
- if ($state==0 && $line =~ /\Description: (.*)/) {
- $state = 1;
- $cummul = $1;
- }
-
- }
- close(FILE);
- if (length($cummul) > 4) {
- $description = $cummul;
- }
-}
-
-#
-# the pkgconfig files have often a one line description
-# of the software... good for Summary
-#
-sub guess_description_from_pkgconfig {
- my ($file) = @_;
-
- open(FILE, $file);
- while (<FILE>) {
- my $line = $_;
-
- if ($line =~ /Description:\s*(.*)/ && length($summary) < 2) {
- $summary = $1;
- }
- }
- close(FILE);
-}
-
-#
-# Freshmeat can provide us with a good one paragraph description
-# of the software..
-#
-sub guess_description_from_freshmeat {
- my ($tarname) = @_;
- my $cummul = "";
- my $state = 0;
- open(HTML, "curl -s http://freshmeat.net/projects/$tarname |");
- while (<HTML>) {
- my $line = $_;
-
- if ($state == 1) {
- $cummul = $cummul . $line;
- }
- if ($state == 0 && $line =~ /\<div class\=\"project-detail\"\>/) {
- $state = 1;
- }
- if ($state == 1 && $line =~/\<\/p\>/) {
- $state = 2;
- }
- }
- close(HTML);
- $cummul =~ s/\<p\>//g;
- $cummul =~ s/\r//g;
- $cummul =~ s/\<\/p\>//g;
- $cummul =~ s/^\s*//g;
- if (length($cummul)>10) {
- $description = $cummul;
- }
-}
-#
-# If all else fails, just take the first paragraph of the
-# readme file
-#
-sub guess_description_from_readme {
- my ($file) = @_;
-
- my $state = 0;
- my $cummul = "";
-
- open(FILE, $file);
- while (<FILE>) {
- my $line = $_;
- if ($state == 1 && $line =~ /^\n/ && length($cummul) > 80) {
- $state = 2;
- }
- if ($state == 0 && length($line)>1) {
- $state = 1;
- }
- if ($state == 1) {
- $cummul = $cummul . $line;
- }
- if ($line =~ /(http\:\/\/.*$name.*\.org)/) {
- my $u = $1;
- if ($u =~ /bug/ || length($url) > 1) {
- } else {
- $url = $u;
- }
- }
- }
- close(FILE);
- if (length($cummul) > 4 && length($description)<3) {
- $description = $cummul;
- }
-}
-
-#
-# Glue all the guesses together
-#
-sub guess_description {
- my ($directory) = @_;
-
-
- @files = <$directory/README*>;
- foreach (@files) {
- guess_description_from_readme($_);
- }
-
- if (length($name)>2) {
- guess_description_from_freshmeat($name);
- }
-
- @files = <$directory/*.spec*>;
- foreach (@files) {
- guess_description_from_spec($_);
- }
-
- guess_description_from_debian_control($directory);
-
- $name =~ s/ //g;
- @files = <$directory/$name.pc*>;
- foreach (@files) {
- guess_description_from_pkgconfig($_);
- }
- @files = <$directory/*.pc.*>;
- foreach (@files) {
- guess_description_from_pkgconfig($_);
- }
- @files = <$directory/*.pc>;
- foreach (@files) {
- guess_description_from_pkgconfig($_);
- }
- @files = <$directory/*.doap>;
- foreach (@files) {
- guess_description_from_doap($_);
- }
-
- if (length($summary) < 2) {
- $summary = $description;
- $summary =~ s/\n/ /g;
- $summary =~ s/\s+/ /g;
- if ($summary =~ /(.*?)\./) {
- $summary = $1;
- }
- }
-
-}
-
-# end of Description / Summary section
-#
-######################################################################
-
-
-
-#
-# Build the package, and wait for rpm to complain about unpackaged
-# files.... which we then use as basis for our %files section
-#
-sub guess_files_from_rpmbuild {
- my $infiles = 0;
- open(OUTPUTF, "rpmbuild --nodeps --define \"\%_sourcedir $orgdir \" -ba $name.spec 2>&1 |");
- while (<OUTPUTF>) {
- my $line2 = $_;
-
- if ($infiles == 1 && $line2 =~ /RPM build errors/) {
- $infiles = 2;
- }
- if ($infiles == 1 && $line2 =~ /^Building/) {
- $infiles = 2;
- }
-
- if ($infiles == 1) {
- $line2 =~ s/\s*//g;
- push(@allfiles, $line2);
- }
- if ($line2 =~ / Installed \(but unpackaged\) file\(s\) found\:/) {
- $infiles = 1;
- }
- }
- close(OUTPUTF);
- if (@allfiles == 0) {
- print "Build failed ... stopping here.\n";
- exit(0);
- }
-
-}
-
-sub guess_files_from_oscbuild {
- my $infiles = 0;
- my $restart = 0;
- my $mustrestart = 0;
- my $rcount = 0;
- my $done_python = 0;
-
- system("osc addremove &> /dev/null");
- system("osc ci -m \"Initial import by autospectacle\" &> /dev/null");
-
-retry:
- if ($restart > 0) {
- write_yaml();
- print "Restarting the build\n";
- }
- $restart = 0;
- $infiles = 0;
- $mustrestart = 0;
- open(OUTPUTF, "osc build --no-verify $name.spec 2>&1 |");
- while (<OUTPUTF>) {
- my $line2 = $_;
-
-# print "line is $line2\n";
- if ($infiles == 1 && $line2 =~ /RPM build errors/) {
- $infiles = 2;
- }
- if ($infiles == 1 && $line2 =~ /^Building/) {
- $infiles = 2;
- }
- if ($infiles == 1) {
- $line2 =~ s/\s*//g;
- push(@allfiles, $line2);
- }
- if ($line2 =~ /No package \'(.*)\' found/) {
- push_pkgconfig_buildreq("$1");
- $restart = $restart + 1;
- print " Adding pkgconfig($1) requirement\n";
- }
- if ($line2 =~ /Package requirements \((.*?)\) were not met/) {
- $pkg = $1;
- # deal with versioned pkgconfig's by removing the spaces around >= 's
- $pkg =~ s/\>\=\s/\>\=/g;
- $pkg =~ s/\s\>\=/\>\=/g;
- $pkg =~ s/\=\s/\=/g;
- $pkg =~ s/\s\=/\=/g;
- my @req = split(/ /,$pkg);
- foreach (@req) {
- push_pkgconfig_buildreq("$_");
-
- $restart = $restart + 1;
- print " Adding pkgconfig($_) requirement\n";
- }
- }
- if ($line2 =~ /which: no qmake/) {
- $restart += 1;
- push_pkgconfig_buildreq("Qt");
- print " Adding Qt requirement\n";
- }
- if ($line2 =~ /Cannot find development files for any supported version of libnl/) {
- $restart += 1;
- push_pkgconfig_buildreq("libnl-1");
- print " Adding libnl requirement\n";
- }
- if ($line2 =~ /<http:\/\/www.cmake.org>/) {
- $restart += 1;
- push(@buildreqs, "cmake");
- print " Adding cmake requirement\n";
- }
- if ($line2 =~ /checking for (.*?)\.\.\. not_found/ || $line2 =~ /checking for (.*?)\.\.\. no/ || $line2 =~ /checking (.*?)\.\.\. no/) {
- $pkg = $1;
- while (($key,$value) = each %failed_commands) {
- if ($pkg eq $key) {
- push(@buildreqs, $value);
- print " Adding $value requirement\n";
- $restart += $restart + 1;
- $mustrestart = 1;
- }
- }
-
- }
-
- if ($line2 =~ /checking for [a-zA-Z0-9\_]+ in (.*?)\.\.\. no/) {
- $pkg = $1;
- while (($key,$value) = each %failed_libs) {
- if ($pkg eq $key) {
- push(@buildreqs, $value);
- print " Adding $value requirement\n";
- $restart += $restart + 1;
- $mustrestart = 1;
- }
- }
-
- }
-
- if ($line2 =~ /-- Could NOT find ([a-zA-Z0-9]+)/) {
- $pkg = $1;
- while (($key,$value) = each %failed_libs) {
- if ($pkg eq $key) {
- push(@buildreqs, $value);
- print " Adding $value requirement\n";
- $restart += $restart + 1;
- $mustrestart = 1;
- }
- }
-
- }
-
- if ($line2 =~ /fatal error\: (.*)\: No such file or directory/) {
- $pkg = $1;
- while (($key,$value) = each %failed_headers) {
- if ($pkg eq $key) {
- push_pkgconfig_buildreq($value);
- print " Adding $value requirement\n";
- $restart += $restart + 1;
- }
- }
-
- }
- if ($line2 =~ /checking for UDEV\.\.\. no/) {
- print " Adding pkgconfig(udev) requirement\n";
- push_pkgconfig_buildreq("udev");
- }
- if ($line2 =~ /checking for Apache .* module support/) {
- print " Adding pkgconfig(httpd-devel) requirement\n";
- push(@buildreqs, "httpd-devel");
- if ($rcount < 3) {
- $restart = $restart + 1;
- }
- }
- if ($line2 =~ /([a-zA-Z0-9\-\_]*)\: command not found/i) {
- my $cmd = $1;
- my $found = 0;
-
- while (($key,$value) = each %failed_commands) {
- if ($cmd eq $key) {
- push(@buildreqs, $value);
- print " Adding $value requirement\n";
- $restart += $restart + 1;
- $mustrestart = 1;
- $found = 1;
- }
- }
-
- if ($found < 1) {
- print " Command $cmd not found!\n";
- }
- }
- if ($line2 =~ /checking for.*in -ljpeg... no/) {
- push(@buildreqs, "libjpeg-devel");
- print " Adding libjpeg-devel requirement\n";
- $restart = $restart + 1;
- }
- if ($line2 =~ /fatal error\: zlib\.h\: No such file or directory/) {
- push(@buildreqs, "zlib-devel");
- print " Adding zlib-devel requirement\n";
- $restart = $restart + 1;
- }
- if ($line2 =~ /error\: xml2-config not found/) {
- push_pkgconfig_buildreq("libxml-2.0");
- print " Adding libxml2-devel requirement\n";
- $restart = $restart + 1;
- }
- if ($line2 =~ /checking \"location of ncurses\.h file\"/) {
- push(@buildreqs, "ncurses-devel");
- print " Adding ncurses-devel requirement\n";
- $restart = $restart + 1;
- }
- if (($line2 =~ / \/usr\/include\/python2\.6$/ || $line2 =~ / to compile python extensions/) && $done_python == 0) {
- push(@buildreqs, "python-devel");
- print " Adding python-devel requirement\n";
- $restart = $restart + 1;
- $done_python = 1;
- }
- if ($line2 =~ /error: must install xorg-macros 1.6/) {
- push_pkgconfig_buildreq("xorg-macros");
- print " Adding xorg-macros requirement\n";
- $restart = $restart + 1;
- }
- if ($line2 =~ /installing .*?.gmo as [a-zA-Z0-9\-\.\/\_]+?\/([a-zA-Z0-9\-\_\.]+)\.mo$/) {
- my $loc = $1;
- if ($loc eq $localename) {} else {
- print " Changing localename from $localename to $loc\n";
- $localename = $loc;
- $restart = $restart + 1;
- }
- }
-
- if ($infiles == 0 && $line2 =~ / Installed \(but unpackaged\) file\(s\) found\:/) {
- $infiles = 1;
- }
- }
- close(OUTPUTF);
- if (@allfiles == 0 || $mustrestart > 0) {
- if ($restart >= 1)
- {
- $rcount = $rcount + 1;
- if ($rcount < 10) {
- goto retry;
- }
- }
- print "Build failed ... stopping here.\n";
- exit(0);
- }
-
-}
-
-sub process_rpmlint {
- my $infiles = 0;
-
-
- if ($oscmode == 0) {
- return;
- }
-
- print "Verifying package ....\n";
-
- system("osc addremove &> /dev/null");
- system("osc ci -m \"Final import by autospectacle\" &> /dev/null");
-
- open(OUTPUTF, "osc build --no-verify $name.spec 2>&1 |");
- while (<OUTPUTF>) {
- my $line2 = $_;
-
-# print "line is $line2\n";
- if ($infiles == 1 && $line2 =~ /RPM build errors/) {
- $infiles = 2;
- }
- if ($infiles == 1 && $line2 =~ /^Building/) {
- $infiles = 2;
- }
- if ($infiles == 1) {
- $line2 =~ s/\s*//g;
- push(@allfiles, $line2);
- }
- if ($infiles == 0 && $line2 =~ / Installed \(but unpackaged\) file\(s\) found\:/) {
- $infiles = 1;
- }
- }
- close(OUTPUTF);
-
-}
-
-sub guess_name_from_url {
- my ($bigurl) = @_;
-
- @spliturl = split(/\//, $bigurl);
- while (@spliturl > 1) {
- shift(@spliturl);
- }
- my $tarfile = $spliturl[0];
-
- # Ensure correct name resolution from .zip&tgz archives
- $tarfile =~ s/\.zip/\.tar/;
- $tarfile =~ s/\.tgz/\.tar/;
- $tarfile =~ s/\_/\-/g;
- if ($tarfile =~ /(.*?)\-([0-9\.\-\~]+.*?)\.tar/) {
- $name = $1;
- $version = $2;
- $version =~ s/\-/\_/g;
- }
-}
-
-############################################################################
-#
-# Output functions
-#
-
-sub print_name_and_description
-{
- my @lines;
-
- print OUTFILE "Name : $name\n";
- print OUTFILE "Version : $version\n";
- print OUTFILE "Release : 1\n";
-
- # remove dupes
- undef %saw;
- @saw{@groups} = ();
- @out = sort keys %saw;
-
- if (@out == 1) {
- foreach (@out) {
- print OUTFILE "Group : $_\n";
- }
- } else {
- print OUTFILE "Group : $group\n";
- }
- #
- # Work around spectacle bug
- $summary =~ s/\:\s/ /g;
- $summary =~ s/^([a-z])/\u$1/ig;
- $summary =~ s/\@//g;
- $summary = substr($summary, 0, 79);
-
- $summary =~ s/\.^//g;
- if (length($summary) < 1) {
- $summary = "TO BE FILLED IN";
- }
- #
- print OUTFILE "Summary : $summary\n";
- print OUTFILE "Description: |\n";
-
- $description =~ s/"/\"/g;
- $description =~ s/\@//g;
- @lines = split(/\n/, $description);
- foreach (@lines) {
- print OUTFILE " $_\n";
- }
- if (length($url)>1) {
- print OUTFILE "URL : $url\n";
- }
-
- # remove dupes
- undef %saw;
- @saw{@sources} = ();
- @out = sort keys %saw;
-
- print OUTFILE "Sources : \n";
- foreach (@out) {
- $source = $_;
- $source =~ s/$version/\%\{version\}/g;
-
- print OUTFILE " - $source\n";
- }
-
- if (@patches > 0) {
- print OUTFILE "Patches: \n";
- foreach (@patches) {
- my $patch = $_;
- print OUTFILE " - $patch\n";
- }
- }
-
- print OUTFILE "\n";
- if (length($configure)>2) {
- print OUTFILE "Configure : $configure\n";
- }
- if (length($localename) > 2) {
- print OUTFILE "LocaleName : $localename\n";
- }
- if (length($builder) > 2) {
- print OUTFILE "Builder : $builder\n";
- }
-}
-
-sub write_makefile
-{
- open(MAKEFILE, ">Makefile");
-
- print MAKEFILE "PKG_NAME := $name\n";
- print MAKEFILE "SPECFILE = \$(addsuffix .spec, \$(PKG_NAME))\n";
- print MAKEFILE "YAMLFILE = \$(addsuffix .yaml, \$(PKG_NAME))\n";
- print MAKEFILE "\n";
- print MAKEFILE "include /usr/share/packaging-tools/Makefile.common\n";
-
- close(MAKEFILE);
-}
-
-sub write_changelog
-{
- open(CHANGELOG, ">$name.changes");
- $date = ` date +"%a %b %d %Y"`;
- chomp($date);
- print CHANGELOG "* $date - Autospectacle <autospectacle\@meego.com> - $version\n";
- print CHANGELOG "- Initial automated packaging\n";
- close(CHANGELOG);
-}
-
-sub write_yaml
-{
- open(OUTFILE, ">$name.yaml");
- print_name_and_description();
- print_license();
- print_pkgconfig();
- print_buildreq();
- print_files();
- print_devel();
- print_doc();
- close(OUTFILE);
-
- write_makefile();
- write_changelog();
-
- system("rm $name.spec 2>/dev/null");
- system("specify &> /dev/null");
- if ($oscmode > 0) {
- system("osc addremove");
- system("osc ci -m \"Import by autospectacle\" &> /dev/null");
- }
-
-}
-
-sub write_bbfile
-{
- my $curdir = `pwd`;
- chomp($curdir);
-
- if ($python == 1) {
- $name =~ s/python-//;
- $name = lc("python-" . $name);
- }
-
- if (-e "$curdir/${name}_$version.bb") {
- print "Wont overwrite file:";
- print "$curdir/${name}_$version.bb, exiting\n";
- return;
- }
- open(BBFILE, ">${name}_$version.bb");
-
- print BBFILE "SUMMARY = \"$summary\"\n";
- print BBFILE "DESCRIPTION = \"$description\"\n";
- print BBFILE "HOMEPAGE = \"$homepage\"\n";
-
- if ($python == 1) {
- print BBFILE "SRCNAME = \"$summary\"\n";
- }
-
- print BBFILE "LICENSE = \"@license\"\n";
- print BBFILE "LIC_FILES_CHKSUM = \"";
- foreach (keys %lic_files) {
- print BBFILE "file://" . basename($_) . ";md5=$lic_files{$_} \\\n";
- }
- print BBFILE "\"\n\n";
-
- if (@license <= 0) {
- print "Can NOT get license from package source files.\n";
- print "Please update the LICENSE and LIC_FILES_CHKSUM manually.\n";
- }
-
- if (@buildreqs > 0) {
- my %saw;
- my @out = grep(!$saw{$_}++,@buildreqs);
- print BBFILE "DEPENDS = \"@out\"\n\n";
- };
-
- if (@rdepends > 0) {
- print BBFILE "RDEPENDS_\$\{PN\} += \"";
- foreach (@rdepends) {
- print BBFILE "$_ \\\n\t";
- }
- print BBFILE "\"\n";
- }
-
- if ($python == 1) {
- print BBFILE "PV = \"$pversion\"\n\n";
- }
-
- print BBFILE "SRC_URI = \"";
- foreach (@sources) {
- print BBFILE "$_ \\\n";
- }
- print BBFILE "\"\n\n";
- print BBFILE "SRC_URI[md5sum] = \"$md5sum\"\n";
- print BBFILE "SRC_URI[sha256sum] = \"$sha256sum\"\n\n";
- if ($python == 1) {
- print BBFILE "S = \"\${WORKDIR}/\${SRCNAME}-\${PV}\"\n";
- }
-
- if (@inherits) {
- print BBFILE "inherit ";
- foreach (@inherits) {
- print BBFILE "$_ ";
- }
- print BBFILE "\n";
- }
-
- close(BBFILE);
- print "Create bb file: $curdir/${name}_$version.bb\n";
-}
-
-sub calculate_sums
-{
- @_ = basename $dir;
- my $md5output = `md5sum @_`;
- $md5output =~ /^([a-zA-Z0-9]*) /;
- $md5sum = $1;
- chomp($md5sum);
- my $sha256output = `sha256sum @_`;
- $sha256output =~ /^([a-zA-Z0-9]*) /;
- $sha256sum = $1;
- chomp($sha256sum);
-}
-
-
-############################################################################
-#
-# Main program
-#
-
-if ( @ARGV < 1 || $ARGV[0] eq "--help" ) {
- print "Usage: $0 [-r] <url-of-source-tarballs>\n";
- exit(1);
-}
-
-# Recusive parsing of python dependencies using
-# easy_install
-my $recurse_python = 0;
-if ($ARGV[0] eq "-r") {
- $recurse_python = 1;
- shift @ARGV;
-}
-
-if (@ARGV > 1) {
- my $i = 1;
- while ($i < @ARGV) {
- my $patch = $ARGV[$i];
- print "Adding patch $patch\n";
- push(@patches, $patch);
- $i++;
- }
-}
-
-setup_licenses();
-setup_files_rules();
-setup_group_rules();
-setup_pkgconfig_ban();
-setup_failed_commands();
-
-if (-e ".osc/_packages") {
- $oscmode = 1;
-}
-
-my $tmpdir = tempdir();
-
-$dir = $ARGV[0];
-guess_name_from_url($dir);
-push(@sources, $dir);
-
-#system("cd $tmpdir; curl -s -O $dir");
-$orgdir = `pwd`;
-chomp($orgdir);
-my $outputdir = $name;
-if (! $name) {
- $outputdir = basename $dir;
-}
-mkpath($outputdir);
-chdir($outputdir);
-print "Downloading package: $dir\n";
-system("wget --quiet $dir") == 0 or die "Download $dir failed.";
-
-calculate_sums($outputdir);
-
-print "Unpacking to : $tmpdir\n";
-
-my @tgzfiles = <$orgdir/$outputdir/*.tgz>;
-foreach (@tgzfiles) {
- my $tgz = basename $_;
- my $tar = $tgz;
- $tar =~ s/tgz/tar\.gz/g;
- $dir =~ s/tgz/tar\.gz/g;
- system("mv $orgdir/$outputdir/$tgz $orgdir/$outputdir/$tar");
- guess_name_from_url($dir);
-}
-
-#
-# I really really hate the fact that meego deleted the -a option from tar.
-# this is a step backwards in time that is just silly.
-#
-
-my @sourcetars = <$orgdir/$outputdir/*\.tar\.bz2 $orgdir/$outputdir/*\.tar\.gz $orgdir/$outputdir/*\.zip>;
-if (scalar(@sourcetars) == 0) {
- print "Can NOT find source tarball. Exiting...\n";
- exit (1);
-}
-if (defined($sourcetars[0]) and $sourcetars[0] =~ ".*\.tar\.bz2") {
- system("cd $tmpdir; tar -jxf $sourcetars[0] &>/dev/null");
-} elsif (defined($sourcetars[0]) and $sourcetars[0] =~ ".*\.tar\.gz") {
- system("cd $tmpdir; tar -zxf $sourcetars[0] &>/dev/null");
-} elsif (defined($sourcetars[0]) and $sourcetars[0] =~ ".*\.zip") {
- system("cd $tmpdir; unzip $sourcetars[0] &>/dev/null");
-}
-
-print "Parsing content ....\n";
-my @dirs = <$tmpdir/*>;
-foreach (@dirs) {
- $dir = $_;
-}
-
-$fulldir = $dir;
-
-if ( -e "$dir/setup.py" ) {
- $python = 1;
- $tmp_stools = `grep -r setuptools $dir/setup.py`;
- if (length($tmp_stools) > 2) {
- push(@inherits, "setuptools");
- } else {
- push(@inherits, "distutils");
- }
-
- $templic = `cd $dir; python setup.py --license;`;
- $templic =~ s/[\r\n]+//g;
- push(@license, $templic);
- $summary = `cd $dir; python setup.py --name`;
- $summary =~ s/[\r\n]+//g;
- $description = `cd $dir; python setup.py --description`;
- $description =~ s/[\r\n]+//g;
- $homepage = `cd $dir; python setup.py --url`;
- $homepage =~ s/[\r\n]+//g;
- $pversion = `cd $dir; python setup.py -V`;
- $pversion =~ s/[\r\n]+//g;
-# $findoutput = `cd $dir; python setup.py --requires`;
-# if (length($findoutput) < 3) {
- $findoutput = `find $dir/*.egg-info/ -name "requires.txt" 2>/dev/null`;
-# }
- @findlist = split(/\n/, $findoutput);
- foreach (@findlist) {
- push(@rawpythondeps, `sed -e '/^\$/d' "$_" | sed '/^\\[/d'`);
- chomp(@rawpythondeps);
- push(@rdepends, `sed -e 's/python-//g' "$_" | sed '/^\\[/d'`);
- chomp(@rdepends);
- if ($recurse_python == 1) {
- foreach (@rawpythondeps) {
- my $ptempdir = tempdir();
- $purl = `easy_install -aeb $ptempdir "$_" 2>/dev/null`;
- $purl =~ s/#.*//g;
- @purllist = $purl =~ m/Downloading (.*:\/\/.*\n)/g;
- chomp(@purllist);
-
- # Remove empty lines
- @purllist = grep(/\S/, @purllist);
-
- # Recursively create recipes for dependencies
- if (@purllist != 0) {
- if (fork) {
- # Parent, do nothing
- } else {
- # child, execute
- print "Recursively creating recipe for: $purllist[0]\n";
- exec("cd .. ; create-recipe -r $purllist[0]");
- }
- }
- }
- wait;
- }
-
- foreach $item (@rdepends) {
- @pyclean = split(/(\=|\<|\>).*/, $item);
- if (defined($pyclean[0])) {
- $item = lc("python-" . $pyclean[0]);
- }
- }
- }
-}
-
-if ( -e "$dir/autogen.sh" ) {
- $configure = "autogen";
- $uses_configure = 1;
- push(@inherits, "autotools");
-}
-if ( -e "$dir/BUILD-CMAKE" ) {
- $configure = "cmake";
- push(@buildreqs, "cmake");
- $uses_configure = 1;
- push(@inherits, "cmake");
-}
-
-if ( -e "$dir/configure" ) {
- $configure = "";
-}
-
-my @files = <$dir/configure\.*>;
-
-my $findoutput = `find $dir -name "configure.ac" 2>/dev/null`;
-my @findlist = split(/\n/, $findoutput);
-foreach (@findlist) {
- push(@files, $_);
-}
-foreach (@files) {
- process_configure_ac("$_");
-}
-
-$findoutput = `find $dir -name "*.pro" 2>/dev/null`;
-@findlist = split(/\n/, $findoutput);
-foreach (@findlist) {
- process_qmake_pro("$_");
-}
-
-if (-e "$dir/$name.pro") {
- $builder = "qmake";
- push_pkgconfig_buildreq("Qt");
- push(@inherits, "qmake2");
-}
-
-#
-# This is a good place to generate configure.in
-#
-if (length($configure) > 2) {
- if ($configure eq "autogen") {
- system("cd $dir ; ./autogen.sh &> /dev/null");
- }
-}
-
-
-@files = <$dir/configure>;
-foreach (@files) {
- process_configure("$_");
-}
-
-if ($uses_configure == 0) {
- $configure = "none";
-}
-
-@files = <$dir/docs/license.txt>;
-foreach (@files) {
- guess_license_from_file("$_");
-}
-
-@files = <$dir/COPY*>;
-foreach (@files) {
- guess_license_from_file("$_");
-}
-
-@files = <$dir/LICENSE*>;
-foreach (@files) {
- guess_license_from_file("$_");
-}
-
-
-@files = <$dir/GPL*>;
-foreach (@files) {
- guess_license_from_file("$_");
-}
-
-
-if ($python != 1) {
- guess_description($dir);
-}
-
-#
-# Output of bbfile file
-#
-write_bbfile();
-chdir($orgdir);
-exit 0;
-
-#
-# Output of the yaml file
-#
-
-
-if ($oscmode == 1) {
- print "Creating OBS project $name ...\n";
- system("osc mkpac $name &> /dev/null");
- system("mkdir $name &> /dev/null");
- chdir($name);
- system("mv ../$name*\.tar\.* .");
-}
-
-write_yaml();
-print "Building package ....\n";
-
-if ($oscmode == 0) {
- guess_files_from_rpmbuild();
-} else {
- guess_files_from_oscbuild();
-}
-
-apply_files_rules();
-
-$printed_subpackages = 0;
-write_yaml();
-
-process_rpmlint();
-
-print "Spectacle creation complete.\n";
