openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision d5bf94e624c213092ca00c0d703fd330)

Currently displaying revision d5bf94e624c213092ca00c0d703fd330 , Show latest

#!/usr/bin/perl

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

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

use File::Glob ':glob';
use Getopt::Std;

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

no warnings;
use Shell qw(archivemount avfsd date file fusermount head sed wget xz cmp);
use warnings;

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

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

package main;
setlocale(LC_ALL, "POSIX");
my $has_avfsd = which('avfsd');

my %opts=();
getopts('dmbp:', \%opts);

my @source=split('-', <basesystem/texlive-*-source.tar.xz>);
my $srcdate = $source[1];
my $version = substr($srcdate,0,4);
my $release = $srcdate;
my $noarch_release;

open(SED, '-|', 'sed', '-rn', '1{s/<.*[[:blank:]]rev="([[:digit:]]+)".*>/\1/p;}', 'packages/.osc/_files');
chomp($noarch_release = <SED>);
close SED;

### Setup start #########################################################################################

my $tlnet   = "ftp://ftp.ctan.org/pub/tex/systems/texlive/tlnet";
my $tlpkg  = "$tlnet/tlpkg";
my $srcurl  = "$tlnet/archive";

my @subscripts = ('sty', 'cls', 'clo', 'cbx', 'bbx', 'lbx');
my $regsubscr = '\.(' . join('|', @subscripts) . ')$';

my @subothers = ('ldf', 'def', 'dat', 'cnf', 'cfg', 'map', 'enc', 'fd', 'tfm', 'vf', 'tex', 'rtx');
my $regsuboth = '\.(' . join('|', @subothers) . ')$';

my @configs = ('mexconf.tex', 'cyrtex.cfg', 'cont-usr.tex', 'language.def', 'amsppt.sti',
               'pdftexconfig.tex', 'language.dat', 'texmf.cnf', 'mktex.cnf', 'fmtutil.cnf',
               'updmap.cfg', 'XDvi', 'config.ps', 'config', 'dvipdfmx.cfg');
my @noreplace = ('texmf.cnf', 'fmtutil.cnf');

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
    "texlive-msg-translations.*",	# No auto update
    "texlive-scripts.*",		# No auto update
);
my $regexp = join '|', @skip;

# Compare with:
# 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/
#
my %licenses = (
    'apache2'	=> 'Apache-2.0',
    'apache'	=> 'Apache-1.0',
    'artistic2' => 'Artistic-2.0',
    'artistic'	=> 'Artistic-1.0',
    'bsd'	=> 'BSD-3-Clause',
    'fdl'	=> 'GFDL-1.2',
    'gfl'	=> 'LPPL-1.3c', # LPPL-1.3c-with-fonts-exception
    'gfsl'	=> 'LPPL-1.3c', # LPPL-1.3c-with-fonts-exception
    'gpl3'	=> 'GPL-3.0+',
    'gpl2'	=> 'GPL-2.0+',
    'gpl'	=> 'GPL-2.0+',
    'lgpl'	=> 'LGPL-2.1+',
    'lgpl3'	=> 'LGPL-3.0+',
    'lgpl2.1'	=> 'LGPL-2.1+',
    'lppl1.3'	=> 'LPPL-1.3c',
    'lppl1.2'	=> 'LPPL-1.2',
    'lppl1'	=> 'LPPL-1.0',
    'lppl'	=> 'LPPL-1.0',
    'knuth'	=> 'SUSE-TeX',
    'ofl'	=> 'OFL-1.1',
    'pd'	=> 'SUSE-Public-Domain'
);

#
# Script extensions
#
my $subexe = '\.(rb|lua|pl|perl|sh|bash|csh|py|tlu)';

#
# Determined by
#
#   grep non-executable-script .build.log | grep -v /source/ | \
#   awk '{print $4}' | sed -u 's@.*/@@' | grep -vE '.*\.(rb|lua|pl|perl|sh|bash|csh|py|tlu)$'
#
my @non_executable_scripts = ('cleantmp', 'makepdf', 'makepdf', 'cleantmp', 'bibhtml', 'bibtexall',
'makedoc', 'updmap.my', 'makefakeMnSymbol', 'mklinks', 'doit', 'latex2pdf', 'tex-it', 'addpsctrl',
'grafig.shar', 'trimsee', 'idxuniq', 'runlatex', 'rundvips', 'makemfs', 'delfin', 'fancy-preview',
'fancy-preview', 'makedoc-patched', 'makedoc', 'make_Palatino', 'makefrutiger', 'makeberling',
'forarray', 'post-xxx-sample.txt', 'normtext.awk', 'getNewBibtex', 'simplify-rename.pe', 'listkeys',
'inst', 'jura2html', 'dat2tex', 'dat2tex', 'dvipdfm_call', 'startacroread', 'l1', 'l2',
'pst2pdf_for_latexmk', 'dvipdfmx_call', 'kickxdvi', 'makeall', 'testfont', 'makefont',
'listbib', 'listings-ext.makemake', 'alt_getopt', 'fmk', 'tmk', 'emk', 'xmk', 'pmk', 'imk',
'rmk', 'cmk', 'bibtexall', 'make_unix', 'make_clean', 'makedoc', 'mktextfm', 'mktfm8z', 'mktextfm.ext',
'pst2pdf', 'pn2pdf', 'RunDoc', 'mksbadx', 'mksbtdx', 'mksbkdx', 'crd2sb', 'modulate', 'showenc',
'ruinpenc', 'rumakeindex', 'rubibtex', 'rubibtex.old', 'texi2dvi', 'letr', 'vntex-update-maps',
'compilefonts', 'install-tds', 'dvitogif89a', 'makeydoc', 'yplan');
### Setup end ###########################################################################################

my $count;
my $tlpfh;
my $tlpdb = "/tmp/texlive.tlpdb.XXXXXXXX";
my $archive = tar::new();

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","-N","$tlpkg/texlive.tlpdb.xz");

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

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

my @files = ();
my $sed = '\@^[[:blank:]](RELOC|texmf|texmf-dist)/.*/.*';
   $sed .= '\.(' . join('|', @subscripts) . '|' . join('|', @subothers) . ')$';
   $sed .= '@{ s@.*/@@gp }';
open(SED, '-|', 'sed', '-rn', $sed, $tlpdb);
chomp(@files = <SED>);
close SED;
my %allfiles = map { $_, 1 } @files;
@files = ();

sub lseek {
    while (<>) {
	last if (@_ && /@_/);
	print $_;
    }
}
sub lnseek {
    while (<>) {
	if (@_ && /@_/) {
	    chomp;
	    s/@_//;
	    print $_;
	    last;
	}
	print $_;
    }
}
sub lskip {
    while (<>) {
	last if (@_ && /@_/);
    }
}
sub packages;
sub doprovide;
sub filelist;
sub texmftree;
sub scripts;
sub reorder;

my @main = ();
my @packages = ();

my @tarball = ();
my $scx = 0;

my @docfiles = ();
my $scd = 0;

my @chmod = ();
my @runfiles = ();
my $scr = 0;

my @binfiles = ();
my $scb = 0;

my %sc = ();

my $name;
my $target;
my $type;
my $flags;
my $pos;

#
# Compare strings before colon
#
sub compare {
    $a =~ s/:[[digit:]]*//;
    $b =~ s/:[[digit:]]*//;
    $a cmp $b;
}

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

@main=();
$pos = 0;
seek $tlpfh, $pos, 0;
while (<$tlpfh>) {
    $pos++;
    last if ($opts{b} || $opts{m});
    next if ($opts{p} && $opts{p} !~ 1 && ! /^name[[:blank:]]$opts{p}$/);
    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, "$_:$pos";
    }
}
push @packages, sort compare @main;

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

my $cwd = "";
if ( -x $has_avfsd) {
    my $handler = sub { fusermount('-u -z mnt/') if -d 'mnt/#avfsstat/' };
    avfsd('-o ro,intr,kernel_cache,noatime','mnt/');
    sleep(0.02);
    if (-d 'mnt/#avfsstat/') {
	push @clean, $handler;
	chomp($cwd = `pwd`);
    } else {
	$has_avfsd = "";
    }
}

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

