summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-06-21 07:56:23 +0000
committerNorbert Preining <preining@logic.at>2007-06-21 07:56:23 +0000
commit619755811005b3f01f7778847240ab5157eabc1a (patch)
treeb17a813f3085f773f029956d2db6e9d776449c0d
parenta40daa3b3f582b85f1321c97d609923e7b60d44d (diff)
TLTREE: $tltree->init_from_files
inits from a find $svnroot command, all the revisions are set to 1 git-svn-id: svn://tug.org/texlive/trunk@4483 c570f23f-e606-0410-a88d-b1316a301751
-rw-r--r--Master/tlpkg/TeXLive/TLTREE.pm8
-rw-r--r--Master/tlpkg/doc/Perl-API.txt3
2 files changed, 11 insertions, 0 deletions
diff --git a/Master/tlpkg/TeXLive/TLTREE.pm b/Master/tlpkg/TeXLive/TLTREE.pm
index f979618b303..8b508bef634 100644
--- a/Master/tlpkg/TeXLive/TLTREE.pm
+++ b/Master/tlpkg/TeXLive/TLTREE.pm
@@ -45,6 +45,13 @@ sub init_from_statusfile {
close(TMP);
$self->_initialize_lines(@lines);
}
+sub init_from_files {
+ my $self = shift;
+ my $svnroot = $self->{'svnroot'};
+ my @lines = `find $svnroot ! -wholename '*/.svn*'`;
+ @lines = map { s@^$svnroot@@; s@^/@@; " 1 1 dummy $_" } @lines;
+ $self->_initialize_lines(@lines);
+}
sub _initialize_lines {
my $self = shift;
@@ -217,6 +224,7 @@ sub _get_matching_files {
# . -> \.
# * -> .*
# ? -> .
+# + -> \+
sub _get_files_matching_glob_pattern {
my $self = shift;
my ($type,$globline) = @_;
diff --git a/Master/tlpkg/doc/Perl-API.txt b/Master/tlpkg/doc/Perl-API.txt
index ee1e3e69443..2f92a6000a9 100644
--- a/Master/tlpkg/doc/Perl-API.txt
+++ b/Master/tlpkg/doc/Perl-API.txt
@@ -150,6 +150,9 @@ Init functions
$tltree->init_from_statusfile($file)
does the same as init_from_svn, but from a pre-made
output of svn status -v
+ $tltree->init_from_files
+ inits from a find $svnroot command, all the revisions
+ are set to 1
Input/Ouput