#!/usr/bin/perl -w

use strict;

my ($p, $v, $a, $d, $c) = ("","","","");

my $arch = $ARGV[0];

sub process {
    my $r = "";
    for my $b (split /\s*,\s*/, shift) {
        next if ($b =~ m/\[[^]]*!\Q$arch\E\b/);
        next if ($b =~ m/\[/ and $b !~ m/\[[^]]*\Q$arch\E\b/);
	$b =~ s/\s*\[[^]]*\]//g;
	$r .= ", $b";
    }
    return $r;
}
    

my $last = "";
while(<STDIN>) {
    $last = $1 if (m/^(\S+):/);

    if (m/^\S*\s+(.*)$/) {
      my $val = $1;
      $p = $val if ($last eq "Package");
      $v = $val if ($last eq "Version");
      $a = $val if ($last eq "Architecture");

      if ($last eq "Build-Depends" or $last eq "Build-Depends-Indep") {
        $d .= process($val);
      }
      if ($last eq "Build-Conflicts" or $last eq "Build-Conflicts-Indep") {
        $val =~ y/|/,/;
        $c .= process($val);
      }
    }

    if (m/^$/) {
      if ($a =~ m/\b(all|any|\Q$arch\E)\b/ and ($d ne "" or $c ne "")) {
        $d =~ s/^, //; $c =~ s/^, //;
        print "Package: src..$p\n";
	print "Version: $v\n";
	print "Section: faux\n";
	print "Source: $p\n";
	print "Architecture: $arch\n";
	print "Depends: $d\n" unless $d eq "";
	print "Conflicts: $c\n" unless $c eq "";
	print "\n";
      }
      $d = $c = "";
    }
}