openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision 3fcab5fe97be566e7765a0cb621a2647)

Currently displaying revision 3fcab5fe97be566e7765a0cb621a2647 , Show latest

#!/usr/bin/perl

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

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

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

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

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

package filenum;
sub new {
    my $self  = {};
    $self->{tar} = 0;
    $self->{doc} = 0;
    $self->{run} = 0;
    $self->{bin} = 0;
    $self->{cur} = 0;
    $self->{coc} = 0;
    $self->{cun} = 0;
    $self->{cin} = 0;
    bless ($self);
    $self->initialize(@_) if (@_);
    return $self;
}
sub tar : lvalue {
    my $self = shift;
    $self->{tar} = shift if (@_);
    $self->{tar};
}
sub doc : lvalue {
    my $self = shift;
    $self->{doc} = shift if (@_);
    $self->{doc};
}
sub run : lvalue {
    my $self = shift;
    $self->{run} = shift if (@_);
    $self->{run};
}
sub bin : lvalue {
    my $self = shift;
    $self->{bin} = shift if (@_);
    $self->{bin};
}
sub cur : lvalue {
    my $self = shift;
    $self->{cur};
}
sub coc : lvalue {
    my $self = shift;
    $self->{coc};
}
sub cun : lvalue {
    my $self = shift;
    $self->{cun};
}
sub cin : lvalue {
    my $self = shift;
    $self->{cin};
}
sub initialize {
    my $self = shift;
    $self->{cur} = $self->{tar} = shift if (@_);
    $self->{coc} = $self->{doc} = shift if (@_);
    $self->{cun} = $self->{run} = shift if (@_);
    $self->{cin} = $self->{bin} = shift if (@_);
}

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

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

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

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

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

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

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

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

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

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

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

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

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

my %sc = ();

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

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

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

@main=();
$pos = 0;
seek $tlpfh, $pos, 0;
while (<$tlpfh>) {
    $pos++;
last;
### next if ! /^name[[:blank:]](dehyph-exptl|amsfonts|asymptote|latex|latex-bin|xdvi|kpathsea)$/;
    next if ! /^name/;
    next if /^name[[:blank:]]+00/;
    next if /^name[[:blank:]]+($regexp)/;
    next if /^name[[:blank:]]+scheme-/;
    next if /^name[[:blank:]]+collection-/;
    next if /^name[[:blank:]]+.*\..*-.*/;
    next if /^name[[:blank:]]+.*\.win32/;
    if (/^name[[:blank:]]/) {
	s/^name[[:blank:]]+//;
	s/-bin$/-X_Y_Z/;
	chomp;
	push @main, "$_:$pos";
    }
}
push @packages, sort compare @main;

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

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

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

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

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

seek STDIN, 0, 0;

lseek '@@VERSION@@';

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

lseek '@@TAGS@@';

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

lseek '@@FILES@@';

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

@tarball = @docfiles = @runfiles = @binfiles = ();
    $scx = $scd = $scr = $scb = 0;

lseek;

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

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

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

open STDIN, "<&$stdin";

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

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

lseek '@@VERSION@@';

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

lseek '@@SOURCES@@';

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

my @basesystem = ();

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

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

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

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

lseek '@@PACKAGES@@';

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

lseek '@@TEXMFTREE@@';

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

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

lseek '@@INSTALL@@';

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

lseek '@@TEXMFTREE@@';

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

lseek '@@FILES@@';

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

lseek;

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

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

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

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

$dependx[$cnt++] = 'Requires(prereq): texlive-filesystem' if ($pkg);

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

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

chomp;

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

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

