transmission/libtransmission/bencode.c

206 lines
5.4 KiB
C
Raw Normal View History

2006-01-12 17:43:21 +00:00
/******************************************************************************
* Copyright (c) 2005 Eric Petit
*
* Permission is hereby granted, free of charge, to any person obtaining a
* copy of this software and associated documentation files (the "Software"),
* to deal in the Software without restriction, including without limitation
* the rights to use, copy, modify, merge, publish, distribute, sublicense,
* and/or sell copies of the Software, and to permit persons to whom the
* Software is furnished to do so, subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in
* all copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
* DEALINGS IN THE SOFTWARE.
*****************************************************************************/
#include "transmission.h"
#define LIST_SIZE 20
int _tr_bencLoad( char * buf, benc_val_t * val, char ** end )
{
char * p, * foo;
if( !end )
{
/* So we only have to check once */
end = &foo;
}
val->begin = buf;
if( buf[0] == 'i' )
{
/* Integer: i1242e */
val->type = TYPE_INT;
val->val.i = strtoll( &buf[1], &p, 10 );
if( p == &buf[1] || p[0] != 'e' )
{
return 1;
}
val->end = p + 1;
}
else if( buf[0] == 'l' || buf[0] == 'd' )
{
/* List: l<item1><item2>e
Dict: d<string1><item1><string2><item2>e
A dictionary is just a special kind of list with an even
count of items, and where even items are strings. */
char * cur;
char is_dict;
char str_expected;
is_dict = ( buf[0] == 'd' );
val->type = is_dict ? TYPE_DICT : TYPE_LIST;
val->val.l.alloc = LIST_SIZE;
val->val.l.count = 0;
val->val.l.vals = malloc( LIST_SIZE * sizeof( benc_val_t ) );
cur = &buf[1];
str_expected = 1;
while( cur[0] != 'e' )
{
if( val->val.l.count == val->val.l.alloc )
{
/* We need a bigger boat */
val->val.l.alloc += LIST_SIZE;
val->val.l.vals = realloc( val->val.l.vals,
val->val.l.alloc * sizeof( benc_val_t ) );
}
if( tr_bencLoad( cur, &val->val.l.vals[val->val.l.count], &p ) )
{
return 1;
}
if( is_dict && str_expected &&
val->val.l.vals[val->val.l.count].type != TYPE_STR )
{
return 1;
}
str_expected = !str_expected;
val->val.l.count++;
cur = p;
}
if( is_dict && ( val->val.l.count & 1 ) )
{
return 1;
}
val->end = cur + 1;
}
else
{
/* String: 12:whateverword */
val->type = TYPE_STR;
val->val.s.i = strtol( buf, &p, 10 );
if( p == buf || p[0] != ':' )
{
return 1;
}
val->val.s.s = malloc( val->val.s.i + 1 );
val->val.s.s[val->val.s.i] = 0;
memcpy( val->val.s.s, p + 1, val->val.s.i );
val->end = p + 1 + val->val.s.i;
}
*end = val->end;
return 0;
}
static void __bencPrint( benc_val_t * val, int space )
{
int i;
for( i = 0; i < space; i++ )
{
fprintf( stderr, " " );
}
switch( val->type )
{
case TYPE_INT:
fprintf( stderr, "int: %lld\n", val->val.i );
break;
case TYPE_STR:
fprintf( stderr, "%s\n", val->val.s.s );
break;
case TYPE_LIST:
fprintf( stderr, "list\n" );
for( i = 0; i < val->val.l.count; i++ )
__bencPrint( &val->val.l.vals[i], space + 1 );
break;
case TYPE_DICT:
fprintf( stderr, "dict\n" );
for( i = 0; i < val->val.l.count; i++ )
__bencPrint( &val->val.l.vals[i], space + 1 );
break;
}
}
void tr_bencPrint( benc_val_t * val )
{
__bencPrint( val, 0 );
}
void tr_bencFree( benc_val_t * val )
{
int i;
switch( val->type )
{
case TYPE_INT:
break;
case TYPE_STR:
if( val->val.s.s )
{
free( val->val.s.s );
}
break;
case TYPE_LIST:
case TYPE_DICT:
for( i = 0; i < val->val.l.count; i++ )
{
tr_bencFree( &val->val.l.vals[i] );
}
free( val->val.l.vals );
break;
}
}
benc_val_t * tr_bencDictFind( benc_val_t * val, char * key )
{
int i;
if( val->type != TYPE_DICT )
{
return NULL;
}
for( i = 0; i < val->val.l.count; i += 2 )
{
if( !strcmp( val->val.l.vals[i].val.s.s, key ) )
{
return &val->val.l.vals[i+1];
}
}
return NULL;
}