Support parsing of bcntsynctag from sources

Supported in spec, kiwi and Dockerfile
openSUSE · Aug 9, 2023 · e724701 · e724701
1 parent d1101a2
commit e724701
Show file tree

Hide file tree

Showing 3 changed files with 8 additions and 0 deletions.
diff --git a/Build/Docker.pm b/Build/Docker.pm
@@ -258,6 +258,9 @@ sub parse {
       if ($line =~ /^#!BuildRelease:\s*(\S+)\s*$/) {
 	$ret->{'release'} = $1;
       }
+      if ($line =~ /^#!BcntSyncTag:\s*(\S+)\s*$/) {
+	$ret->{'bcntsynctag'} = $1;
+      }
       if ($line =~ /^#!BuildConstraint:\s*(\S.+?)\s*$/) {
 	push @{$ret->{'buildconstraint'}}, $1;
       }

diff --git a/Build/Kiwi.pm b/Build/Kiwi.pm
@@ -72,6 +72,7 @@ sub kiwiparse_product {
   $obsexclusivearch = $1 if $xml =~ /^\s*<!--\s+OBS-ExclusiveArch:\s+(.*)\s+-->\s*$/im;
   $obsexcludearch = $1 if $xml =~ /^\s*<!--\s+OBS-ExcludeArch:\s+(.*)\s+-->\s*$/im;
   $ret->{'milestone'} = $1 if $xml =~ /^\s*<!--\s+OBS-Milestone:\s+(.*)\s+-->\s*$/im;
+  $ret->{'bcntsynctag'} = $1 if $xml =~ /^\s*<!--\s+OBS-BcntSyncTag\s+(.*)\s+-->\s*$/im;
 
   $ret->{'name'} = $kiwi->{'name'} if $kiwi->{'name'};
   $ret->{'filename'} = $kiwi->{'name'} if $kiwi->{'name'};
@@ -245,6 +246,7 @@ sub kiwiparse {
   $obsexcludearch = $1 if $xml =~ /^\s*<!--\s+OBS-ExcludeArch:\s+(.*)\s+-->\s*$/im;
   $obsprofiles = $1 if $xml =~ /^\s*<!--\s+OBS-Profiles:\s+(.*)\s+-->\s*$/im;
   $ret->{'milestone'} = $1 if $xml =~ /^\s*<!--\s+OBS-Milestone:\s+(.*)\s+-->\s*$/im;
+  $ret->{'bcntsynctag'} = $1 if $xml =~ /^\s*<!--\s+OBS-BcntSyncTag\s+(.*)\s+-->\s*$/im;
   if ($obsprofiles) {
     $obsprofiles = [ grep {defined($_)} map {$_ eq '@BUILD_FLAVOR@' ? $buildflavor : $_} split(' ', $obsprofiles) ];
   }

diff --git a/Build/Rpm.pm b/Build/Rpm.pm
@@ -822,6 +822,9 @@ sub parse {
     if ($preamble && $line =~ /^\#\!BuildConstraint:\s*(\S.+?)\s*$/i) {
       push @{$ret->{'buildconstraint'}}, $1;
     }
+    if ($preamble && $line =~ /^\#\!BcntSyncTag:\s*(\S.+?)\s*$/i) {
+      $ret->{'bcntsynctag'} = $1 if $1;
+    }
     if ($line =~ /^(?:Requires\(pre\)|Requires\(post\)|PreReq)\s*:\s*(\S.*)$/i) {
       my $deps = $1;
       my @deps;