summaryrefslogtreecommitdiff
path: root/new-infra
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2007-05-07 01:01:28 +0000
committerNorbert Preining <preining@logic.at>2007-05-07 01:01:28 +0000
commitdb133c6b42a7c7857b0d06f5b974ffa45ccbf183 (patch)
tree014fb9898219401ba43c0c85fbc8589a54b4fd70 /new-infra
parenta6aaedd52b9c8b3117f3d97d71185d9dc82cd323 (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/README2
-rw-r--r--new-infra/tlsrc2tlp.pl18
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;