openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision 2529d6d84e73f6ef403dee7545836d8b)

Currently displaying revision 2529d6d84e73f6ef403dee7545836d8b , Show latest

#!/usr/bin/perl

require File::Temp;
require File::Glob;
require Shell;
require POSIX;

use strict;
use warnings;
use integer;
use attributes ();
use utf8;

use IO::Handle qw(_IOFBF _IOLBF _IONBF);
use open OUT => ':utf8';
use open IN  => ':bytes';
use open ':std';

use Shell qw(wget xz date archivemount fusermount sed fuser);
use File::Temp qw(:mktemp);
use File::Glob qw(:globally :case);
use Text::ParseWords;
use sort qw(stable _quicksort _mergesort);

use POSIX qw(setlocale LC_ALL mktime strftime);
use Date::Parse qw(str2time strptime);

package main;
setlocale(LC_ALL, "POSIX");

my @source=split('-', <basesystem/texlive-*-source.tar.xz>);
my $srcdate = $source[1];
my $version = 0;
my $tlnet   = "ftp://ftp.ctan.org/pub/tex/systems/texlive/tlnet";
my $tlpkg  = "$tlnet/tlpkg";
my $srcurl  = "$tlnet/archive";
my @subscripts = ('.sty', '.cls', '.bbx', '.cbx', '.lbx');
my @skip    = (
    ".*wintools.*",			# Win soft
    ".*texworks.*",			# Win soft
    "tcdialog.*",			# We have a separate dialog program
    "t1utils.*",			# We have a separate t1util package
    "psutils.*",			# We have a separate psutils package
    "dvi2tty.*",			# License problems
    "floatflt",				# License problems
    "sphack",				# License problems
    "xindy.*",				# Requires clisp
    ".*texlive\.infra.*",		# No download support
    "installfont.*",			# No download support
    "texlive-docindex.*",		# No auto update
);
my $regexp = join '|', @skip;

my $count;
my $tlpfh;
my $tlpdb = "/tmp/texlive.tlpdb.XXXXXXXX";

my @clean = ();
sub cleaner {
    while (@clean) {
	my $c = pop(@clean);
	if (-e "$c") {
	    unlink($c);
	    next;
	}
	if ($c) {
	    &$c();
	}
    }
}
END { cleaner(); }
$SIG{INT} = sub { cleaner(); exit; };

-e "texlive.tlpdb.xz" or wget("--progress=bar:force","$tlpkg/texlive.tlpdb.xz");

($tlpfh, $tlpdb) = mkstemp($tlpdb);
push @clean, $tlpdb;

xz("-dc texlive.tlpdb.xz > " . $tlpdb );

while (<$tlpfh>) {
    if (/^name 00texlive.config/ .. /^[[:blank:]]*$/) {
	if (s@^depend release/@@) {
	    chomp;
	    $version = $_;
 	    last;
	}
    }
}

sub lseek {
    while (<>) {
	last if (@_ && /@_/);
	print $_;
    }
}
sub packages;
sub doprovide;
sub filelist;
sub texmftree;

open my $stdin, "<&STDIN";

my @main = ();
my @packages = ();
my @tarball = ();
my $scx = 0;
my $name;
my $target;
my $type;
my $flags;

#
# Collect the package entries for the texmf spec files
# that is no collections, schemes, and no binaries.
#

@main=();
seek $tlpfh, 0, 0;
while (<$tlpfh>) {
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    next if /^name[[:blank:]]+scheme-/;
    next if /^name[[:blank:]]+collection-/;
    next if /^name[[:blank:]]+.*\..*-.*/;
    next if /^name[[:blank:]]+.*\.win32/;
    if (/^name[[:blank:]]/) {
	s/^name[[:blank:]]+//;
	s/-bin$/-X_Y_Z/;
	chomp;
	push @main, $_;
    }
}
push @packages, sort @main;

#
# Open the spec file template for packages
#
open STDIN, "<_other.spec";

-d "packages/texlive-specs" or mkdir("packages/texlive-specs");
my $specfh;
my $spec;

