logfile.c

来自「ngspice又一个电子CAD仿真软件代码.功能更全」· C语言 代码 · 共 42 行

/**********
Copyright 1992 Regents of the University of California.  All rights reserved.
Author:	1992 David A. Gates, U. C. Berkeley CAD Group
**********/

#include "ngspice.h"

static char *LogFileName = "cider.log";
static int LogError = 0;

void
LOGmakeEntry(name, description)
  char *name;
  char *description;
{
  int procStamp;
  FILE *fpLog;

#ifdef HAS_GETPID
  procStamp = getpid();
#else
  procStamp = 0;
#endif

/* Want to make sure that multiple processes can access the log file
 * without stepping on each other.
 */
#ifdef ultrix
  if (!(fpLog = fopen(LogFileName, "A"))) {
#else
  if (!(fpLog = fopen(LogFileName, "a"))) {
#endif
    if (!LogError)
      perror(LogFileName);
    LogError = 1;
  } else {
    fprintf(fpLog, "<%05d> %s: %s\n", procStamp, name, description);
    fclose(fpLog);
    LogError = 0;
  }
}