summaryrefslogtreecommitdiff
path: root/new-infra/test-tltree.pl
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";