CUtils.cxx

//==============================================================================
// File:        CUtils.cxx
//
// Copyright (c) 2017, Phil Harvey, Queen's University
//==============================================================================
#include <stdlib.h>
#include <stdio.h>
#include <stdarg.h>
#include <unistd.h>
#include <time.h>
#include <string.h>
#include <sys/time.h>
#include <unistd.h>
#include "CUtils.h"

char *progname = "aged";
char *progpath = "aged";

#ifdef VAX
unsigned long LIB$WAIT( float* );
#endif

/*---------------------------------------------------------------------------
*/
void setProgname(char *aFilename, char *aPathname)
{
    progname = aFilename;
    progpath = aPathname;
}

/*
 * get current accurate time in seconds using system clock - PH 02/01/98
 */
double double_time(void)
{
    /* add support for systems without clock_gettime() or ftime() - PH 01/20/99 */
    struct timeval tv;
    struct timezone tz;
    gettimeofday(&tv,&tz);
    return(tv.tv_sec + 1e-6 * tv.tv_usec);
}


/* portable sleep routine */
void usleep_(unsigned long usec)
{
#ifdef USE_NANOSLEEP
    struct timespec ts;
    ts.tv_sec = usec / 1000000UL;
    ts.tv_nsec = (usec - ts.tv_sec * 1000000UL) * 1000;
    nanosleep(&ts,NULL);
#elif VAX
    float secs;
    secs = usec * 0.000001;
    LIB$WAIT(&secs);
#else
    usleep(usec);
#endif
}


/* Printf buffer variables */
static char *sPrintfBuffer = NULL;
static int   sPrintfBufferMax = 0;
static int   sPrintfBufferLen = 0;

void SetPrintfOutput(char *buff, int size)
{
    sPrintfBuffer = buff;
    sPrintfBufferMax = size;
    sPrintfBufferLen = 0;
    if (buff && size) *buff = '\0'; /* start with null string in buffer */
}

#ifdef VAX
// necessary to avoid conflict with printf on VAX
int vaxPrintf(char *fmt,...)
#else
int Printf(char *fmt,...)
#endif
{
    int     len = 0;
    va_list varArgList;
    
    va_start(varArgList,fmt);
    if (sPrintfBuffer) {
        /* check to see if buffer is getting too full */
        if (sPrintfBufferLen + 80 > sPrintfBufferMax) {
            printf("%s: Printf buffer too full!\n", progname);
        } else {
            /* add output to buffer */
            char *pt = strchr(sPrintfBuffer, '\0');
            len = sprintf(pt,"%s: ",progname);
            len += vsprintf(pt+len,fmt,varArgList);
            sPrintfBufferLen = pt - sPrintfBuffer + len;
        }
    } else {
        len = printf("%s: ", progname);
        len += vprintf(fmt,varArgList);
    }
    va_end(varArgList);
    return(len);
}

void quit(char *msg)
{
    printf("%s: %s\n",progname,msg);
    exit(0);
}