Author: sparky
Date: Sun Dec 6 15:35:38 2009
New Revision: 11008
Added:
toys/tools/cleanbuild/addbr (contents, props changed)
Log:
- NEW; add guessed BuildRequires to spec file
Added: toys/tools/cleanbuild/addbr
==============================================================================
--- (empty file)
+++ toys/tools/cleanbuild/addbr Sun Dec 6 15:35:38 2009
@@ -0,0 +1,90 @@
+#!/usr/bin/perl
+
+use strict;
+use warnings;
+
+my $fname = shift @ARGV or die;
+my $add = shift @ARGV or die;
+my $msg = shift @ARGV or die;
+
+$SIG{__WARN__} = sub
+{
+ local $_ = shift;
+ chomp;
+ print STDERR "\033[32;1m" . $_ . "\033[0m\n"
+};
+
+warn "Adding: $add\n";
+
+my $file = "$ENV{HOME}/rpm/packages/$fname/$fname.spec";
+-r $file or die;
+
+open FILE, "<", $file;
+my @in = <FILE>;
+close FILE;
+
+my $brm =
qr/#?(?:%{!?\?with_\S+:)?\s*BuildRequires:\s*(\S+)\s*(?:(>=|==|<=).*)?}?/i;
+foreach ( @in ) {
+ if ( /^$brm$/o ) {
+ if ( $1 eq $add ) {
+ warn "$add already on the list\n";
+ exit;
+ }
+ }
+
+}
+
+my @out;
+while ( $_ = shift @in ) {
+ if (
/^\s*(build(requires|root|conflicts)|requires|provides|conflicts|obsoletes):/i
) {
+ unshift @in, $_;
+ last;
+ }
+ push @out, $_;
+}
+
+my @buf;
+while ( $_ = shift @in ) {
+ if ( /^%if/ ) {
+ push @buf, $_;
+ my $i = 1;
+ while ( $_ = shift @in ) {
+ push @buf, $_;
+ if ( /^%if/ ) {
+ $i++;
+ } elsif ( /^%endif/ ) {
+ $i--;
+ last unless $i;
+ }
+ }
+
+ } elsif ( /^$brm$/o ) {
+ my $name = $1;
+ push @buf, $_;
+
+ if ( $add lt $name ) {
+ push @out, "# AUTO: $msg\n";
+ push @out, "BuildRequires:\t$add\n";
+ $add = undef;
+ }
+ push @out, @buf;
+ @buf = ();
+ } elsif ( /^\s*$/ or /^\s*#/ ) {
+ push @buf, $_;
+ } else {
+ push @buf, $_;
+ push @out, "# AUTO: $msg\n";
+ push @out, "BuildRequires:\t$add\n";
+ last;
+
+ }
+ last unless $add;
+}
+
+push @out, @buf;
+push @out, @in;
+
+
+open FILE, ">", $file;
+print FILE @out;
+close FILE;
_______________________________________________
pld-cvs-commit mailing list
[email protected]
http://lists.pld-linux.org/mailman/listinfo/pld-cvs-commit
