Mercurial > pub > site.implab

comparison dox_task.pl @ 15:573a92d54f07

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sync
author sergey
date Tue, 20 May 2014 01:27:30 +0400
parents d997ff96acf1
children e69c970c3ddd
comparison
equal deleted inserted replaced
14:d997ff96acf1 15:573a92d54f07
12 Config => 'IMPL::Config' 12 Config => 'IMPL::Config'
13 }; 13 };
14 14
15 my @repos = ( 15 my @repos = (
16 { 16 {
17 doxyfile => '_doc/doxyfile', 17 doxyfile => 'doxyfile',
18 src => 'https://hg.implab.org/pub/ImplabNet' 18 src => 'https://hg.implab.org/pub/ImplabNet'
19 }, 19 },
20 { 20 {
21 doxyfile => 'Doc/doxyfile', 21 doxyfile => 'Solution/doxyfile',
22 src => 'https://hg.implab.org/private/Pallada.PoiskAvia' 22 src => 'https://hg.implab.org/private/Pallada.PoiskAvia'
23 },
24 {
25 doxyfile => 'doxyfile',
26 src => 'https://hg.implab.org/private/Pallada.Kospas'
23 } 27 }
24 ); 28 );
25 29
26 my $base = Config->AppDir('mercurial-data'); 30 my $base = Config->AppDir('mercurial-data');
27 31
28 foreach my $desc (@repos) { 32 foreach my $desc (@repos) {
29 my $name = pop (@{[split /\//, $desc->{src}]}); 33 my $name = pop (@{[split /\//, $desc->{src}]});
30 print "processing: $name\n"; 34 print "processing: $name\n";
31 my $dir = File::Spec->catdir($base,$name); 35 my $dir = File::Spec->catdir($base,$name);
32 my $update; 36 my $update = 1;
33 if (-d $dir) { 37 if (-d $dir) {
34 38
35 my $repo = HG->new($dir,\%config::hgSettings); 39 my $repo = HG->new($dir,\%config::hgSettings);
36 my $income = $repo->Income(); 40 my $income = $repo->Income();
37 if (@$income) { 41 if (@$income) {
44 my $repo = HG->Clone($desc->{src},$dir,[],\%config::hgSettings); 48 my $repo = HG->Clone($desc->{src},$dir,[],\%config::hgSettings);
45 $update = 1; 49 $update = 1;
46 } 50 }
47 51
48 if ($update) { 52 if ($update) {
49 print "updating $name"; 53 print "updating $name\n";
50 my $task = DoxygenTask->new( 54 my $task = DoxygenTask->new(
51 doxyfile => File::Spec->catdir($dir,$desc->{doxyfile}), 55 doxyfile => File::Spec->catdir($dir,$desc->{doxyfile}),
52 makedoc => 1, 56 makedoc => 1,
53 dataDirPath => Config->AppDir('doxygen-data', $name), 57 dataDirPath => Config->AppDir('doxygen-data', $name),
54 connection => $config::doxConnection 58 connection => $config::doxConnection