openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision 4fb2f905f87c4bc11c0a703cb982d4d5)

Currently displaying revision 4fb2f905f87c4bc11c0a703cb982d4d5 , Show latest

#!/usr/bin/perl

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

use Data::Dumper;
use strict;
use warnings;
use integer;
use attributes ();
use utf8;
use Cwd;

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

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

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

our %opts=();
my $err = getopts('dmbPp:', \%opts);
if ($err != 1) {
    die "Known options:\
    -d		for debug
    -m		for main file system
    -b		for binary packages
    -p letter	for all noarch package below one letter
    -P		for all noarch packages (a-z)\n";
}
my @source=split('-', <basesystem/texlive-*-source.tar.xz>);
my $srcdate = $source[1];
my $version = substr($srcdate,0,4);
my $release = $srcdate;
my $noarch_release;
my $previous = "2014";

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

my $kpseversion;
open(SED, '-|', "tar OxJf basesystem/texlive-${srcdate}-source.tar.xz texlive-${srcdate}-source/texk/kpathsea/configure|sed -rn '/^KPSEVERSION=/{p;q}'");
chomp($kpseversion = <SED>);
close SED;
$kpseversion =~ s/.*=//;

my $ptexencversion;
open(SED, '-|', "tar OxJf basesystem/texlive-${srcdate}-source.tar.xz texlive-${srcdate}-source/texk/ptexenc/configure|sed -rn '/^PTEXENCVERSION=/{p;q}'");
chomp($ptexencversion = <SED>);
close SED;
$ptexencversion =~ s/.*=//;

my $asymptoteversion;
open(SED, '-|', "tar OxJf basesystem/texlive-${srcdate}-source.tar.xz texlive-${srcdate}-source/utils/asymptote/configure|sed -rn '/^PACKAGE_VERSION=/{p;q}'");
chomp($asymptoteversion = <SED>);
close SED;
$asymptoteversion =~ s/.*=//;
$asymptoteversion =~ s/\'//g;

### 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
#   "xecyr.ARCH"			# Only Win
);
my $regexp = join '|', @skip;

#
# Packages with sources + doc but we skip sources
#
my @nosource = (
    "biber",
    "lualatex-doc",
    "koma-script",
);

# 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', 'addpsctrl');
my @shell_scripts = ('fontgen', 'docversion');
my @python_scripts = ('MacTT', 'OpenType', 'TrueType', 'WOFF');
### 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 (@_ && /@_/);
    }
}

my @dirstack = cwd;
sub pushd ($)
{
    unshift @dirstack, $_[0];
    chdir $_[0];
}
sub popd ()
{
    @dirstack > 1 and shift @dirstack;
    chdir $dirstack[0];
}

sub packages;
sub doprovide;
sub filelist;
sub texmftree;
sub scripts;
sub reorder;

my %names = ();
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 @srcfiles = ();
my $src = 0;

my %sc = ();

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

my $global_source_counter;
my $install_lines;
my %versions;
my %pkg_licenses;
my %used_files;

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

#
# Collect all packages within one hash
#
$pos = 0;
seek $tlpfh, $pos, 0;
while (<$tlpfh>) {
    $pos++;
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    next if /^name[[:blank:]]+.*\.win32/;
    if (/^name[[:blank:]]+.*\.i386-linux$/) {
	s/^name[[:blank:]]+//;
	s/\.i386-linux$/.ARCH/;
	s/-bin$/-X_Y_Z/;
	chomp;
	$names{$_} = $pos;
	next;
    }
    next if /^name[[:blank:]]+.*\..*-.*/;
    s/^name[[:blank:]]+//;
    s/-bin$/-X_Y_Z/;
    chomp;
    $names{$_} = $pos;
}

#
# Make a copy of STDIN and STDOUT
#
open OLDIN, '<&', \*STDIN;
open OLDOUT, '>&', \*STDOUT;

#
# Common use
#
my $cwd = `pwd`;
chomp($cwd);

#
# If specified jump further
#
goto MAIN if (exists $opts{b} && $opts{b});
goto MAIN if (exists $opts{m} && $opts{m});

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

foreach (sort keys %names) {
    next if /^scheme-/;
    next if /^collection-/;
    next if /\.ARCH$/;
    push @packages, $_;
}

#
# Open the spec file template for packages
#

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;
    } else {
	$has_avfsd = "";
    }
}

-d "targets" or mkdir("targets");

my @patches=();
my @flists=();
my @mvlist=();
my @rqlist=();
my @mkdirs=();
my @rmdirs=();
my @rmfiles=();
my %mvfiles=();
my @reqpack=();
my $patch_hook;
my $macros_hook = 0;
my $source_hook = 0;
my $reorder_hook= 0;
my $script_hook = 0;

my $pcount = @packages / 25; # leave the rest to z
for my $letter ('a'..'z') {

$global_source_counter = 1;
  $install_lines = '';
  my @next_packages = splice(@packages, 0, $pcount);
 
  if (exists $opts{p} && $opts{p}) {
    next unless $letter eq $opts{p};
  }

-d "targets/texlive-specs-$letter" or system("osc co -o targets/texlive-specs-$letter -u Publishing:TeXLive/texlive-specs-$letter");

#
  # Open the new main spec file
  #
  my $specfile = "targets/texlive-specs-$letter/texlive-specs-$letter.spec";
  open(my $specfh, '>', "$specfile.new");
  select $specfh;

print q(
#!BuildIgnore:          texlive

%global _varlib         %{_localstatedir}/lib
%global _libexecdir     %{_prefix}/lib

%define _texmfdistdir   %{_datadir}/texmf
%define _texmfmaindir   %{_libexecdir}/texmf
%define _texmfdirs      \{%{_texmfdistdir},%{_texmfmaindir}\}

%define _texmfconfdir   %{_sysconfdir}/texmf
%define _texmfvardir    %{_varlib}/texmf
%define _texmfcache     %{_localstatedir}/cache/texmf
%define _fontcache      %{_texmfcache}/fonts
#
%define _x11bin         %{_prefix}/bin
%define _x11lib         %{_libdir}
%define _x11data        %{_datadir}/X11
%define _x11inc         %{_includedir}
%define _appdefdir      %{_x11data}/app-defaults

);

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

print "Name:           texlive-specs-$letter\n";
  print "Version:        $version\n";
  print "Release:        0\n";
  print 'BuildRequires:  ed' . "\n";
  print 'BuildRequires:  texlive-filesystem' . "\n";
  print 'BuildRequires:  xz' . "\n";
  print "BuildArch:      noarch\n";
  print "Summary:        Meta package for $letter\n";
  # some marker license
  print "License:        SUSE-Ubuntu-Font-License-1.0\n"; 
  print "Group:          Productivity/Publishing/TeX/Base\n";
  print "Url:            https://build.opensuse.org/package/show/Publishing:TeXLive/Meta\n";
  print "Source0:        texlive-specs-$letter-rpmlintrc\n";

print <<'EOF';
%description
Meta package to build tons of noarch texlive packages.

EOF

# prune
  my @alldocs = ();
  %pkg_licenses = ();
  %used_files = ();

foreach my $package (@next_packages) {
    $target = $package;
    $pos = $names{$target};
    $type=6;
    $flags=1;
    $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/$target\_*.\{dif,diff,patch\}>;
    @flists=<packages/$target\_*.list>;
    @mvlist=<packages/$target.moves>;
    @rqlist=<packages/$target.requires>;

if ($#patches > -1) {
	$patch_hook = sub {
	    foreach my $patch (@patches) {
		next if ! -e $patch;
		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++] = $_;
			    $flags |= 4;
			    push @chmod, $_ if m@.*/[^/]*$subexe@;
			}
		    }
		}
		$_ = "";
		close PATCH;
		$patch =~ s@packages/@@;
		$used_files{$patch} = $global_source_counter;
		print "Source" . $global_source_counter++ . ": $patch\n";
	      }
	  };
    } else {
	$patch_hook = 0;
    }

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