my @patches=();
my @flists=();
my @mkdirs=();
my @rmdirs=();
my @rmfiles=();
my $patch_hook;
my $macros_hook = sub { lseek '@@DESCRIPTION@@' };
my $source_hook = sub { lseek '@@INSTALL@@' };
my $reorder_hook= sub { lseek '@@REORDER@@' };
my $script_hook = sub { lseek '@@SCRIPTS@@' };

foreach (@packages) {
    ($target, $pos) = quotewords(':',1,$_);
    $type=6;
    $name=$target;
    $target =~ s/-X_Y_Z$/-bin/;
    #
    # Scheme for names of patches and file lists
    #  <name>_<specifier>.<ext>
    # with <ext> equal with `dif' or `diff' or `patch' or `list'
    #
    @patches=<packages/$name\_*.\{dif,diff,patch\}>;
    @flists=<packages/$name\_*.list>;

#
    # 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) {
		my $add = "";
		open PATCH, "<$patch" or next;
		while (<PATCH>) {
		    #
		    # Test if files are added and if so then add them also to the lists!
		    #
		    if (/^\+\+\+[[:blank:]]([^[:blank:]]+)/ .. /^@@[[:blank:]]/) {
			if (defined $^N) {
			    $add = $^N;
			} elsif (/^@@[[:blank:]]-0,0/ && $add) {
			    $_ = $add;
			    s@^texmf-dist/@%{_texmfdistdir}/@;
			    s@^texmf/@%{_texmfmaindir}/@;
			    m@^%{_texmf(dist|main)dir}?/doc/@ && do {
				$docfiles[$scd++] = $_;
				push @chmod, $_ if m@.*/[^/]*$subexe@;
				next;
			    };
			    $runfiles[$scr++] = $_;
			    push @chmod, $_ if m@.*/[^/]*$subexe@;
			}
		    }
		}
		$_ = "";
		close PATCH;
		$patch =~ s@packages/@@;
		print "Patch" . $p++ . ": $patch\n";
	    }
	};
    } else {
	$patch_hook = 0;
    }

#
    # Add file lists if any
    #
    foreach (@flists) {
	m@packages/$name\_runfiles.list@ && do {
	    open LIST, "<$_";
	    while (<LIST>) {
		chomp;
		$runfiles[$scr++] = $_;
		next if ! s/^%dir[[:blank:]]+//;
		push @mkdirs, $_;
	    }
	    close LIST;
	    next;
	};
	m@packages/$name\_docfiles.list@ && do {
	    open LIST, "<$_";
	    while (<LIST>) {
		chomp;
		$docfiles[$scd++] = $_;
		next if ! s/^%dir[[:blank:]]+//;
		push @mkdirs, $_;
	    }
	    close LIST;
	    next;
	};
    }

seek STDIN, 0, 0;

lseek '@@VERSION@@';

print "%define texlive_version " . $version . "\n";
    print "%define texlive_release " . $release . "\n";
    print "%define texlive_noarch  " . $noarch_release . "\n";

lseek '@@TAGS@@';

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

lseek '@@FILES@@';

filelist ($target, $type, $flags);

@rmfiles = @rmdirs = ();
    @chmod = @patches = @flists = @mkdirs = ();
    @tarball = @docfiles = @runfiles = @binfiles = ();
    $scx = $scd = $scr = $scb = 0;

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;
}
open STDIN, "<&$stdin";
if ( -x $has_avfsd) {
    sleep(0.02);
    fusermount("-u -z mnt/");
    pop @clean;
}
exit (0) if ($opts{p});

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

#
# Both main and make binary spec file require the full texmf tree
#
seek $tlpfh, 0, 0;
my %texmftree = texmftree();

#
# Skip main and make binary spec file
#
goto BIN if ($opts{b});

#
# 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 " . $release . "\n";
print "%define texlive_noarch  " . $noarch_release . "\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 @basesystem = ();

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

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

#
# Write out a spec file core
#
$count = 1000;
print "# Download at " . $srcurl . "/\n";
print "# from $srcdate\n";
foreach my $package (@basesystem) {
    ($target, $pos) = split(/:/,$package);
    next if $target !~ /^(collection|scheme)/;
    print "Source" . $count++ . ":     " . $target . ".tar.xz\n";
}

lseek '@@PACKAGES@@';

foreach my $package (@basesystem) {
    ($target, $pos) = split(/:/,$package);
    $name=$target;
    print "\n";
    seek $tlpfh, $pos, 0;
    ($name, $flags) = packages ($name, $target, 0, "texlive-");
}

lseek '@@TEXMFTREE@@';

foreach my $d (sort keys %texmftree) {
    next if (!$texmftree{$d});
    print '    mkdir -p %{buildroot}' . $d . "\n";
}

lseek '@@INSTALL@@';

#
# Install the TeXLive tar balls
#
$count = 1000;
foreach (@basesystem) {
    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 (sort keys %texmftree) {
    print '%dir ' . $d . "\n";
}

lseek '@@FILES@@';

#
# Now Just generate file lists
#
foreach my $package (@basesystem) {
    ($target, $pos) = split(/:/,$package);
    $type=4;
    $name=$target;
    print "\n%files -n texlive-" . $target . "\n";
    print "%defattr(-,root,root,755)\n";
    filelist ($name, $type, $flags);
}
close($tlpfh);

lseek;

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

exit(0) if ($opts{m});
BIN:

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

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

lseek '@@VERSION@@';

lseek '@@SOURCES@@';

#
# Collect the package entries for the main spec file
# that is all collections, schemes, most binaries, but
# without upload and download support.
#
@basesystem = ();
@main=();
$pos = 0;
seek $tlpfh, $pos, 0;
while (<$tlpfh>) {
    $pos++;
    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, "$_:$pos";
    }
}
push @basesystem, sort compare @main;

lseek '@@PACKAGES@@';

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

lseek '@@INSTALL@@';

lseek '@@FILES@@';

#
# Now Just generate file lists
#
foreach my $package (@basesystem) {
    ($target, $pos) = split(/:/,$package);
    $type=4;
    $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";
    filelist ($name, $type, $flags);
}
close($tlpfh);

lseek;

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

#
# Here the sub routines and classes follow
#

