source: trunk/libtransmission/utils.c @ 12545

Last change on this file since 12545 was 12545, checked in by jordan, 10 years ago

(trunk libT) minor #include cleanups

  • Property svn:keywords set to Date Rev Author Id
File size: 40.0 KB
RevLine 
[7632]1/*
[11709]2 * This file Copyright (C) Mnemosyne LLC
[1]3 *
[11599]4 * This file is licensed by the GPL version 2. Works owned by the
[7632]5 * Transmission project are granted a special exemption to clause 2(b)
6 * so that the bulk of its code can remain under the MIT license.
7 * This exemption does not extend to derived works not owned by
8 * the Transmission project.
[260]9 *
[7632]10 * $Id: utils.c 12545 2011-07-13 03:23:37Z jordan $
11 */
[1]12
[8430]13#ifdef HAVE_MEMMEM
14 #define _GNU_SOURCE /* glibc's string.h needs this to pick up memmem */
15#endif
16
[10274]17#if defined(SYS_DARWIN)
18 #define HAVE_GETPAGESIZE
[10963]19 #define HAVE_ICONV_OPEN
[10274]20 #define HAVE_VALLOC
21 #undef HAVE_POSIX_MEMALIGN /* not supported on OS X 10.5 and lower */
22#endif
23
[3775]24#include <assert.h>
[12223]25#include <ctype.h> /* isdigit(), isalpha(), tolower() */
[2430]26#include <errno.h>
[11345]27#include <float.h> /* DBL_EPSILON */
28#include <locale.h> /* localeconv() */
[11298]29#include <math.h> /* pow(), fabs(), floor() */
[2328]30#include <stdarg.h>
[2430]31#include <stdio.h>
32#include <stdlib.h>
[10911]33#include <string.h> /* strerror(), memset(), memmem() */
[10916]34#include <time.h> /* nanosleep() */
[2430]35
[10963]36#ifdef HAVE_ICONV_OPEN
37 #include <iconv.h>
38#endif
[10911]39#include <libgen.h> /* basename() */
[2328]40#include <sys/time.h>
41#include <sys/types.h>
42#include <sys/stat.h>
[12223]43#include <unistd.h> /* stat(), getcwd(), getpagesize(), unlink() */
[2390]44
[11548]45#include <event2/buffer.h>
46#include <event2/event.h>
[3735]47
[2591]48#ifdef WIN32
[10814]49 #include <w32api.h>
[10911]50 #define WINVER WindowsXP /* freeaddrinfo(), getaddrinfo(), getnameinfo() */
51 #include <direct.h> /* _getcwd() */
52 #include <windows.h> /* Sleep() */
[2591]53#endif
54
[1]55#include "transmission.h"
[11228]56#include "bencode.h"
[8293]57#include "fdlimit.h"
[7656]58#include "ConvertUTF.h"
[7549]59#include "list.h"
[2430]60#include "utils.h"
[12545]61#include "platform.h" /* tr_lockLock(), TR_PATH_MAX */
[7797]62#include "version.h"
[1]63
[9593]64
[11614]65time_t       __tr_current_time   = 0;
66tr_msg_level __tr_message_level  = TR_MSG_ERR;
[10365]67
[12204]68static bool           messageQueuing = false;
[3105]69static tr_msg_list *  messageQueue = NULL;
70static tr_msg_list ** messageQueueTail = &messageQueue;
[9647]71static int            messageQueueCount = 0;
[626]72
[6924]73#ifndef WIN32
74    /* make null versions of these win32 functions */
[12204]75    static inline int IsDebuggerPresent( void ) { return false; }
[9847]76    static inline void OutputDebugString( const void * unused UNUSED ) { }
[6924]77#endif
78
[9593]79/***
80****
81***/
82
[11250]83static tr_lock*
84getMessageLock( void )
[626]85{
[11250]86    static tr_lock * l = NULL;
[7529]87
[11250]88    if( !l )
89        l = tr_lockNew( );
90
91    return l;
[626]92}
93
[12177]94void*
[3117]95tr_getLog( void )
[798]96{
[12204]97    static bool initialized = false;
[6795]98    static FILE * file = NULL;
[3117]99
100    if( !initialized )
101    {
102        const char * str = getenv( "TR_DEBUG_FD" );
[6795]103        int          fd = 0;
[3117]104        if( str && *str )
105            fd = atoi( str );
[6795]106        switch( fd )
107        {
108            case 1:
109                file = stdout; break;
110
111            case 2:
112                file = stderr; break;
113
114            default:
115                file = NULL; break;
[3117]116        }
[12204]117        initialized = true;
[3117]118    }
119
120    return file;
121}
122
123void
[10912]124tr_setMessageLevel( tr_msg_level level )
[3117]125{
[11614]126    __tr_message_level = level;
[798]127}
128
[5243]129void
[12204]130tr_setMessageQueuing( bool enabled )
[815]131{
132    messageQueuing = enabled;
133}
134
[12204]135bool
[6941]136tr_getMessageQueuing( void )
137{
[10909]138    return messageQueuing != 0;
[6941]139}
140
[5243]141tr_msg_list *
142tr_getQueuedMessages( void )
[815]143{
[3105]144    tr_msg_list * ret;
[11250]145    tr_lockLock( getMessageLock( ) );
[815]146
147    ret = messageQueue;
148    messageQueue = NULL;
149    messageQueueTail = &messageQueue;
[9890]150
[9647]151    messageQueueCount = 0;
[7529]152
[11250]153    tr_lockUnlock( getMessageLock( ) );
[815]154    return ret;
155}
156
[5243]157void
158tr_freeMessageList( tr_msg_list * list )
[815]159{
[3105]160    tr_msg_list * next;
[815]161
162    while( NULL != list )
163    {
164        next = list->next;
165        free( list->message );
[5243]166        free( list->name );
[815]167        free( list );
168        list = next;
169    }
170}
171
[5689]172/**
173***
174**/
175
[8087]176struct tm *
177tr_localtime_r( const time_t *_clock, struct tm *_result )
[6924]178{
179#ifdef HAVE_LOCALTIME_R
180    return localtime_r( _clock, _result );
181#else
182    struct tm *p = localtime( _clock );
183    if( p )
184        *(_result) = *p;
185    return p;
186#endif
187}
188
[5689]189char*
[7797]190tr_getLogTimeStr( char * buf, int buflen )
[5689]191{
[6795]192    char           tmp[64];
193    struct tm      now_tm;
[5689]194    struct timeval tv;
[10044]195    time_t         seconds;
[6795]196    int            milliseconds;
[5689]197
198    gettimeofday( &tv, NULL );
199
[10044]200    seconds = tv.tv_sec;
201    tr_localtime_r( &seconds, &now_tm );
[6795]202    strftime( tmp, sizeof( tmp ), "%H:%M:%S", &now_tm );
[11881]203    milliseconds = tv.tv_usec / 1000;
[6334]204    tr_snprintf( buf, buflen, "%s.%03d", tmp, milliseconds );
[5689]205
206    return buf;
207}
208
[12204]209bool
[6961]210tr_deepLoggingIsActive( void )
211{
[7594]212    static int8_t deepLoggingIsActive = -1;
[7592]213
[7594]214    if( deepLoggingIsActive < 0 )
[7592]215        deepLoggingIsActive = IsDebuggerPresent() || (tr_getLog()!=NULL);
216
[7594]217    return deepLoggingIsActive != 0;
[6961]218}
219
[5689]220void
[6961]221tr_deepLog( const char  * file,
222            int           line,
223            const char  * name,
224            const char  * fmt,
[6795]225            ... )
[5689]226{
227    FILE * fp = tr_getLog( );
[6903]228    if( fp || IsDebuggerPresent( ) )
[5689]229    {
[6795]230        va_list           args;
231        char              timestr[64];
[8685]232        struct evbuffer * buf = evbuffer_new( );
[6897]233        char *            base = tr_basename( file );
[5689]234
[6795]235        evbuffer_add_printf( buf, "[%s] ",
236                            tr_getLogTimeStr( timestr, sizeof( timestr ) ) );
[5689]237        if( name )
238            evbuffer_add_printf( buf, "%s ", name );
239        va_start( args, fmt );
240        evbuffer_add_vprintf( buf, fmt, args );
241        va_end( args );
[6897]242        evbuffer_add_printf( buf, " (%s:%d)\n", base, line );
[8592]243        /* FIXME(libevent2) ifdef this out for nonwindows platforms */
[11548]244        OutputDebugString( evbuffer_pullup( buf, -1 ) );
[11637]245        if( fp )
[11748]246            fputs( (const char*)evbuffer_pullup( buf, -1 ), fp );
[5689]247
[6897]248        tr_free( base );
[8685]249        evbuffer_free( buf );
[5689]250    }
251}
252
253/***
254****
255***/
256
[4092]257void
[8368]258tr_msg( const char * file, int line,
[10912]259        tr_msg_level level,
260        const char * name,
[8368]261        const char * fmt, ... )
[3735]262{
[8368]263    const int err = errno; /* message logging shouldn't affect errno */
[9670]264    char buf[1024];
[9669]265    va_list ap;
[11250]266    tr_lockLock( getMessageLock( ) );
[9669]267
268    /* build the text message */
269    *buf = '\0';
270    va_start( ap, fmt );
271    evutil_vsnprintf( buf, sizeof( buf ), fmt, ap );
272    va_end( ap );
[3735]273
[9669]274    OutputDebugString( buf );
[3735]275
[9669]276    if( *buf )
277    {
278        if( messageQueuing )
279        {
280            tr_msg_list * newmsg;
281            newmsg = tr_new0( tr_msg_list, 1 );
282            newmsg->level = level;
283            newmsg->when = tr_time( );
284            newmsg->message = tr_strdup( buf );
285            newmsg->file = file;
286            newmsg->line = line;
287            newmsg->name = tr_strdup( name );
[6924]288
[9669]289            *messageQueueTail = newmsg;
290            messageQueueTail = &newmsg->next;
291            ++messageQueueCount;
[9890]292
[9670]293            if( messageQueueCount > TR_MAX_MSG_LOG )
[3736]294            {
[9669]295                tr_msg_list * old = messageQueue;
296                messageQueue = old->next;
297                old->next = NULL;
298                tr_freeMessageList(old);
[9890]299
[9669]300                --messageQueueCount;
[9890]301
[9669]302                assert( messageQueueCount == TR_MAX_MSG_LOG );
[3736]303            }
[9669]304        }
305        else
306        {
307            char timestr[64];
308            FILE * fp;
[7901]309
[9669]310            fp = tr_getLog( );
311            if( fp == NULL )
312                fp = stderr;
[7901]313
[9669]314            tr_getLogTimeStr( timestr, sizeof( timestr ) );
[7901]315
[9669]316            if( name )
317                fprintf( fp, "[%s] %s: %s\n", timestr, name, buf );
318            else
319                fprintf( fp, "[%s] %s\n", timestr, buf );
320            fflush( fp );
[815]321        }
[1]322    }
323
[11250]324    tr_lockUnlock( getMessageLock( ) );
[8368]325    errno = err;
[1]326}
327
[3105]328/***
329****
330***/
[2149]331
[11299]332void*
333tr_malloc( size_t size )
334{
335    return size ? malloc( size ) : NULL;
336}
337
338void*
339tr_malloc0( size_t size )
340{
341    return size ? calloc( 1, size ) : NULL;
342}
343
[3105]344void
[11299]345tr_free( void * p )
346{
347    if( p != NULL )
348        free( p );
349}
350
351void*
352tr_memdup( const void * src, size_t byteCount )
353{
354    return memcpy( tr_malloc( byteCount ), src, byteCount );
355}
356
357/***
358****
359***/
360
[6619]361const char*
362tr_strip_positional_args( const char* str )
363{
[8737]364    const char * in = str;
[6619]365    static size_t bufsize = 0;
366    static char * buf = NULL;
[11776]367    const size_t  len = str ? strlen( str ) : 0;
[6795]368    char *        out;
[6619]369
[11350]370    if( !buf || ( bufsize < len ) )
[6795]371    {
[11350]372        bufsize = len * 2 + 1;
[6619]373        buf = tr_renew( char, buf, bufsize );
374    }
375
[11778]376    for( out = buf; str && *str; ++str )
[6795]377    {
[6619]378        *out++ = *str;
[10844]379
[6795]380        if( ( *str == '%' ) && isdigit( str[1] ) )
381        {
[6619]382            const char * tmp = str + 1;
383            while( isdigit( *tmp ) )
384                ++tmp;
385            if( *tmp == '$' )
[10844]386                str = tmp[1]=='\'' ? tmp+1 : tmp;
[6619]387        }
[10844]388
389        if( ( *str == '%' ) && ( str[1] == '\'' ) )
390            str = str + 1;
[11398]391
[6619]392    }
393    *out = '\0';
394
[11778]395    return !in || strcmp( buf, in ) ? buf : in;
[6619]396}
397
[3105]398/**
399***
400**/
401
[6907]402void
[9720]403tr_timerAdd( struct event * timer, int seconds, int microseconds )
[2915]404{
[9720]405    struct timeval tv;
406    tv.tv_sec = seconds;
407    tv.tv_usec = microseconds;
[2915]408
[9720]409    assert( tv.tv_sec >= 0 );
410    assert( tv.tv_usec >= 0 );
411    assert( tv.tv_usec < 1000000 );
[8681]412
[9720]413    evtimer_add( timer, &tv );
[8698]414}
[8681]415
[9709]416void
417tr_timerAddMsec( struct event * timer, int msec )
418{
419    const int seconds =  msec / 1000;
420    const int usec = (msec%1000) * 1000;
421    tr_timerAdd( timer, seconds, usec );
422}
423
[8681]424/**
425***
426**/
427
[3425]428uint8_t *
[6795]429tr_loadFile( const char * path,
430             size_t *     size )
[3425]431{
[8299]432    uint8_t * buf;
[3425]433    struct stat  sb;
[8299]434    int fd;
[8348]435    ssize_t n;
[10912]436    const char * const err_fmt = _( "Couldn't read \"%1$s\": %2$s" );
[3425]437
438    /* try to stat the file */
439    errno = 0;
440    if( stat( path, &sb ) )
441    {
[6842]442        const int err = errno;
[6795]443        tr_dbg( err_fmt, path, tr_strerror( errno ) );
[6842]444        errno = err;
[3425]445        return NULL;
446    }
447
448    if( ( sb.st_mode & S_IFMT ) != S_IFREG )
449    {
[5455]450        tr_err( err_fmt, path, _( "Not a regular file" ) );
[6842]451        errno = EISDIR;
[3425]452        return NULL;
453    }
454
455    /* Load the torrent file into our buffer */
[8299]456    fd = tr_open_file_for_scanning( path );
457    if( fd < 0 )
[3425]458    {
[6842]459        const int err = errno;
[6795]460        tr_err( err_fmt, path, tr_strerror( errno ) );
[6842]461        errno = err;
[3425]462        return NULL;
463    }
[12383]464    buf = tr_malloc( sb.st_size + 1 );
[6842]465    if( !buf )
[3425]466    {
[6842]467        const int err = errno;
[5455]468        tr_err( err_fmt, path, _( "Memory allocation failed" ) );
[8299]469        tr_close_file( fd );
[6842]470        errno = err;
[5193]471        return NULL;
[3425]472    }
[10912]473    n = read( fd, buf, (size_t)sb.st_size );
[8348]474    if( n == -1 )
[3425]475    {
[6842]476        const int err = errno;
[6795]477        tr_err( err_fmt, path, tr_strerror( errno ) );
[8299]478        tr_close_file( fd );
[3425]479        free( buf );
[6842]480        errno = err;
[3425]481        return NULL;
482    }
[6842]483
[8299]484    tr_close_file( fd );
[8308]485    buf[ sb.st_size ] = '\0';
[3425]486    *size = sb.st_size;
487    return buf;
488}
489
[6892]490char*
[6897]491tr_basename( const char * path )
492{
493    char * tmp = tr_strdup( path );
494    char * ret = tr_strdup( basename( tmp ) );
495    tr_free( tmp );
496    return ret;
497}
498
499char*
500tr_dirname( const char * path )
501{
502    char * tmp = tr_strdup( path );
503    char * ret = tr_strdup( dirname( tmp ) );
504    tr_free( tmp );
505    return ret;
506}
507
[2578]508int
[6795]509tr_mkdir( const char * path,
510          int permissions
[2578]511#ifdef WIN32
[6795]512                       UNUSED
[2578]513#endif
[6795]514        )
[310]515{
[2578]516#ifdef WIN32
[6795]517    if( path && isalpha( path[0] ) && path[1] == ':' && !path[2] )
[5162]518        return 0;
[2578]519    return mkdir( path );
520#else
521    return mkdir( path, permissions );
522#endif
523}
524
525int
[6795]526tr_mkdirp( const char * path_in,
527           int          permissions )
[2578]528{
[6795]529    char *      path = tr_strdup( path_in );
530    char *      p, * pp;
[310]531    struct stat sb;
[6795]532    int         done;
[310]533
[3650]534    /* walk past the root */
[310]535    p = path;
[3650]536    while( *p == TR_PATH_DELIMITER )
537        ++p;
538
[310]539    pp = p;
540    done = 0;
[6795]541    while( ( p =
542                strchr( pp, TR_PATH_DELIMITER ) ) || ( p = strchr( pp, '\0' ) ) )
[310]543    {
[3650]544        if( !*p )
[310]545            done = 1;
546        else
547            *p = '\0';
[3650]548
[310]549        if( stat( path, &sb ) )
550        {
551            /* Folder doesn't exist yet */
[6795]552            if( tr_mkdir( path, permissions ) )
553            {
[4733]554                const int err = errno;
[6795]555                tr_err( _(
556                           "Couldn't create \"%1$s\": %2$s" ), path,
557                       tr_strerror( err ) );
[3650]558                tr_free( path );
[4733]559                errno = err;
560                return -1;
[310]561            }
562        }
563        else if( ( sb.st_mode & S_IFMT ) != S_IFDIR )
564        {
565            /* Node exists but isn't a folder */
[6897]566            char * buf = tr_strdup_printf( _( "File \"%s\" is in the way" ), path );
[5455]567            tr_err( _( "Couldn't create \"%1$s\": %2$s" ), path_in, buf );
[6897]568            tr_free( buf );
[3650]569            tr_free( path );
[4733]570            errno = ENOTDIR;
571            return -1;
[310]572        }
[3650]573
[310]574        if( done )
575            break;
[3650]576
577        *p = TR_PATH_DELIMITER;
[310]578        p++;
579        pp = p;
580    }
581
[3650]582    tr_free( path );
[310]583    return 0;
584}
[920]585
[6896]586char*
587tr_buildPath( const char *first_element, ... )
[920]588{
[6981]589    size_t bufLen = 0;
590    const char * element;
591    char * buf;
592    char * pch;
593    va_list vl;
[6480]594
[6981]595    /* pass 1: allocate enough space for the string */
[2154]596    va_start( vl, first_element );
[6981]597    element = first_element;
598    while( element ) {
599        bufLen += strlen( element ) + 1;
[12077]600        element = va_arg( vl, const char* );
[6981]601    }
[6993]602    pch = buf = tr_new( char, bufLen );
[6981]603    va_end( vl );
[6480]604
[6981]605    /* pass 2: build the string piece by piece */
606    va_start( vl, first_element );
607    element = first_element;
608    while( element ) {
609        const size_t elementLen = strlen( element );
610        memcpy( pch, element, elementLen );
611        pch += elementLen;
[6993]612        *pch++ = TR_PATH_DELIMITER;
[12077]613        element = va_arg( vl, const char* );
[920]614    }
[6981]615    va_end( vl );
[6795]616
[11599]617    /* terminate the string. if nonempty, eat the unwanted trailing slash */
[6993]618    if( pch != buf )
619        --pch;
620    *pch++ = '\0';
621
[6981]622    /* sanity checks & return */
[6982]623    assert( pch - buf == (off_t)bufLen );
[6981]624    return buf;
[920]625}
[1356]626
[2149]627/****
628*****
629****/
630
[2154]631char*
[11548]632evbuffer_free_to_str( struct evbuffer * buf )
633{
634    const size_t n = evbuffer_get_length( buf );
635    char * ret = tr_new( char, n + 1 );
636    evbuffer_copyout( buf, ret, n );
637    evbuffer_free( buf );
638    ret[n] = '\0';
639    return ret;
640}
641
642char*
[11299]643tr_strdup( const void * in )
644{
645    return tr_strndup( in, in ? (int)strlen((const char *)in) : 0 );
646}
647
648char*
[7748]649tr_strndup( const void * in, int len )
[2154]650{
[2149]651    char * out = NULL;
[2360]652
[3971]653    if( len < 0 )
[2149]654    {
[3971]655        out = tr_strdup( in );
656    }
[6425]657    else if( in )
[3971]658    {
[6795]659        out = tr_malloc( len + 1 );
[2149]660        memcpy( out, in, len );
[2360]661        out[len] = '\0';
[2149]662    }
[5860]663
[2149]664    return out;
665}
666
[8424]667const char*
[8449]668tr_memmem( const char * haystack, size_t haystacklen,
669           const char * needle, size_t needlelen )
[8424]670{
671#ifdef HAVE_MEMMEM
[8449]672    return memmem( haystack, haystacklen, needle, needlelen );
[8424]673#else
[8449]674    size_t i;
[8478]675    if( !needlelen )
676        return haystack;
677    if( needlelen > haystacklen || !haystack || !needle )
678        return NULL;
679    for( i=0; i<=haystacklen-needlelen; ++i )
[8450]680        if( !memcmp( haystack+i, needle, needlelen ) )
681            return haystack+i;
[8424]682    return NULL;
683#endif
684}
685
[5838]686char*
[7543]687tr_strdup_printf( const char * fmt, ... )
[5838]688{
[8686]689    va_list ap;
690    char * ret;
691    size_t len;
692    char statbuf[2048];
[5838]693
694    va_start( ap, fmt );
[8686]695    len = evutil_vsnprintf( statbuf, sizeof( statbuf ), fmt, ap );
696    va_end( ap );
697    if( len < sizeof( statbuf ) )
698        ret = tr_strndup( statbuf, len );
699    else {
700        ret = tr_new( char, len + 1 );
701        va_start( ap, fmt );
702        evutil_vsnprintf( ret, len + 1, fmt, ap );
703        va_end( ap );
704    }
[6480]705
[5838]706    return ret;
707}
708
[5065]709const char*
710tr_strerror( int i )
711{
712    const char * ret = strerror( i );
[6795]713
[5065]714    if( ret == NULL )
715        ret = "Unknown Error";
716    return ret;
717}
718
[11624]719int
720tr_strcmp0( const char * str1, const char * str2 )
721{
722    if( str1 && str2 ) return strcmp( str1, str2 );
723    if( str1 ) return 1;
724    if( str2 ) return -1;
725    return 0;
726}
727
[2149]728/****
729*****
730****/
731
[11490]732/* https://bugs.launchpad.net/percona-patches/+bug/526863/+attachment/1160199/+files/solaris_10_fix.patch */
[6717]733char*
[11490]734tr_strsep( char ** str, const char * delims )
735{
736#ifdef HAVE_STRSEP
737    return strsep( str, delims );
738#else
739    char *token;
740
741    if (*str == NULL) {
742        /* No more tokens */
743        return NULL;
744    }
745
746    token = *str;
747    while (**str != '\0') {
748        if (strchr(delims, **str) != NULL) {
749            **str = '\0';
750            (*str)++;
751            return token;
752        }
753        (*str)++;
754    }
755
756    /* There is not another token */
757    *str = NULL;
758
759    return token;
760#endif
761}
762
763char*
[6717]764tr_strstrip( char * str )
765{
766    if( str != NULL )
767    {
768        size_t pos;
769        size_t len = strlen( str );
770
[6795]771        while( len && isspace( str[len - 1] ) )
[6717]772            --len;
[6795]773
774        for( pos = 0; pos < len && isspace( str[pos] ); )
[6717]775            ++pos;
776
777        len -= pos;
[6795]778        memmove( str, str + pos, len );
[6717]779        str[len] = '\0';
780    }
781
782    return str;
783}
784
[12204]785bool
[10736]786tr_str_has_suffix( const char *str, const char *suffix )
787{
788    size_t str_len;
789    size_t suffix_len;
790
791    if( !str )
[12204]792        return false;
[10736]793    if( !suffix )
[12204]794        return true;
[10736]795
796    str_len = strlen( str );
797    suffix_len = strlen( suffix );
798    if( str_len < suffix_len )
[12204]799        return false;
[10736]800
[12148]801    return !evutil_ascii_strncasecmp( str + str_len - suffix_len, suffix, suffix_len );
[10736]802}
803
[6717]804/****
805*****
806****/
807
[2328]808uint64_t
[10998]809tr_time_msec( void )
[2328]810{
811    struct timeval tv;
[6795]812
[2328]813    gettimeofday( &tv, NULL );
814    return (uint64_t) tv.tv_sec * 1000 + ( tv.tv_usec / 1000 );
815}
816
817void
[10916]818tr_wait_msec( long int msec )
[2328]819{
[7232]820#ifdef WIN32
[10916]821    Sleep( (DWORD)msec );
[2328]822#else
[10916]823    struct timespec ts;
824    ts.tv_sec = msec / 1000;
[10921]825    ts.tv_nsec = ( msec % 1000 ) * 1000000;
[10916]826    nanosleep( &ts, NULL );
[2328]827#endif
828}
[3755]829
830/***
831****
832***/
833
[6140]834int
[9573]835tr_snprintf( char * buf, size_t buflen, const char * fmt, ... )
[6334]836{
[6795]837    int     len;
[6334]838    va_list args;
[6795]839
[6334]840    va_start( args, fmt );
841    len = evutil_vsnprintf( buf, buflen, fmt, args );
842    va_end( args );
843    return len;
844}
845
[3755]846/*
[11599]847 * Copy src to string dst of size siz. At most siz-1 characters
848 * will be copied. Always NUL terminates (unless siz == 0).
[3755]849 * Returns strlen(src); if retval >= siz, truncation occurred.
850 */
851size_t
[11599]852tr_strlcpy( char * dst, const void * src, size_t siz )
[3755]853{
[5843]854#ifdef HAVE_STRLCPY
855    return strlcpy( dst, src, siz );
856#else
[6795]857    char *      d = dst;
[5843]858    const char *s = src;
[6795]859    size_t      n = siz;
[3755]860
[6425]861    assert( s );
862    assert( d );
[5221]863
[5843]864    /* Copy as many bytes as will fit */
[6795]865    if( n != 0 )
866    {
867        while( --n != 0 )
868        {
869            if( ( *d++ = *s++ ) == '\0' )
[5843]870                break;
871        }
872    }
[3755]873
[5843]874    /* Not enough room in dst, add NUL and traverse rest of src */
[6795]875    if( n == 0 )
876    {
877        if( siz != 0 )
[5843]878            *d = '\0'; /* NUL-terminate dst */
[6795]879        while( *s++ )
[5843]880            ;
881    }
[3755]882
[6795]883    return s - (char*)src - 1;  /* count does not include NUL */
[5843]884#endif
[3755]885}
886
[4482]887/***
888****
889***/
890
891double
[10918]892tr_getRatio( uint64_t numerator, uint64_t denominator )
[4482]893{
894    double ratio;
895
[10918]896    if( denominator > 0 )
897        ratio = numerator / (double)denominator;
898    else if( numerator > 0 )
[4482]899        ratio = TR_RATIO_INF;
900    else
901        ratio = TR_RATIO_NA;
902
903    return ratio;
904}
[5112]905
906void
[9531]907tr_sha1_to_hex( char * out, const uint8_t * sha1 )
[5112]908{
[9531]909    int i;
[9382]910    static const char hex[] = "0123456789abcdef";
[6795]911
[9531]912    for( i=0; i<20; ++i )
[6795]913    {
[9531]914        const unsigned int val = *sha1++;
[5112]915        *out++ = hex[val >> 4];
916        *out++ = hex[val & 0xf];
917    }
[9531]918
[5112]919    *out = '\0';
920}
[5356]921
[9531]922void
923tr_hex_to_sha1( uint8_t * out, const char * in )
924{
925    int i;
926    static const char hex[] = "0123456789abcdef";
927
928    for( i=0; i<20; ++i )
929    {
[9988]930        const int hi = strchr( hex, tolower( *in++ ) ) - hex;
931        const int lo = strchr( hex, tolower( *in++ ) ) - hex;
[9531]932        *out++ = (uint8_t)( (hi<<4) | lo );
933    }
934}
935
[5356]936/***
937****
938***/
939
[12204]940static bool
[11182]941isValidURLChars( const char * url, int url_len )
[5673]942{
[8904]943    const char * c;
[11182]944    const char * end;
[5891]945    static const char * rfc2396_valid_chars =
946        "abcdefghijklmnopqrstuvwxyz" /* lowalpha */
947        "ABCDEFGHIJKLMNOPQRSTUVWXYZ" /* upalpha */
948        "0123456789"                 /* digit */
949        "-_.!~*'()"                  /* mark */
950        ";/?:@&=+$,"                 /* reserved */
951        "<>#%<\""                    /* delims */
952        "{}|\\^[]`";                 /* unwise */
953
[6651]954    if( url == NULL )
[12204]955        return false;
[6650]956
[11182]957    for( c=url, end=c+url_len; c && *c && c!=end; ++c )
[5891]958        if( !strchr( rfc2396_valid_chars, *c ) )
[12204]959            return false;
[5891]960
[12204]961    return true;
[5673]962}
963
[12204]964/** @brief return true if the URL is a http or https or UDP one that Transmission understands */
965bool
[10239]966tr_urlIsValidTracker( const char * url )
[10069]967{
[12204]968    bool valid;
[11182]969    const int len = url ? strlen(url) : 0;
[10239]970
[11182]971    valid = isValidURLChars( url, len )
[12292]972         && !tr_urlParse( url, len, NULL, NULL, NULL, NULL )
973         && ( !memcmp(url,"http://",7) || !memcmp(url,"https://",8) || !memcmp(url,"udp://",6) );
[10239]974
975    return valid;
976}
977
[12204]978/** @brief return true if the URL is a http or https or ftp or sftp one that Transmission understands */
979bool
[11182]980tr_urlIsValid( const char * url, int url_len )
[10239]981{
[12204]982    bool valid;
[11182]983    if( ( url_len < 0 ) && ( url != NULL ) )
984        url_len = strlen( url );
[10239]985
[11182]986    valid = isValidURLChars( url, url_len )
[12292]987         && !tr_urlParse( url, url_len, NULL, NULL, NULL, NULL )
988         && ( !memcmp(url,"http://",7) || !memcmp(url,"https://",8) || !memcmp(url,"ftp://",6) || !memcmp(url,"sftp://",7) );
[10239]989
990    return valid;
991}
992
[12204]993bool
[12229]994tr_addressIsIP( const char * str )
[10239]995{
[12229]996    tr_address tmp;
997    return tr_address_from_string( &tmp, str );
[10069]998}
999
[5673]1000int
[10239]1001tr_urlParse( const char * url_in,
1002             int          len,
1003             char **      setme_protocol,
1004             char **      setme_host,
1005             int *        setme_port,
1006             char **      setme_path )
[5356]1007{
[6795]1008    int          err;
1009    int          port = 0;
1010    int          n;
1011    char *       tmp;
1012    char *       pch;
[12312]1013    size_t       host_len;
1014    size_t       protocol_len;
1015    const char * host = NULL;
[5673]1016    const char * protocol = NULL;
1017    const char * path = NULL;
[5356]1018
[5673]1019    tmp = tr_strndup( url_in, len );
[6795]1020    if( ( pch = strstr( tmp, "://" ) ) )
[5673]1021    {
[6795]1022        *pch = '\0';
1023        protocol = tmp;
[12312]1024        protocol_len = pch - protocol;
[6795]1025        pch += 3;
[9705]1026/*fprintf( stderr, "protocol is [%s]... what's left is [%s]\n", protocol, pch);*/
[6795]1027        if( ( n = strcspn( pch, ":/" ) ) )
1028        {
1029            const int havePort = pch[n] == ':';
1030            host = pch;
[12312]1031            host_len = n;
[6795]1032            pch += n;
[12324]1033            if( pch && *pch )
1034                *pch++ = '\0';
[5673]1035/*fprintf( stderr, "host is [%s]... what's left is [%s]\n", host, pch );*/
[6795]1036            if( havePort )
1037            {
1038                char * end;
1039                port = strtol( pch, &end, 10 );
1040                pch = end;
[5673]1041/*fprintf( stderr, "port is [%d]... what's left is [%s]\n", port, pch );*/
[6795]1042            }
1043            path = pch;
[5673]1044/*fprintf( stderr, "path is [%s]\n", path );*/
[6795]1045        }
[5673]1046    }
[5356]1047
[10239]1048    err = !host || !path || !protocol;
[5673]1049
[6795]1050    if( !err && !port )
1051    {
[12185]1052        if( !strcmp( protocol, "udp" ) ) port = 80;
1053        else if( !strcmp( protocol, "ftp" ) ) port = 21;
1054        else if( !strcmp( protocol, "sftp" ) ) port = 22;
1055        else if( !strcmp( protocol, "http" ) ) port = 80;
1056        else if( !strcmp( protocol, "https" ) ) port = 443;
[5356]1057    }
1058
[6795]1059    if( !err )
1060    {
[12312]1061        if( setme_protocol ) *setme_protocol = tr_strndup( protocol, protocol_len );
[10239]1062
[6795]1063        if( setme_host ){ ( (char*)host )[-3] = ':'; *setme_host =
[12312]1064                              tr_strndup( host, host_len ); }
[12324]1065        if( setme_path ){ if( !*path ) *setme_path = tr_strdup( "/" );
1066                          else if( path[0] == '/' ) *setme_path = tr_strdup( path );
[9705]1067                          else { ( (char*)path )[-1] = '/'; *setme_path = tr_strdup( path - 1 ); } }
[6795]1068        if( setme_port ) *setme_port = port;
[5673]1069    }
[5356]1070
[5673]1071
1072    tr_free( tmp );
1073    return err;
[5356]1074}
[5860]1075
1076#include <string.h>
1077#include <openssl/sha.h>
1078#include <openssl/hmac.h>
1079#include <openssl/evp.h>
1080#include <openssl/bio.h>
1081#include <openssl/buffer.h>
1082
1083char *
[9696]1084tr_base64_encode( const void * input, int length, int * setme_len )
[5860]1085{
[9696]1086    int retlen = 0;
1087    char * ret = NULL;
[5860]1088
[9696]1089    if( input != NULL )
1090    {
1091        BIO * b64;
1092        BIO * bmem;
1093        BUF_MEM * bptr;
[5860]1094
[9696]1095        if( length < 1 )
[10931]1096            length = (int)strlen( input );
[9696]1097
1098        bmem = BIO_new( BIO_s_mem( ) );
1099        b64 = BIO_new( BIO_f_base64( ) );
[11798]1100        BIO_set_flags( b64, BIO_FLAGS_BASE64_NO_NL );
[9696]1101        b64 = BIO_push( b64, bmem );
1102        BIO_write( b64, input, length );
1103        (void) BIO_flush( b64 );
1104        BIO_get_mem_ptr( b64, &bptr );
1105        ret = tr_strndup( bptr->data, bptr->length );
1106        retlen = bptr->length;
1107        BIO_free_all( b64 );
1108    }
1109
[5860]1110    if( setme_len )
[9696]1111        *setme_len = retlen;
[5860]1112
1113    return ret;
1114}
1115
1116char *
[6795]1117tr_base64_decode( const void * input,
1118                  int          length,
1119                  int *        setme_len )
[5860]1120{
1121    char * ret;
[6795]1122    BIO *  b64;
1123    BIO *  bmem;
1124    int    retlen;
[5860]1125
1126    if( length < 1 )
[6795]1127        length = strlen( input );
[5860]1128
1129    ret = tr_new0( char, length );
1130    b64 = BIO_new( BIO_f_base64( ) );
1131    bmem = BIO_new_mem_buf( (unsigned char*)input, length );
1132    bmem = BIO_push( b64, bmem );
1133    retlen = BIO_read( bmem, ret, length );
[5899]1134    if( !retlen )
1135    {
1136        /* try again, but with the BIO_FLAGS_BASE64_NO_NL flag */
1137        BIO_free_all( bmem );
1138        b64 = BIO_new( BIO_f_base64( ) );
1139        BIO_set_flags( b64, BIO_FLAGS_BASE64_NO_NL );
1140        bmem = BIO_new_mem_buf( (unsigned char*)input, length );
1141        bmem = BIO_push( b64, bmem );
1142        retlen = BIO_read( bmem, ret, length );
1143    }
1144
[5860]1145    if( setme_len )
1146        *setme_len = retlen;
1147
1148    BIO_free_all( bmem );
1149    return ret;
1150}
[6795]1151
[7549]1152/***
1153****
1154***/
1155
[11299]1156void
1157tr_removeElementFromArray( void         * array,
1158                           unsigned int   index_to_remove,
1159                           size_t         sizeof_element,
1160                           size_t         nmemb )
1161{
[12077]1162    char * a = array;
[11299]1163
1164    memmove( a + sizeof_element * index_to_remove,
1165             a + sizeof_element * ( index_to_remove  + 1 ),
1166             sizeof_element * ( --nmemb - index_to_remove ) );
1167}
1168
[7609]1169int
1170tr_lowerBound( const void * key,
1171               const void * base,
1172               size_t       nmemb,
1173               size_t       size,
1174               int       (* compar)(const void* key, const void* arrayMember),
[12204]1175               bool       * exact_match )
[7609]1176{
1177    size_t first = 0;
[7616]1178    const char * cbase = base;
[12204]1179    bool exact = false;
[7609]1180
[9464]1181    while( nmemb != 0 )
[7609]1182    {
1183        const size_t half = nmemb / 2;
1184        const size_t middle = first + half;
[9464]1185        const int c = compar( key, cbase + size*middle );
[7609]1186
[9463]1187        if( c <= 0 ) {
1188            if( c == 0 )
[12204]1189                exact = true;
[9463]1190            nmemb = half;
1191        } else {
[7609]1192            first = middle + 1;
1193            nmemb = nmemb - half - 1;
1194        }
1195    }
1196
[9464]1197    *exact_match = exact;
[7609]1198
1199    return first;
1200}
[7656]1201
1202/***
1203****
1204***/
1205
[10963]1206static char*
1207strip_non_utf8( const char * in, size_t inlen )
[7656]1208{
1209    const char * end;
[10963]1210    const char zero = '\0';
1211    struct evbuffer * buf = evbuffer_new( );
[11398]1212
[10963]1213    while( !tr_utf8_validate( in, inlen, &end ) )
1214    {
1215        const int good_len = end - in;
[7656]1216
[10963]1217        evbuffer_add( buf, in, good_len );
1218        inlen -= ( good_len + 1 );
1219        in += ( good_len + 1 );
1220        evbuffer_add( buf, "?", 1 );
1221    }
[11398]1222
[10963]1223    evbuffer_add( buf, in, inlen );
1224    evbuffer_add( buf, &zero, 1 );
[11548]1225    return evbuffer_free_to_str( buf );
[10963]1226}
[8247]1227
[10963]1228static char*
1229to_utf8( const char * in, size_t inlen )
1230{
1231    char * ret = NULL;
[7656]1232
[10963]1233#ifdef HAVE_ICONV_OPEN
1234    int i;
1235    const char * encodings[] = { "CURRENT", "ISO-8859-15" };
1236    const int encoding_count = sizeof(encodings) / sizeof(encodings[1]);
1237    const size_t buflen = inlen*4 + 10;
1238    char * out = tr_new( char, buflen );
1239
1240    for( i=0; !ret && i<encoding_count; ++i )
[7656]1241    {
[10963]1242        char * inbuf = (char*) in;
1243        char * outbuf = out;
1244        size_t inbytesleft = inlen;
1245        size_t outbytesleft = buflen;
1246        const char * test_encoding = encodings[i];
1247
1248        iconv_t cd = iconv_open( "UTF-8", test_encoding );
1249        if( cd != (iconv_t)-1 ) {
1250            if( iconv( cd, &inbuf, &inbytesleft, &outbuf, &outbytesleft ) != (size_t)-1 )
1251                ret = tr_strndup( out, buflen-outbytesleft );
1252            iconv_close( cd );
1253        }
[8247]1254    }
[12246]1255
1256    tr_free( out );
[10963]1257#endif
[7656]1258
[10963]1259    if( ret == NULL )
1260        ret = strip_non_utf8( in, inlen );
[7656]1261
[10963]1262    return ret;
1263}
[8247]1264
[10963]1265char*
1266tr_utf8clean( const char * str, int max_len )
1267{
1268    char * ret;
1269    const char * end;
[8247]1270
[10963]1271    if( max_len < 0 )
1272        max_len = (int) strlen( str );
[7656]1273
[10963]1274    if( tr_utf8_validate( str, max_len, &end  ) )
1275        ret = tr_strndup( str, max_len );
1276    else
1277        ret = to_utf8( str, max_len );
1278
[7656]1279    assert( tr_utf8_validate( ret, -1, NULL ) );
1280    return ret;
1281}
[7854]1282
1283/***
1284****
1285***/
1286
1287struct number_range
1288{
1289    int low;
1290    int high;
1291};
1292
1293/**
1294 * This should be a single number (ex. "6") or a range (ex. "6-9").
1295 * Anything else is an error and will return failure.
1296 */
[12204]1297static bool
[7854]1298parseNumberSection( const char * str, int len, struct number_range * setme )
1299{
1300    long a, b;
[12204]1301    bool success;
[7854]1302    char * end;
1303    const int error = errno;
1304    char * tmp = tr_strndup( str, len );
1305
1306    errno = 0;
[7901]1307    a = b = strtol( tmp, &end, 10 );
[7854]1308    if( errno || ( end == tmp ) ) {
[12204]1309        success = false;
[7854]1310    } else if( *end != '-' ) {
[12204]1311        success = true;
[7854]1312    } else {
1313        const char * pch = end + 1;
1314        b = strtol( pch, &end, 10 );
1315        if( errno || ( pch == end ) )
[12204]1316            success = false;
[7854]1317        else if( *end ) /* trailing data */
[12204]1318            success = false;
[7854]1319        else
[12204]1320            success = true;
[7854]1321    }
1322    tr_free( tmp );
1323
1324    setme->low = MIN( a, b );
1325    setme->high = MAX( a, b );
1326
1327    errno = error;
1328    return success;
1329}
1330
[11209]1331int
[7854]1332compareInt( const void * va, const void * vb )
1333{
1334    const int a = *(const int *)va;
1335    const int b = *(const int *)vb;
1336    return a - b;
1337}
1338
1339/**
1340 * Given a string like "1-4" or "1-4,6,9,14-51", this allocates and returns an
1341 * array of setmeCount ints of all the values in the array.
1342 * For example, "5-8" will return [ 5, 6, 7, 8 ] and setmeCount will be 4.
[8889]1343 * It's the caller's responsibility to call tr_free() on the returned array.
[7854]1344 * If a fragment of the string can't be parsed, NULL is returned.
1345 */
1346int*
1347tr_parseNumberRange( const char * str_in, int len, int * setmeCount )
1348{
1349    int n = 0;
1350    int * uniq = NULL;
1351    char * str = tr_strndup( str_in, len );
1352    const char * walk;
1353    tr_list * ranges = NULL;
[12204]1354    bool success = true;
[7854]1355
1356    walk = str;
1357    while( walk && *walk && success ) {
1358        struct number_range range;
1359        const char * pch = strchr( walk, ',' );
1360        if( pch ) {
1361            success = parseNumberSection( walk, pch-walk, &range );
1362            walk = pch + 1;
1363        } else {
1364            success = parseNumberSection( walk, strlen( walk ), &range );
1365            walk += strlen( walk );
1366        }
1367        if( success )
1368            tr_list_append( &ranges, tr_memdup( &range, sizeof( struct number_range ) ) );
1369    }
1370
1371    if( !success )
1372    {
1373        *setmeCount = 0;
1374        uniq = NULL;
1375    }
1376    else
1377    {
1378        int i;
1379        int n2;
1380        tr_list * l;
1381        int * sorted = NULL;
1382
1383        /* build a sorted number array */
1384        n = n2 = 0;
1385        for( l=ranges; l!=NULL; l=l->next ) {
1386            const struct number_range * r = l->data;
1387            n += r->high + 1 - r->low;
1388        }
1389        sorted = tr_new( int, n );
1390        for( l=ranges; l!=NULL; l=l->next ) {
1391            const struct number_range * r = l->data;
1392            int i;
1393            for( i=r->low; i<=r->high; ++i )
1394                sorted[n2++] = i;
1395        }
1396        qsort( sorted, n, sizeof( int ), compareInt );
1397        assert( n == n2 );
1398
1399        /* remove duplicates */
1400        uniq = tr_new( int, n );
1401        for( i=n=0; i<n2; ++i )
1402            if( !n || uniq[n-1] != sorted[i] )
1403                uniq[n++] = sorted[i];
1404
1405        tr_free( sorted );
1406    }
1407
1408    /* cleanup */
1409    tr_list_free( &ranges, tr_free );
1410    tr_free( str );
1411
1412    /* return the result */
1413    *setmeCount = n;
1414    return uniq;
1415}
[8017]1416
1417/***
1418****
1419***/
1420
[8808]1421double
[11345]1422tr_truncd( double x, int precision )
[8017]1423{
[11345]1424    char * pt;
1425    char buf[128];
[11398]1426    const int max_precision = (int) log10( 1.0 / DBL_EPSILON ) - 1;
1427    tr_snprintf( buf, sizeof( buf ), "%.*f", max_precision, x );
[11345]1428    if(( pt = strstr( buf, localeconv()->decimal_point )))
1429        pt[precision ? precision+1 : 0] = '\0';
1430    return atof(buf);
[8017]1431}
1432
[12210]1433/* return a truncated double as a string */
1434static char*
[10837]1435tr_strtruncd( char * buf, double x, int precision, size_t buflen )
1436{
1437    tr_snprintf( buf, buflen, "%.*f", precision, tr_truncd( x, precision ) );
1438    return buf;
1439}
1440
1441char*
[10822]1442tr_strpercent( char * buf, double x, size_t buflen )
1443{
1444    if( x < 10.0 )
1445        tr_strtruncd( buf, x, 2, buflen );
1446    else if( x < 100.0 )
1447        tr_strtruncd( buf, x, 1, buflen );
1448    else
1449        tr_strtruncd( buf, x, 0, buflen );
1450    return buf;
1451}
1452
1453char*
[8017]1454tr_strratio( char * buf, size_t buflen, double ratio, const char * infinity )
1455{
1456    if( (int)ratio == TR_RATIO_NA )
1457        tr_strlcpy( buf, _( "None" ), buflen );
1458    else if( (int)ratio == TR_RATIO_INF )
1459        tr_strlcpy( buf, infinity, buflen );
1460    else
[10822]1461        tr_strpercent( buf, ratio, buflen );
[8017]1462    return buf;
1463}
[8389]1464
1465/***
1466****
1467***/
1468
1469int
[12204]1470tr_moveFile( const char * oldpath, const char * newpath, bool * renamed )
[8389]1471{
1472    int in;
1473    int out;
1474    char * buf;
1475    struct stat st;
[9442]1476    off_t bytesLeft;
[10912]1477    const size_t buflen = 1024 * 128; /* 128 KiB buffer */
[8389]1478
1479    /* make sure the old file exists */
1480    if( stat( oldpath, &st ) ) {
1481        const int err = errno;
1482        errno = err;
1483        return -1;
1484    }
1485    if( !S_ISREG( st.st_mode ) ) {
1486        errno = ENOENT;
1487        return -1;
1488    }
1489    bytesLeft = st.st_size;
1490
1491    /* make sure the target directory exists */
1492    {
1493        char * newdir = tr_dirname( newpath );
1494        int i = tr_mkdirp( newdir, 0777 );
1495        tr_free( newdir );
1496        if( i )
1497            return i;
1498    }
1499
[9421]1500    /* they might be on the same filesystem... */
1501    {
1502        const int i = rename( oldpath, newpath );
1503        if( renamed != NULL )
1504            *renamed = i == 0;
1505        if( !i )
1506            return 0;
1507    }
[8389]1508
1509    /* copy the file */
1510    in = tr_open_file_for_scanning( oldpath );
1511    out = tr_open_file_for_writing( newpath );
[10277]1512    buf = tr_valloc( buflen );
[8389]1513    while( bytesLeft > 0 )
1514    {
1515        ssize_t bytesWritten;
[11004]1516        const off_t bytesThisPass = MIN( bytesLeft, (off_t)buflen );
[8389]1517        const int numRead = read( in, buf, bytesThisPass );
1518        if( numRead < 0 )
1519            break;
1520        bytesWritten = write( out, buf, numRead );
1521        if( bytesWritten < 0 )
1522            break;
1523        bytesLeft -= bytesWritten;
1524    }
1525
1526    /* cleanup */
1527    tr_free( buf );
1528    tr_close_file( out );
1529    tr_close_file( in );
1530    if( bytesLeft != 0 )
1531        return -1;
1532
1533    unlink( oldpath );
1534    return 0;
1535}
[10274]1536
[12204]1537bool
[11574]1538tr_is_same_file( const char * filename1, const char * filename2 )
1539{
1540    struct stat sb1, sb2;
1541
1542    return !stat( filename1, &sb1 )
1543        && !stat( filename2, &sb2 )
1544        && ( sb1.st_dev == sb2.st_dev )
1545        && ( sb1.st_ino == sb2.st_ino );
1546}
1547
[10274]1548/***
1549****
1550***/
1551
1552void*
1553tr_valloc( size_t bufLen )
1554{
1555    size_t allocLen;
1556    void * buf = NULL;
1557    static size_t pageSize = 0;
1558
1559    if( !pageSize ) {
1560#ifdef HAVE_GETPAGESIZE
[10931]1561        pageSize = (size_t) getpagesize();
[10274]1562#else /* guess */
1563        pageSize = 4096;
1564#endif
1565    }
1566
1567    allocLen = pageSize;
1568    while( allocLen < bufLen )
1569        allocLen += pageSize;
1570
1571#ifdef HAVE_POSIX_MEMALIGN
1572    if( !buf )
[11634]1573        if( posix_memalign( &buf, pageSize, allocLen ) )
1574            buf = NULL; /* just retry with valloc/malloc */
[10274]1575#endif
1576#ifdef HAVE_VALLOC
1577    if( !buf )
1578        buf = valloc( allocLen );
1579#endif
1580    if( !buf )
[12383]1581        buf = tr_malloc( allocLen );
[10274]1582
1583    return buf;
1584}
[10814]1585
1586char *
1587tr_realpath( const char * path, char * resolved_path )
1588{
1589#ifdef WIN32
1590    /* From a message to the Mingw-msys list, Jun 2, 2005 by Mark Junker. */
1591    if( GetFullPathNameA( path, TR_PATH_MAX, resolved_path, NULL ) == 0 )
1592        return NULL;
1593    return resolved_path;
1594#else
1595    return realpath( path, resolved_path );
1596#endif
1597}
[10818]1598
1599/***
1600****
[12141]1601***/
1602
1603uint64_t
[12157]1604tr_htonll( uint64_t x )
[12141]1605{
[12157]1606#ifdef HAVE_HTONLL
1607    return htonll( x );
[12141]1608#else
[12158]1609    /* fallback code by Runner and Juan Carlos Cobas at
1610     * http://www.codeproject.com/KB/cpp/endianness.aspx */
[12247]1611    return (((uint64_t)(htonl((int)((x << 32) >> 32))) << 32) |
[12157]1612                     (unsigned int)htonl(((int)(x >> 32))));
[12141]1613#endif
1614}
1615
1616uint64_t
[12157]1617tr_ntohll( uint64_t x )
[12141]1618{
[12157]1619#ifdef HAVE_NTOHLL
1620    return ntohll( x );
[12141]1621#else
[12158]1622    /* fallback code by Runner and Juan Carlos Cobas at
1623     * http://www.codeproject.com/KB/cpp/endianness.aspx */
[12247]1624    return (((uint64_t)(ntohl((int)((x << 32) >> 32))) << 32) |
[12157]1625                     (unsigned int)ntohl(((int)(x >> 32))));
[12141]1626#endif
1627}
1628
1629/***
[10818]1630****
1631****
[12141]1632****
[10818]1633***/
1634
[10819]1635struct formatter_unit
1636{
1637    char * name;
[11714]1638    int64_t value;
[10819]1639};
[11398]1640
[10818]1641struct formatter_units
1642{
[10819]1643    struct formatter_unit units[4];
[10818]1644};
1645
[10955]1646enum { TR_FMT_KB, TR_FMT_MB, TR_FMT_GB, TR_FMT_TB };
[10931]1647
[10818]1648static void
1649formatter_init( struct formatter_units * units,
[10931]1650                unsigned int kilo,
[10955]1651                const char * kb, const char * mb,
1652                const char * gb, const char * tb )
[10818]1653{
[10987]1654    uint64_t value = kilo;
[10819]1655    units->units[TR_FMT_KB].name = tr_strdup( kb );
[10955]1656    units->units[TR_FMT_KB].value = value;
[10819]1657
[10955]1658    value *= kilo;
[10819]1659    units->units[TR_FMT_MB].name = tr_strdup( mb );
[10955]1660    units->units[TR_FMT_MB].value = value;
[10819]1661
[10955]1662    value *= kilo;
[10819]1663    units->units[TR_FMT_GB].name = tr_strdup( gb );
[10955]1664    units->units[TR_FMT_GB].value = value;
1665
1666    value *= kilo;
1667    units->units[TR_FMT_TB].name = tr_strdup( tb );
1668    units->units[TR_FMT_TB].value = value;
[10818]1669}
1670
1671static char*
1672formatter_get_size_str( const struct formatter_units * u,
[11714]1673                        char * buf, int64_t bytes, size_t buflen )
[10818]1674{
1675    int precision;
[10819]1676    double value;
[10818]1677    const char * units;
[10819]1678    const struct formatter_unit * unit;
[10818]1679
[10819]1680         if( bytes < u->units[1].value ) unit = &u->units[0];
1681    else if( bytes < u->units[2].value ) unit = &u->units[1];
1682    else if( bytes < u->units[3].value ) unit = &u->units[2];
1683    else                                 unit = &u->units[3];
[10818]1684
[10931]1685    value = (double)bytes / unit->value;
[10819]1686    units = unit->name;
[10831]1687    if( unit->value == 1 )
1688        precision = 0;
1689    else if( value < 100 )
1690        precision = 2;
1691    else
1692        precision = 1;
[10819]1693    tr_snprintf( buf, buflen, "%.*f %s", precision, value, units );
[10818]1694    return buf;
1695}
1696
[10819]1697static struct formatter_units size_units;
[10818]1698
1699void
[10931]1700tr_formatter_size_init( unsigned int kilo,
[10956]1701                        const char * kb, const char * mb,
1702                        const char * gb, const char * tb )
[10818]1703{
[10956]1704    formatter_init( &size_units, kilo, kb, mb, gb, tb );
[10818]1705}
1706
1707char*
[11714]1708tr_formatter_size_B( char * buf, int64_t bytes, size_t buflen )
[10818]1709{
1710    return formatter_get_size_str( &size_units, buf, bytes, buflen );
1711}
1712
[10819]1713static struct formatter_units speed_units;
1714
[10937]1715unsigned int tr_speed_K = 0u;
1716
[10818]1717void
[10931]1718tr_formatter_speed_init( unsigned int kilo,
[10956]1719                         const char * kb, const char * mb,
1720                         const char * gb, const char * tb )
[10818]1721{
[10937]1722    tr_speed_K = kilo;
[10956]1723    formatter_init( &speed_units, kilo, kb, mb, gb, tb );
[10818]1724}
1725
1726char*
[10986]1727tr_formatter_speed_KBps( char * buf, double KBps, size_t buflen )
[10818]1728{
[10977]1729    const double K = speed_units.units[TR_FMT_KB].value;
[10986]1730    double speed = KBps;
[10977]1731
1732    if( speed <= 999.95 ) /* 0.0 KB to 999.9 KB */
1733        tr_snprintf( buf, buflen, "%.2f %s", speed, speed_units.units[TR_FMT_KB].name );
1734    else {
1735        speed /= K;
1736        if( speed <= 99.995 ) /* 0.98 MB to 99.99 MB */
1737            tr_snprintf( buf, buflen, "%.2f %s", speed, speed_units.units[TR_FMT_MB].name );
1738        else if (speed <= 999.95) /* 100.0 MB to 999.9 MB */
1739            tr_snprintf( buf, buflen, "%.1f %s", speed, speed_units.units[TR_FMT_MB].name );
1740        else {
1741            speed /= K;
1742            tr_snprintf( buf, buflen, "%.1f %s", speed, speed_units.units[TR_FMT_GB].name );
1743        }
1744    }
1745
[10937]1746    return buf;
[10818]1747}
[10819]1748
[10931]1749static struct formatter_units mem_units;
1750
[10937]1751unsigned int tr_mem_K = 0u;
[11398]1752
[10931]1753void
1754tr_formatter_mem_init( unsigned int kilo,
[10956]1755                       const char * kb, const char * mb,
1756                       const char * gb, const char * tb )
[10931]1757{
[10937]1758    tr_mem_K = kilo;
[10956]1759    formatter_init( &mem_units, kilo, kb, mb, gb, tb );
[10931]1760}
1761
1762char*
[11714]1763tr_formatter_mem_B( char * buf, int64_t bytes_per_second, size_t buflen )
[10931]1764{
1765    return formatter_get_size_str( &mem_units, buf, bytes_per_second, buflen );
1766}
[11228]1767
1768void
1769tr_formatter_get_units( tr_benc * d )
1770{
1771    int i;
1772    tr_benc * l;
1773
1774    tr_bencDictReserve( d, 6 );
1775
1776    tr_bencDictAddInt( d, "memory-bytes", mem_units.units[TR_FMT_KB].value );
1777    l = tr_bencDictAddList( d, "memory-units", 4 );
1778    for( i=0; i<4; i++ ) tr_bencListAddStr( l, mem_units.units[i].name );
1779
1780    tr_bencDictAddInt( d, "size-bytes",   size_units.units[TR_FMT_KB].value );
1781    l = tr_bencDictAddList( d, "size-units", 4 );
1782    for( i=0; i<4; i++ ) tr_bencListAddStr( l, size_units.units[i].name );
1783
1784    tr_bencDictAddInt( d, "speed-bytes",  speed_units.units[TR_FMT_KB].value );
1785    l = tr_bencDictAddList( d, "speed-units", 4 );
1786    for( i=0; i<4; i++ ) tr_bencListAddStr( l, speed_units.units[i].name );
1787}
1788
Note: See TracBrowser for help on using the repository browser.