anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-22 01:59:02 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Small modifications

Browse Source 
Continued changes for commit 3f48486a
This commit is contained in:
Kornel Benko 2024-10-07 12:35:10 +02:00
parent c0ee28a7c9
commit 341410a512
1 changed files with 25 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

41
development/checkurls/search_url.pl
View File

@ -44,6 +44,9 @@ use CheckURL;
use Try::Tiny; use Try::Tiny;
use locale; use locale;
use POSIX qw(locale_h); use POSIX qw(locale_h);
use Readonly;
Readonly::Scalar my $NR_JOBS => 10;
setlocale(LC_CTYPE, ""); setlocale(LC_CTYPE, "");
setlocale(LC_MESSAGES, "en_US.UTF-8"); setlocale(LC_MESSAGES, "en_US.UTF-8");
@ -59,6 +62,7 @@ sub readUrls($\%);
sub parse_file($ ); sub parse_file($ );
sub handle_url($$$ ); sub handle_url($$$ );
sub printx($$$$); sub printx($$$$);
sub getnrjobs($$$);
########## ##########
my %URLS = (); my %URLS = ();
@ -158,7 +162,7 @@ else {
print "Using tempdir \"" . abs_path($tempdir) . "\"\n"; print "Using tempdir \"" . abs_path($tempdir) . "\"\n";
my @wait = (); my @wait = ();
for (my $i = 0; $i < 10; $i++) { # Number of subprocesses for (my $i = 0; $i < $NR_JOBS; $i++) { # Number of subprocesses
my $pid = fork(); my $pid = fork();
if ($pid == 0) { if ($pid == 0) {
@ -168,26 +172,17 @@ for (my $i = 0; $i < 10; $i++) { # Number of subprocesses
while (1) { while (1) {
open(my $fh, '+<', $countfile) or die("cannot open $countfile"); open(my $fh, '+<', $countfile) or die("cannot open $countfile");
flock($fh, LOCK_EX) or die "$i: Cannot lock $countfile - $!\n"; flock($fh, LOCK_EX) or die "$i: Cannot lock $countfile - $!\n";
my $l = <$fh>; # get actual count number my $l = <$fh>; # get actual count number
my $diff = undef; if (!defined($testvals[$l])) {
if (defined($testvals[$l + 150])) {
$diff = 5;
}
elsif (defined($testvals[$l + 50])) {
$diff = 3;
}
elsif (defined($testvals[$l + 20])) {
$diff = 2;
}
elsif (defined($testvals[$l])) {
$diff = 1;
}
else {
close($fs); close($fs);
print $fe "NumberOfErrors $errorcount\n"; print $fe "NumberOfErrors $errorcount\n";
close($fe); close($fe);
exit(0); exit(0);
} }
my $diff = getnrjobs(scalar @testvals, $l, $NR_JOBS);
if ($diff < 1) {
$diff = 1;
}
my $next = $l + $diff; my $next = $l + $diff;
seek($fh, 0, 0); seek($fh, 0, 0);
truncate($fh, 0); truncate($fh, 0);
@ -403,3 +398,17 @@ sub handle_url($$$) {
} }
push(@{$URLS{$url}->{$f}}, $line); push(@{$URLS{$url}->{$f}}, $line);
} }
sub getnrjobs($$$) {
my ($tabsize, $actualidx, $nr_jobs) = @_;
my $maxidx = $tabsize - 1;
my $remaining = $maxidx - $actualidx;
if ($remaining <= 0) {
return (1);
}
if ($nr_jobs < 2) {
return ($remaining);
}
my $diff = 1 + int($remaining / (2 * $nr_jobs));
return $diff;
}