openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision d146b57a0340d7655299e5354995b30c)

Currently displaying revision d146b57a0340d7655299e5354995b30c , Show latest

#!/usr/bin/perl

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

use strict;
use warnings;
use integer;

use utf8;
use open ':encoding(utf8)';
use open ':std';

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

use POSIX qw(setlocale LC_ALL strftime);

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

my $srcdate = 20110705;
my $version = 0;
my $tlnet   = "ftp://ftp.ctan.org/pub/tex/systems/texlive/tlnet";
my $tlpkg  = "$tlnet/tlpkg";
my $srcurl  = "$tlnet/archive";
my @subscripts = ('.sty', '.cls', '.clo', '.bbx', '.cbx', '.lbx');
my @skip    = (
    ".*wintools.*",			# Win soft
    ".*texworks.*",			# Win soft
    "tcdialog.*",			# We have a separate dialog program
    "t1utils.*",			# We have a separate t1util package
    "psutils.*",			# We have a separate psutils package
    "dvi2tty.*",			# License problems
    "floatflt",				# License problems
    "sphack",				# License problems
    "xindy.*",				# Requires clisp
    "ctan.*",				# No upload support
    ".*texlive\.infra.*",		# No download support
    ".*onfly.*",			# 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";

-e "texlive.tlpdb.xz" or wget("$tlpkg/texlive.tlpdb.xz");

($tlpfh, $tlpdb) = mkstemp($tlpdb);
END { unlink($tlpdb); }
$SIG{INT} = sub { unlink($tlpdb); exit; };

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

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

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

open my $stdin, "<&STDIN";

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

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

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

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

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

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

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

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

seek STDIN, 0, 0;

lseek '@@VERSION@@';

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

lseek '@@TAGS@@';

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

lseek '@@FILES@@';

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

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:]]+$)//;
	    chomp($auth);
	    print date("--date=\"$date\" --utc +\"\* %a %b %d %Y $auth\"");
	    next;
	}
	print $_ . "\n";
    }
    close CHLOG;

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

$patch_hook = 0;
$macros_hook = 0;
$source_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("texlive-specs/spec.XXXXXXXX");
select $specfh;

lseek '@@VERSION@@';

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

lseek '@@SOURCES@@';

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

my @collect;

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

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

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

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

lseek '@@PACKAGES@@';

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

lseek '@@TEXMFTREE@@';

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

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

lseek '@@INSTALL@@';

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

lseek '@@TEXMFTREE@@';

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

lseek '@@FILES@@';

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

lseek;

#
# Close and rename main spec file
#
select STDOUT;
$target = "texlive-specs/texlive.spec";
rename($spec, $target);

