basic.c

Go to the documentation of this file.

#include <stdlib.h>
#include <stdarg.h>
#include "basic.h"


/* Autodetect whether to use Windows, POSIX,
   or fallback implementation for Clock.  */
#if !defined(USE_GETSYSTEMTIME) && !defined(USE_GETTIMEOFDAY) && !defined(USE_TIME)
#   if defined(WIN32) || defined(_WIN32) || defined(WIN64) || defined(_WIN64)
#       define USE_GETSYSTEMTIME
#   elif defined(unix) || defined(__unix__) || defined(__unix)
#       include <unistd.h>
#       if (_POSIX_TIMERS) || (_POSIX_VERSION >= 200112L)
#           define USE_GETTIMEOFDAY
#       endif
#   endif
#endif

/* Define Clock(), get the system clock in milliseconds */
#if defined(USE_GETSYSTEMTIME)
#define WIN32_LEAN_AND_MEAN
#include <windows.h>

unsigned long Clock()   /* Windows implementation */
{
    static SYSTEMTIME TimeVal;
    GetSystemTime(&TimeVal);
    return (unsigned long)((unsigned long)TimeVal.wMilliseconds
        + 1000*((unsigned long)TimeVal.wSecond
        + 60*((unsigned long)TimeVal.wMinute
        + 60*((unsigned long)TimeVal.wHour
        + 24*(unsigned long)TimeVal.wDay))));
}
#elif defined(USE_GETTIMEOFDAY)
#include <unistd.h>
#include <sys/time.h>

unsigned long Clock()   /* POSIX implementation */
{
    struct timeval TimeVal;
    gettimeofday(&TimeVal, NULL);
    return (unsigned long)(TimeVal.tv_usec/1000 + TimeVal.tv_sec*1000);
}
#else
#include <time.h>

unsigned long Clock()   /* Fallback implementation */
{
    time_t RawTime;
    struct tm *TimeVal;
    time(&RawTime);
    TimeVal = localtime(&RawTime);
    return (unsigned long)(1000*((unsigned long)TimeVal->tm_sec
        + 60*((unsigned long)TimeVal->tm_min
        + 60*((unsigned long)TimeVal->tm_hour
        + 24*(unsigned long)TimeVal->tm_mday))));
}
#endif


void *MallocWithErrorMessage(size_t Size)
{
    void *Ptr;

    if(!(Ptr = malloc(Size)))
        ErrorMessage("Memory allocation of %u bytes failed.\n", Size);

    return Ptr;
}


void *ReallocWithErrorMessage(void *Ptr, size_t Size)
{
    void *NewPtr;

    if(!(NewPtr = realloc(Ptr, Size)))
    {
        ErrorMessage("Memory reallocation of %u bytes failed.\n", Size);
        Free(Ptr);  /* Free the previous block on failure */
    }

    return NewPtr;
}


void ErrorMessage(const char *Format, ...)
{
    va_list Args;

    va_start(Args, Format);
    /* Write a formatted error message to stderr */
    vfprintf(stderr, Format, Args);
    va_end(Args);
}