summaryrefslogtreecommitdiff
path: root/new-infra/test-tltree.pl
blob: 657516b8568e51b4e0b7c6a6e636892e2b3361fd (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
#!/usr/bin/perl -w

use strict;

use TLTREE;
use Data::Dumper;

my $tl = TLTREE->new( 'svnroot' => "/src/TeX/texlive-svn/new-infra" );

print "svnroot = ", $tl->svnroot, "\n";
$tl->init_from_svn;

print Dumper($tl);

#$tl->print;

my $fn="texmf-dist/fonts/tfm/baz/file1";
print "$fn rev = ", $tl->file_svn_lastrevision($fn), "\n";

my $foo = $tl->get_matching_files("run","t texmf-dist fonts");

print "files under texmf-dist fonts = @$foo\n";

$foo = $tl->get_matching_files('run',"f texmf/.*/bar/.*");

print "files mathcing f texmf/.*/bar/.*: @$foo\n";

$foo = $tl->get_matching_files('bin','f bin/${ARCH}/.*');

foreach (keys %$foo) {
	my @a = @{$foo->{$_}};
	print "arch=$_: @a\n";
}