#
    # Move files if any
    #
    foreach (@mvlist) {
	next if ! -e $_;
	m@packages/$target.moves@ && do {
	    my $from;
	    my $to;
	    open LIST, "<$_";
	    while (<LIST>) {
		chomp;
		next if $_ eq "";
		($from, $to) = split(/\s+/, $_);
		$mvfiles{$from} = $to;
	    }
	    close LIST;
	    next;
	}
    }

#
    # Further required packages
    #
    foreach (@rqlist) {
	next if ! -e $_;
	m@packages/$target.requires@ && do {
	    open LIST, "<$_";
	    while (<LIST>) {
		chomp;
		next if m@^$@;
		next if m@^#@;
		push @reqpack, $_;
	    }
	    close LIST;
	    next;
	}
    }

if ($target eq 'lcdftypetools') {
	print '%global		with_lcdf_typetools 1' . "\n";
	print '%bcond_with	lcdf_typetools' . "\n";
    }

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

filelist ($target, $type, $flags);
    print "/var/adm/update-scripts/$name-" . $versions{$target} . "-%{release}-zypper\n";

print "\n";

push(@alldocs, @docfiles);

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

} # next package

print <<'EOF';
%prep
%setup -q -c -T

%build

%install
    rm -rf %{buildroot}
    mkdir -p %{buildroot}%{_texmfdistdir}
    mkdir -p %{buildroot}%{_texmfmaindir}
    mkdir -p %{buildroot}%{_datadir}/texlive
    mkdir -p %{buildroot}/var/adm/update-scripts
    ln -sf ../../share/texmf        %{buildroot}%{_datadir}/texlive/texmf-dist
    ln -sf ../../lib/texmf          %{buildroot}%{_datadir}/texlive/texmf
    # Move relocated paths back to where those belongs to,
    # required as the as texlive.tlpdb isn't correct anymore
    relocate () {
	pushd %{buildroot}%{_datadir}/texlive/
	rm -vrf tlpkg/tlpobj
	for path in * ; do
	    test ! -h "$path" || continue
	    test -d "$path"   || exit 1
	    tar cpf - "$path" | tar xpf - -C %{buildroot}%{_texmfdistdir}/
	done
	popd
    }
EOF
    print $install_lines;

print <<'EOF';
    # Remove this
    rm -vrf %{buildroot}%{_texmfdistdir}/tlpkg/tlpobj
    rm -vrf %{buildroot}%{_texmfmaindir}/tlpkg/tlpobj
    rm -v  %{buildroot}%{_datadir}/texlive/texmf
    rm -v  %{buildroot}%{_datadir}/texlive/texmf-dist
    rm -vr %{buildroot}%{_datadir}/texlive
EOF