if (/^depend[[:blank:]]+/) {
		next if /^depend[[:blank:]]+($regexp)/;
		s/-bin$/-X_Y_Z/;
		s/\.ARCH$/-bin/;
		$dependx[$cnt++] = $_ if s/^depend[[:blank:]]+//;
		next;
	    }
	    if ($pkg && /^docfiles[[:blank:]]+/) {
		$name =~ s/-X_Y_Z$/-bin/;
		$tarball[$sc{$name}->tar] = $name . '.doc.tar.xz';
		-e "packages/$tarball[$sc{$name}->tar]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$sc{$name}->tar]");
		$sc{$name}->tar++;
		$return[1] |= 2;    # Has docfiles
	    }
	    if (/^runfiles[[:blank:]]+/) {
		my $cur = $sc{$name}->cur;
		$name =~ s/-X_Y_Z$/-bin/;
		if ($cur < $sc{$name}->tar) {
		    my $last = $tarball[$cur];
		    $tarball[$cur]   = $name . '.tar.xz';
		    $tarball[$sc{$name}->tar++] = $last;
		} else {
		    $cur = $sc{$name}->tar;
		    $tarball[$sc{$name}->tar++] = $name . '.tar.xz';
		}
		if ($pkg) {
		    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$cur]");
		} else {
		    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-P","basesystem/","$srcurl/$tarball[$cur]");
		}
		$return[1] |= 4;    # Has runfiles
	    }
	    if (/^binfiles[[:blank:]]+/) {
		$return[1] |= 8;    # Has binfiles
	    }
	    if (/^srcfiles[[:blank:]]+/) {
		$flags = 0;
		next;
	    }
	    $catversion = $_ if s/^catalogue-version[[:blank:]]+//;
	    if (s/^catalogue\-license[[:blank:]]+//) {
		#
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.html
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.knuth.html
		# http://license.opensuse.org/
		#
		if ($_ =~ /^apache2/) {
		    $license = 'Apache-2.0';
		} elsif ($_ =~ /^apache/) {
		    $license = 'Apache-1.0';
		} elsif ($_ =~ /^artistic/) {
		    $license = 'Artistic-1.0 ; GPL-2.0+';# Same License as Perl
		    if ($target =~ /biber/) {
			$license = 'Artistic-2.0 ; GPL-1+';
		    }
		} elsif ($_ =~ /^artistic2/) {
		    $license = 'Artistic-2.0';
		} elsif ($_ =~ /^bsd/) {# MIT ???
		    $license = 'BSD-3-Clause';
		} elsif ($_ =~ /^fdl/) {
		    $license = 'GFDL-1.2';
		} elsif ($_ =~ /^pd/) {
		    $license = 'SUSE-Public-Domain';
		} elsif ($_ =~ /^knuth/) {
		    $license = 'SUSE-TeX';
		} elsif ($_ =~ /^gfl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^gfsl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^ofl/) {
		    $license = 'OFL-1.1';
		} elsif ($_ =~ /^lppl1.3/) {
		    $license = 'LPPL-1.3c';
		} elsif ($_ =~ /^lppl1.2/) {
		    $license = 'LPPL-1.2';
		} elsif ($_ =~ /^lppl1/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^lppl/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^gpl3/) {
		    $license = 'GPL-3+';
		} elsif ($_ =~ /^gpl2/) {
		    $license = 'GPL-2+';
		} elsif ($_ =~ /^gpl/) {
		    $license = 'GPL-2+';
		    if ($target =~ /asymptote/) {
			$license = 'LGPL-3.0+';
		    }
		} elsif ($_ =~ /^lgpl/) {
		    $license = 'LGPL-2.1+';
		} elsif ($_ =~ /^lgpl3/) {
		    $license = 'LGPL-3.0+';
		} elsif ($_ =~ /^lgpl2\.1/) {
		    $license = 'LGPL-2.1+';
		} else {
		    s/(.)/\U$1/g;
		    $license =~ $_;
		}
	    }
	    $date = $_ if s/^catalogue-date[[:blank:]]+//;
	    $flags = 0 if /^[[:^blank:]]/;
	    if ($flags > 0) {
		$isreloc = 1 if m@^[[:blank:]]+RELOC/@;
		if ($flags == 2 && /^[[:blank:]]+[[:^blank:]]+([[:blank:]]+[[:^blank:]]+="[^"]+")+/p) {
		    my $match = $^N;
		    if ($match =~ /[[:blank:]]+language=/) {
			$match =~ s/[[:blank:]]+language="([^"]+)"/$1/;
			if ($match =~ /uk/) {
			    $match = 'en_UK';
			}
			push @locales, $match;
		    }
		}
		s/[[:blank:]]+details=.*$//;
		if ($flags == 4) {
		    $provide = doprovide($_);
		    if ($provide) {
			$provides[$prv++] = $provide;
			$domount++;
		    }
		}
		s@^[[:blank:]]bin/.*-linux/@%{_bindir}/@;
		s@^[[:blank:]]RELOC/@%{_texmfdistdir}/@;
		s@^[[:blank:]]texmf-dist/@%{_texmfdistdir}/@;
		s@^[[:blank:]]texmf/@%{_texmfmaindir}/@;
		s@^[[:blank:]]@%{_texmfmaindir}/@;
	    }
	    if ($flags == 2) {
		if (m@/doc/man/@) {
		    next if (m@\.pdf$@);
		    s@%{_texmfmaindir}/doc/man@%{_mandir}@;
		    $_ = $_ . '*';
		}
		if (m@/doc/info/@) {
		    next if (m@/doc/info/dir@);
		    s@%{_texmfmaindir}/doc/info@%{_infodir}@;
		    $_ = $_ . '*';
		}
		$docfiles[$sc{$name}->doc++] = $_;
	    }
	    if ($flags == 4) {
		$runfiles[$sc{$name}->run++] = $_;
	    }
	    if ($flags == 8) {
		next if (m@/man$@);
		$binfiles[$sc{$name}->bin++] = $_;
	    }
	    $flags = 8 if /^binfiles/;
	    $flags = 4 if /^runfiles/;
	    $flags = 2 if /^docfiles/;
	}
    }
    if ($pkg) {
	my $add = 0;
	$add++ if grep /execute=/, @execute;
	$dependx[$cnt++] = 'Requires: texlive-kpathsea-bin';
	if ($add) {
	    $dependx[$cnt++] = 'Requires: texlive-tetex-bin';
	    $dependx[$cnt++] = 'Requires(post): grep';
	    $dependx[$cnt++] = 'Requires(post): grep';
	    $dependx[$cnt++] = 'Requires(postun): sed';
	    $dependx[$cnt++] = 'Requires(postun): sed';
	}
	$dependx[$cnt++] = 'Requires(post): texlive-kpathsea-bin';
	$dependx[$cnt++] = 'Requires(postun): texlive-kpathsea-bin';
	if ($add) {
	    $dependx[$cnt++] = 'Requires(post): texlive-tetex-bin';
	    $dependx[$cnt++] = 'Requires(postun): texlive-tetex-bin';
	}
	if (grep /%{_infodir}/, @docfiles) {
	    $dependx[$cnt++] = 'Requires(preun): %install_info_prereq';
	    $dependx[$cnt++] = 'Requires(post): %install_info_prereq';
	}
    }
    if ($sc{$name}->cur == $sc{$name}->tar) {
	my $cur = $sc{$name}->cur;
	$name =~ s/-X_Y_Z$/-bin/;
	$tarball[$sc{$name}->tar++] = $name . '.tar.xz';
	if ($pkg) {
	    -e "packages/$tarball[$cur]" or wget("--progress=bar:force","-P","packages/","$srcurl/$tarball[$cur]");
	} elsif ($name !~ m/i386-linux/) {
	    -e "basesystem/$tarball[$cur]" or wget("--progress=bar:force","-P","basesystem/","$srcurl/$tarball[$cur]");
	}
    }
    if (!$pkg) {
	print '%package ' . $target . "\n";
    } else {
	print 'Name: texlive-' . $target . "\n";
	$return[0] = 'texlive-' . $target;
    }
    print 'Version: %{texlive_version}' . "\n";
    if ($pkg) {
	$rlobs = '%{?rlobs}';
    } else {
	$rlobs = '.<CI_CNT>.<B_CNT>';
    }
    if ($revision) {
	if ($catversion) {
	    if ($catversion =~ /^\.[[:digit:]]/) {
		    $catversion = sprintf('0.%s', $catversion);
	    }
	    if ($catversion =~ /^0+\./) {
		#           gensub(/^0+\.(.*)/, "\\1", "g", catversion)
		$catversion = sprintf('0.%s', $catversion);
	    }
	    print 'Release: %{texlive_release}.' . $catversion . '.svn' .  $revision . "$rlobs\n";
	} else {
	    print 'Release: %{texlive_release}.svn' . $revision . "$rlobs\n";
	}
    } else {
	print 'Release: %{texlive_release}' . "$rlobs\n";
    }
    if ($license) {
	print 'License: ' . $license . "\n";
    }
    if ($summary) {
	print 'Summary: ' . $summary . "\n";
	if (!$noarch) {
	    print 'Group: Productivity/Publishing/TeX/Utilities' . "\n";
	} elsif ($target =~ /collection-texinfo/) {
	    print 'Group: Productivity/Publishing/Texinfo' . "\n";
	} elsif ($target =~ /scheme-/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-(music|omega|xetex|latex|htmlxml|formatsextra|context|basic)/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-fonts/) {
	    print 'Group: Productivity/Publishing/TeX/Fonts' . "\n";
	} else {
	    print 'Group: Productivity/Publishing/TeX/Base' . "\n";
	}
	print 'Url: http://www.tug.org/texlive/' . "\n";
    }
    foreach my $depend (@dependx) {
	if ($depend =~ /^Requires/) {
	    print $depend;
	    print  ' = %{texlive_version}' if ($depend =~ /texlive/);
	    print "\n";
	    next;
	}
	if ($noarch && $depend =~ /.*-bin$/) {
	    print 'Requires(prereq): texlive-' . $depend .  ' = %{texlive_version}' . "\n";
	} else {
	    $depend =~ s/-X_Y_Z$/-bin/;
	    print 'Requires: texlive-' . $depend .  ' = %{texlive_version}' . "\n";
	}
    }
    print 'BuildRequires: texlive-filesystem' . "\n" if ($pkg);
    if ($prv) {
	my $cur = $sc{$name}->cur;
	my $req = 0;
	my @requires = ();
	my $mnt = 0;
	my %seen = ();
	my @unique = grep { s/\.cbx$/.bbx/g; ! $seen{ $_ }++ } @provides;
	@provides = @unique;
	@unique = ();
	if (-e "packages/$tarball[$cur]" && $domount) {
	    my $handler = sub { fusermount("-u -z mnt/") if -d "mnt/tlpkg" };
	    archivemount("-o readonly,kernel_cache,intr,sync_read","packages/$tarball[$cur] mnt/");
	    sleep(0.02);
	    if (-d "mnt/tlpkg") {
		push @clean, $handler;
		$mnt++;
	    } else {
		print STDERR "generate: failed to mount archive packages/$tarball[$cur]\n";
		$domount = -1;
	    }
	}
	foreach my $path (@provides) {
	    my $provide = $path;
	    $provide =~ s@.*/@@;
	    print 'Provides: tex(' . $provide . ")\n" if ($provide !~ /.*\.(clo)$/);
	    next if (!$domount);
	    if ($domount > 0) {
		next if ! -e "mnt/$path";
		open(FILE, "<mnt/$path") or next;
	    } else {
		open(FILE, "tar OxJf packages/$tarball[$cur] $path |") or next;
	    }
	    while (<FILE>) {
		next if /^[[:blank:]]*%/;
		next if /^[[:blank:]]*$/;
		next if /\\(def|newcommand)/;
		/^[[:blank:]]*\\RequirePackage(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequirePackage(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $sty (@styles) {
			next if (/^\\/);
			$sty = $sty . '.sty';
			next if grep $_ eq $sty, @provides;
			$requires[$req++] = $sty;
		    }
		    next;
		};
		/^[[:blank:]]*\\LoadClass(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\LoadClass(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @classes = split(' ', $_);
		    foreach my $class (@classes) {
			next if (/^\\/);
			$class = $class . '.cls';
			next if grep $_ eq $class, @provides;
			$requires[$req++] = $class;
		    }
		    next;
		};
		/^[[:blank:]]*\\RequireBibliographyStyle(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequireBibliographyStyle(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $bbx (@styles) {
			next if (/^\\/);
			$bbx = $bbx . '.bbx';
			next if grep $_ eq $bbx, @provides;
			$requires[$req++] = $bbx;
		    }
		    next;
		};
		/^[[:blank:]]*\\RequireCitationStyle(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\RequireCitationStyle(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    my $bbx;
		    foreach my $cbx (@styles) {
			next if (/^\\/);
			$bbx = $cbx . '.bbx';
			next if grep $_ eq $bbx, @provides;
			$cbx = $cbx . '.cbx';
			next if grep $_ eq $cbx, @provides;
			$requires[$req++] = $cbx;
		    }
		    next;
		};
		/^[[:blank:]]*\\InheritBibliographyStrings(\[.*\])?{([^}]*)}.*/ && do {
		    s/.*\\InheritBibliographyStrings(\[.*\])?{([^}]*)}.*/$2/;
		    s/[{%}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @langs = split(' ', $_);
		    foreach my $lng (@langs) {
			$lng = $lng . '.lbx';
			next if grep $_ eq $lng, @provides;
			$requires[$req++] = $lng;
		    }
		};
		#
		# Some more Requires?
		#
	    }
	    FILE->autoflush(1);
	    close(FILE);
	}
	if ($mnt) {
	    sleep(0.02);
	    fusermount("-u -z mnt/");
	    pop @clean;
	}
	foreach my $require (@requires) {
	    next if grep { $_ =~ /$require/ } @provides;
	    print 'Requires: tex(' . $require . ')' . "\n";
	}
    }
    if ($pkg) {
	my $m = 0;
	for ($n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++, $m++) {
	    print 'Source' . $m . ': ' . $srcurl . '/' . $tarball[$n] . "\n";
	}
    }
    &$patch_hook() if ($pkg && $patch_hook);
    if ($noarch) {
	print $noarch . "\n";
    } else {
	print 'Prefix: %{_bindir}' . "\n";
    }
    &$macros_hook() if ($pkg && $macros_hook);
    if (!$pkg) {
	print "\n%description " . $target . "\n";
    } else {
	print "\n%description" . "\n";
    }
    if ($desc[0]) {
	for ($n = 0; $n < $idx; $n++) {
	    print $desc[$n] . "\n";
	}
    } elsif (!$noarch) {
	print $summary . "\n";
    } else {
	print 'The ' . $target . ' package' . "\n";
    }
    if ($date) {
	$date = date("--date=\"$date\" --utc +\"%Y-%m-%d %T %z\"");
	print "\ndate: " . $date . "\n";
    }
    for ($n = $sc{$name}->cur; $n < $sc{$name}->tar; $n++) {
	next if ($tarball[$n] !~ /.*\.doc\.tar\.xz/);
	print "\n%package doc\n";
	print 'Summary: Documentation for texlive-' . $name . "\n";
	print 'Version: %{texlive_version}'. "\n";
	if ($revision) {
	    if ($catversion) {
		if ($catversion =~ /.[[:digit:]]+/) {
		    $catversion = '0' . $catversion;
		}
		print 'Release: %{texlive_release}.' . $catversion .  '.svn' . $revision . "\n";
	    } else {
		print 'Release: %{texlive_release}.svn' . $revision . "\n";
	    }
	}
	if ($#locales > -1) {
	    print "Provides: locale(texlive-" . $name . "-doc:";
	    my $c = 0;
	    foreach my $l (@locales) {
		print ";" if ($c++ > 0);
		print $l
	    }
	    print ")\n";
	}
	print 'BuildArch: noarch' . "\n";
	print "\n%description doc\n";
	print 'Documentation for texlive-' . $name . "\n";
    }
    &$source_hook() if ($pkg && $source_hook);
    if ($pkg) {
	my $limit = $sc{$name}->tar - $sc{$name}->cur;
	for ($n = 0; $n < $limit; $n++) {
	    if ($isreloc) {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
            } else {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive' . "\n";
	    }
	}
	if ($#patches > -1) {
	    print '    pushd %{buildroot}%{_datadir}/texlive/' . "\n";
	    for ($n = 0; $n <= $#patches; $n++) {
		print "\t" . 'patch --unified-reject-files --quoting-style=literal -f -p0 -F0 -T < %{P:' . $n . "}\n";
	    }
	    print "    popd\n";
	}
    }
    if ($pkg && $reorder_hook) {
	&$reorder_hook();
	$scx = $sc{$name}->tar;
	$scd = $sc{$name}->doc;
	$scr = $sc{$name}->run;
	$scb = $sc{$name}->bin;
	reroder($name);
    }
    if ($pkg && $script_hook) {
	&$script_hook();
	scripts(@execute);
    }

$scx = $sc{$name}->tar;
    $scd = $sc{$name}->doc;
    $scr = $sc{$name}->run;
    $scb = $sc{$name}->bin;

return @return;
}

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

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

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

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

for ($n = $sc{$name}->cin; $n < $sc{$name}->bin; $n++) {
	$_ = $binfiles[$n];
	s/-xaw$/-xaw3d/;
	print "$_\n";
	if (m@/musixtex@) {
	    my $base = $_;
	    $base =~ s@/musixtex@/@;
	    print $base . "pdfmusixtex\n";
	    print $base . "pmx\n";
	    print $base . "pmxab\n";
	    print $base . "scor2prt\n";
	}
    }
}

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

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

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

return @tree;
}

