172445Sassar/* 2233294Sstas * Copyright (c) 1999 Kungliga Tekniska H��gskolan 372445Sassar * (Royal Institute of Technology, Stockholm, Sweden). 472445Sassar * All rights reserved. 5233294Sstas * 672445Sassar * Redistribution and use in source and binary forms, with or without 772445Sassar * modification, are permitted provided that the following conditions 872445Sassar * are met: 9233294Sstas * 1072445Sassar * 1. Redistributions of source code must retain the above copyright 1172445Sassar * notice, this list of conditions and the following disclaimer. 12233294Sstas * 1372445Sassar * 2. Redistributions in binary form must reproduce the above copyright 1472445Sassar * notice, this list of conditions and the following disclaimer in the 1572445Sassar * documentation and/or other materials provided with the distribution. 16233294Sstas * 1772445Sassar * 3. Neither the name of the Institute nor the names of its contributors 1872445Sassar * may be used to endorse or promote products derived from this software 1972445Sassar * without specific prior written permission. 20233294Sstas * 2172445Sassar * THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND 2272445Sassar * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 2372445Sassar * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 2472445Sassar * ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE 2572445Sassar * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 2672445Sassar * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 2772445Sassar * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 2872445Sassar * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 2972445Sassar * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 3072445Sassar * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 3172445Sassar * SUCH DAMAGE. 3272445Sassar */ 3372445Sassar 3472445Sassar/* 3572445Sassar * Timeval stuff 3672445Sassar */ 3772445Sassar 3872445Sassar#include <config.h> 3972445Sassar 4072445Sassar#include "roken.h" 4172445Sassar 4272445Sassar/* 4372445Sassar * Make `t1' consistent. 4472445Sassar */ 4572445Sassar 46233294SstasROKEN_LIB_FUNCTION void ROKEN_LIB_CALL 4772445Sassartimevalfix(struct timeval *t1) 4872445Sassar{ 4972445Sassar if (t1->tv_usec < 0) { 5072445Sassar t1->tv_sec--; 5172445Sassar t1->tv_usec += 1000000; 5272445Sassar } 5372445Sassar if (t1->tv_usec >= 1000000) { 5472445Sassar t1->tv_sec++; 5572445Sassar t1->tv_usec -= 1000000; 5672445Sassar } 5772445Sassar} 58233294Sstas 5972445Sassar/* 6072445Sassar * t1 += t2 6172445Sassar */ 6272445Sassar 63233294SstasROKEN_LIB_FUNCTION void ROKEN_LIB_CALL 6472445Sassartimevaladd(struct timeval *t1, const struct timeval *t2) 6572445Sassar{ 6672445Sassar t1->tv_sec += t2->tv_sec; 6772445Sassar t1->tv_usec += t2->tv_usec; 6872445Sassar timevalfix(t1); 6972445Sassar} 70233294Sstas 7172445Sassar/* 7272445Sassar * t1 -= t2 7372445Sassar */ 7472445Sassar 75233294SstasROKEN_LIB_FUNCTION void ROKEN_LIB_CALL 7672445Sassartimevalsub(struct timeval *t1, const struct timeval *t2) 7772445Sassar{ 7872445Sassar t1->tv_sec -= t2->tv_sec; 7972445Sassar t1->tv_usec -= t2->tv_usec; 8072445Sassar timevalfix(t1); 8172445Sassar} 82