blob: d0648005decfcdd0dbe95a6fb0322e8663e7e198 (
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
|
#!/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_files_matching_dir_pattern('binfiles',"texmf-dist","fonts");
print "files under texmf-dist fonts = @foo\n";
@foo = $tl->get_files_matching_regexp_pattern('binfiles',"f texmf/.*/bar/.*");
print "files mathcing f texmf/.*/bar/.*: @foo\n";
|