sub scripts {
    my @execute = @_;
    my $varrun = "/var/run/texlive";
    my $dohash = "/var/run/texlive/run-mktexlsr";
    my $dofmtu = "";
    my $doupdm = "";
    $execute[0] = "empty" if ($#execute < 0);
    if (grep /execute=[aA]dd(Format|Hyphen)/, @execute) {
	$dofmtu = "/var/run/texlive/run-fmtutil";
    }
    if (grep /execute=[aA]dd(Mixed|Kanji)?Map/, @execute) {
	$doupdm = "/var/run/texlive/run-updmap";
    }
    if (grep /%{_infodir}/, @docfiles) {
	print '%preun' . "\n";
	print 'if test $1 = 0; then' . "\n";
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '    %install_info_delete --info-dir=%{_infodir} ' . "$info\n";
	}
	print "fi\n\n";
    }
    print '%post' . "\n";
    print "mkdir -p $varrun\n";
    print "> $dohash\n";
    foreach my $e (@execute) {
	if ($e =~ m/execute=[aA]dd(Format)/) {
	    my @line = quotewords('[[:blank:]]+', 1, $e);
	    my %format = map { quotewords('=', 0, $_) } @line;
	    next if ! exists $format{name};
	    print "sed -ri '" . 's@^\#\![[= =]]+' . $format{name} . '\b.*@';
	    print $format{name};
	    print " $format{engine}";
	    if (exists $format{patterns} && $format{patterns}) {
		print " $format{patterns}";
	    } else {
		print ' -';
	    }
	    print " $format{options}";
	    print '@' . "'" . ' %{_texmfconfdir}/web2c/fmtutil.cnf' . "\n";
	    next;
	}
	if ($e =~ m/execute=[aA]dd(Hyphen)/) {
	    my @line = quotewords('[[:blank:]]+', 1, $e);
	    my %hyphen = map { quotewords('=', 0, $_) } @line;
	    print "if ! grep -qsE '^$hyphen{name}'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.dat; then' . "\n";
	    print "    echo '$hyphen{name} $hyphen{file}'";
	    print ' >> %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
	    if (exists $hyphen{synonyms}) {
		foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
		    print "    echo '=$s'" . ' >> %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		}
	    }
	    print "fi\n";
	    $hyphen{lefthyphenmin} = 2 if (!$hyphen{lefthyphenmin});
	    $hyphen{righthyphenmin} = 3 if (!$hyphen{righthyphenmin});
	    print "if ! grep -qsE '^\\addlanguage\{$hyphen{name}\}'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.def; then' . "\n";
	    print "    echo '\\addlanguage\{$hyphen{name}\}\{$hyphen{file}\}\{\}";
	    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}'";
	    print ' >> %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
	    if (exists $hyphen{synonyms}) {
		foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
		    print "    echo '\\addlanguage\{$s\}\{$hyphen{file}\}\{\}";
		    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}'";
		    print ' >> %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		}
	    }
	    print "fi\n";
	    next;
	}
	if ($e =~ m/execute=[aA]dd(Mixed|Kanji)?Map/) {
	    my @line = quotewords('[=[:blank:]]+', 1, $e);
	    shift @line;
	    $line[0] =~ s/[aA]dd//;
	    print "if grep -qsE '$line[0]" . '[[:blank:]]+' . "$line[1]'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg; then' . "\n";
	    print "    sed -ri '" . 's@^\#\![[= =]]+(' . $line[0] . '[[:blank:]]+' . $line[1] . ')@\1@' . "'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    print "else\n";
	    print "    echo '$line[0] $line[1]'" . ' >> %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	    print "fi\n";
	}
	foreach my $info (grep /%{_infodir}/, @docfiles) {
	    $info =~ s@\*$@@;
	    print '%install_info --info-dir=%{_infodir} ' . "$info\n";
	}
    }
    print "> $dofmtu\n" if ($dofmtu);
    print "> $doupdm\n" if ($doupdm);
    print "\n";
    print '%postun' . "\n";
    print 'if test $1 = 0; then' . "\n";
    foreach my $e (@execute) {
	if ($e =~ m/[aA]dd(Format)[[:blank:]]+/) {
	    my @line = quotewords('[[:blank:]]+', 1, $e);
	    my %format = map { quotewords('=', 0, $_) } @line;
	    next if ! exists $format{name};
	    print "    sed -ri '" . 's@^(' . $format{name} . '\b)@\#\!\ \1';
	    print '@' . "'" . ' %{_texmfconfdir}/web2c/fmtutil.cnf' . "\n";
	    next;
	}
	if ($e =~ m/execute=[aA]dd(Hyphen)/) {
	    my @line = quotewords('[[:blank:]]+', 1, $e);
	    my %hyphen = map { quotewords('=', 0, $_) } @line;
	    print "    sed -i '/^$hyphen{name} $hyphen{file}/d'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
	    if (exists $hyphen{synonyms}) {
		foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
		    print "    sed -i '/^=$s/d'";
		    print ' %{_texmfconfdir}/tex/generic/config/language.dat' . "\n";
		}
	    }
	    $hyphen{lefthyphenmin} = 2 if (!$hyphen{lefthyphenmin});
	    $hyphen{righthyphenmin} = 3 if (!$hyphen{righthyphenmin});
	    print "    sed -i '/\\\\addlanguage\{$hyphen{name}\}\{$hyphen{file}\}\{\}";
	    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}/d'";
	    print ' %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
	    if (exists $hyphen{synonyms}) {
		foreach my $s (quotewords(',',0,$hyphen{synonyms})) {
		    print "    sed -i '/\\\\addlanguage\{$s\}\{$hyphen{file}\}\{\}";
		    print "\{$hyphen{lefthyphenmin}\}\{$hyphen{righthyphenmin}\}/d'";
		    print ' %{_texmfconfdir}/tex/generic/config/language.def' . "\n";
		}
	    }
	    next;
	}
	if ($e =~ m/execute=[aA]dd(Mixed|Kanji)?Map/) {
	    my @line = quotewords('[=[:blank:]]+', 1, $e);
	    shift @line;
	    $line[0] =~ s/[aA]dd//;
	    print "    sed -ri 's/^($line[0]" . '[[:blank:]]+' . "$line[1])/" . '\#\! \1/' . "'";
	    print ' %{_texmfconfdir}/web2c/updmap.cfg' . "\n";
	}
    }
    print "    %{_bindir}/mktexlsr 2> /dev/null || :\n";
    if ($dofmtu) {
	print "    %{_bindir}/fmtutil-sys --missing > /dev/null 2>&1 || :\n";
    }
    if ($doupdm) {
	print "    %{_bindir}/updmap-sys --nohash --quiet > /dev/null 2>&1 || :\n";
    }
    print "    exit 0\n";
    print "fi\n";
    print "mkdir -p $varrun\n";
    print "> $dohash\n";
    print "> $dofmtu\n" if ($dofmtu);
    print "> $doupdm\n" if ($doupdm);
    print "\n";
    print '%posttrans' . "\n";
    print "if test -d $varrun; then\n";
    print "    VERBOSE=false %{_texmfmaindir}/texconfig/update\n";
    print "    rm -rf $varrun\n";
    print "fi\n";
}