my @patches=();
my $patch_hook;
my $macros_hook = sub { lseek '@@DESCRIPTION@@' };
my $source_hook = sub { lseek '@@INSTALL@@' };
my $script_hook = sub { lseek '@@SCRIPTS@@' };
foreach my $t (@packages) {
    $type=6;
    $target=$t;
    $name=$target;
    $target =~ s/-X_Y_Z$/-bin/;
    @patches=<packages/$name*.{dif,diff,patch}>;

#
    # Open the new main spec file
    #
    ($specfh, $spec) = mkstemp("packages/texlive-specs/spec.XXXXXXXX");
    push @clean, $spec;
    select $specfh;

if ($#patches > -1) {
	$patch_hook = sub {
	    my $p = 0;
	    foreach my $patch (@patches) {
		$patch =~ s@packages/@@;
		print "Patch" . $p++ . ": $patch\n";
	    }
	};
    } else {
	$patch_hook = 0;
    }

seek STDIN, 0, 0;

lseek '@@VERSION@@';

print "%define texlive_version " . $version . "\n";
    print "%define texlive_release " . $srcdate . "\n";

lseek '@@TAGS@@';

seek $tlpfh, 0, 0;
    ($name, $flags) = packages ($name, $target, 1);

lseek '@@FILES@@';

seek $tlpfh, 0, 0;
    filelist ($target, $type, $flags);

lseek;

#
    # Append packages changelog
    #
    my $chll=0;
    open CHLOG, "<", "packages/texlive-specs.changes";
    while (<CHLOG>) {
	chomp;
	next if /^[[:blank:]]*$/;
	if (/^--------------/) {
	    print "\n" if ($chll++ > 0);
	    next;
	}
	if (/^[A-Za-z]+\s*[A-Za-z]*\s*[0-9]*\s*[0-9][0-9]:[0-9][0-9].*-.*\@.*/) {
	    my @entry = split ('-');
	    my $date = shift(@entry);
	    my $auth = join('-', @entry);
	    $date =~ s/(^[[:blank:]]+|[[:blank:]]+$)//;
	    $auth =~ s/(^[[:blank:]]+|[[:blank:]]+$)//;
#
# strftime() seems to be buggy
#
#	    my @time = strptime($date, "%a %b %H:%M:%S %Z %Y");
	    my @time=();
	    if ($#time == -1) {
		print date("--date=\"$date\" --utc +\"\* %a %b %d %Y $auth\"");
	    } else {
		print strftime("\* %a %b %d %Y $auth\n", @time);
	    }
	    next;
	}
	print $_ . "\n";
    }
    close CHLOG;

#
    # Close, rename, and correct last NAME tag
    #
    select STDOUT;
    close $specfh;
    $target = "packages/texlive-specs/" . $name . ".spec";
    rename($spec, $target);
    chmod(0644, $target);
    pop @clean;
}

$patch_hook = 0;
$macros_hook = 0;
$source_hook = 0;
$script_hook = 0;

open STDIN, "<&$stdin";

#
# Open the spec file template for main package
#
open STDIN, "<_main.spec";

#
# Open the new main spec file
#
($specfh, $spec) = mkstemp("basesystem/spec.XXXXXXXX");
push @clean, $spec;
select $specfh;

lseek '@@VERSION@@';

print "%define texlive_version " . $version . "\n";
print "%define texlive_release " . $srcdate . "\n";
print "%define texlive_source  texlive-" . $srcdate . "-source" . "\n";

lseek '@@SOURCES@@';

#
# Collect the package entries for the main spec file
# that is all collections, schemes, most binaries, but
# without upload and download support.
#

my @collect;

@main=();
seek $tlpfh, 0, 0;
while (<$tlpfh>) {
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    if (/^name[[:blank:]]+scheme-/) {
	s/^name[[:blank:]]+//;
	chomp;
	push @main, $_;
    }
}
push @collect, sort @main;

@main=();
seek $tlpfh, 0, 0;
while (<$tlpfh>) {
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    if (/^name[[:blank:]]+collection-/) {
	s/^name[[:blank:]]+//;
	chomp;
	push @main, $_;
    }
}
push @collect, sort @main;

@main=();
seek $tlpfh, 0, 0;
while (<$tlpfh>) {
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    if (/^name[[:blank:]]+.*\.i386-linux$/) {
	s/^name[[:blank:]]+//;
	s/\.i386-linux$/-ARCH/;
	s/-bin$/-X_Y_Z/;
	chomp;
	push @main, $_;
    }
}
push @collect, sort @main;

#
# Write out a spec file core
#
$count = 1000;
foreach (@collect) {
    next if ! /^(collection|scheme)/;
    print "Source" . $count++ . ":     " . $srcurl . "/" . $_ . ".tar.xz\n";
}

lseek '@@PACKAGES@@';

foreach my $t (@collect) {
    $target=$t;
    $name=$target;
    if ($target =~ /-ARCH$/) {
	$name   =~ s/-ARCH$/\.i386-linux/;
	$target =~ s/-ARCH$/-bin/;
    }   
    $target =~ s/-X_Y_Z$/-bin/;
    print "\n";
    seek $tlpfh, 0, 0;
    ($name, $flags) = packages ($name, $target, 0);
}

lseek '@@TEXMFTREE@@';

seek $tlpfh, 0, 0;
my @paths = texmftree();

foreach my $d (@paths) {
    print '    mkdir -p %{buildroot}' . $d . "\n";
}

lseek '@@INSTALL@@';

