openSUSE Build Service

Overview Repositories Revisions Requests Users Attributes Meta

File generate of Package Meta (Revision e78d5834ecc44da20a654449c502d691)

Currently displaying revision e78d5834ecc44da20a654449c502d691 , Show latest

#!/usr/bin/perl

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

use strict;
use warnings;
use integer;

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

package main;

my $srcdate = 20110705;
my $version = 0;
my $srcurl  = "ftp://ftp.ctan.org/pub/tex/systems/texlive/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("ftp://ftp.ctan.org/pub/tex/systems/texlive/tlnet/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 $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, $_;
    }
last if /12many/;
}
push @packages, sort @main;

#
# Open the spec file template for packages
#
open STDIN, "<_other.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=<$name*.{dif,diff,patch}>;

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

print "# spec file for package texlive-$name\n";

lseek '@@VERSION@@';

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

lseek '@@TAGS@@';

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

lseek '@@FILES@@';

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

lseek;
}

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

open STDIN, "<&$stdin";

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

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

my $scx = 0;
my @tarball = ();
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;

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

$tarball[$scx++] = $name . '.tar.xz';

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';
	}
	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/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:]]+/) {
		$tarball[$scx++] = $name . '.doc.tar.xz';
	    }
	    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'.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 && $_ =~ /^[[:blank:]]RELOC\//) {
		$isreloc = 1;
	    }
	    if ($flags == 4) {
		$provide = doprovide($_);
		$provides[$prv++] = $provide if ($provide);
	    }
	    $flags = 4 if /^runfiles/;
	    $flags = 2 if /^docfiles/;
	}
    }
    if (!$pkg) {
	print '%package ' . $target . "\n";
    } else {
	print 'Name: texlive-' . $target . "\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";
    }
    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";
	}
    }
    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 = ();
	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;
	    }
	    archivemount("other/$tarball[$n] mnt/");
	    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;
		}
	    }
	    close(FILE);
	    fusermount("-u 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) {
	for ($n = 0; $n < $scx; $n++) {
	    print 'Source' . $n . ': ' . $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; $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";
	    }
	}
	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; $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";
	}
    }
}

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 ($flags == 2);
	    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=[^=]*$// if ($flags == 2);
	    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\/.*/);

#
	    # 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 e78d5834ecc44da20a654449c502d691)

Places