sub reroder {
    my $name = shift;
    if (grep m@tlpkg/tlpobj@, @runfiles) {
	print <<'EOF';
    # Remove this
    rm -vrf %{buildroot}%{_texmfdistdir}/tlpkg/tlpobj
    rm -vrf %{buildroot}%{_texmfmaindir}/tlpkg/tlpobj
EOF
    }
    if (grep /%{_mandir}/, @docfiles) {
	print <<'EOF';
    # Handle manual pages
    rm -vf  %{buildroot}%{_texmfmaindir}/doc/man/Makefile
    rm -vrf %{buildroot}%{_texmfmaindir}/doc/man/man*/*.pdf
    for sec in %{buildroot}%{_texmfmaindir}/doc/man/man?
    do
	test -d "$sec" || continue
	mkdir -p %{buildroot}%{_mandir}/$sec
	for page in %{buildroot}%{_texmfmaindir}/doc/man/${sec}/*.*
	do
	    test -e "$page" || continue
	    mv -f $page %{buildroot}%{_mandir}/${sec}/
	done
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/man
EOF
    }
    if (grep /%{_infodir}/, @docfiles) {
	print <<'EOF';
    # Handle info documents
    rm -vf  %{buildroot}%{_texmfmaindir}/doc/info/dir
    mkdir -p %{buildroot}%{_infodir}
    for inf in %{buildroot}%{_texmfmaindir}/doc/info/*.info
    do
	test -e "$inf" || continue
	mv -f $inf %{buildroot}%{_infodir}/
    done
    rm -rf %{buildroot}%{_texmfmaindir}/doc/info
EOF
    }
    my $reg;
    $reg = '/(' . join('|', @configs) . ')$';
    $reg =~ s/\./\\\./g;
    my @dirs = ();
    my @conf = ();
    $scr = $sc{$name}->run;
    for (my $n = $sc{$name}->cun; $n < $sc{$name}->run; $n++) {
	my $file = $runfiles[$n];
	next if $file !~ m@$reg@;
	my $cnf = $&;
	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[$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++] = "%{_datadir}/X11/app-defaults$cnf";
    }
    if ($#conf > -1) {
	print <<'EOF';
    # Move configuration files
EOF
    }
    print "    mkdir -p %{buildroot}$_\n" foreach (@dirs);
    print "    $_\n" foreach (@conf);
### Todo: Separate font package
}

Places

File generate of Package Meta (Revision 3fcab5fe97be566e7765a0cb621a2647)

Places