ar71xx: enable wlan2g led in the default configuration of dir-825-c1

[openwrt/svn-archive/archive.git] / scripts / feeds

diff --git a/scripts/feeds b/scripts/feeds
index 9f773df9ed3fc185436fd76396918d456b814b02..680500d418c88dda5a096d1cbce89ae1d9b4c8eb 100755 (executable)
--- a/scripts/feeds
+++ b/scripts/feeds
@@ -10,8 +10,9 @@ use Cwd 'abs_path';
 
 chdir "$FindBin::Bin/..";
 $ENV{TOPDIR}=getcwd();
+$ENV{GIT_CONFIG_PARAMETERS}="'core.autocrlf=false'";
 
-my $mk=`which gmake`;  # select the right 'make' program
+my $mk=`which gmake 2>/dev/null`;      # select the right 'make' program
 chomp($mk);            # trim trailing newline
 $mk or $mk = "make";   # default to 'make'
 
@@ -94,7 +95,7 @@ sub update_index($)
        -d "./feeds/$name.tmp" or mkdir "./feeds/$name.tmp" or return 1;
        -d "./feeds/$name.tmp/info" or mkdir "./feeds/$name.tmp/info" or return 1;
 
-       system("$mk -s prepare-mk TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\"");
+       system("$mk -s prepare-mk OPENWRT_BUILD= TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\"");
        system("$mk -s -f include/scan.mk IS_TTY=1 SCAN_TARGET=\"packageinfo\" SCAN_DIR=\"feeds/$name\" SCAN_NAME=\"package\" SCAN_DEPS=\"$ENV{TOPDIR}/include/package*.mk\" SCAN_DEPTH=5 SCAN_EXTRA=\"\" TMP_DIR=\"$ENV{TOPDIR}/feeds/$name.tmp\"");
        system("ln -sf $name.tmp/.packageinfo ./feeds/$name.index");
 
@@ -105,18 +106,27 @@ my %update_method = (
        'src-svn' => {
                'init'          => "svn checkout '%s' '%s'",
                'update'        => "svn update",
-               'controldir'    => ".svn"},
+               'controldir'    => ".svn",
+               'revision'      => "svn info | grep 'Revision' | cut -d ' ' -f 2 | tr -d '\n'"},
        'src-cpy' => {
                'init'          => "cp -Rf '%s' '%s'",
-               'update'        => ""},
+               'update'        => "",
+               'revision'      => "echo -n 'local'"},
        'src-link' => {
                'init'          => "ln -s '%s' '%s'",
-               'update'        => ""},
+               'update'        => "",
+               'revision'      => "echo -n 'local'"},
        'src-git' => {
-               'init'          => "git clone --depth 1 '%s' '%s'",
-               'init_branch'   => "git clone --depth 1 --branch '%s' '%s' '%s'",
-               'update'        => "git pull",
-               'controldir'    => ".git"},
+               'init'          => "git clone --depth 1 '%s' '%s'",
+               'init_branch'   => "git clone --depth 1 --branch '%s' '%s' '%s'",
+               'update'        => "git pull --ff",
+               'controldir'    => ".git",
+               'revision'      => "git show --abbrev-commit HEAD | head -n 1 | cut -d ' ' -f 2 | tr -d '\n'"},
+       'src-gitsvn' => {
+               'init'  => "git svn clone -r HEAD '%s' '%s'",
+               'update'        => "git svn rebase",
+               'controldir'    => ".git",
+               'revision'      => "git show --abbrev-commit HEAD | head -n 1 | cut -d ' ' -f 2 | tr -d '\n'"},
        'src-bzr' => {
                'init'          => "bzr checkout --lightweight '%s' '%s'",
                'update'        => "bzr update",
@@ -181,7 +191,7 @@ sub get_feed($) {
 }
 
 sub get_installed() {
-       system("$mk -s prepare-tmpinfo");
+       system("$mk -s prepare-tmpinfo OPENWRT_BUILD=");
        clear_packages();
        parse_package_metadata("./tmp/.packageinfo");
        %installed = %package;
@@ -245,14 +255,31 @@ sub list_feed {
 sub list {
        my %opts;
 
-       getopts('r:sh', \%opts);
+       getopts('r:d:sh', \%opts);
        if ($opts{h}) {
                usage();
                return 0;
        }
        if ($opts{s}) {
                foreach my $feed (@feeds) {
-                       printf "\%-32s\tURL: %s\n", $feed->[1], join(", ", @{$feed->[2]});
+                       my $localpath = "./feeds/$feed->[1]";
+                       my $m = $update_method{$feed->[0]};
+                       my $revision;
+                       if( !$m->{'revision'} ) {
+                               $revision = "X";
+                       }
+                       elsif( $m->{'controldir'} && -d "$localpath/$m->{'controldir'}" ) {
+                               $revision = `cd '$localpath'; $m->{'revision'}`;
+                       }
+                       else {
+                               $revision = "local";
+                       }
+                       if ($opts{d}) {
+                               printf "%s%s%s%s%s%s%s\n", $feed->[1], $opts{d}, $feed->[0], $opts{d}, $revision, $opts{d}, join(", ", @{$feed->[2]});
+                       }
+                       else {
+                               printf "\%-8s \%-8s \%-8s \%s\n", $feed->[1], $feed->[0], $revision, join(", ", @{$feed->[2]});
+                       }
                }
                return 0;
        }
@@ -286,6 +313,7 @@ my %install_method = (
        'src-cpy' => \&install_generic,
        'src-link' => \&install_generic,
        'src-git' => \&install_generic,
+       'src-gitsvn' => \&install_generic,
        'src-bzr' => \&install_generic,
        'src-hg' => \&install_generic,
        'src-darcs' => \&install_generic,
@@ -305,6 +333,15 @@ sub lookup_package($$) {
        return;
 }
 
+sub is_core_package($) {
+       my $package = shift;
+       foreach my $file ("tmp/info/.packageinfo-$package", glob("tmp/info/.packageinfo-*_$package")) {
+               next unless index($file, "tmp/info/.packageinfo-feeds_");
+               return 1 if -s $file;
+       }
+       return 0;
+}
+
 sub install_package {
        my $feed = shift;
        my $name = shift;
@@ -314,7 +351,7 @@ sub install_package {
        $feed or do {
                $installed{$name} and return 0;
                # TODO: check if it's already installed within ./package directory
-               $feed_src->{$name} or -d "./package/$name" or warn "WARNING: No feed for package '$name' found, maybe it's already part of the standard packages?\n";
+               $feed_src->{$name} or is_core_package($name) or warn "WARNING: No feed for package '$name' found, maybe it's already part of the standard packages?\n";
                return 0;
        };
 
@@ -513,7 +550,7 @@ sub update {
        my $perform_update=1;
 
        $ENV{SCAN_COOKIE} = $$;
-       $ENV{KBUILD_VERBOSE} = 99;
+       $ENV{OPENWRT_VERBOSE} = 's';
 
        getopts('ahi', \%opts);
 
@@ -559,10 +596,11 @@ sub usage() {
 Usage: $0 <command> [options]
 
 Commands:
-       list [options]: List feeds and their content
+       list [options]: List feeds, their content and revisions (if installed)
        Options:
-           -s :           List of feed names and their URL.
-           -r <feedname>: List packages of specified feed.
+           -s :            List of feed names and their URL.
+           -r <feedname>:  List packages of specified feed.
+           -d <delimiter>: Use specified delimiter to distinguish rows (default: spaces)
 
        install [options] <package>: Install a package
        Options: