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

the speedfactor case needs access to the weights.

Browse Source
This commit is contained in:
espie 2013-10-12 14:11:23 +00:00
parent 500c0733fc
commit 80a00c8b0a
2 changed files with 7 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
infrastructure/lib/DPB/Heuristics.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4: # ex:ts=8 sw=4:
# $OpenBSD: Heuristics.pm,v 1.28 2013/10/12 13:53:35 espie Exp $ # $OpenBSD: Heuristics.pm,v 1.29 2013/10/12 14:11:23 espie Exp $
# #
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org> # Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
# #
@ -25,7 +25,8 @@ package DPB::Heuristics;
# for now, we don't create a separate object, we assume everything here is # for now, we don't create a separate object, we assume everything here is
# "global" # "global"
my (%weight, %bad_weight, %wrkdir, %needed_by, %pkgname); my (%bad_weight, %wrkdir, %needed_by, %pkgname);
our %weight;
sub new sub new
{ {

8
infrastructure/lib/DPB/Heuristics/SpeedFactor.pm
View File

@ -1,5 +1,5 @@
# ex:ts=8 sw=4: # ex:ts=8 sw=4:
# $OpenBSD: SpeedFactor.pm,v 1.1 2013/10/12 13:53:35 espie Exp $ # $OpenBSD: SpeedFactor.pm,v 1.2 2013/10/12 14:11:23 espie Exp $
# #
# Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org> # Copyright (c) 2010-2013 Marc Espie <espie@openbsd.org>
# #
@ -29,13 +29,13 @@ sub add
{ {
my ($self, $v) = @_; my ($self, $v) = @_;
$self->SUPER::add($v); $self->SUPER::add($v);
$self->{weight} += $weight{$v}; $self->{weight} += $DPB::Heuristics::weight{$v};
} }
sub remove sub remove
{ {
my ($self, $v) = @_; my ($self, $v) = @_;
$self->{weight} -= $weight{$v}; $self->{weight} -= $DPB::Heuristics::weight{$v};
$self->SUPER::remove($v); $self->SUPER::remove($v);
} }
@ -63,7 +63,7 @@ sub add
{ {
my ($self, $v) = @_; my ($self, $v) = @_;
$self->SUPER::add($v); $self->SUPER::add($v);
$v->{weight} = $weight{$v}; $v->{weight} = $DPB::Heuristics::weight{$v};
$self->{bins}[find_bin($v->{weight})]->add($v); $self->{bins}[find_bin($v->{weight})]->add($v);
} }