#
# Install the TeXLive tar balls
#
$count = 1000;
foreach (@collect) {
    next if ! /^(collection|scheme)/;
    print '    tar --use-compress-program=xz -xf %{S:' . $count++ .  '} -C %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
}

lseek '@@TEXMFTREE@@';

foreach my $d (@paths) {
    print '%dir ' . $d . "\n";
}

lseek '@@FILES@@';

#
# Now Just generate file lists
#
foreach my $t (@collect) {
    $type=4;
    $target=$t;
    $name=$target;
    if ($target =~ /-ARCH$/) {
	$name   =~ s/-ARCH$/\.i386-linux/;
	$target =~ s/-ARCH$/-bin/;
	$type=8;
    } elsif ($target =~ /-doc/) {
	$type=2;
    }
    $target =~ s/-X_Y_Z$/-bin/;
    print "\n%files " . $target . "\n";
    print "%defattr(-,root,root,755)\n";
    seek $tlpfh, 0, 0;
    filelist ($name, $type, $flags);
}
close($tlpfh);

lseek;

#
# Close and rename main spec file
#
select STDOUT;
$target = "basesystem/texlive.spec";
-e "basesystem/texlive.spec" and rename($target, $target . ".bak");
rename($spec, $target);
chmod(0644, $target);
pop @clean;

