openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File splice of Package Meta (Revision 141e32ca39d4f92d3edd95f0df380435)

Currently displaying revision 141e32ca39d4f92d3edd95f0df380435 , 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;
my @licenses;

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;
    }
}

open my $stdin, "<&STDIN";

$count = 0;
foreach my $slice (@slices) {
    my $key = sprintf '%c', $count+97;
    my $slot = $slice;
    my $loc = 'packages/Publishing:TeXLive/texlive-specs-';
    my $tmp;
    my $tfh;
    my $lnk;
    my $spec;
    my $changes;
    my $wild;

$count++;

$slot =~ s/[{}]//g;
    $slot =~ s/,/ /g;
    $wild = $slot;
    $wild =~ s/[\[\][:blank:]]//g;
    $wild = "[$wild]";
    $loc .= $key;
    $loc .='/';
    $lnk = $loc;
    $lnk .= '_link';
    $tmp = $lnk;
    $tmp .= '.XXXXXX';

@licenses=();
    open(SED, '-|', "tar OxJf packages/texlive-specs.tar.xz --wildcards 'texlive-specs/texlive-$wild*'|sed -rn '/^License:/{s/License:[[:blank:]]+//p}'|sort -u");
    while (<SED>) {
	chomp;
	push @licenses, $_;
    }
    close(SED);

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

print '<link cicount="copy" package="texlive-specs">' . "\n";
    print '  <patches>' . "\n";
    foreach $key (sort keys %allfiles) {
	next if $key =~ m@texlive-specs\.(tar\.xz)@;
	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);

$spec = $loc;
    $spec .= 'texlive-specs-';
    $spec .= $key;

$changes = $spec;
    $spec .= '.spec';
    $changes .= '.changes';

$tmp = $spec;
    $tmp .= '.XXXXXX';

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

open STDIN, "<packages/texlive-specs.spec";
    while (<>) {
	print '%define build_slice ' . $slot . "\n" if m/^%define __perl/;
	if (m/^License:/) {
	    print 'License:        ';
	    my $and = 0;
	    foreach $key (@licenses) {
		print " and " if ($and++ > 0);
		print $key;
	    }
	    print "\n";
	    next;
	}
	if (m/^Source0:/) {
	    my $srcs = 1000;
	    my $ptcs = 2000;
	    my @nosrc = ();
	    print $_;
	    foreach $key (sort keys %allfiles) {
		next if $key =~ m@texlive-specs\.(tar\.xz|changes|spec)@;
		next if ($allfiles{$key} ne $slice);
		printf "Source" . $srcs . ":     " . "$key\n";
		push @nosrc, $srcs if ($key =~ m@\.(tar\.xz|diff?|patch)@);
		$srcs++;
	    }
	    foreach $key (@nosrc) {
		printf "NoSource:       " . $key . "\n";
	    }
	    next;
	}
	s/texlive-specs/texlive-specs-$key/ if m/^# spec file for package/;
	s/texlive-specs/texlive-specs-$key/ if m/^(Name|Url):/;
	print $_;
    }
    open STDIN, "<&$stdin";

select STDOUT;
    close $tfh;

rename($tmp, $spec);
    chmod(0644, $spec);

$tmp = $changes;
    $tmp .= '.XXXXXX';

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

open STDIN, "<packages/texlive-specs.changes";
    while (<>) {
	print $_;
    }
    open STDIN, "<&$stdin";

select STDOUT;
    close $tfh;

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

Places

File splice of Package Meta (Revision 141e32ca39d4f92d3edd95f0df380435)

Places