if (grep /%{_mandir}/, @alldocs) {
        print <<'EOF';
    # Handle manual pages
    rm -vf %{buildroot}%{_texmfmaindir}/doc/man/Makefile
    rm -vf %{buildroot}%{_texmfmaindir}/doc/man/man*/*.pdf
    rm -vf %{buildroot}%{_texmfdistdir}/doc/man/Makefile
    rm -vf %{buildroot}%{_texmfdistdir}/doc/man/man*/*.pdf
    for path in %{buildroot}%{_texmfmaindir}/doc/man/man? \
               %{buildroot}%{_texmfdistdir}/doc/man/man?
    do
        test -d "$path" || continue
        sec=${path##*/}
        mkdir -p %{buildroot}%{_mandir}/${sec}
        for page in ${path}/*.*
        do
            test -e "$page" || continue
            mv -f $page %{buildroot}%{_mandir}/${sec}/
        done
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/man
    rm -rf %{buildroot}%{_texmfdistdir}/doc/man
EOF
    }

if (grep /%{_infodir}/, @alldocs) {
        print <<'EOF';
    # Handle info documents
    rm -vf  %{buildroot}%{_texmfmaindir}/doc/info/dir
    rm -vf  %{buildroot}%{_texmfdistdir}/doc/info/dir
    mkdir -p %{buildroot}%{_infodir}
    for inf in %{buildroot}%{_texmfmaindir}/doc/info/*.info \
               %{buildroot}%{_texmfdistdir}/doc/info/*.info
    do
        test -e "$inf" || continue
        mv -f $inf %{buildroot}%{_infodir}/
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/info
    rm -rf %{buildroot}%{_texmfdistdir}/doc/info
EOF
    }

print <<'EOF';
    find %{buildroot}%{_texmfmaindir}/ %{buildroot}%{_texmfdistdir}/ \
        -type f -a -perm /g+w,o+w | xargs --no-run-if-empty chmod g-w,o-w
EOF

# Close main spec
  #
  select STDOUT;
  close $specfh;

# now the final touch
  open($specfh, ">", $specfile);
  open(PREPARED, "/usr/lib/obs/service/format_spec_file.files/prepare_spec $specfile.new|");
  while ( <PREPARED> ) {
    if (m/^License:.*SUSE-Ubuntu-Font-License-1.0/) {
      print $specfh "License:        " . join(' and ', sort(keys %pkg_licenses)) . "\n";
    } else {
      print $specfh $_;
    }
  }
  close(PREPARED);
  close($specfh);

unlink("$specfile.new");
  chmod(0644, $specfile);
  system("cp packages/texlive-specs.changes targets/texlive-specs-$letter/texlive-specs-$letter.changes");
  system("cp packages/texlive-specs-rpmlintrc targets/texlive-specs-$letter/texlive-specs-$letter-rpmlintrc");

open(LINK, ">targets/texlive-specs-$letter/_link");
  print LINK '<link cicount="copy" package="texlive-specs">' . "\n";
  print LINK '  <patches>' . "\n";
  opendir(DIR, 'packages');
  my @allfiles = grep { -f "packages/$_" } readdir(DIR);
  closedir(DIR);
  for my $file (sort @allfiles) {
    next if $used_files{$file};
    next if "$file" eq "texlive-specs-$letter.spec";
    print LINK "    <delete name='$file' />\n";
  }
  print LINK "    <delete name='texlive-specs-rpmlintrc' />\n";
  print LINK "  </patches>\n";
  print LINK "</link>\n";
}
open STDIN, '<&', \*OLDIN;
if ( -x $has_avfsd) {
    sleep(0.02);
    `fusermount -u -z mnt`;
    pop @clean;
}
exit (0) if (exists $opts{p} || exists $opts{P});

MAIN:

$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 (exists $opts{b} && $opts{b});

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

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

lseek '@@VERSION@@';

print "%define texlive_version  " . $version . "\n";
print "%define texlive_previous " . $previous . "\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 = ();

foreach (sort keys %names) {
    push @basesystem, $_ if /^scheme-/;
}
foreach (sort keys %names) {
    push @basesystem, $_ if /^collection-/;
}

#
# Write out a spec file core
#
$count = 1000;
print "# Download at " . $srcurl . "/\n";
print "# from $srcdate\n";
foreach my $package (@basesystem) {
    $target = $package;
    $pos = $names{$target};
    print "Source" . $count++ . ":     " . $target . ".tar.xz\n";
}

lseek '@@PACKAGES@@';

foreach my $package (@basesystem) {
    $target = $package;
    $pos = $names{$target};
    $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) {
    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 = $package;
    $pos = $names{target};
    $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, '<&', \*OLDIN;
select STDOUT;
$target = "filesystem/texlive-filesystem.spec";
-e "filesystem/texlive-filesystem.spec" and rename($target, $target . ".bak");
`sed -ri -e "s/\@\@KPSEVERSION\@\@/$kpseversion/" -e "s/\@\@PTEXENCVERSION\@\@/$ptexencversion/" $spec`;
if (-x "/usr/lib/obs/service/format_spec_file.files/prepare_spec") {
    open(STDOUT, '>', $target) || die "Can't open $target: $!";
    system("/usr/lib/obs/service/format_spec_file.files/prepare_spec", $spec);
    open STDOUT, '>&', \*OLDOUT;
    unlink($spec);
} else {
    rename($spec, $target);
}
chmod(0644, $target);
pop @clean;

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

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

#
# 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@@';

print "%define texlive_version  " . $version . "\n";
print "%define texlive_previous " . $previous . "\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.
#
@basesystem = ();
foreach (sort keys %names) {
    push @basesystem, $_ if /\.ARCH$/;
}

lseek '@@PACKAGES@@';

foreach my $package (@basesystem) {
    $target = $package;
    $pos = $names{$target};
    $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 '@@FILES@@';

#
# Now Just generate file lists
#
foreach my $package (@basesystem) {
    $target = $package;
    $pos = $names{$target};
    $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, '<&', \*OLDIN;
select STDOUT;
$target = "basesystem/texlive.spec";
-e "basesystem/texlive.spec" and rename($target, $target . ".bak");
`sed -ri -e "s/\@\@KPSEVERSION\@\@/$kpseversion/" '-e' "s/\@\@PTEXENCVERSION\@\@/$ptexencversion/"  $spec`;
if (-x "/usr/lib/obs/service/format_spec_file.files/prepare_spec") {
    open(STDOUT, '>', $target) || die "Can't open $target: $!";
    system("/usr/lib/obs/service/format_spec_file.files/prepare_spec", $spec);
    open STDOUT, '>&', \*OLDOUT;
    unlink($spec);
} else {
    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 $loads = $pkg;

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

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_previous}';
    } elsif ($name =~ m/^collection-basic$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-xetex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-xetex <= %{texlive_previous}';
    } elsif ($target =~ m/^xetex$/) {
	$dependx[$cnt++] = 'Recommends: texlive-collection-fontsrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-genericrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-xetex';
    } elsif ($target =~ m/^xetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xetex <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-latex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-latex <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-latex-doc <= %{texlive_previous}';
    } elsif ($target =~ m/^latex-bin$/) {
	$dependx[$cnt++] = 'Recommends: texlive-collection-fontsrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-genericrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-latexrecommended';
    } elsif ($target =~ m/^context$/) {
	$dependx[$cnt++] = 'Recommends: texlive-collection-fontsrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-genericrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-context';
    } elsif ($target =~ m/^tex$/) {
	$dependx[$cnt++] = 'Recommends: texlive-collection-fontsrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-genericrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-basic';
    } elsif ($target =~ m/^pdftex$/) {
	$dependx[$cnt++] = 'Recommends: texlive-collection-fontsrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-genericrecommended';
	$dependx[$cnt++] = 'Recommends: texlive-collection-basic';
    } elsif ($target =~ m/^latex-bin-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-latex <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-binextra$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-dvilj <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: tetex-bin <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-xetex$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-xetex <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-langarabic$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-arab <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-langcjk$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-cjk <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-cjk-latex-extras <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-music$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-musictex <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-htmlxml$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-jadetex <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-tex4ht <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-xmltex <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-fontsextra$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-fonts-extra <= %{texlive_previous}';
	$dependx[$cnt++] = 'Obsoletes: texlive-fonts-extra-doc <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-context$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-context <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-omega$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-omega <= %{texlive_previous}';
    } elsif ($name =~ m/^collection-metapost$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-metapost <= %{texlive_previous}';
    } elsif ($target =~ m/^cjkutils-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-cjk <= %{texlive_previous}';
    } elsif ($target =~ m/^omegaware-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-omega <= %{texlive_previous}';
	if ($version >= 2013) {
	    $dependx[$cnt++] = 'Requires: texlive-uptex-bin';
	}
    } elsif ($target =~ m/^tex4ht-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-tex4ht <= %{texlive_previous}';
		$dependx[$cnt++] = 'Conflicts: ht';
    } elsif ($target =~ m/^xetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xetex <= %{texlive_previous}';
    } elsif ($target =~ m/^xmltex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-xmltex <= %{texlive_previous}';
    } elsif ($target =~ m/^musixtex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-musictex <= %{texlive_previous}';
	if ($version >= 2013) {
	    $dependx[$cnt++] = 'Requires: texlive-m-tx-bin';
	    $dependx[$cnt++] = 'Requires: texlive-pmx-bin';
	}
    } elsif ($target =~ m/^metapost-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-metapost <= %{texlive_previous}';
    } elsif ($target =~ m/^jadetex-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-jadetex <= %{texlive_previous}';
    } elsif ($target =~ m/^dviljk-bin$/) {
	$dependx[$cnt++] = 'Obsoletes: texlive-bin-dvilj <= %{texlive_previous}';
	$dependx[$cnt++] = 'Provides: texlive-bin-dvilj   = %{texlive_version}';
    }  elsif ($target =~ m/^dvipdfmx-bin$/) {
	if ($version >= 2013) {
	    $dependx[$cnt++] = 'Obsoletes: texlive-dvipdfm-bin <= 2012';
	    $dependx[$cnt++] = 'Provides: texlive-dvipdfm-bin = %{texlive_version}';
	}
    } elsif ($target =~ m/^lcdftypetools-bin$/) {
	$dependx[$cnt++] = '%if %{with lcdf_typetools}';
	$dependx[$cnt++] = 'Conflicts: lcdf-typetools';
	$dependx[$cnt++] = '%else';
	$dependx[$cnt++] = 'Requires: lcdf-typetools';
	$dependx[$cnt++] = '%endif';
	$binfiles[$sc{$name}->bin++] = '%if %{with lcdf_typetools}';
    } elsif ($target =~ m/^lcdftypetools$/) {
	$dependx[$cnt++] = '%if %{with lcdf_typetools}';
	$dependx[$cnt++] = 'Conflicts: lcdf-typetools';
	$dependx[$cnt++] = '%else';
	$dependx[$cnt++] = 'Requires: lcdf-typetools';
	$dependx[$cnt++] = '%endif';
	$docfiles[$sc{$name}->doc++] = '%if %{with lcdf_typetools}';
	push @rmfiles, '%if ! %{with lcdf_typetools}';
    } elsif ($target =~ m/^ascii-font$/) {
	if ($version >= 2013) {
	    $dependx[$cnt++] = 'Obsoletes: texlive-ascii <= 2012';
	    $dependx[$cnt++] = 'Provides: texlive-ascii = %{texlive_version}';
	}
    }

if ($name =~ m/^collection-fontutils$/) {
	$dependx[$cnt++] = 'Requires: psutils';
    } elsif ($name =~ m/^pstools$/) {
	$dependx[$cnt++] = 'Requires: psutils';
    } elsif ($name =~ m/^latex$/) {
	# Solves old dependencies of former TeXLive packages on openSUSE <= 12.1
	$dependx[$cnt++] = 'Requires(pre): texlive-latex-bin';
    } elsif ($name =~ m/^tools$/) {
	# Solves old dependencies of former TeXLive on openSUSE <= 12.1
	$dependx[$cnt++] = 'Requires: texlive-extratools';
    } elsif ($target =~ m/^biber-bin$/) {
	$dependx[$cnt++] = '%if %{with buildbiber}';
	$dependx[$cnt++] = 'Requires: perl = %{perl_version}';
	$dependx[$cnt++] = 'Recommends: ca-certificates';
	$dependx[$cnt++] = 'Recommends: ca-certificates-mozilla';
	$dependx[$cnt++] = '%if 0%{suse_version} > 1230';
	$dependx[$cnt++] = 'Requires: perl(Biber) >= %{texlive_version}.%{texlive_release}';
	$dependx[$cnt++] = '%endif';
	$dependx[$cnt++] = 'Requires: perl(LWP::UserAgent)';
	$dependx[$cnt++] = 'Requires: perl(Text::BibTeX)';
	$dependx[$cnt++] = '%endif';
	$dependx[$cnt++] = 'BuildArch: noarch';
    } elsif ($target =~ m/^diadia-bin$/) {
	$dependx[$cnt++] = 'BuildArch: noarch';
    } elsif ($target =~ m/^kpathsea-bin$/) {
	$dependx[$cnt++] = 'Requires(pre):    %{name}-filesystem';
	$dependx[$cnt++] = 'Requires(pre):    /usr/bin/getent';
	$dependx[$cnt++] = 'Requires(pre):    /usr/sbin/groupadd';
	$dependx[$cnt++] = 'Requires(post):   %{name}-filesystem';
	$dependx[$cnt++] = 'Requires(post):   permissions';
	$dependx[$cnt++] = 'Requires(verify): %{name}-filesystem';
	$dependx[$cnt++] = 'Requires(verify): permissions';
    }

LINE: 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/^depend[[:blank:]]+//;
		s/-bin$/-X_Y_Z/;
		next if (!exists $names{$_});
		s/\.ARCH$/-bin/;
		$dependx[$cnt++] = $_;
		next;
	    }
	    if ($pkg && /^docfiles[[:blank:]]+/) {
		$return[1] |= 2;					# Has docfiles
		$loads |= 2;
	    }
	    if (/^runfiles[[:blank:]]+/) {
		$return[1] |= 4;					# Has runfiles
		$loads |= 4;
	    }
	    if (/^binfiles[[:blank:]]+/) {
		$return[1] |= 8;					# Has binfiles
		$loads |= 8;
	    }
	    if (/^srcfiles[[:blank:]]+/) {
		$return[1] |= 32;					# Has srcfiles
		$loads |= 16;
	    }
	    $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 and 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(-dist)?/texconfig/[gvx]/@) {		# Ignore terminfo
		    if (! grep /terminfo/, @dependx) {
			$dependx[$cnt++] = 'Requires: terminfo-base';
		    }
		    s@^[[:blank:]]texmf/@%{_texmfmaindir}/@;
		    s@^[[:blank:]]texmf-dist/@%{_texmfdistdir}/@;
		    if (m@^(%{_texmfmaindir}/texconfig/[gvx])/@) {
			push @rmdirs, $1 if ! grep /$1/, @rmdirs;
		    } elsif (m@^(%{_texmfdistdir}/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 seen in koma-script
                    push @srcfiles, $_; # delete later
		    next if ($flags != 32);
		    # fall through for pure source packages
		}
		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) {
		foreach my $k (keys %mvfiles) {
		    next if $_ ne $k;
		    $runfiles[$sc{$name}->run++] = $mvfiles{$k};
		    $return[1] |= 4;					# Has runfiles
		    next LINE;
		}
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);				# Ignore manual pages as pdf
		    s@(%{_texmfmaindir}|%{_texmfdistdir})/doc/man@%{_mandir}@;
		    $_ = $_ . '*';
		}
		if (m@/doc/info/@) {
		    next if (m@/doc/info/dir@);				# Ignore dir db file
		    s@(%{_texmfmaindir}|%{_texmfdistdir})/doc/info@%{_infodir}@;
		    $_ = $_ . '*';
		}
		$docfiles[$sc{$name}->doc++] = $_;
		push @rmfiles, $_ if ($target =~ m/^lcdftypetools$/);
	    }
	    if ($flags == 4) {						# May has font files
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);				# Ignore manual pages as pdf
		    s@(%{_texmfmaindir}|%{_texmfdistdir})/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}|%{_texmfdistdir})/doc/info@%{_infodir}@;
		    $_ = $_ . '*';
		    $docfiles[$sc{$name}->doc++] = $_;			# Oops
		    $return[1] |= 2;					# Has docfiles
		    next;
		}
		if (m@dir}/doc/@) {
		    $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++] = $_;
	    }
	    if ($flags == 32) {
		$srcfiles[$sc{$name}->src++] = $_;
	    }
	    $flags = 32 if /^srcfiles/;
	    $flags = 8  if /^binfiles/;
	    $flags = 4  if /^runfiles/;
	    $flags = 2  if /^docfiles/;
	}
    }
    if ($target eq 'lcdftypetools-bin') {
	$binfiles[$sc{$name}->bin++] = '%endif';
    } elsif ($target eq 'lcdftypetools') {
	$docfiles[$sc{$name}->doc++] = '%endif';
	push @rmfiles, '%endif';
    }
    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++] = '%attr(0755,root,%{texgrp}) %{_libexecdir}/mktex/public';
	    $binfiles[$sc{$name}->bin++] = '%{_libexecdir}/mktex/*tex*';
	} elsif ($target eq 'biber-bin') {
	    $binfiles[$sc{$name}->bin++] = '%if %{with buildbiber}';
	    $binfiles[$sc{$name}->bin++] = '%{_mandir}/man1/biber.1*';
	    $binfiles[$sc{$name}->bin++] = '%endif';
	} elsif ($target eq 'luatex-bin') {
	    $binfiles[$sc{$name}->bin++] = '%exclude %dir %{_includedir}/texlua*/';
	    $binfiles[$sc{$name}->bin++] = '%exclude %{_includedir}/texlua*/*.h*';
	    $binfiles[$sc{$name}->bin++] = '%exclude %{_libdir}/libtexlua*.so';
	    $binfiles[$sc{$name}->bin++] = '%if %{with LuaJIT}';
	    $binfiles[$sc{$name}->bin++] = '%{_libdir}/libtexluajit.so.*';
	    $binfiles[$sc{$name}->bin++] = '%endif';
	    $binfiles[$sc{$name}->bin++] = '%{_libdir}/libtexlua[0-9]*so.*';
	} elsif ($target eq 'synctex-bin') {
	    $binfiles[$sc{$name}->bin++] = '%exclude %dir %{_includedir}/synctex/';
	    $binfiles[$sc{$name}->bin++] = '%exclude %{_includedir}/synctex/synctex_parser.h';
	    $binfiles[$sc{$name}->bin++] = '%exclude %{_includedir}/synctex/synctex_parser_utils.h';
	    $binfiles[$sc{$name}->bin++] = '%exclude %{_libdir}/libsynctex.so';
	    $binfiles[$sc{$name}->bin++] = '%{_libdir}/libsynctex.so.1';
	    $binfiles[$sc{$name}->bin++] = '%{_libdir}/libsynctex.so.1.17.0';
	}
    }
    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;
	if ($name =~ m/^kpathsea$/) {
	    $dependx[$cnt++] = 'Requires(pre): texlive-filesystem >= %{texlive_version}';
	} elsif ($name =~ m/^tetex$/) {
	    $dependx[$cnt++] = 'Requires(pre): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-kpathsea >= %{texlive_version}';
	} elsif ($name =~ m/^texconfig$/) {
	    $dependx[$cnt++] = 'Requires(pre): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-kpathsea >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-texconfig-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(pre): texlive-texconfig >= %{texlive_version}';
	} else {
	    $dependx[$cnt++] = 'Requires(pre): texlive >= %{texlive_version}';
	}
	#
	# mkdir in %post and %postun
	#
	if ($name =~ m/^kpathsea$/) {
	    $dependx[$cnt++] = 'Requires(post): diffutils';
	}
	$dependx[$cnt++] = 'Requires(post): coreutils';
	$dependx[$cnt++] = 'Requires(postun): coreutils';
	#
	# mktexlsr and texmf.cnf
	#
	if ($name =~ m/^kpathsea$/) {
	    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
	} elsif ($name =~ m/^tetex$/) {
	    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
	} elsif ($name =~ m/^texconfig$/) {
	    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig >= %{texlive_version}';
	} else {
	    $dependx[$cnt++] = 'Requires(postun): texlive >= %{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): grep';
		$dependx[$cnt++] = 'Requires(post): sed';
		$dependx[$cnt++] = 'Requires(postun): sed';
		if ($name =~ m/^kpathsea$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		} elsif ($name =~ m/^tetex$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
		} elsif ($name =~ m/^texconfig$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig >= %{texlive_version}';
		} else {
		    $dependx[$cnt++] = 'Requires(postun): texlive >= %{texlive_version}';
		}
	    }
	    #
	    # updmap.cfg
	    #
	    if ($add > 2) {
		$dependx[$cnt++] = 'Requires(post): grep';
		$dependx[$cnt++] = 'Requires(post): sed';
		$dependx[$cnt++] = 'Requires(post): texlive >= %{texlive_version}';
		$dependx[$cnt++] = 'Requires(postun): sed';
		if ($name =~ m/^kpathsea$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		} elsif ($name =~ m/^tetex$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
		} elsif ($name =~ m/^texconfig$/) {
		    $dependx[$cnt++] = 'Requires(postun): texlive-filesystem >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-kpathsea >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig-bin >= %{texlive_version}';
		    $dependx[$cnt++] = 'Requires(postun): texlive-texconfig >= %{texlive_version}';
		} else {
		    $dependx[$cnt++] = 'Requires(postun): texlive >= %{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
	#
	if ($name =~ m/^kpathsea$/) {
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-filesystem >= %{texlive_version}';
	} elsif ($name =~ m/^tetex$/) {
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea >= %{texlive_version}';
	} elsif ($name =~ m/^texconfig$/) {
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-filesystem >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-kpathsea >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-texconfig-bin >= %{texlive_version}';
	    $dependx[$cnt++] = 'Requires(posttrans): texlive-texconfig >= %{texlive_version}';
	} else {
	    $dependx[$cnt++] = 'Requires(posttrans): texlive >= %{texlive_version}';
	}
	if ($return[1] & 16) {
	    $dependx[$cnt++] = 'Requires: texlive-' . $name . '-fonts';
	}
    }

#
    # Check for not required removes
    #
    if (($return[1] & (1|4|32)) == (1|32)) {
	my @tmp = ();
	# pure source packages, do not remove the source directory
	foreach (@rmdirs) {
	    next if (m@^(%{_texmf(main|dist)dir}/source)@);
	    push @tmp, $_;
	}
	@rmdirs = @tmp;
    } elsif (($return[1] & (1|4|32)) == (1|4|32)) {
	my @tmp = ();
	# we do not install sources, but do not delete piece by piece
	foreach (@rmfiles) {
	    next if (m@^(%{_texmf(main|dist)dir}/source)@);
	    push @tmp, $_;
	}
	@rmfiles = @tmp;
	@srcfiles = ();
	$return[1] &= ~32;
    }
    #
    # which packages are required?
    #
    $name =~ s/-X_Y_Z$/-bin/;
    if (grep /^$name$/, @nosource) {
	$loads |= 4;
	$loads &= ~16;
	$return[1] &= ~32;
    }
    if ($pkg) {
	#
	# Check for a documentation package and if so recommend it
	#
	if (($return[1] & 39) == 7 || ($return[1] & 39) == 35) {
	    $dependx[$cnt++] = 'Recommends: texlive-' . $name . '-doc';
	}
    }
    if (($loads & (1|4|16)) == (1|4|16)) {
	# runfiles aka nosource
	$loads &= ~16 if @runfiles > 0;
    }
    if (($loads & (1|2|4)) == (1|2|4)) {
	# runfiles aka nosource
	$loads &= ~4 if @runfiles < 1;
    }
    if (($loads & (1|4)) == (1|4)) {
	$tarball[$sc{$name}->tar++] = $name . '.tar.xz';
    }
    if (($loads & (1|16)) == (1|16)) {
	$tarball[$sc{$name}->tar++] = $name . '.source.tar.xz';
    }
    if (($loads & (1|2)) == (1|2)) {
	$tarball[$sc{$name}->tar++] = $name . '.doc.tar.xz';
    }
    if ($loads == 0 || $loads == 1) {
	$tarball[$sc{$name}->tar++] = $name . '.tar.xz';
    }
    #
    # load or link them into the appropriate package sub directory
    #
    for ($n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++) {
	my $this = 'texlive-' . $srcdate . '-texmf/archive/' . $tarball[$n];
	my $pack = 'basesystem/';
	my $replace;
	next if ($name =~ m/i386-linux/);
	$pack = 'packages/' if ($pkg);
	$pack = 'filesystem/' if ($full);
	$replace = $pack . $tarball[$n];
	if (-e $this) {
	    unlink $replace if (-e $replace && ! -l $replace);
	    -l $replace or symlink('../' . $this, $replace);
	    next;
	}
	next if (-e $replace);
	    `wget --progress=bar:force -N -P $pack "$srcurl/$tarball[$n]"`;
    }
    if (!$pkg) {
	if ($full) {
	    print '%package -n ' . $full . $target . "\n";
	} else {
	    print '%package ' . $target . "\n";
	    if ($target =~ m/.*-bin$/) {
		my $noarch = $target;
		$noarch =~ s/-bin$//;
		$dependx[$cnt++] = 'Recommends: texlive-' . $noarch;
	    }
	}
	if (m@/mtxrun$@) {
	    my $base = $_;
	}
    } else {
	my $cur = $sc{$name}->cur;
	print '%package -n texlive-' . $target . "\n";
        # avoid bootstrap problems
        my @bootstraps = qw(texconfig tetex kpathsea);
	if (grep { $_ eq $target } @bootstraps) {
           for my $bs (@bootstraps) {
     	       print "#!BuildIgnore:   texlive-$bs\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++;
		open TLPOBJ, <mnt/tlpkg/tlpobj/*.tlpobj> or die "tlpobj data base required";
		while (<TLPOBJ>) {
		    chomp;
		    if (m@^[[:blank:]]+RELOC/@) {
			$isreloc = 1;
			last;
		    }
		}
		close TLPOBJ;
	    }
	}
	if (-e "packages/$tarball[$cur]" && -x $has_avfsd) {
		my $tlpobj = 'mnt' . $cwd . '/packages/' . $tarball[$cur] . '#/' . 'tlpkg/tlpobj/';
		open TLPOBJ, <${tlpobj}*.tlpobj> or die "tlpobj data base required";
		while (<TLPOBJ>) {
		    chomp;
		    if (m@^[[:blank:]]+RELOC/@) {
			$isreloc = 1;
			last;
		    }
		}
		close TLPOBJ;
	}
    }
    my $pkg_version = '%{texlive_version}';
    if ($revision) {
	$revision = 'svn' . $revision;
	$catversion .= $revision;
    }
    if ($noarch) {
	if ($catversion) {
	    $pkg_version .= '.%{texlive_noarch}.' . $catversion;
	} else {
	    $pkg_version .= '.%{texlive_noarch}';
	}
    } else {
	if ($catversion) {
	    $pkg_version .= '.%{texlive_release}.' . $catversion;
	} else {
	    $pkg_version .= '.%{texlive_release}';
	}
    }
    print "Version: $pkg_version\n";
    print "Release: 0\n";
    $license ||= 'LPPL-1.0';
    $pkg_licenses{$license} = 1;
    print 'License: ' . $license . "\n";

$summary ||= 'Package ' . $name;
    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|Recommends)/) {
	    print $depend;
	    print  ' >= %{texlive_version}' if ($depend =~ /texlive/ && $depend !~ /[<>=]/);
	    print "\n";
	    next;
	}
	if ($depend =~ /^(Obsoletes|Provides|Conflicts|BuildArch)/) {
	    print $depend;
	    print "\n";
	    next;
	}
	if ($noarch && $depend =~ /.*-bin$/) {
	    print 'Requires(pre): texlive-' . $depend .  ' >= %{texlive_version}' . "\n";
	} else {
	    $depend =~ s/-X_Y_Z$/-bin/;
	    print 'Requires: texlive-' . $depend .  ' >= %{texlive_version}' . "\n";
	}
    }
    foreach (@reqpack) {
	print $_;
	print ' >= %{texlive_version}' if /texlive/ && ! /[<>=]/;
	print "\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] . '#/';
	    }
	    if ("$tarball[$cur]" =~ /asymptote.tar\.xz/) {
		if ($mnt || -x $has_avfsd) {
		    my $file;
		    if (-e $tpath . "texmf/asymptote/version.asy") {
			$file = $tpath . "texmf/asymptote/version.asy";
		    } elsif (-e $tpath . "texmf-dist/asymptote/version.asy") {
			$file = $tpath . "texmf-dist/asymptote/version.asy";
		    } else {
			$file = $tpath . "asymptote/version.asy";
		    }
		    open(FILE, "cat $file |") or next;
		} else {
		    my $file = "texmf/asymptote/version.asy";
		    open(FILE, "tar OxJf packages/$tarball[$cur] $file |") or next;
		}
		my $found = 0;
		while (<FILE>) {
		    chomp();
		    s/.*=//;
		    s/[\"\;]//g;
		    if ("$asymptoteversion" eq "$_") {
			$found++;
			last;
		    }
		}
		FILE->autoflush(1);
		close(FILE);
		die "Asymptote: binary version does not match package version" if ($found <= 0);
	    }
	}
	foreach my $path (sort keys %provides) {
	    my $provide = $path;
	    if ($pkg && ($mnt || -x $has_avfsd)) {
		my $found = 0;
		if (-e $tpath . $path) {
		    $found++;
		} else {
		    $path =~ s@texmf[^/]*/@@;
		}
		if (-e $tpath . $path) {
		    $found++;
		}
		if ($found == 0) {
		    print STDERR "Provides of $name $provide does not exist\n";
		    next;
		}
		$path = $tpath . $path;
	    }
	    $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[[:blank:]]*(\[.*\])?[[:blank:]]*{([^}]*)}.*/ && do {
		    s/.*\\RequirePackage[[:blank:]]*(\[.*\])?[[:blank:]]*{([^}]*)}.*/$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});
	    foreach my $k (keys %mvfiles) {
		my $move = $k;
		$move =~ s@.*/@@;
		next if ($move ne $require);
		$found = $move;
		last;
	    }
	    if ($found) {
		print 'Provides: tex(' . $require . ')' . "\n";
	    } else {
		print 'Requires: tex(' . $require . ')' . "\n";
	    }
	}
    }
    if ($pkg) {
	print "# Download at " . $srcurl . "/\n";
	print "# from $srcdate\n";
	for ($n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++, $global_source_counter++) {
	  print 'Source' . $global_source_counter . ': ' . $tarball[$n] . "\n";
	  $used_files{$tarball[$n]} = $global_source_counter;
	}
    }
    if ($pkg && $patch_hook) {
	($scx, $scd, $scr, $scb, $src) = $sc{$name}->current;
	&$patch_hook();
	$sc{$name}->update($scx, $scd, $scr, $scb, $src);
    }
    if ($noarch) {
	print $noarch . "\n" unless $pkg;
    } 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 texlive-$target" . "\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";
    }
    if (($return[1] & 39) == 7 || ($return[1] & 39) == 35) {
	print "\n%package -n texlive-$name-doc\n";
	print "Version: $pkg_version\n";
	print "Release:      0\n";
	print 'Summary: Documentation for texlive-' . $name . "\n";
	print "License: $license\n";
	print 'Url: http://www.tug.org/texlive/' . "\n";
	print 'Group: Productivity/Publishing/TeX/Base' . "\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 "\n%description -n texlive-$name-doc\n";
	print 'This package includes the documentation for texlive-' . $name . "\n";
	print "\n";
    }
    if (($return[1] & 17) == 17) {
	print "\n%package -n texlive-$name-fonts\n";
	print "Version: $pkg_version\n";
	print "Release: 0\n";
	print 'Summary: Severed fonts for texlive-' . $name . "\n";
	print "License: $license\n";
	print 'Group: Productivity/Publishing/TeX/Fonts' . "\n";
	print 'Url: http://www.tug.org/texlive/' . "\n";
	print 'Requires(post): fontconfig' . "\n";
	print 'Requires(post): ghostscript-fonts-std' . "\n";
	print 'Requires(post): mkfontdir' . "\n";
	print 'Requires(post): mkfontscale' . "\n";
#
# We do not use xfs at all (would require some lua code in spec %post scriptlet)
#
#	print 'Requires(post): xfs' . "\n";
	if (grep /post=fonts/, @execute) {
	    print 'Requires(post): xfs' . "\n";
	}
	print 'Requires(post): xorg-x11-fonts-core' . "\n";
	print 'Requires(postun): fontconfig' . "\n";
	print 'Requires(postun): ghostscript-fonts-std' . "\n";
	print 'Requires(postun): xorg-x11-fonts-core' . "\n";
	print 'BuildArch: noarch' . "\n" unless $pkg;
	print "\n%description -n texlive-$name-fonts\n";
	print 'The  separated fonts package for texlive-' . $name . "\n";
    }
    if ($pkg) {
        $install_lines .= "    ln -sf %{_texmfdistdir}/texconfig/zypper.py \\\n" .
          "       %{buildroot}/var/adm/update-scripts/texlive-$name-$pkg_version-%{release}-zypper\n";
        $versions{$name} = $pkg_version;

my $limit = $sc{$name}->tar - $sc{$name}->cur;
	for ($n = 0; $n < $limit; $n++) {
	    if ($isreloc) {
		$install_lines .= '    tar --use-compress-program=xz -xf %{S:' . $used_files{$tarball[$n]} .  '} -C %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
            } else {
		$install_lines .= '    tar --use-compress-program=xz -xf %{S:' . $used_files{$tarball[$n]} .  '} -C %{buildroot}%{_datadir}/texlive' . "\n";
	    }
	}
	if ($#patches > -1) {
	    $install_lines .= '    pushd %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
	    for ($n = 0; $n <= $#patches; $n++) {
		$install_lines .= "\t" . 'patch --reject-format=unified --quoting-style=literal -f -p1 -F0 -T < %{S:' . $used_files{$patches[$n]} . "}\n";
	    }
	    $install_lines .= "    popd\n";
	}
    }
    if ($pkg) {
	($scx, $scd, $scr, $scb, $src) = $sc{$name}->current;
	push @execute, reorder($name, $isreloc);
	$sc{$name}->update($scx, $scd, $scr, $scb, $src);
    }
    if ($pkg) {
	scripts($name, @execute);
    }
    ($scx, $scd, $scr, $scb, $src) = $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;