sub packages {
    my $n;
    my $idx = 0;
    my $cnt = 0;
    my $prv = 0;
    my $cur;
    my @desc = ();
    my @dependx = ();
    my @execute = ();
    my $provide = shift(@_);
    $provide =~ s/-X_Y_Z$/-bin/;
    my $name = $provide;
    my $target = shift(@_);
    my @provides = ();
    my @locales = ();
    my $entry = "^name[[:blank:]]$provide";
    my $noarch = 'BuildArch: noarch';
    my $date = '';
    my $license = '';
    my $summary = '';
    my $revision = '';
    my $catversion = '';
    my $isreloc = 0;
    my $flags = 0;
    my $pkg = shift(@_);
    my @return = ("",$pkg);

$cur = $scx;

if (($provide =~ s/^collection-//)) {
	if ($provide eq 'latex') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'xetex') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'omega') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'htmlxml') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'music') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'pictures') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'pstricks') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'science') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'metapost') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'basic') {
	    $provides[$prv++] = 'tex';
	    $provides[$prv++] = 'basic';
	}
    } elsif (($provide =~ s/^collection-lang//)) {
	if ($provide eq 'cjk') {
	    $provides[$prv++] = 'chinese';
	    $provides[$prv++] = 'japanese';
	    $provides[$prv++] = 'korean';
	    $provides[$prv++] = 'locale(tex:zh;ja;ko)';
	}
	if ($provide ne 'other') {
	    $provides[$prv++] = $provide;
	}
    } elsif (($provide =~ s/^scheme-//)) {
	if ($provide eq 'context') {
	    $provides[$prv++] = $provide;
	}
	if ($provide eq 'tetex') {
	    $provides[$prv++] = $provide;
	}
    } elsif (($provide =~ s/^texlive-//)) {
	if ($provide eq 'dvips') {
	    $provides[$prv++] = $provide;
	}
    } else {
	$provides[$prv] = '';
    }

$dependx[$cnt++] = 'basesystem' if ($pkg);

while (<$tlpfh>) {
	if (/$entry/ .. /^[[:blank:]]*$/) {

last if /^[[:blank:]]*$/;

chomp;

$revision = $_ if s/^revision[[:blank:]]+//;
	    if (s/shortdesc[[:blank:]]+//) {
		s/i386-linux/Binary/;
		s/^(.)/\U$1/;
		s/[[:blank:]\.]+$//;
		s/([[:blank:]]+etc)$/$1\./;
		$summary = $_;
	    }

$noarch = "" if /^binfiles arch=i386-linux/;
	    $desc[$idx++] = $_ if s/^longdesc[[:blank:]]+//;
	    push @execute,$_ if s/^(execute)[[:blank:]]+/$1=/;

if (/^depend[[:blank:]]+/) {
		next if /^depend[[:blank:]]+($regexp)/;
		s/-bin$/-X_Y_Z/;
		s/\.ARCH$/-bin/;
		$dependx[$cnt++] = $_ if s/^depend[[:blank:]]+//;
		next;
	    }
	    if ($pkg && /^docfiles[[:blank:]]+/) {
		$name =~ s/-X_Y_Z$/-bin/;
		my $doc = $scx;
		$tarball[$scx++] = $name . '.doc.tar.xz';
		-e "packages/$tarball[$doc]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$doc]");
		$return[1] |= 2;    # Has docfiles
	    }
	    if (/^runfiles[[:blank:]]+/) {
		$name =~ s/-X_Y_Z$/-bin/;
		if ($cur < $scx) {
		    my $last = $tarball[$cur];
		    $tarball[$cur]   = $name . '.tar.xz';
		    $tarball[$scx++] = $last;
		} else {
		    $cur = $scx;
		    $tarball[$scx++] = $name . '.tar.xz';
		}
		if ($pkg) {
		    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$cur]");
		} else {
		    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-P","basesystem/","$srcurl/$tarball[$cur]");
		}
		$return[1] |= 4;    # Has runfiles
	    }
	    if (/^srcfiles[[:blank:]]+/) {
		next;
		$name =~ s/-X_Y_Z$/-bin/;
		$tarball[$scx++] = $name . '.source.tar.xz';
	    }
	    $catversion = $_ if s/^catalogue-version[[:blank:]]+//;
	    if (s/^catalogue\-license[[:blank:]]+//) {
		#
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.html
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.knuth.html
		# http://license.opensuse.org/
		#
		if ($_ =~ /^apache2/) {
		    $license = 'Apache-2.0';
		} elsif ($_ =~ /^apache/) {
		    $license = 'Apache-1.0';
		} elsif ($_ =~ /^artistic/) {
		    $license = 'Artistic-1.0 ; GPL-2.0+';# Same License as Perl
		    if ($target =~ /biber/) {
			$license = 'Artistic-2.0 ; GPL-1+';
		    }
		} elsif ($_ =~ /^artistic2/) {
		    $license = 'Artistic-2.0';
		} elsif ($_ =~ /^bsd/) {# MIT ???
		    $license = 'BSD-3-Clause';
		} elsif ($_ =~ /^fdl/) {
		    $license = 'GFDL-1.2';
		} elsif ($_ =~ /^pd/) {
		    $license = 'SUSE-Public-Domain';
		} elsif ($_ =~ /^knuth/) {
		    $license = 'SUSE-TeX';
		} elsif ($_ =~ /^gfl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^gfsl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^ofl/) {
		    $license = 'OFL-1.1';
		} elsif ($_ =~ /^lppl1.3/) {
		    $license = 'LPPL-1.3c';
		} elsif ($_ =~ /^lppl1.2/) {
		    $license = 'LPPL-1.2';
		} elsif ($_ =~ /^lppl1/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^lppl/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^gpl3/) {
		    $license = 'GPL-3+';
		} elsif ($_ =~ /^gpl2/) {
		    $license = 'GPL-2+';
		} elsif ($_ =~ /^gpl/) {
		    $license = 'GPL-2+';
		    if ($target =~ /asymptote/) {
			$license = 'LGPL-3.0+';
		    }
		} elsif ($_ =~ /^lgpl/) {
		    $license = 'LGPL-2.1+';
		} elsif ($_ =~ /^lgpl3/) {
		    $license = 'LGPL-3.0+';
		} elsif ($_ =~ /^lgpl2\.1/) {
		    $license = 'LGPL-2.1+';
		} else {
		    s/(.)/\U$1/g;
		    $license =~ $_;
		}
	    }
	    $date = $_ if s/^catalogue-date[[:blank:]]+//;
	    $flags = 0 if /^[[:^blank:]]/;
	    if ($flags > 0) {
		$isreloc = 1 if m@^[[:blank:]]+RELOC/@;
		if ($flags == 2 && /^[[:blank:]]+[[:^blank:]]+([[:blank:]]+[[:^blank:]]+="[^"]+")+/p) {
		    my $match = $^N;
		    if ($match =~ /[[:blank:]]+language=/) {
			$match =~ s/[[:blank:]]+language="([^"]+)"/$1/;
			if ($match =~ /uk/) {
			    $match = 'en_UK';
			}
			push @locales, $match;
		    }
		}
	    }
	    if ($flags == 4) {
		$provide = doprovide($_);
		$provides[$prv++] = $provide if ($provide);
	    }
	    $flags = 4 if /^runfiles/;
	    $flags = 2 if /^docfiles/;
	}
    }
    if ($pkg) {
	my $add = 0;
	$add++ if grep /execute=/, @execute;
	$dependx[$cnt++] = 'Requires: texlive-kpathsea-bin';
	$dependx[$cnt++] = 'Requires: texlive-tetex-bin' if ($add);
	$dependx[$cnt++] = 'Requires(post,postun): sed' if ($add);
	$dependx[$cnt++] = 'Requires(post,postun): texlive-kpathsea-bin';
	$dependx[$cnt++] = 'Requires(post,postun): texlive-tetex-bin' if ($add);
    }
    if ($cur == $scx) {
	$name =~ s/-X_Y_Z$/-bin/;
	$tarball[$scx++] = $name . '.tar.xz';
	if ($pkg) {
	    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$cur]");
	} else {
	    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-P","basesystem/","$srcurl/$tarball[$cur]");
	}
    }
    if (!$pkg) {
	print '%package ' . $target . "\n";
    } else {
	print 'Name: texlive-' . $target . "\n";
	$return[0] = 'texlive-' . $target;
    }
    print 'Version: %{texlive_version}' . "\n";
    if ($revision) {
	if ($catversion) {
	    if ($catversion =~ /^\.[[:digit:]]/) {
		    $catversion = sprintf('0.%s', $catversion);
	    }
	    if ($catversion =~ /^0+\./) {
		#           gensub(/^0+\.(.*)/, "\\1", "g", catversion)
		$catversion = sprintf('0.%s', $catversion);
	    }
	    print 'Release: %{texlive_release}.' . $catversion . '.svn' .  $revision . "\n";
	} else {
	    print 'Release: %{texlive_release}.svn' . $revision . "\n";
	}
    }
    if ($license) {
	print 'License: ' . $license . "\n";
    }
    if ($summary) {
	print 'Summary: ' . $summary . "\n";
	if (!$noarch) {
	    print 'Group: Productivity/Publishing/TeX/Utilities' . "\n";
	} elsif ($target =~ /collection-texinfo/) {
	    print 'Group: Productivity/Publishing/Texinfo' . "\n";
	} elsif ($target =~ /scheme-/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-(music|omega|xetex|latex|htmlxml|formatsextra|context|basic)/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-fonts/) {
	    print 'Group: Productivity/Publishing/TeX/Fonts' . "\n";
	} else {
	    print 'Group: Productivity/Publishing/TeX/Base' . "\n";
	}
	print 'Url: http://www.tug.org/texlive/' . "\n";
    }
    if ($pkg) {
	print 'BuildRequires: texlive-basesystem' . "\n";
    }
    for ($n = 0; $n < $cnt; $n++) {
	if ($dependx[$n] =~ /^Requires/) {
	    print $dependx[$n];
	    print  ' = %{texlive_version}' if ($dependx[$n] =~ /texlive/);
	    print "\n";
	    next;
	}
	if ($noarch && $dependx[$n] =~ /.*-bin$/) {
	    print 'Requires(prereq): texlive-' . $dependx[$n] .  ' = %{texlive_version}' . "\n";
	} else {
	    $dependx[$n] =~ s/-X_Y_Z$/-bin/;
	    print 'Requires: texlive-' . $dependx[$n] .  ' = %{texlive_version}' . "\n";
	}
    }
    if ($prv) {
	my $req = 0;
	my @requires = ();
	my $mnt = 0;
	if (-e "packages/$tarball[$cur]") {
	    my $handler = sub { fusermount("-u -z mnt/") if -d "mnt/tlpkg" };
	    archivemount("-o readonly,kernel_cache,intr,sync_read","packages/$tarball[$cur] mnt/");
	    sleep(0.02);
	    if (-d "mnt/tlpkg") {
		push @clean, $handler;
		$mnt++;
	    }
	}
	for ($n = 0; $n < $prv; $n++) {
	    my $l = 0;
	    my $path = $provides[$n];
	    $provides[$n] =~ s@.*/@@;
	    print 'Provides: tex(' . $provides[$n] . ")\n";
	    next if ($provides[$n] !~ /.*\.(sty|cls)$/);
	    next if ! -e "mnt/$path";
	    open FILE, "<mnt/$path";
	    while (<FILE>) {
		next if /^[[:blank:]]*%/;
		next if /^[[:blank:]]*$/;
		if ($_ =~ s/\\RequirePackage(\[.*\])?{([^}]*)}/$2/) {
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $sty (@styles) {
			$sty = $sty . '.sty';
			next if grep $_ eq $sty, @provides;
			$requires[$req++] = $sty;
		    }
		    next;
		}
		if (($_ =~ s/\\LoadClass(\[.*\])?{([^}]*)}/$2/)) {
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @classes = split(' ', $_);
		    foreach my $class (@classes) {
			$class = $class . '.cls';
			next if grep $_ eq $class, @provides;
			$requires[$req++] = $class;
		    }
		    next;
		}
		#
		# Some more Requires?
		#
	    }
	    FILE->autoflush(1);
	    close(FILE);
	}
	if ($mnt) {
	    sleep(0.02);
	    fusermount("-u -z mnt/");
	    pop @clean;
	}
	for ($n = 0; $n < $req; $n++) {
	    my $self = 0;
	    for (my $l = 0; $l < $prv; $l++) {
		if ($provides[$l] eq $requires[$n]) {       #???
		    $self = 1;
		    last;
		}
	    }
	    if (!$self) {
		print 'Requires: tex(' . $requires[$n] . ')' . "\n";
	    }
	}
    }
    if ($pkg) {
	my $m = 0;
	for ($n = $cur; $n < $scx; $n++, $m++) {
	    print 'Source' . $m . ': ' . $srcurl . '/' . $tarball[$n] . "\n";
	}
    }
    &$patch_hook() if ($patch_hook);
    if ($noarch) {
	print $noarch . "\n";
    } else {
	print 'Prefix: %{_bindir}' . "\n";
    }
    &$macros_hook() if ($macros_hook);
    if (!$pkg) {
	print "\n%description " . $target . "\n";
    } else {
	print "\n%description" . "\n";
    }
    if ($desc[0]) {
	for ($n = 0; $n < $idx; $n++) {
	    print $desc[$n] . "\n";
	}
    } elsif (!$noarch) {
	print $summary . "\n";
    } else {
	print 'The ' . $target . ' package' . "\n";
    }
    if ($date) {
	$date = date("--date=\"$date\" --utc +\"%Y-%m-%d %T %z\"");
	print "\ndate: " . $date . "\n";
    }
    for ($n = 1; $n < $scx - $cur; $n++) {
	next if ($tarball[$n + $cur] !~ /.*\.doc\.tar\.xz/);
	print "\n%package doc\n";
	print 'Summary: Documentation for texlive-' . $name . "\n";
	print 'Version: %{texlive_version}'. "\n";
	if ($revision) {
	    if ($catversion) {
		if ($catversion =~ /.[[:digit:]]+/) {
		    $catversion = '0' . $catversion;
		}
		print 'Release: %{texlive_release}.' . $catversion .  '.svn' . $revision . "\n";
	    } else {
		print 'Release: %{texlive_release}.svn' . $revision . "\n";
	    }
	}
	if ($#locales > -1) {
	    print "Provides: locale(texlive-" . $name . "-doc:";
	    my $c = 0;
	    foreach my $l (@locales) {
		print ";" if ($c++ > 0);
		print $l
	    }
	    print ")\n";
	}
	print 'BuildArch: noarch' . "\n";
	print "\n%description doc\n";
	print 'Documentation for texlive-' . $name . "\n";
    }
    &$source_hook() if ($source_hook);
    if ($pkg) {
	for ($n = 0; $n < $scx - $cur; $n++) {
	    if ($isreloc) {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
            } else {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive' . "\n";
	    }
	}
	if ($#patches > -1) {
	    print '    pushd %{buildroot}%{_datadir}/texlive/' . "\n";
	    for ($n = 0; $n <= $#patches; $n++) {
		print "\t" . 'patch --unified-reject-files --quoting-style=literal -f -p0 -F0 -T < %{P:' . $n . "}\n";
	    }
	    print "    popd\n";
	}
    }
    if ($script_hook) {
	&$script_hook();
	my $varrun = "/var/run/texlive";
	my $dohash = "/var/run/texlive/run-texhash";
	my $dofmtu = "";
	my $doupdm = "";
	if (grep /execute=[aA]dd(Format|Hyphen)/, @execute) {
	    $dofmtu = "/var/run/texlive/run-fmtutil";
	}
	if (grep /execute=[aA]dd(Mixed|Kanji)?Map/, @execute) {
	    $doupdm = "/var/run/texlive/run-updmap";
	}
	print '%post' . "\n";
	print "mkdir -p $varrun\n";
	print "> $dohash\n";
	foreach my $e (@execute) {
	    if ($e =~ m/execute=[aA]dd(Format)/) {
		my @line = quotewords('[[:blank:]]+', 1, $e);
		my %format = map { quotewords('=', 0, $_) } @line;
		next if ! exists $format{name};
		print "sed -ri '" . 's@^\#\![[= =]]+' . $format{name} . '\b.*@';
		print $format{name};
		print " $format{engine}";
		if (exists $format{patterns}) {
		    print " $format{patterns}";
		} else {
		    print ' -';
		}
		print " $format{options}";
		print '@' . "'" . ' %{_texmfconfdir}/web2c/fmtutil.cnf' . "\n";
		next;
	    }
	    if ($e =~ m/execute=[aA]dd(Hyphen)/) {
		my @line = quotewords('[[:blank:]]+', 1, $e);
		my %hyphen = map { quotewords('=', 0, $_) } @line;
		print "echo '$hyphen{name} $hyphen{file}'";
		print ' >> %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		if (exists $hyphen{synonyms}) {
		    foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
			print "echo '=$s'" . ' >> %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		    }
		}
		$hyphen{lefthyphenmin} = 2 if (!$hyphen{lefthyphenmin});
		$hyphen{righthyphenmin} = 3 if (!$hyphen{righthyphenmin});
		print "echo '\\addlanguage\{$hyphen{name}\}\{$hyphen{file}\}\{\}";
		print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}'";
		print ' >> %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		if (exists $hyphen{synonyms}) {
		    foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
			print "echo '\\addlanguage\{$s\}\{$hyphen{file}\}\{\}";
			print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}'";
			print ' >> %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		    }
		}
		next;
	    }
	    if ($e =~ m/execute=[aA]dd(Mixed|Kanji)?Map/) {
		my @line = quotewords('[=[:blank:]]+', 1, $e);
		shift @line;
		print "echo '$line[0] $line[1]'" . ' >> %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    }
	}
	print "> $dofmtu\n" if ($dofmtu);
	print "> $doupdm\n" if ($doupdm);
	print "\n";
	print '%postun' . "\n";
	print 'if test $1 == 0; then' . "\n";
	foreach my $e (@execute) {
	    if ($e =~ m/[aA]dd(Format)[[:blank:]]+/) {
		my @line = quotewords('[[:blank:]]+', 1, $e);
		my %format = map { quotewords('=', 0, $_) } @line;
		next if ! exists $format{name};
		print "    sed -ri '" . 's@^(' . $format{name} . '\b)@\#\!\ \1';
		print '@' . "'" . ' %{_texmfconfdir}/web2c/fmtutil.cnf' . "\n";
		next;
	    }
	    if ($e =~ m/execute=[aA]dd(Hyphen)/) {
		my @line = quotewords('[[:blank:]]+', 1, $e);
		my %hyphen = map { quotewords('=', 0, $_) } @line;
		print "    sed -i '/^$hyphen{name} $hyphen{file}/d'";
		print ' %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		if (exists $hyphen{synonyms}) {
		    foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
			print "    sed -i '/^=$s/d'";
			print ' %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		    }
		}
		$hyphen{lefthyphenmin} = 2 if (!$hyphen{lefthyphenmin});
		$hyphen{righthyphenmin} = 3 if (!$hyphen{righthyphenmin});
		print "    sed -i '/\\\\addlanguage\{$hyphen{name}\}\{$hyphen{file}\}\{\}";
		print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}/d'";
		print ' %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		if (exists $hyphen{synonyms}) {
		    foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
			print "    sed -i '/\\\\addlanguage\{$s\}\{$hyphen{file}\}\{\}";
			print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}/d'";
			print ' %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		    }
		}
		next;
	    }
	    if ($e =~ m/execute=[aA]dd(Mixed|Kanji)?Map/) {
		my @line = quotewords('[=[:blank:]]+', 1, $e);
		shift @line;
		print "    sed -ri '/^$line[0]" . '[[:blank:]]+' . "$line[1]/d'";
		print ' >> %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    }
	}
	print "    %{_bindir}/texhash 2> /dev/null || :\n";
	if ($dofmtu) {
	    print "    %{_bindir}/fmtutil-sys --missing > /dev/null 2>&1 || :\n";
	}
	if ($doupdm) {
	    print "    %{_bindir}/updmap-sys --nohash --quiet > /dev/null 2>&1 || :\n";
	}
	print "    exit 0\n";
	print "fi\n";
	print "mkdir -p $varrun\n";
	print "> $dohash\n";
	print "> $dofmtu\n" if ($dofmtu);
	print "> $doupdm\n" if ($doupdm);
	print "\n";
	print '%posttrans' . "\n";
	print "if test -d $varrun; then\n";
	print "    if test -e $dohash; then\n";
	print "	%{_bindir}/texhash 2> /dev/null && rm -f $dohash || :\n";
	print "    fi\n";
	if ($dofmtu) {
	    print "    if test -e $dofmtu; then\n";
	    print "	%{_bindir}/fmtutil-sys --missing > /dev/null 2>&1 && rm -f $dofmtu || :\n";
	    print "    fi\n";
	}
	if ($doupdm) {
	    print "    if test -e $doupdm; then\n";
	    print "	%{_bindir}/updmap-sys --nohash --quiet > /dev/null 2>&1 && rm -f $doupdm || :\n";
	    print "    fi\n";
	}
	print "    rm -rf $varrun\n";
	print "fi\n";
    }
    return @return;
}

