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";
}
|