if ($pkg & 1) {
	if ($pkg & (4|32)) {
	    if ($pkg & 2) {
		print "%files -n texlive-$name-doc\n";
                print "%defattr(-,root,root,755)\n";
		print "$_\n" foreach (@docfiles);
		print "\n";
	    }
	    # either source files only or run files will be installed
	    print "%files -n texlive-$name\n";
            print "%defattr(-,root,root,755)\n";
	    print "$_\n" foreach (@srcfiles);
	    print "$_\n" foreach (@runfiles);
	} elsif ($pkg & 2) {
	    print "%files -n texlive-$name\n";
            print "%defattr(-,root,root,755)\n";
	    print "$_\n" foreach (@docfiles);
	} else {
	    # empty packages like `bibtexu' which simply requires `bibtexu-bin'
	    # or several hyphen packages which simply runs some scriplets
	    print "%files -n texlive-$name\n";
            print "%defattr(-,root,root,755)\n";
	}
	return;
    }

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";
	    if ($version < 2013) {
		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";
	    }
	    if ($version < 2013) {
		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$@/@;
	    if ($version < 2013) {
		print $base . "wovp2ovf\n";
	    }
	}
	if (m@/dvitodvi$@) {
	    my $base = $_;
	    $base =~ s@/dvitodvi$@/@;
	    print $base . "a4toa5\n";
	    print $base . "mydvichk\n";
	    print $base . "odd2even\n";
	}
	if (m@/dvipdfmx$@) {
	    my $base = $_;
	    $base =~ s@/dvipdfmx$@/@;
	    print $base . "rungs\n";
	    if ($version >= 2013) {
		print '%{_texmfdistdir}' . "/scripts/texlive/rungs.tlu\n";
	    } else {
		print '%{_texmfmaindir}' . "/scripts/texlive/rungs.tlu\n";
	    }
	}
	if (m@/mtxrun$@) {
	    my $base = $_;
	    $base =~ s@/mtxrun$@/@;
	    if ($version >= 2013) {
		print $base . "rlxtools\n";
	    }
	}
    }
}