sub doprovide {
    my $path = shift(@_);
    foreach my $id ($[ .. $#subscripts) {
	if ($path =~ ($subscripts[$id] . "\$")) {
	    $path =~ s@^[[:blank:]](RELOC/)?@@;
	    return $path;
	}
    }
    return "";
}

sub filelist {
    my $n;
    my $cnt=0;
    my $flags=0;
    my @files=();
    my $provide = shift(@_);
    my $name = $provide;
    my $entry = "^name[[:blank:]]$provide";
    my $type = shift(@_);
    my $pkg = shift(@_);
    while (<$tlpfh>) {
	if (/$entry/ .. /^[[:blank:]]*$/) {

last if /^[[:blank:]]*$/;

chomp;

$flags=1 if (/^srcfiles/);
	    if (/^docfiles/) {
		$flags=2;
		$files[$cnt++]="\n%files doc\n%defattr(-,root,root,755)" if (($pkg & 7) == 7);
		$files[$cnt++]="\n%files\n%defattr(-,root,root,755)" if (($pkg & 3) == 3);
	    }
	    if (/^runfiles/) {
		$flags=4;
		$files[$cnt++]="\n%files\n%defattr(-,root,root,755)" if (($pkg & 5) == 5);
	    }
	    $flags=8 if (/^binfiles/);
	    next if (!/^[[:blank:]]/);
	    next if (($type & $flags) == 0);

if (m@^[[:blank:]]bin/.*-linux/@) {
		next if (m@/man$@);
		s@^[[:blank:]]bin/.*-linux/@%{_bindir}/@;
		s/-xaw$/-xaw3d/;
		$files[$cnt++]=$_;
		if (m@/musixtex@) {
		    my $base = $_;
		    $base =~ s@/musixtex@/@;
		    $files[$cnt++]= $base . "pdfmusixtex";
		    $files[$cnt++]= $base . "pmx";
		    $files[$cnt++]= $base . "pmxab";
		    $files[$cnt++]= $base . "scor2prt";
		}
	    }

s/[[:blank:]]+details=.*$//;
	    if (m@^[[:blank:]]RELOC/@) {
		s@^[[:blank:]]RELOC/@%{_texmfdistdir}/@;
		$files[$cnt++]=$_;
	    }
	    if (m@^[[:blank:]]texmf-dist/@) {
		s@^[[:blank:]]texmf-dist/@%{_texmfdistdir}/@;
		$files[$cnt++]=$_;
	    }
	    if (m@^[[:blank:]]texmf/@) {
		s@^[[:blank:]]texmf/@%{_texmfmaindir}/@;
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);
		    s@%{_texmfmaindir}/doc/man@%{_mandir}@;
		    $files[$cnt++]=$_ . '*';
		    next;
		}
		if (m@/doc/info/@) {
		    s@%{_texmfmaindir}/doc/info@%{_infodir}@;
		    $files[$cnt++]=$_ . '*';
		    next;
		}
		$files[$cnt++]=$_;
		if (m@/web2c/.*\.(cnf|cfg)@) {
		    s@%{_texmfmaindir}@%config %verify(not md5 mtime size) %{_texmfconfdir}@;
		    $files[$cnt++]=$_;
		}
	    }
	    if (/^[[:blank:]]/) {
		s@^[[:blank:]]@%{_texmfmaindir}/@;
		$files[$cnt++]=$_;
	    }
	}
    }
    for ($n=0; $n < $cnt; $n++) {
        print "$files[$n]\n";
    }

}

