bkuhn/small-hacks
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Bring over BinarySearchForTZEntry from SFLC code.

Browse source
This commit is contained in:
Bradley M. Kuhn 2013-11-29 13:42:38 -05:00
parent 4269e613e1
commit cae0ecbcce
1 changed files with 24 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

27
calendar-export.plx
View file

@ -22,9 +22,9 @@
# along with this program in a file in the toplevel directory called # along with this program in a file in the toplevel directory called
# "GPLv3". If not, see <http://www.gnu.org/licenses/>. # "GPLv3". If not, see <http://www.gnu.org/licenses/>.
# The functions PrivatizeMergeAndTZIcalFile, BuildTZList, # The functions BinarySearchForTZEntry, PrivatizeMergeAndTZIcalFile,
# PrivacyFilterICalFiles, and FilterEmacsToICal material copyrighted and # BuildTZList, PrivacyFilterICalFiles, and FilterEmacsToICal material
# licensed as below: # copyrighted and licensed as below:
# Copyright © 2006 Software Freedom Law Center, Inc. # Copyright © 2006 Software Freedom Law Center, Inc.
# #
@ -48,6 +48,27 @@ use Date::Manip;
use DateTime::Format::ICal; use DateTime::Format::ICal;
use Date::ICal; use Date::ICal;
############################################################################### ###############################################################################
sub BinarySearchForTZEntry {
# $tzList is assumed to be sorted, $dateTime is
my($tzList, $dateTime) = @_;
my ($l, $u) = (0, @$tzList - 1); # lower, upper end of search interval
my $i; # index of probe
my $final = 0;
while ($l <= $u) {
$i = int(($l + $u)/2);
my $compareVal = DateTime->compare($tzList->[$i]{date}, $dateTime);
if ($compareVal < 0) {
$l = $i+1;
$final = $i;
} elsif ($compareVal > 0) {
$u = $i-1;
} else {
return $tzList->[$i]; # found, won't happen often
}
}
return $tzList->[$final]; # not found, go down one lower
}
###############################################################################
sub BuildTZList ($$$) { sub BuildTZList ($$$) {
my($user, $pubEmacsFile, $privEmacsFile) = @_; my($user, $pubEmacsFile, $privEmacsFile) = @_;