sub packages {
    my $n;
    my $mnt = 0;
    my $idx = 0;
    my $cnt = 0;
    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 $full = shift;
    my @return = ("",$pkg);
    my $rlobs;

$sc{$name} = filenum::new($scx, $scd, $scr, $scb);

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

if ($name =~ m/^collection-documentation-base/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-doc < %{texlive_version}';
    } elsif ($name =~ m/^collection-basic$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive < %{texlive_version}';
    } elsif ($name =~ m/^collection-xetex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-xetex < %{texlive_version}';
    } elsif ($target =~ m/^xetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xetex < %{texlive_version}';
    } elsif ($name =~ m/^collection-latex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-latex < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-latex-doc < %{texlive_version}';
    } elsif ($target =~ m/^latex-bin-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-latex < %{texlive_version}';
	$dependx[$cnt++] = 'Provides: texlive-bin-latex >= %{texlive_version}';
    } elsif ($name =~ m/^collection-binextra$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin < %{texlive_version}';
	$dependx[$cnt++] = 'Provides: texlive-bin >= %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-dvilj < %{texlive_version}';
	$dependx[$cnt++] = 'Provides: texlive-dvilj >= %{texlive_version}';
    } elsif ($name =~ m/^collection-xetex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-xetex < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xetex < %{texlive_version}';
    } elsif ($name =~ m/^collection-langarabic$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-arab < %{texlive_version}';
    } elsif ($name =~ m/^collection-langcjk$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-cjk < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-cjk-latex-extras < %{texlive_version}';
    } elsif ($name =~ m/^collection-music$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-musictex < %{texlive_version}';
    } elsif ($name =~ m/^collection-htmlxml$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-jadetex < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-tex4ht < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-xmltex < %{texlive_version}';
    } elsif ($name =~ m/^collection-fontsextra$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-fonts-extra < %{texlive_version}';
	$dependx[$cnt++] = 'Obsoletes: texlive-fonts-extra-doc < %{texlive_version}';
    } elsif ($name =~ m/^collection-context$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-context < %{texlive_version}';
    } elsif ($name =~ m/^collection-omega$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-omega < %{texlive_version}';
    } elsif ($name =~ m/^collection-metapost$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-metapost < %{texlive_version}';
    } elsif ($target =~ m/^cjkutils-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-cjk < %{texlive_version}';
    } elsif ($target =~ m/^omegaware-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-omega < %{texlive_version}';
    } elsif ($target =~ m/^tex4ht-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-tex4ht < %{texlive_version}';
    } elsif ($target =~ m/^xetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xetex < %{texlive_version}';
    } elsif ($target =~ m/^xmltex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xmltex < %{texlive_version}';
    } elsif ($target =~ m/^musixtex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-musictex < %{texlive_version}';
    } elsif ($target =~ m/^metapost-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-metapost < %{texlive_version}';
    } elsif ($target =~ m/^jadetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-jadetex < %{texlive_version}';
    } elsif ($target =~ m/^dviljk-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-dvilj < %{texlive_version}';
    }

if ($name =~ m/^collection-fontutils$/) {
	$dependx[$cnt++] = 'Requires: psutils';
    } elsif ($name =~ m/^pstools$/) {
	$dependx[$cnt++] = 'Requires: psutils';
    } elsif ($name =~ m/^latex$/) {
	$dependx[$cnt++] = 'Requires(prereq): texlive-latex-bin';
    } elsif ($name =~ m/^tools$/) {
	$dependx[$cnt++] = 'Requires: texlive-extratools';
    } elsif ($target =~ m/^biber-bin$/) {
	$dependx[$cnt++] = '%if %{with buildbiber}';
	$dependx[$cnt++] = 'Requires: perl = %{perl_version}';
	$dependx[$cnt++] = '%endif';
    }

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$/$1etcetera/;
		s/independant/independent/g;
		s/langauage/language/g;
		s/powerfull/powerful/g;
		s/pacakge/package/g;
		$summary = $_;
	    }

