mirror of
https://github.com/Unidata/netcdf-c.git
synced 2025-01-30 16:10:44 +08:00
00e50f5a44
2. Fixed Ward's IGNORE problem with oc 3. Mmap support now works. 4. Fix an uninitialized variable pointed out by Russ in dnclog.c
164 lines
3.2 KiB
C
164 lines
3.2 KiB
C
/*********************************************************************
|
|
* Copyright 2010, UCAR/Unidata
|
|
* See netcdf/COPYRIGHT file for copying and redistribution conditions.
|
|
* $Header$
|
|
*********************************************************************/
|
|
|
|
#include "config.h"
|
|
|
|
#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);
|
|
}
|
|
|
|
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;
|
|
/* Find end of the tagset */
|
|
for(i=0;i<MAXTAGS;i++) {if(tagset[i]==NULL) break;}
|
|
nctagsize = i;
|
|
}
|
|
nctagset = tagset;
|
|
}
|
|
|
|
static char*
|
|
nctagname(int tag)
|
|
{
|
|
if(tag < 0 || tag >= nctagsize) {
|
|
return nctagdfalt;
|
|
} else {
|
|
return nctagset[tag];
|
|
}
|
|
}
|