netcdf-c/libdispatch/dnclog.c

190 lines
3.7 KiB
C

/*********************************************************************
* Copyright 2010, UCAR/Unidata
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
* $Header$
*********************************************************************/
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <stdarg.h>
#include <string.h>
#include "nclog.h"
#define PREFIXLEN 8
#define MAXTAGS 256
#define NCTAGDFALT "Log";
static int ncinitlog = 0;
static int nclogging = 0;
static char* nclogfile = NULL;
static FILE* nclogstream = NULL;
static int nctagsize = 0;
static char** nctagset = NULL;
static char* nctagdfalt = NULL;
static char* nctagsetdfalt[] = {"Warning","Error","Note","Debug"};
static char* nctagname(int tag);
void
ncloginit(void)
{
ncinitlog = 1;
ncsetlogging(0);
nclogfile = NULL;
nclogstream = NULL;
/* Use environment variables to preset nclogging state*/
/* I hope this is portable*/
if(getenv(ENVFLAG) != NULL) {
const char* file = getenv(ENVFLAG);
ncsetlogging(1);
nclogopen(file);
}
nctagdfalt = NCTAGDFALT;
nctagset = nctagsetdfalt;
}
void
ncsetlogging(int tf)
{
if(!ncinitlog) ncloginit();
nclogging = tf;
}
void
nclogopen(const char* file)
{
if(!ncinitlog) ncloginit();
if(nclogfile != NULL) {
fclose(nclogstream);
free(nclogfile);
nclogfile = NULL;
}
if(file == NULL || strlen(file) == 0) {
/* use stderr*/
nclogstream = stderr;
nclogfile = NULL;
} else if(strcmp(file,"stdout") == 0) {
/* use stdout*/
nclogstream = stdout;
nclogfile = NULL;
} else if(strcmp(file,"stderr") == 0) {
/* use stderr*/
nclogstream = stderr;
nclogfile = NULL;
} else {
int fd;
nclogfile = strdup(file);
nclogstream = NULL;
/* We need to deal with this file carefully
to avoid unauthorized access*/
fd = open(nclogfile,O_WRONLY|O_APPEND|O_CREAT,0600);
if(fd >= 0) {
nclogstream = fdopen(fd,"a");
} else {
free(nclogfile);
nclogfile = NULL;
ncsetlogging(0);
}
}
}
void
nclogclose(void)
{
if(nclogfile != NULL && nclogstream != NULL) {
fclose(nclogstream);
nclogstream = NULL;
if(nclogfile != NULL) free(nclogfile);
nclogfile = NULL;
}
}
void
nclog(int tag, const char* fmt, ...)
{
va_list args;
char* prefix;
if(!nclogging || nclogstream == NULL) return;
prefix = nctagname(tag);
fprintf(nclogstream,"%s:",prefix);
if(fmt != NULL) {
va_start(args, fmt);
vfprintf(nclogstream, fmt, args);
va_end( args );
}
fprintf(nclogstream, "\n" );
fflush(nclogstream);
}
#ifdef IGNORE
void
nclogtext(int tag, const char* text)
{
char line[1024];
size_t delta = 0;
const char* eol = text;
if(!nclogging || nclogstream == NULL) return;
while(*text) {
eol = strchr(text,'\n');
if(eol == NULL)
delta = strlen(text);
else
delta = (eol - text);
if(delta > 0) memcpy(line,text,delta);
line[delta] = '\0';
fprintf(nclogstream," %s\n",line);
text = eol+1;
}
}
#endif
void
nclogtext(int tag, const char* text)
{
nclogtextn(tag,text,strlen(text));
}
void
nclogtextn(int tag, const char* text, size_t count)
{
if(!nclogging || nclogstream == NULL) return;
fwrite(text,1,count,nclogstream);
fflush(nclogstream);
}
/* The tagset is null terminated */
void
nclogsettags(char** tagset, char* dfalt)
{
nctagdfalt = dfalt;
if(tagset == NULL) {
nctagsize = 0;
} else {
int i;
char** p = tagset;
while(*p && i < MAXTAGS) {i++;}
nctagsize = i;
}
nctagset = tagset;
}
static char*
nctagname(int tag)
{
if(tag < 0 || tag >= nctagsize) {
return nctagdfalt;
} else {
return nctagset[tag];
}
}