$noarch = "" if /^binfiles arch=i386-linux/;
	    if (s/^longdesc[[:blank:]]+//) {
		s/independant/independent/g;
		s/langauage/language/g;
		s/powerfull/powerful/g;
		s/pacakge/package/g;
		$desc[$idx++] = $_;
	    }
	    push @execute,$_ if s/^(execute)[[:blank:]]+/$1=/;
	    push @execute,$_ if s/^(postaction)[[:blank:]]+/$1=/;	# Handle postaction tag

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/;
		$tarball[$sc{$name}->tar] = $name . '.doc.tar.xz';
		my $archive = 'texlive-' . $srcdate . '-texmf/archive/' . $tarball[$sc{$name}->tar];
		if (-e $archive) {
		    my $replace = 'packages/' . $tarball[$sc{$name}->tar];
		    unlink $replace if (-e $replace && ! -l $replace);
		    -l $replace or symlink('../' . $archive, $replace);
		}
		-e "packages/$tarball[$sc{$name}->tar]" or wget("--progress=bar:force","-N","-P","packages/","$srcurl/$tarball[$sc{$name}->tar]");
		$sc{$name}->tar++;
		$return[1] |= 2;					# Has docfiles
	    }
	    if (/^runfiles[[:blank:]]+/) {
		my $cur = $sc{$name}->cur;
		$name =~ s/-X_Y_Z$/-bin/;
		if ($cur < $sc{$name}->tar) {
		    my $last = $tarball[$cur];
		    $tarball[$cur]   = $name . '.tar.xz';
		    $tarball[$sc{$name}->tar++] = $last;
		} else {
		    $cur = $sc{$name}->tar;
		    $tarball[$sc{$name}->tar++] = $name . '.tar.xz';
		}
		if ($pkg) {
		    if (-e $archive) {
			my $replace = 'packages/' . $tarball[$sc{$name}->tar];
			unlink $replace if (-e $replace && ! -l $replace);
			-l $replace or symlink('../' . $archive, $replace);
		    }
		    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-N","-P","packages/","$srcurl/$tarball[$cur]");
		} else {
		    if (-e $archive) {
			my $replace = 'basesystem/' . $tarball[$sc{$name}->tar];
			unlink $replace if (-e $replace && ! -l $replace);
			-l $replace or symlink('../' . $archive, $replace);
		    }
		    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-N","-P","basesystem/","$srcurl/$tarball[$cur]");
		}
		$return[1] |= 4;					# Has runfiles
	    }
	    if (/^binfiles[[:blank:]]+/) {
		$return[1] |= 8;					# Has binfiles
	    }
	    if (/^srcfiles[[:blank:]]+/) {
		$flags = 0;
		next;
	    }
	    $catversion = $_ if s/^catalogue-version[[:blank:]]+//;
	    if (s/^catalogue\-license[[:blank:]]+//) {
		foreach my $key (sort keys %licenses) {
		    if ($_ =~ /^$key/) {
			if (($_ =~ /^artistic/) && ($target =~ /biber/)) {
			    $license = 'Artistic-2.0 ; GPL-1.0+';
			    last;
			}
			if (($_ =~ /gpl/) && ($target =~ /asymptote/)) {
			    $license = 'LGPL-3.0+';
			    last;
			}
			$license = $licenses{$key};
			last;
		    }
		}
		if (! $license) {
		    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;
		    }
		}
		next if m@^[[:blank:]]+tlpkg/tlpostcode@;		# Ignore postaction script
		if (m@^[[:blank:]]+texmf/texconfig/[gvx]/@) {		# Ignore terminfo
		    if (! grep /terminfo/, @dependx) {
			$dependx[$cnt++] = 'Requires: terminfo';
		    }
		    s@^[[:blank:]]texmf/@%{_texmfmaindir}/@;
		    if (m@^(%{_texmfmaindir}/texconfig/[gvx])/@) {
			push @rmdirs, $1 if ! grep /$1/, @rmdirs;
		    }
		    next;
		}
		next if (m@/man$@);					# Ignore man program
		s/[[:blank:]]+details=.*$//;
		s/[[:blank:]]+language=.*$//;
		if ($flags == 4) {
		    $provide = doprovide($_);
		    if ($provide) {
			$provides{$provide} = 1
		    }
		}
		s@^[[:blank:]]bin/.*-linux/@%{_bindir}/@;
		s@^[[:blank:]]RELOC/@%{_texmfdistdir}/@;
		s@^[[:blank:]]texmf-dist/@%{_texmfdistdir}/@;
		s@^[[:blank:]]texmf/@%{_texmfmaindir}/@;
		s@^[[:blank:]]@%{_texmfmaindir}/@;
		if (m@^(%{_texmf(main|dist)dir}/source)/@) {		# No source like of koma-script
		    push @rmdirs, $1 if ! grep /$1/, @rmdirs;
		    next;
		}
		if (m@^%.*/.*\.(orig|bak)$@) {				# Not allowed
		    push @rmfiles, $_;
		    next;
		}
		if (m@^%.*/(\.[^/]*)$@ && m@/doc/@) {			# Not allowed
		    push @rmfiles, $_;
		    next;
		}
		if (m@^(%.*/scripts/context/stubs/(mswin|source))/@) {	# No windows files for context
		    push @rmdirs, $1 if ! grep m@$1@, @rmdirs;
		    next;
		}
		if (m@^%.*/([^/]*\.(bat|exe))$@i) {			# No windows bat or exe files
		    push @rmfiles, $_;
		    next;
		}
	    }
	    if ($flags == 2) {
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);				# Ignore manual pages as pdf
		    s@%{_texmfmaindir}/doc/man@%{_mandir}@;
		    $_ = $_ . '*';
		}
		if (m@/doc/info/@) {
		    next if (m@/doc/info/dir@);				# Ignore dir db file
		    s@%{_texmfmaindir}/doc/info@%{_infodir}@;
		    $_ = $_ . '*';
		}
		$docfiles[$sc{$name}->doc++] = $_;
	    }
	    if ($flags == 4) {						# May has font files
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);				# Ignore manual pages as pdf
		    s@%{_texmfmaindir}/doc/man@%{_mandir}@;
		    $_ = $_ . '*';
		    $docfiles[$sc{$name}->doc++] = $_;			# Oops
		    $return[1] |= 2;					# Has docfiles
		    next;
		}
		if (m@/doc/info/@) {
		    next if (m@/doc/info/dir@);				# Ignore dir db file
		    s@%{_texmfmaindir}/doc/info@%{_infodir}@;
		    $_ = $_ . '*';
		    $docfiles[$sc{$name}->doc++] = $_;			# Oops
		    $return[1] |= 2;					# Has docfiles
		    next;
		}
		$return[1] |= 16 if m@/(opentype|truetype|type1)/.*\.(pf[ab]|[ot]tf)$@;
		$runfiles[$sc{$name}->run++] = $_;
	    }
	    if ($flags == 8) {
		$binfiles[$sc{$name}->bin++] = $_;
	    }
	    $flags = 8 if /^binfiles/;
	    $flags = 4 if /^runfiles/;
	    $flags = 2 if /^docfiles/;
	}
    }
    if ($pkg) {
	#
	# package includes documentation files below its `runfiles' tag
	#
	if (($sc{$name}->run == $sc{$name}->cun) && (($return[1] & 6) == 6)) {
	    $return[1] &= ~4;
	}
    } else {
	#
	# support the `public' proggy
	# also manual page of biber executable
	#
	if ($target =~ /kpathsea-bin/) {
	    $binfiles[$sc{$name}->bin++] = '%{_libexecdir}/mktex/*tex*';
	} elsif ($target =~ m/^biber-bin$/) {
	    $binfiles[$sc{$name}->bin++] = '%if %{with buildbiber}';
	    $binfiles[$sc{$name}->bin++] = '%{_mandir}/man1/biber.1*';
	    $binfiles[$sc{$name}->bin++] = '%endif';
	}
    }
    if ($catversion) {
	if ($catversion =~ /^\.[[:digit:]]/) {
	    $catversion = sprintf('0%s', $catversion);
	}
	if ($catversion =~ /^0+\./) {
	    $catversion = sprintf('0.%s', $catversion);
	}
	$catversion =~ s@([0-9]{4})[/-]([0-9]{2})[/-]([0-9]{2})@$1$2$3@g;
	$catversion =~ s/[]+//g;
	$catversion =~ s/,+/\./g;
	$catversion =~ s@[[:blank:]~:/-]+@_@g;
	$catversion =~ s/_rev//g;
	$catversion = lc($catversion);
    }
    if ($pkg) {
	my $add = 0;
	$add++ if grep /execute=/, @execute;
	$dependx[$cnt++] = 'Requires(prereq): texlive-filesystem >= %{texlive_version}';
	#
	# mkdir in %post and %postun
	#
	$dependx[$cnt++] = 'Requires(post): coreutils';
	$dependx[$cnt++] = 'Requires(postun): coreutils';
	#
	# mktexlsr and texmf.cnf
	#
	$dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
	$dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
	#
	if ($add) {
	    $add++ if grep /execute=[aA]dd(Format|Hyphen)/, @execute;
	    $add++ if grep /execute=[aA]dd(Mixed|Kanji)?Map/, @execute;
	    #
	    # fmtutil.cnf, mktex.cnf, and texmf.cnf
	    #
	    if ($add > 1) {
		$dependx[$cnt++] = 'Requires(post): sed';
		$dependx[$cnt++] = 'Requires(post): texlive-kpathsea >= %{texlive_version}';
		$dependx[$cnt++] = 'Requires(postun): sed';
		$dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
		$dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
	    }
	    #
	    # updmap.cfg
	    #
	    if ($add > 2) {
		$dependx[$cnt++] = 'Requires(post): grep';
		$dependx[$cnt++] = 'Requires(post): texlive-tetex >= %{texlive_version}';
		$dependx[$cnt++] = 'Requires(postun): grep';
		$dependx[$cnt++] = 'Requires(postun): texlive-tetex-bin >= %{texlive_version}';
		$dependx[$cnt++] = 'Requires(postun): texlive-tetex >= %{texlive_version}';
	    }
	}
	if (grep /%{_infodir}/, @runfiles) {
	    $dependx[$cnt++] = 'Requires(preun): %install_info_prereq';
	    $dependx[$cnt++] = 'Requires(post): %install_info_prereq';
        }
	#
	# tools required by /usr/lib/texmf/texconfig/update in %posttrans scriptlet
	#
	$dependx[$cnt++] = 'Requires(posttrans): coreutils';
	$dependx[$cnt++] = 'Requires(posttrans): ed';
	$dependx[$cnt++] = 'Requires(posttrans): findutils';
	$dependx[$cnt++] = 'Requires(posttrans): grep';
	$dependx[$cnt++] = 'Requires(posttrans): sed';
	$dependx[$cnt++] = 'Requires(posttrans): texlive-filesystem >= %{texlive_version}';
	$dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea >= %{texlive_version}';
	$dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea-bin >= %{texlive_version}';
	$dependx[$cnt++] = 'Requires(posttrans): texlive-tetex >= %{texlive_version}';
	$dependx[$cnt++] = 'Requires(posttrans): texlive-tetex-bin >= %{texlive_version}';
	if ($return[1] & 16) {
	    $dependx[$cnt++] = 'Requires: texlive-' . $name . '-fonts';
	}
    }
    if ($sc{$name}->cur == $sc{$name}->tar) {
	my $cur = $sc{$name}->cur;
	$name =~ s/-X_Y_Z$/-bin/;
	$tarball[$sc{$name}->tar++] = $name . '.tar.xz';
	if ($pkg) {
	    if (-e $archive) {
		my $replace = 'packages/' . $tarball[$cur];
		unlink $replace if (-e $replace && ! -l $replace);
		-l $replace or symlink('../' . $archive, $replace);
	    }
	    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-N","-P","packages/","$srcurl/$tarball[$cur]");
	} elsif ($name !~ m/i386-linux/) {
	    if (-e $archive) {
		my $replace = 'basesystem/' . $tarball[$cur];
		unlink $replace if (-e $replace && ! -l $replace);
		-l $replace or symlink('../' . $archive, $replace);
	    }
	    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-N","-P","basesystem/","$srcurl/$tarball[$cur]");
	}
    }
    if (!$pkg) {
	if ($full) {
	    print '%package -n ' . $full . $target . "\n";
	} else {
	    print '%package ' . $target . "\n";
	}
    } else {
	my $cur = $sc{$name}->cur;
	print 'Name: texlive-' . $target . "\n";
	$return[0] = 'texlive-' . $target;
	if (-e "packages/$tarball[$cur]" && ! -x $has_avfsd) {
	    my $handler = sub { fusermount("-u -z mnt/") if -d "mnt/tlpkg" };
	    archivemount("-r -o kernel_cache,intr,async_read","packages/$tarball[$cur] mnt/");
	    sleep(0.02);
	    if (-d "mnt/tlpkg") {
		push @clean, $handler;
		$mnt++;
	    }
	}
    }
    print 'Version: %{texlive_version}';
    if ($revision) {
	$revision = 'svn' . $revision;
	$catversion .= $revision;
    }
    if ($noarch) {
	if ($catversion) {
	    print '.%{texlive_noarch}.' . $catversion;
	} else {
	    print '.%{texlive_noarch}';
	}
    } else {
	if ($catversion) {
	    print '.%{texlive_release}.' . $catversion;
	} else {
	    print '.%{texlive_release}';
	}
    }
    print "\n";
    if ($pkg) {
	$rlobs = '%{?rlobs:%{rlobs}}%{!?rlobs:0}';
    } else {
	$rlobs = '0';
    }
    print "Release: $rlobs\n";
    if ($license) {
	print 'License: ' . $license . "\n";
    } else {
	print 'License: LPPL-1.0' . "\n";
    }
    $summary = 'Package ' . $name if (!$summary);
    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";
    }
    foreach my $depend (@dependx) {
	if ($depend =~ /^%/) {
	    print $depend;
	    print "\n";
	    next;
	}
	if ($depend =~ /^Requires/) {
	    print $depend;
	    print  ' >= %{texlive_version}' if ($depend =~ /texlive/);
	    print "\n";
	    next;
	}
	if ($depend =~ /^(Obsoletes|Provides)/) {
	    print $depend;
	    print "\n";
	    next;
	}
	if ($noarch && $depend =~ /.*-bin$/) {
	    print 'Requires(prereq): texlive-' . $depend .  ' >= %{texlive_version}' . "\n";
	} else {
	    $depend =~ s/-X_Y_Z$/-bin/;
	    print 'Requires: texlive-' . $depend .  ' >= %{texlive_version}' . "\n";
	}
    }
    if ($pkg) {
	print 'BuildRequires: ed' . "\n";
	print 'BuildRequires: texlive-filesystem' . "\n";
	print 'BuildRequires: xz' . "\n";
    }
    if (keys %provides) {
	my $cur = $sc{$name}->cur;
	my $req = 0;
	my %requires = ();
	my %seen = ();
	my @unique = ();
	my $tpath = "";
	if (-e "packages/$tarball[$cur]") {
	    if ($mnt) {
		$tpath = 'mnt/';
	    } elsif (-x $has_avfsd) {
		$tpath = 'mnt' . $cwd . '/packages/' . $tarball[$cur] . '#/';
	    }
	}
	foreach my $path (sort keys %provides) {
	    my $provide = $path;
	    if ($mnt || -x $has_avfsd) {
		$path = $tpath . $path;
		if ($pkg && ! -e $path) {
		    print STDERR "Provides of $name $provide does not exist\n" if ($opts{d});
		    next;
		}
	    }
	    $provide =~ s@.*/@@;
	    $seen{$provide} = 1;
	    print STDERR "Provides > $provide\n" if ($opts{d});
	    print 'Provides: tex(' . $provide . ")\n";
	    next if (!$pkg);
	    push @unique, $path if ($path =~ m@$regsubscr@);
	}
	if (-e "packages/$tarball[$cur]" && $#unique >-1) {
	    if ($mnt || -x $has_avfsd) {
		my $files = join(' ', @unique);
		open(FILE, "cat $files |") or next;
	    } else {
		my $files = join(' ', @unique);
		open(FILE, "tar OxJf packages/$tarball[$cur] $files |") or next;
	    }
	    @unique = ();
	    while (<FILE>) {
		next if /^[[:blank:]]*%/;
		next if /^[[:blank:]]*$/;
		next if /\\(def|newcommand)/;
		/^[[:blank:]]*\\RequirePackage(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequirePackage(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $sty (@styles) {
			next if ($sty =~ /^\\/);
			next if ($sty !~ /^[[:alnum:]\._-]+$/);
			$sty = $sty . '.sty';
			print STDERR "RequirePackage of $name < $sty\n" if ($opts{d});
			$requires{$sty} = 1 if (!exists $seen{$sty});
		    }
		    next;
		};
		/^[[:blank:]]*\\LoadClass(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\LoadClass(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @classes = split(' ', $_);
		    foreach my $class (@classes) {
			next if ($class =~ /^\\/);
			next if ($class !~ /^[[:alnum:]\._-]+$/);
			$class = $class . '.cls';
			print STDERR "RequirePackage of $name < $class\n" if ($opts{d});
			$requires{$class} = 1 if (!exists $seen{$class});
		    }
		    next;
		};
		/^[[:blank:]]*\\input([[:blank:]]+|{?)([^[:blank:]}]*)([[:blank:]]+|}?).*/ && do {
		    s/.*\\input([[:blank:]]+|{?)([^[:blank:]}]*)([[:blank:]]+|}?).*/$2/;
		    s/[{%}]//g;
		    s/[[:blank:]]*//g;
		    chomp;
		    if ((/$regsubscr/ || /$regsuboth/) && /^[[:alnum:]\._-]+$/) {
			print STDERR "input of $name < $_\n" if ($opts{d});
			$requires{$_} = 1 if (!exists $seen{$_});
		    }
		    next;
		};
		/^[[:blank:]]*\\RequireBibliographyStyle(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequireBibliographyStyle(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $bbx (@styles) {
			next if ($bbx =~ /^\\/);
			next if ($bbx !~ /^[[:alnum:]\._-]+$/);
			$bbx = $bbx . '.bbx';
			print STDERR "RequireBibliographyStyle of $name < $bbx\n" if ($opts{d});
			$requires{$bbx} = 1 if (!exists $seen{$bbx});
		    }
		    next;
		};
		/^[[:blank:]]*\\RequireCitationStyle(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequireCitationStyle(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    my $bbx;
		    foreach my $cbx (@styles) {
			next if ($cbx =~ /^\\/);
			next if ($cbx !~ /^[[:alnum:]\._-]+$/);
			$bbx = $cbx . '.bbx';
			$cbx = $cbx . '.cbx';
			print STDERR "RequireCitationStyle of $name < $cbx\n" if ($opts{d});
			$requires{$cbx} = 1 if (!exists $seen{$cbx} && !exists $seen{$bbx});
		    }
		    next;
		};
		/^[[:blank:]]*\\InheritBibliographyStrings(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\InheritBibliographyStrings(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @langs = split(' ', $_);
		    foreach my $lng (@langs) {
			next if ($lng =~ /^\\/);
			next if ($lng !~ /[[:alnum:]\._-]/);
			$lng = $lng . '.lbx';
			print STDERR "InheritBibliographyStrings of $name < $lng\n" if ($opts{d});
			$requires{$lng} = 1  if (!exists $seen{$lng});
		    }
		};
		#
		# Some more Requires?
		#
	    }
	    FILE->autoflush(1);
	    close(FILE);
	}
	@unique = ();
	foreach my $require (sort keys %requires) {
	    my $found = "";
	    next if (exists $seen{$require});
	    next if (!exists $allfiles{$require});
	    print 'Requires: tex(' . $require . ')' . "\n";
	}
    }
    if ($pkg) {
	my $m = 0;
	print "# Download at " . $srcurl . "/\n";
	print "# from $srcdate\n";
	for ($n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++, $m++) {
	    print 'Source' . $m . ': ' . $tarball[$n] . "\n";
	}
    }
    if ($pkg && $patch_hook) {
	($scx, $scd, $scr, $scb) = $sc{$name}->current;
	&$patch_hook();
	$sc{$name}->update($scx, $scd, $scr, $scb);
    }
    if ($noarch) {
	print $noarch . "\n";
    } else {
	print 'Prefix: %{_bindir}' . "\n";
    }
    &$macros_hook() if ($pkg && $macros_hook);
    if (!$pkg) {
	if ($full) {
	    print "\n%description -n " . $full . $target . "\n";
	} else {
	    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 = $sc{$name}->cur; $n < $sc{$name}->tar; $n++) {
	next if ($tarball[$n] !~ /.*\.doc\.tar\.xz/);
	next if ($n == $sc{$name}->cur);
	print "\n%package doc\n";
	print 'Summary: Documentation for texlive-' . $name . "\n";
	print 'Version: %{texlive_version}';
	if ($noarch) {
	    if ($catversion) {
		print '.%{texlive_noarch}.' . $catversion;
	    } else {
		print '.%{texlive_noarch}';
	    }
	} else {
	    if ($catversion) {
		print '.%{texlive_release}.' . $catversion;
	    } else {
		print '.%{texlive_release}';
	    }
	}
	print "\n";
	print "Release: $rlobs\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";
	}
	if (grep /%{_infodir}/, @docfiles) {
	    print 'Requires(preun): %install_info_prereq' . "\n";
	    print 'Requires(post): %install_info_prereq' . "\n";
	}
	print 'BuildArch: noarch' . "\n";
	print "\n%description doc\n";
	print 'This package includes the documentation for texlive-' . $name . "\n";
	last;
    }
    if ($pkg && ($return[1] & 16)) {
	print "\n%package fonts\n";
	print 'Summary: Severed fonts for texlive-' . $name . "\n";
	print 'Version: %{texlive_version}';
	if ($noarch) {
	    if ($catversion) {
		print '.%{texlive_noarch}.' . $catversion;
	    } else {
		print '.%{texlive_noarch}';
	    }
	} else {
	    if ($catversion) {
		print '.%{texlive_release}.' . $catversion;
	    } else {
		print '.%{texlive_release}';
	    }
	}
	print "\n";
	print "Release: $rlobs\n";
	print 'Requires(post): fontconfig' . "\n";
	print 'Requires(post): xfs' . "\n";
	print 'Requires(post): xorg-x11' . "\n";
	print 'Requires(post): xorg-x11-fonts-core' . "\n";
	print 'Requires(postun): fontconfig' . "\n";
	print 'Requires(postun): xfs' . "\n";
	print 'Requires(postun): xorg-x11' . "\n";
	print 'Requires(postun): xorg-x11-fonts-core' . "\n";
	print 'BuildArch: noarch' . "\n";
	print "\n%description fonts\n";
	print 'The  separated fonts package for texlive-' . $name . "\n";
    }
    &$source_hook() if ($pkg && $source_hook);
    if ($pkg) {
	my $limit = $sc{$name}->tar - $sc{$name}->cur;
	for ($n = 0; $n < $limit; $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 --reject-format=unified --quoting-style=literal -f -p0 -F0 -T < %{P:' . $n . "}\n";
	    }
	    print "    popd\n";
	}
    }
    if ($pkg && $reorder_hook) {
	&$reorder_hook();
	($scx, $scd, $scr, $scb) = $sc{$name}->current;
	push @execute, reorder($name, $isreloc);
	$sc{$name}->update($scx, $scd, $scr, $scb);
    }
    if ($pkg && $script_hook) {
	&$script_hook();
	scripts($name, @execute);
    }
    ($scx, $scd, $scr, $scb) = $sc{$name}->current;

if ($mnt) {
	sleep(0.02);
	fusermount("-u -z mnt/");
	pop @clean;
    }

return @return;
}

sub doprovide {
    my $path = shift;
    if ($path =~ m@/[^/]+$regsubscr@) {
	$path =~ s@^[[:blank:]](RELOC/)?@@;
	return $path;
    }
    if ($path =~ m@/[^/]+$regsuboth@) {
	$path =~ s@^[[:blank:]](RELOC/)?@@;
	return $path;
    }
    return "";
}

sub filelist {
    my $n;
    my $provide = shift;
    my $name = $provide;
    my $type = shift;
    my $pkg = shift;

print <<'EOF' if (($pkg & 7) == 7);
%files doc
%defattr(-,root,root,755)
EOF
    print <<'EOF' if (($pkg & 7) == 3);
%files
%defattr(-,root,root,755)
EOF
    print "$_\n" foreach (@docfiles);
    print "\n" if (($pkg & 7) == 7);

print <<'EOF' if (($pkg & 7) == 7 || ($pkg & 7) == 5);
%files
%defattr(-,root,root,755)
EOF
    print "$_\n" foreach (@runfiles);

for ($n = $sc{$name}->cin; $n < $sc{$name}->bin; $n++) {
	$_ = $binfiles[$n];
	# :NB:
	# Special setup: we use xaw3d for xdvi and also have some
	# added formats for musixtex around.  Beside this add
	# missed binaries for musixtex.
	#
	s/-xaw$/-xaw3d/;
	print "$_\n";
	if (m@/musixtex$@) {
	    my $base = $_;
	    $base =~ s@/musixtex$@/@;
	    print $base . "pdfmusixtex\n";
	    print $base . "pmx2pdf\n";
	    print $base . "pmxab\n";
	    print $base . "prepmx\n";
	    print $base . "scor2prt\n";
	    print $base . "m-tx\n";
	    print '%{_texmfdistdir}' . "/scripts/pmx/pmx2pdf.lua\n";
	    print '%{_texmfdistdir}' . "/scripts/m-tx/m-tx.lua\n";
	    print '%{_mandir}' . "/man1/pmx2pdf.1*\n";
	    print '%{_mandir}' . "/man1/pmxab.1*\n";
	    print '%{_mandir}' . "/man1/prepmx.1*\n";
	    print '%{_mandir}' . "/man1/m-tx.1*\n";
	    print '%{_mandir}' . "/man1/scor2prt.1*\n";
	}
	if (m@/ovp2ovf$@) {
	    my $base = $_;
	    $base =~ s@/ovp2ovf$@/@;
	    print $base . "wovp2ovf\n";
	}
	if (m@/dvitodvi$@) {
	    my $base = $_;
	    $base =~ s@/dvitodvi$@/@;
	    print $base . "a4toa5\n";
	    print $base . "mydvichk\n";
	    print $base . "odd2even\n";
	}
    }
}

sub texmftree {
    my $flags=0;
    my $skip=0;
    my $dir;
    my @dirs;
    my @tree=();
    my %hash;
    while (<$tlpfh>) {
	if (/^name/ .. /^[[:blank:]]*$/) {
	    my $max;
	    my $n;
	    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/[xvg]/.*@);
	    next if (m@/doc/info/.*@);
	    next if (m@/doc/man/.*@);

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

$max = $#dirs;
	    foreach my $d (@dirs) {
		$dir=join('/', $dir, $d);
		if ($max-- <= 0) {
		    next if (defined($hash{$dir}) && $hash{$dir});
		    $hash{$dir} = 1;
		} else {
		    next if (defined($hash{$dir}) && !$hash{$dir});
		    $hash{$dir} = 0;
		}
	    }
	}
    }
    return %hash;
}

sub scripts {
    my $name = shift;
    my @execute = @_;
    my $varrun = "/var/run/texlive";
    my $dohash = "/var/run/texlive/run-mktexlsr";
    my $dofmtu = "";
    my $doupdm = "";
    my $doconly = 1;
    for (my $n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++) {
        next if ($tarball[$n] !~ /.*\.doc\.tar\.xz/);
        next if ($n == $sc{$name}->cur);
	$doconly = 0;
    }
    $execute[0] = "empty" if ($#execute < 0);
    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";
    }
    if ($doconly && grep /%{_infodir}/, @docfiles) {
	print '%preun' . "\n";
	print 'if test $1 = 0; then' . "\n";
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '    %install_info_delete --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
	print "fi\n\n";
    } elsif (grep /%{_infodir}/, @runfiles) {
	print '%preun' . "\n";
	print 'if test $1 = 0; then' . "\n";
	foreach my $info (grep /%{_infodir}/, @runfiles) {
	    $info =~ s@\*$@@;
	    print '    %install_info_delete --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
	print "fi\n\n";
    }
    print '%post' . "\n";
    foreach (grep /postaction=script/, @execute) {
	s@.*/([^\.]*)(\.[^\.]*)?@packages/$1.post@;
	open POST, "<$_" or die "File $_ is missed as a replacement for postaction script";
	my @lines = <POST>;
	close POST;
	print @lines;
    }
    if ($doconly) {
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '%install_info --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
    }
    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} && $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 "if ! grep -qsE '^$hyphen{name}'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.dat; then' . "\n";
	    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";
		}
	    }
	    print "fi\n";
	    $hyphen{lefthyphenmin} = 2 if (!$hyphen{lefthyphenmin});
	    $hyphen{righthyphenmin} = 3 if (!$hyphen{righthyphenmin});
	    print "if ! grep -qsE '^\\addlanguage\{$hyphen{name}\}'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.def; then' . "\n";
	    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";
		}
	    }
	    print "fi\n";
	    next;
	}
	if ($e =~ m/execute=[aA]dd(Mixed|Kanji)?Map/) {
	    my @line = quotewords('[=[:blank:]]+', 1, $e);
	    shift @line;
	    $line[0] =~ s/[aA]dd//;
	    print "if grep -qsE '$line[0]" . '[[:blank:]]+' . "$line[1]'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg; then' . "\n";
	    print "    sed -ri '" . 's/^\#\![[= =]]+(' . $line[0] . '[[:blank:]]+' . $line[1] . ')/\1/' . "'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    print "else\n";
	    print "    echo '$line[0] $line[1]'" . ' >> %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    print "fi\n";
	}
	foreach my $info (grep /%{_infodir}/, @runfiles) {
	    $info =~ s@\*$@@;
	    print '%install_info --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
    }
    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;
	    $line[0] =~ s/[aA]dd//;
	    print "    sed -ri 's/^($line[0]" . '[[:blank:]]+' . "$line[1])/" . '\#\! \1/' . "'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	}
    }
    print "    %{_bindir}/mktexlsr 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 "    VERBOSE=false %{_texmfmaindir}/texconfig/update\n";
    print "    rm -rf $varrun\n";
    print "fi\n";
    if (!$doconly && grep /%{_infodir}/, @docfiles) {
	print "\n" . '%preun doc' . "\n";
	print 'if test $1 = 0; then' . "\n";
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '    %install_info_delete --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
	print "fi\n\n";
	print '%post doc' . "\n";
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '%install_info --info-dir=%{_infodir} ' . "$info\n";
	    $info = $info . '*';
	}
    }
    # Add post/postun for fonts package if any
    if (grep /post=fonts/, @execute) {
	print <<"EOF";

%post fonts
mkfontscale  %{_datadir}/fonts/texlive-$name
mkfontdir -e %{_datadir}/fonts/encodings -e %{_datadir}/fonts/encodings/large %{_datadir}/fonts/texlive-$name
fc-cache     %{_datadir}/fonts

%postun fonts
if test \$1 = 0; then
    fc-cache %{_datadir}/fonts
fi
EOF
    }
}

