diff options
author | Norbert Preining <preining@logic.at> | 2007-05-07 01:01:28 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2007-05-07 01:01:28 +0000 |
commit | db133c6b42a7c7857b0d06f5b974ffa45ccbf183 (patch) | |
tree | 014fb9898219401ba43c0c85fbc8589a54b4fd70 /new-infra | |
parent | a6aaedd52b9c8b3117f3d97d71185d9dc82cd323 (diff) |
add some progress indicator, add some entries under missing stuff
git-svn-id: svn://tug.org/texlive/trunk@4256 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'new-infra')
-rw-r--r-- | new-infra/README | 2 | ||||
-rw-r--r-- | new-infra/tlsrc2tlp.pl | 18 |
2 files changed, 14 insertions, 6 deletions
diff --git a/new-infra/README b/new-infra/README index 523b7b6ab4b..a9bf24e9029 100644 --- a/new-infra/README +++ b/new-infra/README @@ -8,6 +8,8 @@ current status: . package version based on the maximum of all package file last changed revision number of subversion Missing: + . currently at auto generation time all the files are put into + the runfiles section instead of doc in docfiles etc ... . update/inclusion of information from the catalogue . missing source keys? . efficient procedures diff --git a/new-infra/tlsrc2tlp.pl b/new-infra/tlsrc2tlp.pl index e35eb99669c..c4163cb7aaa 100644 --- a/new-infra/tlsrc2tlp.pl +++ b/new-infra/tlsrc2tlp.pl @@ -29,12 +29,17 @@ sub main { read_tlsrc_file($f); } initialize_all_files(); + my $ts = $#tlsrc + 1; + my $fs = 0; foreach my $f (keys %tls) { + $fs++; + if ($fs/10 == int($fs/10)) { print "$fs from $ts\n"; } generate_tlp_data($f); - } - foreach my $f (keys %tldb) { write_tlp_file($f); } + #foreach my $f (keys %tldb) { + # write_tlp_file($f); + #} foreach my $f (keys %AllFiles) { if ($AllFiles{$f}{'used'} != 1) { print STDERR "Not covered file: $f\n"; @@ -223,8 +228,7 @@ sub generate_tlp_data { $tldb{$tlp}{'srcfiles'} = [ ]; $tldb{$tlp}{'packageversion'} = 0; my $filemax; - my @allf = keys %AllFiles; - FILELABEL: foreach my $f (@allf) { + FILELABEL: foreach my $f (keys %AllFiles) { $filemax = $AllFiles{$f}{'lastchangedrev'}; foreach my $p (@{$tls{$tlp}{'runpatterns'}}) { if (pattern_hit($f,$p,"run")) { @@ -333,8 +337,10 @@ sub pattern_hit { my $pattype = $1; my $patdata = $2; if ($pattype eq "d") { - my $dirn = `dirname $file`; # bad, should be rewritten - chomp($dirn); + #my $dirn = `dirname $file`; # bad, should be rewritten + #chomp($dirn); + my $dirn = $file; + $dirn =~ s@/[^/]*$@@; logit("matching >>>$patdata<<< against >>>$dirn<<<\n"); if ($dirn =~ /^$patdata$/) { return 1; |