sub texmftree {
    my $flags=0;
    my $skip=0;
    my $dir;
    my @dirs;
    my %hash;
    my @src=();

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/;
	    if (/^name[[:blank:]]+/) {
		my $name;
		s/^name[[:blank:]]+//;
		$name = $_;
		$flags=0;
		$flags=16 if (grep /^$name$/, @nosource);
		@src=();
		next;
	    }
	    next if (!/^[[:blank:]]/);
	    next if ((7 & $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:]]/);
	    if ($flags & 16) {
		next if (m@^%{_texmf(main|dist)dir}/source/@);
	    }
	    next if (m@/tlpkg/.*@);
	    next if (m@/texconfig/[xvg]/.*@);
	    next if (m@/doc/info/.*@);
	    next if (m@/doc/man/.*@);

#
	    # forget source directories if runfiles are found
	    #
	    if (4 & $flags) {
		foreach $dir (@src) {
		    delete $hash{$dir} if (defined($hash{$dir}));
		}
		@src=();
	    }

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

$max = $#dirs;
	    foreach my $d (@dirs) {
		$dir=join('/', $dir, $d);
		if (($flags & 7) <= 3 && m@dir}/source@) {
		    # Only remove later on if not already added !!
		    push @src, $dir if !defined($hash{$dir});
		}
		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 $doupdate = "/var/run/texlive/run-update";
    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)/, @execute) {
	$dofmtu = "/var/run/texlive/run-fmtutil";
    }
    if (grep /execute=[aA]dd(Hyphen)/, @execute) {
	$dofmtu = "/var/run/texlive/run-fmtutil.language";
    }
    if (grep /execute=[aA]dd(Mixed|Kanji)?Map/, @execute) {
	$doupdm = "/var/run/texlive/run-updmap";
    }
    if ($doconly && grep /%{_infodir}/, @docfiles) {
	print "%preun -n texlive-$name\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 texlive-$name\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 texlive-$target\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 ($name =~ m/^kpathsea$/) {
	open POST, "<packages/kpathsea.post" or die "File kpathsea.post is missed for post 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";
    print "> $doupdate\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 "    if grep -qsE '^%%%%%% No changes may be made beyond this point'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.def; then' . "\n";
	    print "	sed -ri '/^%%%%%% No changes may be made beyond this point/i\\\n";
	    print "\\\\addlanguage\{$hyphen{name}\}\{$hyphen{file}\}\{\}";
	    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}\\\n";
	    if (exists $hyphen{synonyms}) {
		foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
		    print "\\\\addlanguage\{$s\}\{$hyphen{file}\}\{\}";
		    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}\\\n";
		}
	    }
	    print "'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.def || :' . "\n";
	    print "    else\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";
	    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 'elif test -e %{_texmfconfdir}/web2c/updmap.cfg; then' ."\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 texlive-$target \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 ($name !~ m/^kpathsea$/);
    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" if ($name !~ m/^tetex/);
    }
    print "    exit 0\n";
    print "fi\n";
    print "mkdir -p $varrun\n";
    print "> $dohash\n";
    print "> $doupdate\n";
    print "> $dofmtu\n" if ($dofmtu);
    print "> $doupdm\n" if ($doupdm);
    print "\n";
    print '%posttrans' . " -n texlive-$target\n";
    if ($name =~ m/^kpathsea$/) {
        print 'test -e /var/run/texlive/run-mktexlsr && %{_bindir}/mktexlsr > /dev/null 2>&1 || :' . "\n";
	print 'rm -f /var/run/texlive/run-mktexlsr' . "\n";
    } elsif ($name =~ m/^tetex$/) {
        print 'test -e /var/run/texlive/run-mktexlsr && %{_bindir}/mktexlsr > /dev/null 2>&1 || :' . "\n";
	print 'rm -f /var/run/texlive/run-mktexlsr' . "\n";
        print 'test -e /var/run/texlive/run-updmap && %{_bindir}/updmap-sys --nohash > /dev/null 2>&1 || :' . "\n";
	print 'rm -f /var/run/texlive/run-updmap' . "\n";
    } elsif ($name =~ m/^texconfig$/) {
        print 'test -e /var/run/texlive/run-mktexlsr && %{_bindir}/mktexlsr > /dev/null 2>&1 || :' . "\n";
	print 'rm -f /var/run/texlive/run-mktexlsr' . "\n";
    } else {
	print "test -f $doupdate || exit 0\n";
	print 'test -z "$ZYPP_IS_RUNNING" || exit 0' . "\n";
	if ($version >= 2013) {
	    print 'VERBOSE=false %{_texmfdistdir}/texconfig/update || :' . "\n";
	} else {
	    print 'VERBOSE=false %{_texmfmaindir}/texconfig/update || :' . "\n";
	}
	print "rm -f $doupdate\n";
    }
    print "\n";
    if (!$doconly && grep /%{_infodir}/, @docfiles) {
	print "\n%preun -n texlive-$name-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 -n texlive-$name-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 -n texlive-$name-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 -n texlive-$name-fonts
if test \$1 = 0; then
    fc-cache %{_datadir}/fonts
fi
EOF
    }
}

