From: Jo-Philipp Wich <jo@mein.io>
Date: Wed, 28 Aug 2019 13:21:35 +0000 (+0200)
Subject: scripts/feeds: allow adding parameters to feeds
X-Git-Tag: v1.5.0-rc2~71
X-Git-Url: https://git.librecmc.org/?a=commitdiff_plain;h=0899ceccbfeba15e5194ae6d75b93fed5b26be04;p=librecmc%2Flibrecmc.git

scripts/feeds: allow adding parameters to feeds

this allows adding "--" prefixed parameters inside feeds.conf between the
target and name. The first parameter is --force which has the same effect
as using -f when installing any of the packages. This allows creating
feeds that will override base packages by default.

Signed-off-by: Jo-Philipp Wich <jo@mein.io>
(cherry picked from commit 775b70f8d5dfe9830aaf3b79fc8fb38c8148ee1f)
---

diff --git a/scripts/feeds b/scripts/feeds
index 0b7dad6cda..6bc973deaf 100755
--- a/scripts/feeds
+++ b/scripts/feeds
@@ -44,7 +44,7 @@ my $feed_vpackage = {};
 sub parse_file($$);
 
 sub parse_file($$) {
-	my ($fname, $name) = @_;
+	my ($fname, $existing) = @_;
 	my $line = 0;
 	my $fh;
 
@@ -54,26 +54,33 @@ sub parse_file($$) {
 		s/#.+$//;
 		$line++;
 		next unless /\S/;
-		my @line = split /\s+/, $_, 3;
-		my @src;
-
-		my $valid = 1;
-		$line[0] =~ /^src-[\w-]+$/ or $valid = 0;
-		$line[1] =~ /^\w+$/ or $valid = 0;
-		@src = split /\s+/, ($line[2] or '');
-		@src = ('') if @src == 0;
-		$valid or die "Syntax error in $fname, line: $line\n";
-
-		$name->{$line[1]} and die "Duplicate feed name '$line[1]' in '$fname' line: $line\n";
-		$name->{$line[1]} = 1;
-
-		if ($line[0] eq "src-include") {
-			parse_file($line[2], $name) or
-			    die "Unable to open included file '$line[2]'";
+
+		my ($type, $flags, $name, $urls) = m!^src-(\w+)((?:\s+--\w+(?:=\S+)?)*)\s+(\w+)(?:\s+(\S.*))?$!;
+		unless ($type && $name) {
+			die "Syntax error in $fname, line $line\n";
+		}
+
+		if ($existing->{$name}++) {
+			die "Duplicate feed name '$name' in '$fname' line: $line\n";
+		}
+
+		my @src = defined($urls) ? split /\s+/, $urls : ();
+		push @src, '' if @src == 0;
+
+		my %flags;
+		if (defined $flags) {
+			while ($flags =~ m!\s+--(\w+)(?:=(\S+))?!g) {
+				$flags{$1} = defined($2) ? $2 : 1;
+			}
+		}
+
+		if ($type eq "include") {
+			parse_file($urls, $name) or
+			    die "Unable to open included file '$urls'";
 			next;
 		}
 
-		push @feeds, [$line[0], $line[1], \@src];
+		push @feeds, ["src-$type", $name, \@src, \%flags];
 	}
 	close $fh;
 	return 1;
@@ -521,6 +528,11 @@ sub install_src {
 	get_feed($feed->[1]);
 	my $src = $feed_src->{$name} or return 1;
 
+	# enable force flag if feed src line was declared with --force
+	if (exists($feed->[3]{force})) {
+		$force = 1;
+	}
+
 	# If it's a core package and we don't want to override, just return
 	my $override = 0;
 	if (is_core_src($name)) {