openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File splice of Package Meta (Revision ec9fc049f01c2e0e2bd6b7bbf63c1a88)

Currently displaying revision ec9fc049f01c2e0e2bd6b7bbf63c1a88 , Show latest

#!/usr/bin/perl

use strict;
use warnings;
use integer;
use attributes ();
use utf8;
use feature "switch";

use File::Glob ':glob';

use open OUT => ':utf8';
use open IN  => ':bytes';
use open ':std';

use File::Temp qw(:mktemp);
use File::Glob qw(:globally :case);
use Text::ParseWords;
use sort qw(stable _quicksort _mergesort);

use File::stat;
use File::Which qw(which where);

package main;

my @slices = ();
my $count = 0;
$slices[$count++]="a";
$slices[$count++]="b";
$slices[$count++]="c";
$slices[$count++]="d";
$slices[$count++]="e";
$slices[$count++]="f";
$slices[$count++]="g";
$slices[$count++]="h";
$slices[$count++]="i";
$slices[$count++]="j";
$slices[$count++]="k";
$slices[$count++]="l";
$slices[$count++]="m";
$slices[$count++]="n";
$slices[$count++]="o";
$slices[$count++]="p";
$slices[$count++]="q";
$slices[$count++]="r";
$slices[$count++]="s";
$slices[$count++]="t";
$slices[$count++]="u";
$slices[$count++]="v";
$slices[$count++]="w";
$slices[$count++]="x";
$slices[$count++]="y";
$slices[$count++]="{[0-9],[A-Z],z}";

my @files = <packages/*.{tar.xz,dif,diff,patch,post,list,moves,requires,changes,spec}>;
@files = map {s@packages/@@;$_} @files;

my %allfiles = map { $_, 0 } @files;

foreach my $slice (@slices) {
    @files = <packages/$slice*.{tar.xz,dif,diff,patch,post,list,moves,requires}>;
    @files = map {s@packages/@@;$_} @files;
    foreach my $key (@files) {
	$allfiles{$key} = $slice;
    }
}
foreach my $slice (@slices) {
    my $key = $slice;
    my $slot = $slice;
    my $loc = 'packages/Publishing:TeXLive/texlive-specs-';
    my $tmp;
    my $tfh;
    my $lnk;

$key =~ s/.*,([a-z])[[:graph:]]+/$1/;
    $slot =~ s/[{}]//g;
    $slot =~ s/,/ /g;
    $loc .= $key;
    $loc .='/';
    $lnk = $loc;
    $lnk .= '_link';
    $tmp = $lnk;
    $tmp .= '.XXXXXX';

($tfh, $tmp) =  mkstemp($tmp);
    select $tfh;

print '<link package="texlive-specs" cicount="copy">' . "\n";
    print '<patches>' . "\n";
    print '  <topadd>%define build_slice ' . $slot . '</topadd>' . "\n";
    foreach $key (sort keys %allfiles) {
	next if $key =~ m@texlive-specs\.(tar\.xz|changes|spec)@;
	if ($allfiles{$key} ne $slice) {
	    print '  <delete name="';
	    print "$key";
	    print '"/>' . "\n";
	}
    }
    print '</patches>' . "\n";
    print '</link>' . "\n";

select STDOUT;
    close $tfh;

rename($tmp, $lnk);
    chmod(0644, $lnk);
}

Places

File splice of Package Meta (Revision ec9fc049f01c2e0e2bd6b7bbf63c1a88)

Places