sub reorder {
    my $return = "";
    my $name = shift;
    my $isreloc = shift;
    
    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) {
	$install_lines .= <<'EOF';
    # Move configuration files
EOF
    }
    $install_lines .= "    mkdir -p %{buildroot}$_\n" foreach (@dirs);
    $install_lines .= "    $_\n" foreach (@conf);
    #
    # Create directories from our extend file list if any
    #
    $install_lines .= '    mkdir -p %{buildroot}' . "$_\n" foreach (@mkdirs);
    foreach (@rmfiles) {
	if (/^%(if|endif)/) {
	    $install_lines .= "$_\n";
	    next;
	}
	$install_lines .= '    rm -vf  %{buildroot}' . "$_\n";
    }
    $install_lines .= '    rm -vrf %{buildroot}' . "$_\n" foreach (@rmdirs);
    foreach my $k (keys %mvfiles) {
	$install_lines .= '    mv -vf %{buildroot}' . "$k" . ' %{buildroot}' . "$mvfiles{$k}\n";
    }
    #
    # 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|yaml|def)$|(readme|changes)[^/]*$)';
    my $pyscripts = '(.*' . join('|', @python_scripts) . ')$';
    my $shscripts = '(.*' . join('|', @shell_scripts) . ')$';
    my @executable = ();
    push @executable, @chmod if ($#chmod > -1);
    my @nonexecute = ();
    my @wrongps = ();
    my @locals = ();
    my @rubys = ();
    my @python = ();
    my @perls = ();
    my @shell = ();
    my @bash = ();
    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/) {
	    if ($#runfiles > -1) {
		@pointer = @runfiles;
		$start = $sc{$name}->cun;
		$stop  = $sc{$name}->run;
	    } else {
		@pointer = @srcfiles;
		$start = $sc{$name}->crc;
		$stop  = $sc{$name}->src;
	    }
	} 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 "$test"`;
		chomp($magic);
		if ($magic =~ m@^%![[:blank:]]*/@i) {
		    push @wrongps, $file;
		    next;
		}
		if ($magic =~ m@^#![[:blank:]]*/usr/[^/]+/bin@i) {
		    push @locals, $file;
		    next;
		}
		if ($magic =~ m@^#![[:blank:]]*/usr/bin/bash@i) {
		    push @bash, $file;
		    next;
		}
		if ($magic !~ m@^#!.*ruby@ && $base =~ m@.*\.(rb|ruby)@) {
		    push @rubys,   $file;
		    next;
		}
		if ($magic !~ m@^#!.*python@ && $base =~ m@.*\.(py|python)@) {
		    push @python,   $file;
		    next;
		}
		if ($magic !~ m@^#!.*python@ && $base =~ m@$pyscripts@) {
		    push @python,   $file;
		    next;
		}
		if ($magic !~ m@^#!@ && $base =~ m@.*\.(sh)@) {
		    push @shell,   $file;
		    next;
		}
		if ($magic !~ m@^#!.*python@ && $base =~ m@$shscripts@) {
		    push @shell,   $file;
		    next;
		}
		if ($magic =~ m@eval[[:blank:]]+["']exec[[:blank:]]+perl@) {
		    push @shell,   $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@^#!@ && $base =~ m@$shebang@i) {
		    push @nonexecute, $file;
		    next;
		}
		if ($magic !~ m@^#!@) {
		    print STDERR "unknown script for $name: $file\n";
		    push @nonexecute, $file;
		}
	    } elsif (($stats->mode & 07755) == 0644 && $base =~ m@$scripts@i) {
		my $magic = `head -n 1 "$test"`;
		chomp($magic);
		push @executable, $file if ($magic =~ m@^#!@);
		if ($magic =~ m@^#![[:blank:]]*/usr/[^/]+/bin@i) {
		    push @locals, $file;
		}
	    }
	} # for (my $n = $start; $n < $stop; $n++)
	foreach my $k (keys %mvfiles) {
	    my $file = $k;
	    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 "$test"`;
		chomp($magic);