sub texmftree {
    my $flags=0;
    my $skip=0;
    my $dir;
    my @dirs;
    my @paths=();
    my %hash;
    while (<$tlpfh>) {
	if (/^name/ .. /^[[:blank:]]*$/) {
	    if (/^[[:blank:]]*$/) {
		$skip=0;
		next;
	    }
	    next if ($skip);
	    chomp;
	    $flags=1 if (/^srcfiles/);
	    $flags=2 if (/^docfiles/);
	    $flags=4 if (/^runfiles/);
	    $flags=8 if (/^binfiles/);
	    $skip++ if /^name[[:blank:]]+00/;
	    $skip++ if /^name[[:blank:]]+($regexp)/;
	    $skip++ if /^name[[:blank:]]+scheme-/;
	    $skip++ if /^name[[:blank:]]+collection-/;
	    $skip++ if /^name[[:blank:]]+.*\..*-.*/;
	    $skip++ if /^name[[:blank:]]+.*\.win32/;
	    next if (!/^[[:blank:]]/);
	    next if ((6 & $flags) == 0);
	    s/[[:blank:]]+details=.*$//;
	    s@^[[:blank:]]RELOC/@%{_texmfdistdir}/@ if (m@^[[:blank:]]RELOC/@);
	    s@^[[:blank:]]texmf-dist/@%{_texmfdistdir}/@ if (m@^[[:blank:]]texmf-dist/@);
	    s@^[[:blank:]]texmf/@%{_texmfmaindir}/@ if (m@^[[:blank:]]texmf/@);
	    s@^[[:blank:]]@%{_texmfmaindir}/@ if (/^[[:blank:]]/);
	    next if (m@tlpkg/.*@);
	    next if (m@texconfig/.*@);

#
	    # Split path and forget last entry
	    #
	    @dirs = split(/\/+/);
	    pop(@dirs);
	    $dir = shift(@dirs);

foreach my $d (@dirs) {
		$dir=join('/', $dir, $d);
		push @paths, $dir;
	    }
	}
    }
    %hash=map { $_, 1 } @paths;
    @dirs=keys %hash;
    @paths=();
    push @paths, sort @dirs;

return @paths;
}

Places

File generate of Package Meta (Revision 2529d6d84e73f6ef403dee7545836d8b)

Places