/*

    atarisio - A UNIX backend for an Atari SIO2PC lead.

    Copyright (C) 2004  Ian Cowburn (ianc@noddybox.demon.co.uk)

    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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA

    -------------------------------------------------------------------------

    Global utilities and types

*/
static const char ident[]="$Id$";

#include <stdio.h>
#include <string.h>
#include <strings.h>
#include <ctype.h>
#include "util.h"

static const char ident_h[]=ATARISIO_UTIL_H;

#define HEX_DUMP_LINE	16


/* ---------------------------------------- INTERFACES
*/
void *Malloc(size_t size)
{
    void *new=malloc(size);

    if (!new)
    {
    	fprintf(stderr,"malloc failed for %lu bytes\n",(unsigned long)size);
	exit(EXIT_FAILURE);
    }

    return new;
}


void *Realloc(void *p, size_t size)
{
    void *new=realloc(p,size);

    if (!new)
    {
    	fprintf(stderr,"realloc failed for %lu bytes\n",(unsigned long)size);
	exit(EXIT_FAILURE);
    }

    return new;
}


char *StrCopy(const char *source)
{
    return strcpy(Malloc(strlen(source)+1),source);
}


int YesNo(const char *str, int *flag)
{
    if (strcasecmp(str,"on")==0 || 
	strcasecmp(str,"yes")==0 || 
	strcasecmp(str,"1")==0)
    {
	*flag=1;
    	return 1;
    }

    if (strcasecmp(str,"off")==0 || 
	strcasecmp(str,"no")==0 || 
	strcasecmp(str,"0")==0)
    {
	*flag=0;
    	return 1;
    }

    return 0;
}


void HexDump(const uchar *p, size_t len)
{
    char asc[HEX_DUMP_LINE+1];
    size_t f;

    f=0;

    while(f<len)
    {
	if ((f%HEX_DUMP_LINE)==0)
	    printf("%4.4x: ",f);

	printf(" %2.2x",p[f]);

	if (isprint(p[f]))
	    asc[f%HEX_DUMP_LINE]=p[f];
	else
	    asc[f%HEX_DUMP_LINE]='.';

	asc[(f%HEX_DUMP_LINE)+1]=0;

	f++;

	if ((f%HEX_DUMP_LINE)==0)
	    printf("  %s\n",asc);
    }

    if (f%HEX_DUMP_LINE)
    {
	while(f%HEX_DUMP_LINE)
	{
	    printf("   ");
	    f++;
	}

	printf("  %s\n",asc);
    }
}


int GetInt(const char *p)
{
    long l;

    l=strtol(p,NULL,0);

    return l;
}


uchar Checksum(const uchar *p, size_t len)
{
    int sum;
    size_t f;

    sum=0;

    for(f=0;f<len;f++)
    {
	sum+=p[f];
	sum=(sum&0xff)+(sum>>8);
    }

    return (uchar)(sum&0xff);
}



/* END OF FILE */