if ($magic !~ m@^#!@ && $base =~ m@$shebang@i) {
		    push @nonexecute, $mvfiles{$k};
		    next;
		}
	    }
	}
    } # for (my $t = $sc{$name}->cur; $t < $sc{$name}->tar; $t++)
    if ($#wrongps > -1) {
        $install_lines .= "    # Correct wrong magic of scripts if any\n";
        $install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@wrongps) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
        $install_lines .= q(
    do
        test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		s/^%/#/
		.
		w
		q
	EOF
    done
);
    }
    if ($#rubys > -1) {
        $install_lines .= "    # Correct wrong ruby scripts if any\n";
        $install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@rubys) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
        $install_lines .= q(
    do
        test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		#! /usr/bin/ruby
		.
		w
		q
	EOF
    done
);
    }
    if ($#python > -1) {
        $install_lines .= "    # Correct wrong python scripts if any\n";
        $install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@python) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
        $install_lines .= q(
    do
        test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		#! /usr/bin/python
		.
		w
		q
	EOF
    done
);
    }
    if ($#shell > -1) {
	$install_lines .= "    # Add shebang e.g. correct perl wrapper scripts if any\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@shell) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		#! /bin/sh
		.
		w
		q
	EOF
    done
);
    }
    if ($#perls > -1) {
	$install_lines .= "    # Correct wrong perl scripts if any\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@perls) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		#! /usr/bin/perl
		.
		w
		q
	EOF
    done
);
    }
    if ($#luas > -1) {
	$install_lines .= "    # Correct wrong luaTeX scripts if any\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@luas) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		i
		#! /usr/bin/texlua
		.
		w
		q
	EOF
    done
);
    }
    if ($#executable > -1) {
	$install_lines .= "    # Make possible scripts usable if any\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@executable) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	chmod 0755 %{buildroot}/$scr
    done
);
    }
    if ($#locals > -1) {
	$install_lines .= "    # Avoid /usr/local/bin\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@locals) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		s@/usr/[^/]\+/bin@/usr/bin@
		.
		w
		q
	EOF
    done
);
    }
    if ($#bash > -1) {
	$install_lines .= "    # Avoid /usr/bin/bash\n";
	$install_lines .= "    for scr in ";
	my $start = '';
	foreach my $file (@bash) {
	    $install_lines .= $start;
	    $install_lines .= $file;
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$scr || continue
	ed %{buildroot}/${scr} <<-'EOF'
		1
		s@/usr/bin/bash@/bin/bash@
		.
		w
		q
	EOF
    done
);
    }
    if ($#nonexecute > -1) {
        $install_lines .= "    # Strip executable bit from non-scripts\n";
        $install_lines .= "    for txt in ";
	my $start = '';
	foreach my $file (@nonexecute) {
	    $install_lines .= "$start$file";
	    $start = " \\\n\t       ";
	}
	$install_lines .= q(
    do
	test -e %{buildroot}/$txt || continue
	chmod 0644 %{buildroot}/$txt
    done
);
    }
    #
    # 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 -n texlive-$name-fonts\n%defattr(-,root,root,755)";
	$runfiles[$scr++] = '%dir ' . $newdir;
	my @list;
	my %paths = ();
	foreach (@fonts) {
	    @list = split('/');
	    pop @list;
	    $paths{join('/', @list)} = 1;
	}
	my $font_lines = "    # Move font files\n";
	$font_lines .= "    mkdir -p %{buildroot}%{_datadir}/fonts/%{name}\n";
        $font_lines .= "    for font in ";
        my $start = '';
        foreach my $path (sort keys %paths) {
            $font_lines .= $start;
            $font_lines .= '%{buildroot}/' . $path . '/*.{pf[ab],[ot]tf}';
            $start = " \\\n\t\t";
        }
        $font_lines .= "\n";

