cpet/openbsd-ports
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

sigh... if I want probabilistic results, cores MUST unsquiggle on a regular

Browse Source 
basis.
This commit is contained in:
espie 2013-09-23 14:50:54 +00:00
parent 72779a9859
commit 839dbe9437
1 changed files with 19 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
infrastructure/lib/DPB/Core.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4:
# $OpenBSD: Core.pm,v 1.52 2013/09/23 14:21:47 espie Exp $
# $OpenBSD: Core.pm,v 1.53 2013/09/23 14:50:54 espie Exp $
#
# Copyright (c) 2010 Marc Espie <espie@openbsd.org>
#
@ -638,7 +638,10 @@ sub get
@$a = sort {$b->sf <=> $a->sf} @$a;
}
my $core = shift @$a;
if ($core->can_squiggle && $core->host->{wantsquiggles}) {
if ($core->may_unsquiggle) {
return $core;
}
if (!$core->{squiggle} && $core->host->{wantsquiggles}) {
if ($core->host->{wantsquiggles} < 1) {
if (rand() <= $core->host->{wantsquiggles}) {
$core->{squiggle} = $core->host->{wantsquiggles};
@ -652,18 +655,24 @@ sub get
return $core;
}
sub can_squiggle
{
my $core = shift;
return !$core->{squiggle};
}
sub can_be_swallowed
{
my $core = shift;
return defined $core->host->{swallow};
}
sub may_unsquiggle
{
my $core = shift;
if ($core->{squiggle} && $core->{squiggle} < 1) {
if (rand() >= $core->{squiggle}) {
$core->unsquiggle;
return 1;
}
}
return 0;
}
sub unsquiggle
{
my $core = shift;
@ -756,9 +765,9 @@ sub available
return $fetchcores;
}
sub can_squiggle
sub may_unsquiggle
{
return 0;
return 1;
}
sub can_be_swallowed