tinc/lib/utils.c

/*
    utils.c -- gathering of some stupid small functions
    Copyright (C) 1999-2001 Ivo Timmermans <zarq@iname.com>
                  2000,2001 Guus Sliepen <guus@sliepen.warande.net>

    This program is free software; you can redistribute it and/or modify
    it under the terms of the GNU General Public License as published by
    the Free Software Foundation; either version 2 of the License, or
    (at your option) any later version.

    This program is distributed in the hope that it will be useful,
    but WITHOUT ANY WARRANTY; without even the implied warranty of
    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
    GNU General Public License for more details.

    You should have received a copy of the GNU General Public License
    along with this program; if not, write to the Free Software
    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/

#include <sys/types.h>
#include <ctype.h>
#include <string.h>
#include <stdarg.h>

#include "config.h"

#include <utils.h>
#include <syslog.h>
#include <xalloc.h>

#ifdef ENABLE_TRACING
volatile int (cp_line[]) = {0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0};
volatile char (*cp_file[]) = {"?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?", "?"};
volatile int cp_index = 0;
#endif

char *hexadecimals = "0123456789ABCDEF";

int charhex2bin(char c)
{
  if(isdigit(c))
    return c - '0';
  else
    return toupper(c) - 'A' + 10;
}


void hex2bin(char *src, char *dst, int length)
{
  int i;
  for(i=0; i<length; i++)
    dst[i] = charhex2bin(src[i*2])*16 + charhex2bin(src[i*2+1]);
}

void bin2hex(char *src, char *dst, int length)
{
  int i;
  for(i=length-1; i>=0; i--)
    {
      dst[i*2+1] = hexadecimals[(unsigned char)src[i] & 15];
      dst[i*2] = hexadecimals[(unsigned char)src[i]>>4];
    }
}

#ifdef ENABLE_TRACING
void cp_trace()
{
  syslog(LOG_DEBUG, "Checkpoint trace: %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d <- %s:%d...",
           cp_file[(cp_index+15)%16], cp_line[(cp_index+15)%16],
           cp_file[(cp_index+14)%16], cp_line[(cp_index+14)%16],
           cp_file[(cp_index+13)%16], cp_line[(cp_index+13)%16],
           cp_file[(cp_index+12)%16], cp_line[(cp_index+12)%16],
           cp_file[(cp_index+11)%16], cp_line[(cp_index+11)%16],
           cp_file[(cp_index+10)%16], cp_line[(cp_index+10)%16],
           cp_file[(cp_index+9)%16], cp_line[(cp_index+9)%16],
           cp_file[(cp_index+8)%16], cp_line[(cp_index+8)%16],
           cp_file[(cp_index+7)%16], cp_line[(cp_index+7)%16],
           cp_file[(cp_index+6)%16], cp_line[(cp_index+6)%16],
           cp_file[(cp_index+5)%16], cp_line[(cp_index+5)%16],
           cp_file[(cp_index+4)%16], cp_line[(cp_index+4)%16],
           cp_file[(cp_index+3)%16], cp_line[(cp_index+3)%16],
           cp_file[(cp_index+2)%16], cp_line[(cp_index+2)%16],
           cp_file[(cp_index+1)%16], cp_line[(cp_index+1)%16],
           cp_file[cp_index], cp_line[cp_index]
        );
}
#endif

#ifndef HAVE_ASPRINTF
int asprintf(char **buf, const char *fmt, ...)
{
  int status;
  va_list ap;
  int len;
  
  len = 4096;
  *buf = xmalloc(len);

  va_start(ap, fmt);
  status = vsnprintf (*buf, len, fmt, ap);
  va_end (ap);

  if(status >= 0)
    *buf = xrealloc(*buf, status);

  if(status > len-1)
    {
      len = status;
      va_start(ap, fmt);
      status = vsnprintf (*buf, len, fmt, ap);
      va_end (ap);
    }

  return status;
}
#endif