$font_lines .= q(    do
        test -e $font || continue
        mv -f $font %{buildroot}%{_datadir}/fonts/%{name}
        base=${font##*/}
        ln -sf %{_datadir}/fonts/%{name}/${base} ${font}
    done
    >  %{buildroot}%{_datadir}/fonts/%{name}/encodings.dir
    >  %{buildroot}%{_datadir}/fonts/%{name}/fonts.dir
    >  %{buildroot}%{_datadir}/fonts/%{name}/fonts.scale
    mkdir -p %{buildroot}%{_sysconfdir}/fonts/conf.avail
    (cat > %{buildroot}%{_sysconfdir}/fonts/conf.avail/58-%{name}.conf)<<-'EOF'
	<?xml version="1.0"?>
	<!DOCTYPE fontconfig SYSTEM "fonts.dtd">

<fontconfig>
	  <rejectfont>
	    <glob>%{_datadir}/fonts/%{name}/*</glob>
	  </rejectfont>
	</fontconfig>
	EOF
);
	$font_lines =~ s/%{name}/texlive-$name/g;
	$install_lines .= $font_lines;

$runfiles[$scr++] = '%config %{_sysconfdir}/fonts/conf.avail/58-texlive-' . $name . '.conf';
	$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';
    }
    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->{src} = 0;
    $self->{cur} = 0;
    $self->{coc} = 0;
    $self->{cun} = 0;
    $self->{cin} = 0;
    $self->{crc} = 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 src : lvalue {
    my $self = shift;
    $self->{src} = shift if (@_);
    $self->{src};
}
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 crc : lvalue {
    my $self = shift;
    $self->{crc};
}
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 (@_);
    $self->{crc} = $self->{src} = shift if (@_);
}
sub update {
    my $self = shift;
    $self->{tar} = shift if (@_);
    $self->{doc} = shift if (@_);
    $self->{run} = shift if (@_);
    $self->{bin} = shift if (@_);
    $self->{src} = shift if (@_);
}
sub current : lvalue {
    my $self = shift;
    my @return=($self->{tar},$self->{doc},$self->{run},$self->{bin},$self->{src});
    @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 close {
    close($handle) if ($handle);
}
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 4fb2f905f87c4bc11c0a703cb982d4d5)

Places