sub packages {
    my $n;
    my $idx = 0;
    my $cnt = 0;
    my $prv = 0;
    my $cur;
    my @desc = ();
    my @dependx = ();
    my $provide = shift(@_);
    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 = "";

$cur = $scx;

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

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

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

chomp;

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

$noarch = "" if /^binfiles arch=i386-linux/;
	    $desc[$idx++] = $_ if s/^longdesc[[:blank:]]+//;

if (/^depend[[:blank:]]+/) {
		next if /^depend[[:blank:]]+($regexp)/;
		s/\.ARCH$/-bin/;
		$dependx[$cnt++] = $_ if s/^depend[[:blank:]]+//;
		next;
	    }
	    if ($pkg && /^docfiles[[:blank:]]+/) {
		my $doc = $scx;
		$tarball[$scx++] = $name . '.doc.tar.xz';
		-e "packages/$tarball[$doc]" or wget("-P", "packages/", "$srcurl/$tarball[$doc]");
	    }
	    if (/^runfiles[[:blank:]]+/) {
		if ($cur < $scx) {
		    my $last = $tarball[$cur];
		    $tarball[$cur]   = $name . '.tar.xz';
		    $tarball[$scx++] = $last;
		} else {
		    $cur = $scx;
		    $tarball[$scx++] = $name . '.tar.xz';
		}
		if ($pkg) {
		    -e "packages/$tarball[$cur]" or wget("-P", "packages/", "$srcurl/$tarball[$cur]");
		} else {
		    -e "basesystem/$tarball[$cur]" or wget("-P", "basesystem/", "$srcurl/$tarball[$cur]");
		}
	    }
	    if (/^srcfiles[[:blank:]]+/) {
		next;
		$tarball[$scx++] = $name . '.source.tar.xz';
	    }
	    $catversion = $_ if s/^catalogue-version[[:blank:]]+//;
	    if (s/^catalogue\-license[[:blank:]]+//) {
		#
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.html
		# http://www.tex.ac.uk/tex-archive/help/Catalogue/licenses.knuth.html
		# http://license.opensuse.org/
		#
		if ($_ =~ /^apache2/) {
		    $license = 'Apache-2.0';
		} elsif ($_ =~ /^apache/) {
		    $license = 'Apache-1.0';
		} elsif ($_ =~ /^artistic/) {
		    $license = 'Artistic-1.0 ; GPL-2.0+';# Same License as Perl
		    if ($target =~ /biber/) {
			$license = 'Artistic-2.0 ; GPL-1+';
		    }
		} elsif ($_ =~ /^artistic2/) {
		    $license = 'Artistic-2.0';
		} elsif ($_ =~ /^bsd/) {# MIT ???
		    $license = 'BSD-3-Clause';
		} elsif ($_ =~ /^fdl/) {
		    $license = 'GFDL-1.2';
		} elsif ($_ =~ /^pd/) {
		    $license = 'SUSE-Public-Domain';
		} elsif ($_ =~ /^knuth/) {
		    $license = 'SUSE-TeX';
		} elsif ($_ =~ /^gfl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^gfsl/) {
		    $license = 'LPPL-1.3c with exceptions';
		} elsif ($_ =~ /^ofl/) {
		    $license = 'OFL-1.1';
		} elsif ($_ =~ /^lppl1.3/) {
		    $license = 'LPPL-1.3c';
		} elsif ($_ =~ /^lppl1.2/) {
		    $license = 'LPPL-1.2';
		} elsif ($_ =~ /^lppl1/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^lppl/) {
		    $license = 'LPPL-1.0';
		} elsif ($_ =~ /^gpl3/) {
		    $license = 'GPL-3+';
		} elsif ($_ =~ /^gpl2/) {
		    $license = 'GPL-2+';
		} elsif ($_ =~ /^gpl/) {
		    $license = 'GPL-2+';
		    if ($target =~ /asymptote/) {
			$license = 'LGPL-3.0+';
		    }
		} elsif ($_ =~ /^lgpl/) {
		    $license = 'LGPL-2.1+';
		} elsif ($_ =~ /^lgpl3/) {
		    $license = 'LGPL-3.0+';
		} elsif ($_ =~ /^lgpl2\.1/) {
		    $license = 'LGPL-2.1+';
		} else {
		    s/(.)/\U$1/g;
		    $license =~ $_;
		}
	    }
	    $date = $_ if s/^catalogue-date[[:blank:]]+//;
	    $flags = 0 if /^[[:^blank:]]/;
	    if ($flags > 0) {
		$isreloc = 1 if /^[[:blank:]]+RELOC\//;
		if ($flags == 2 && /^[[:blank:]]+[[:^blank:]]+([[:blank:]]+[[:^blank:]]+="[^"]+")+/p) {
		    my $match = $^N;
		    if ($match =~ /[[:blank:]]+language=/) {
			$match =~ s/[[:blank:]]+language="([^"]+)"/$1/;
			if ($match =~ /uk/) {
			    $match = 'en_UK';
			}
			push @locales, $match;
		    }
		}
	    }
	    if ($flags == 4) {
		$provide = doprovide($_);
		$provides[$prv++] = $provide if ($provide);
	    }
	    $flags = 4 if /^runfiles/;
	    $flags = 2 if /^docfiles/;
	}
    }
    if ($cur == $scx) {
	$tarball[$scx++] = $name . '.tar.xz';
    }
    if (!$pkg) {
	print '%package ' . $target . "\n";
    } else {
	my $ext = "";
	$ext = "-doc" if ($tarball[$cur] =~ /.*\.doc\.tar\.xz/);
	print 'Name: texlive-' . $target . "$ext\n";
	$return = 'texlive-' . $target . "$ext";
    }
    print 'Version: %{texlive_version}' . "\n";
    if ($revision) {
	if ($catversion) {
	    if ($catversion =~ /^\.[[:digit:]]/) {
		    $catversion = sprintf('0.%s', $catversion);
	    }
	    if ($catversion =~ /^0+\./) {
		#           gensub(/^0+\.(.*)/, "\\1", "g", catversion)
		$catversion = sprintf('0.%s', $catversion);
	    }
	    print 'Release: %{texlive_release}.' . $catversion . '.svn' .  $revision . "\n";
	} else {
	    print 'Release: %{texlive_release}.svn' . $revision . "\n";
	}
    }
    if ($license) {
	print 'License: ' . $license . "\n";
    }
    if ($summary) {
	print 'Summary: ' . $summary . "\n";
	if (!$noarch) {
	    print 'Group: Productivity/Publishing/TeX/Utilities' . "\n";
	} elsif ($target =~ /collection-texinfo/) {
	    print 'Group: Productivity/Publishing/Texinfo' . "\n";
	} elsif ($target =~ /scheme-/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-(music|omega|xetex|latex|htmlxml|formatsextra|context|basic)/) {
	    print 'Group: Productivity/Publishing/TeX/Frontends' . "\n";
	} elsif ($target =~ /collection-fonts/) {
	    print 'Group: Productivity/Publishing/TeX/Fonts' . "\n";
	} else {
	    print 'Group: Productivity/Publishing/TeX/Base' . "\n";
	}
	print 'Url: http://www.tug.org/texlive/' . "\n";
    }
    if ($pkg) {
	print 'BuildRequires: texlive-basesystem' . "\n";
    }
    for ($n = 0; $n < $cnt; $n++) {
	if ($noarch && $dependx[$n] =~ /.*-bin$/) {
	    print 'Requires(prereq): texlive-' . $dependx[$n] .  ' = %{texlive_version}' . "\n";
	} else {
	    print 'Requires: texlive-' . $dependx[$n] .  ' = %{texlive_version}' . "\n";
	}
    }
    if ($prv) {
	my $req = 0;
	my @requires = ();
	my $mnt = 0;
	if (-e "packages/$tarball[$cur]") {
	    my $x = archivemount("packages/$tarball[$cur] mnt/");
	    $mnt++;
	}
	for ($n = 0; $n < $prv; $n++) {
	    my $path = $provides[$n];
	    $provides[$n] =~ s@.*/@@;
	    print 'Provides: tex(' . $provides[$n] . ")\n";
	    if ($provides[$n] !~ /.*\.(sty|cls)$/) {
		next;
	    }
	    next if ! -e "mnt/$path";
	    open FILE, "<mnt/$path";
	    while (<FILE>) {
		if ($_ =~ s/\\RequirePackage//) {
		    s/[{}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @styles = split(' ', $_);
		    foreach my $sty (@styles) {
			$requires[$req++] = $sty . '.sty';
		    }
		    next;
		}
		if (($_ =~ s/\\LoadClass//)) {
		    s/[{}]//g;
		    s/,[[:blank:]]*/ /g;
		    my @classes = split(' ', $_);
		    foreach my $class (@classes) {
			$requires[$req++] = $class . '.cls';
		    }
		    next;
		}
		#
		# Some more Requires?
		#
	    }
	    close(FILE);
	}
	fusermount("-u mnt/") if ($mnt);
	for ($n = 0; $n < $req; $n++) {
	    my $self = 0;
	    for (my $l = 0; $l < $prv; $l++) {
		if ($provides[$l] eq $requires[$n]) {       #???
		    $self = 1;
		    last;
		}
	    }
	    if (!$self) {
		print 'Requires: tex(' . $requires[$n] . ')' . "\n";
	    }
	}
    }
    if ($pkg) {
	my $m = 0;
	for ($n = $cur; $n < $scx; $n++, $m++) {
	    print 'Source' . $m . ': ' . $srcurl . '/' . $tarball[$n] . "\n";
	}
    }
    &$patch_hook() if ($patch_hook);
    if ($noarch) {
	print $noarch . "\n";
    } else {
	print 'Prefix: %{_bindir}' . "\n";
    }
    &$macros_hook() if ($macros_hook);
    if (!$pkg) {
	print "\n%description " . $target . "\n";
    } else {
	print "\n%description" . "\n";
    }
    if ($desc[0]) {
	for ($n = 0; $n < $idx; $n++) {
	    print $desc[$n] . "\n";
	}
    } elsif (!$noarch) {
	print $summary . "\n";
    } else {
	print 'The ' . $target . ' package' . "\n";
    }
    if ($date) {
	$date = date("--date=\"$date\" --utc +\"%Y-%m-%d %T %z\"");
	print "\ndate: " . $date . "\n";
    }
    for ($n = 1; $n < $scx - $cur; $n++) {
	next if ($tarball[$n + $cur] !~ /.*\.doc\.tar\.xz/);
	print "\n%package doc\n";
	print 'Summary: Documentation for texlive-' . $name . "\n";
	print 'Version: %{texlive_version}'. "\n";
	if ($revision) {
	    if ($catversion) {
		if ($catversion =~ /.[[:digit:]]+/) {
		    $catversion = '0' . $catversion;
		}
		print 'Release: %{texlive_release}.' . $catversion .  '.svn' . $revision . "\n";
	    } else {
		print 'Release: %{texlive_release}.svn' . $revision . "\n";
	    }
	}
	if ($#locales > -1) {
	    print "Provides: locale(texlive-" . $name . "-doc:";
	    my $c = 0;
	    foreach my $l (@locales) {
		print ";" if ($c++ > 0);
		print $l
	    }
	    print ")\n";
	}
	print 'BuildArch: noarch' . "\n";
	print "\n%description doc\n";
	print 'Documentation for texlive-' . $name . "\n";
    }
    &$source_hook() if ($source_hook);
    if ($pkg) {
	for ($n = 0; $n < $scx - $cur; $n++) {
	    if ($isreloc) {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive/texmf-dist' . "\n";
            } else {
		print '    tar --use-compress-program=xz -xf %{S:' . $n .  '} -C %{buildroot}%{_datadir}/texlive' . "\n";
	    }
	}
	if ($#patches > -1) {
	    print '    pushd %{buildroot}%{_datadir}/texlive/' . "\n";
	    for ($n = 0; $n <= $#patches; $n++) {
		print "\t" . 'patch --unified-reject-files --quoting-style=literal -f -p0 -F0 -T < %{P:' . $n . "}\n";
	    }
	    print "    popd\n";
	}
    }
    return $return;
}

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

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

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

chomp;

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

if (/^[[:blank:]]bin\/.*-linux\//) {
		next if (/\/man$/);
		s/^[[:blank:]]bin\/.*-linux\//%{_bindir}\//;
		s/-xaw$/-xaw3d/;
		$files[$cnt++]=$_;
		if (/\/musixtex/) {
		    s/\/musixtex/\/pdfmusixtex/;
		    $files[$cnt++]=$_;
		}
	    }

s/[[:blank:]]+details=.*$//;
	    if (/^[[:blank:]]RELOC\//) {
		s/^[[:blank:]]RELOC\//%{_texmfdistdir}\//;
		$files[$cnt++]=$_;
	    }
	    if (/^[[:blank:]]texmf-dist\//) {
		s/^[[:blank:]]texmf-dist\//%{_texmfdistdir}\//;
		$files[$cnt++]=$_;
	    }
	    if (/^[[:blank:]]texmf\//) {
		s/^[[:blank:]]texmf\//%{_texmfmaindir}\//;
		$files[$cnt++]=$_;
	    }
	    if (/^[[:blank:]]/) {
		s/^[[:blank:]]/%{_texmfmaindir}\//;
		$files[$cnt++]=$_;
	    }
	}
    }
    for ($n=0; $n < $cnt; $n++) {
        print "$files[$n]\n";
    }

}

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

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

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

return @paths;
}

Places

File generate of Package Meta (Revision d146b57a0340d7655299e5354995b30c)

Places