blob: b6728323946492649418f1f996c99df629b46370 (
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
35
36
37
38
39
40
41
|
#!/usr/bin/env perl -w
use lib '/src/TeX/texlive-svn/new-infra';
use strict;
our $opt_debug=1;
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";
}
$foo = $tl->get_matching_files('run','f texmf-dist/fonts/tfm/bar/file?');
print "file matching g texmf-dist/fonts/tfm/bar/file?: @$foo\n";
|