sub reorder {
    my $return = "";
    my $name = shift;
    my $isreloc = shift;
    print <<'EOF';
    # Remove this
    rm -vrf %{buildroot}%{_texmfdistdir}/tlpkg/tlpobj
    rm -vrf %{buildroot}%{_texmfmaindir}/tlpkg/tlpobj
EOF
    if (grep /%{_mandir}/, @docfiles) {
	print <<'EOF';
    # Handle manual pages
    rm -vf %{buildroot}%{_texmfmaindir}/doc/man/Makefile
    rm -vf %{buildroot}%{_texmfmaindir}/doc/man/man*/*.pdf
    for sec in %{buildroot}%{_texmfmaindir}/doc/man/man?
    do
	test -d "$sec" || continue
	sec=${sec##*/}
	mkdir -p %{buildroot}%{_mandir}/${sec}
	for page in %{buildroot}%{_texmfmaindir}/doc/man/${sec}/*.*
	do
	    test -e "$page" || continue
	    mv -f $page %{buildroot}%{_mandir}/${sec}/
	done
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/man
EOF
    }
    if (grep /%{_infodir}/, @docfiles) {
	print <<'EOF';
    # Handle info documents
    rm -vf  %{buildroot}%{_texmfmaindir}/doc/info/dir
    mkdir -p %{buildroot}%{_infodir}
    for inf in %{buildroot}%{_texmfmaindir}/doc/info/*.info
    do
	test -e "$inf" || continue
	mv -f $inf %{buildroot}%{_infodir}/
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/info
EOF
    }
    my $reg;
    $reg = '/(' . join('|', @configs) . ')$';
    $reg =~ s/\./\\\./g;
    my @dirs = ();
    my @conf = ();
    for (my $n = $sc{$name}->cun; $n < $sc{$name}->run; $n++) {
	my $file = $runfiles[$n];
	next if $file !~ m@$reg@;
	my $cnf = $1;
	my $dir = $file;
	$dir =~ s@$reg@@;
	$dir =~ s@^[^/]*/@%{_texmfconfdir}/@;
	push @dirs, $dir if ! grep m@^$dir@, @dirs;
	push @conf, "mv -f  %{buildroot}$file %{buildroot}$dir/";
	push @conf, "rm -f  %{buildroot}$file";
	push @conf, "ln -sf $dir/$cnf %{buildroot}$file";
	$runfiles[$n] = '%verify(link) ' . $runfiles[$n];
	if (grep /$cnf/, @noreplace) {
	    $runfiles[$scr++] = "%config(noreplace) %verify(not md5 mtime size) $dir/$cnf";
	} else {
	    $runfiles[$scr++] = "%config %verify(not md5 mtime size) $dir/$cnf";
	}
	next if $file !~ m@/XDvi$@;
	push @dirs, '%{_datadir}/X11/app-defaults';
	push @conf, "ln -sf $dir/$cnf %{buildroot}%{_datadir}/X11/app-defaults/";
	$runfiles[$scr++] = '%verify(link) %{_datadir}/X11/app-defaults/' . $cnf;
    }
    if ($#conf > -1) {
	print <<'EOF';
    # Move configuration files
EOF
    }
    print "    mkdir -p %{buildroot}$_\n" foreach (@dirs);
    print "    $_\n" foreach (@conf);
    #
    # Create directories from our extend file list if any
    #
    print '    mkdir -p %{buildroot}' . "$_\n" foreach (@mkdirs);
    print '    rm -vf  %{buildroot}' . "$_\n" foreach (@rmfiles);
    print '    rm -vrf %{buildroot}' . "$_\n" foreach (@rmdirs);
    #
    # Check for scripts
    #
    my $scripts = '(.*' . $subexe . '|(' . join('|', @non_executable_scripts) . '))$';
    my $shebang = '(.*\.(mki[iv]|tex|xml|sty|bst|ist|pm|pro|bib|txt|html|pdf|1|mp|jpg|ind)$|(readme|changes)[^/]*$)';
    my @executable = ();
    push @executable, @chmod if ($#chmod > -1);
    my @nonexecute = ();
    my @wrongps = ();
    my @locals = ();
    my @rubys = ();
    my @perls = ();
    my @luas = ();
    my $cur = $sc{$name}->cur;
    my $tpath = 'mnt/';
    for (my $t = $sc{$name}->cur; $t < $sc{$name}->tar; $t++) {
	$tpath = 'mnt' . $cwd . '/packages/' . $tarball[$t] . '#/' if -x $has_avfsd;
	my @pointer;
	my $start;
	my $stop;
	if ($tarball[$t] !~ /.*\.doc\.tar\.xz/) {
	    @pointer = @runfiles;
	    $start = $sc{$name}->cun;
	    $stop  = $sc{$name}->run;
	} else {
	    @pointer = @docfiles;
	    $start = $sc{$name}->coc;
	    $stop  = $sc{$name}->doc;
	}
	my $comm = 0;
	for (my $n = $start; $n < $stop; $n++) {
	    my $file = $pointer[$n];
	    my $test = $file;
	    my $base = $file;
	    if ($isreloc) {
		$test =~ s@^%{_texmfdistdir}/@@;
	    } else {
		$test =~ s@^%{_texmfdistdir}/@texmf-dist/@;
		$test =~ s@^%{_texmfmaindir}/@texmf/@;
	    }
	    $test = $tpath . $test;
	    next if ! -e $test;
	    my $stats = stat(qq/$test/);
	    $base =~ s@.*/@@g;

if (($stats->mode & 07755) == 0755) {
		my $magic = head('-n 1',qq/$test/);
		chomp($magic);
		if ($magic =~ m@^%![[:blank:]]*/@i) {
		    push @wrongps, $file;
		    next;
		}
		if ($magic =~ m@^#![[:blank:]]*/usr/local/bin@i) {
		    push @locals, $file;
		    next;
		}
		if ($magic !~ m@^#!.*ruby@ && $base =~ m@.*\.(rb|ruby)@) {
		    push @rubys,   $file;
		    next;
		}
		if ($magic !~ m@^#!.*perl@ && $base =~ m@.*\.(pl|perl)@) {
		    push @perls,   $file;
		    next;
		}
		if ($magic !~ m@^#!.*texlua@ && $base =~ m@.*\.(lua)@) {
		    push @luas,    $file;
		    next;
		}
		if ($magic =~ m@eval[[:blank:]]+["']exec[[:blank:]]+perl@) {
		    push @perls,   $file;
		    next;
		}
		if ($magic !~ m@^#!@ && $base =~ m@$shebang@i) {
		    push @nonexecute, $file;
		    next;
		}
		if ($magic !~ m@^#!@) {
		    print STDERR "unknown script for $name: $file\n" if ($opts{d});
		    push @nonexecute, $file;
		}
	    } elsif (($stats->mode & 07755) == 0644 && $base =~ m@$scripts@i) {
		my $magic = head('-n 1',qq/$test/);
		chomp($magic);
		push @executable, $file if ($magic =~ m@^#!@);
		if ($magic =~ m@^#![[:blank:]]*/usr/local/bin@i) {
		    push @locals, $file;
		}
	    }
	} # for (my $n = $start; $n < $stop; $n++)
    } # for (my $t = $sc{$name}->cur; $t < $sc{$name}->tar; $t++)
    if ($#wrongps > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@wrongps) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_SHEBANG@@';
    } else {
	lskip '@@WORNG_SHEBANG@@';
    }
    if ($#rubys > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@rubys) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_RUBY@@';
    } else {
	lskip '@@WORNG_RUBY@@';
    }
    if ($#perls > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@perls) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_PERL@@';
    } else {
	lskip '@@WORNG_PERL@@';
    }
    if ($#luas > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@luas) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_LUAS@@';
    } else {
	lskip '@@WORNG_LUAS@@';
    }
    if ($#executable > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@executable) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_EXEC@@';
    } else {
	lskip '@@WORNG_EXEC@@';
    }
    if ($#locals > -1) {
	lnseek '@@SCR@@';
	my $start = '';
	foreach my $file (@locals) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_LOCAL@@';
    } else {
	lskip '@@WORNG_LOCAL@@';
    }
    if ($#nonexecute > -1) {
	lnseek '@@TXT@@';
	my $start = '';
	foreach my $file (@nonexecute) {
	    print $start;
	    print $file;
	    $start = " \\\n\t       ";
	}
	print "\n";
	lseek '@@WORNG_PERMS@@';
    } else {
	lskip '@@WORNG_PERMS@@';
    }
    #
    # Move font files below /usr/share/fonts and link them back
    #
    my @fonts = ();
    my %paths = ();
    for (my $n = $sc{$name}->cun; $n < $sc{$name}->run; $n++) {
	my $file = $runfiles[$n];
	next if $file !~ m@/(opentype|truetype|type1)/.*\.(pf[ab]|[ot]tf)$@;
	$runfiles[$n] = '%verify(link) ' . $file;
	push @fonts, $file;
    }
    if ($#fonts > -1) {
	my $newdir = '%{_datadir}/fonts/texlive-' . $name;
	$runfiles[$scr++] = "\n%files fonts\n%defattr(-,root,root,755)";
	$runfiles[$scr++] = '%dir ' . $newdir;
	my @list;
	my %paths = ();
	foreach (@fonts) {
	    @list = split('/');
	    pop @list;
	    $paths{join('/', @list)} = 1;
	}
	lnseek '@@PATH@@';
	my $start = '';
	foreach my $path (sort keys %paths) {
	    print $start;
	    print '%{buildroot}/' . $path . '/*.{pf[ab],[ot]tf}';
	    $start = " \\\n\t\t";
	}
	print "\n";
	lseek '@@MOVE_FONTS@@';
	$runfiles[$scr++] = '%ghost %verify(not md5 size mtime) %{_datadir}/fonts/texlive-' . $name . '/encodings.dir';
	$runfiles[$scr++] = '%ghost %verify(not md5 size mtime) %{_datadir}/fonts/texlive-' . $name . '/fonts.dir';
	$runfiles[$scr++] = '%ghost %verify(not md5 size mtime) %{_datadir}/fonts/texlive-' . $name . '/fonts.scale';
	foreach (@fonts) {
	    s@^.*/@$newdir/@;
	    $runfiles[$scr++] = $_;
	}
	# post/postun for fonts package
	$return = 'post=fonts';
    } else {
	lskip '@@MOVE_FONTS@@';
    }
    return $return;
}

#
# A simple package to hold current start and stop number for arrays
# of the used files of one or more package(s).
#
package filenum;
sub new {
    my $self  = {};
    $self->{tar} = 0;
    $self->{doc} = 0;
    $self->{run} = 0;
    $self->{bin} = 0;
    $self->{cur} = 0;
    $self->{coc} = 0;
    $self->{cun} = 0;
    $self->{cin} = 0;
    bless ($self);
    $self->initialize(@_) if (@_);
    return $self;
}
sub tar : lvalue {
    my $self = shift;
    $self->{tar} = shift if (@_);
    $self->{tar};
}
sub doc : lvalue {
    my $self = shift;
    $self->{doc} = shift if (@_);
    $self->{doc};
}
sub run : lvalue {
    my $self = shift;
    $self->{run} = shift if (@_);
    $self->{run};
}
sub bin : lvalue {
    my $self = shift;
    $self->{bin} = shift if (@_);
    $self->{bin};
}
sub cur : lvalue {
    my $self = shift;
    $self->{cur};
}
sub coc : lvalue {
    my $self = shift;
    $self->{coc};
}
sub cun : lvalue {
    my $self = shift;
    $self->{cun};
}
sub cin : lvalue {
    my $self = shift;
    $self->{cin};
}
sub initialize {
    my $self = shift;
    $self->{cur} = $self->{tar} = shift if (@_);
    $self->{coc} = $self->{doc} = shift if (@_);
    $self->{cun} = $self->{run} = shift if (@_);
    $self->{cin} = $self->{bin} = shift if (@_);
}
sub update {
    my $self = shift;
    $self->{tar} = shift if (@_);
    $self->{doc} = shift if (@_);
    $self->{run} = shift if (@_);
    $self->{bin} = shift if (@_);
}
sub current : lvalue {
    my $self = shift;
    my @return=($self->{tar},$self->{doc},$self->{run},$self->{bin});
    @return;
}

package tar;
#
# It seems that our perl maintainers do not maintain the perl classes
# as I'm missing IO::Uncompress::UnLzma and IO::Uncompress::UnXz based
# on perl::IO::Compress::Base and perl::IO::UnCompress::Base 
#
## use IO::Uncompress::AnyUncompress qw(anyuncompress $AnyUncompressError);
## use IO::File;

no warnings;
our ($archive, $handle, @tar);
use warnings;
sub new {
    my $self = {};
    bless ($self);
    $self->read(@_) if (@_);
    return $self;
}
sub read {
    my $self = shift;
    $archive = shift;
    @tar = ();
    return if ! $archive;
    close($handle) if ($handle);
    $handle = 0 if ! open($handle, 'tar tvfJ ' . $archive . '|');
}
sub _octalmod {
    my %rwx = ('---' => 0,'--x' => 1,'-w-' => 2,'-wx' => 3,'r--' => 4,'r-x' => 5,'rw-' => 6,'rwx' => 7);
    my $mode = shift;
    my $type = substr($mode,0,1);
    my $user = substr($mode,1,3);
    my $group = substr($mode,4,3);
    my $other = substr($mode,7,3);
    my $special = 0;
    $special |= 01000 if ($other =~ s/(..)t/$1x/);
    $special |= 02000 if ($group =~ s/(..)s/$1x/);
    $special |= 04000 if ($user =~ s/(..)s/$1x/);
    return $special + oct($rwx{$user}*100 + $rwx{$group}*10 + $rwx{$other});
}
sub list_files {
    my $self = shift;
    my %hash = (mode => 0, ugid => 1, size => 2, date => 3, time => 4, name => 5, arrw => 6, link => 7);
    my @return = ();
    return @return if ! $archive;
    @tar = <$handle> if $#tar < 0;
    chomp (@tar);
    @return = map { my @o = split(/(?:[[:blank:]]+|\->)/); $o[0] = _octalmod($o[0]);
		    $o[5] =~ s@^texmf-dist/@%{_texmfdistdir}/@;
		    $o[5] =~ s@^texmf/@%{_texmfmaindir}/@;
		    $o[5] =~ s@^([^%])@%{_texmfmaindir}/$1@;
		    +{ map { $_ => $o[$hash{$_}] } keys %hash } } @tar;
    return @return;
}

Places

File generate of Package Meta (Revision d5bf94e624c213092ca00c0d703fd330)

Places