WebSVN – Vertical – Diff – /branches/metal/cmdlib/cmdlog.c

-/** $Header: c:\\cygwin\\cvsroot/Vert03/cmdlib/cmdlog.c,v 1.1.1.1 2003/11/04 23:34:56 mjames
+/** $Header: c:\\cygwin\\cvsroot/Vert03/cmdlib/cmdlog.c,v 1.1.1.1 2003/11/04 23:34:56 mjames Exp $ **
+              Author: Kevin Ross (x6143)
-Exp $ ** Author: Kevin Ross (x6143) Philips Semiconductors Limited. Millbrook Industrial
+                      Philips Semiconductors Limited.
-Estate, Southampton, SO9 7BH. England.
+                      Millbrook Industrial Estate, Southampton, SO9 7BH. England.
                 Date: 12th May 1993
 **********************************************************************************************************/
-#include "cmdlog.h"
+#include <stdio.h>
+#include <string.h>
+#include <stdlib.h>
-#include "cmdexec.h"
+#include <stdarg.h>
+#include "vertcl_main.h"
 #include "cmdparse.h"
+#include "cmdexec.h"
 #include "cmdutil.h"
-#include "database.h"
 #include "expression.h"
 #include "generic.h"
+#include "database.h"
 #include "printout.h"
+#include "cmdlog.h"
 #include "version.h"
-#include "vertcl_main.h"
-#include <stdarg.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include <string.h>
 static FILE *LogDisplay = NULL;
-static FILE *LogError = NULL;
+static FILE *LogError   = NULL;
-static FILE *LogFile = NULL;
+static FILE *LogFile    = NULL;
 static int TransLevel = TRANSOFF;
 /* added at TH request */
-static int LogDisableFlag = 0;
+static int LogDisableFlag  = 0;
-#ident                                                                                        \
-    "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/cmdlib/cmdlog.c,v 1.1.1.1 2003/11/04 23:34:56 mjames Exp $"
+#ident "@(#)$Header: c:\\cygwin\\cvsroot/Vert03/cmdlib/cmdlog.c,v 1.1.1.1 2003/11/04 23:34:56 mjames Exp $"
-/***************************************** Setup error logging
+/***************************************** Setup error logging ***********************************************/
- * ***********************************************/
-void InitErrorLog (void)
+void InitErrorLog(void) {
-{
-        LogDisplay = stdout; /* moved to satisfy GCC */
+  LogDisplay = stdout; /* moved to satisfy GCC */
-        LogError = trap_fopen ("vertical.errs", "w+");
+  LogError = trap_fopen("vertical.errs","w+");
-        if (LogError)
+  if (LogError) {
-        {
-                print_header (LogError, Vertical_Version);
+    print_header(LogError,Vertical_Version);
-                fflush (LogError);
+    fflush(LogError);
-        }
+    }
-}
+  }
-/***************************************** Setup error logging
+/***************************************** Setup error logging ***********************************************/
- * ***********************************************/
-void EndErrorLog (void)
+void EndErrorLog(void) {
-{
-        char str[1024];
+  char str[1024];
-        if (LogFile)
+  if (LogFile)
-                fclose (LogFile);
+    fclose(LogFile);
-        if (LogError)
+  if (LogError) {
-        {
-                fflush (LogError); /* flush it then re-seek to top */
+    fflush(LogError); /* flush it then re-seek to top */
-                fseek (LogError, 0, SEEK_SET);
+    fseek(LogError,0,SEEK_SET);
-                Log (LOG_GENERAL, "-- start ERROR LOG summary --\n\n");
+    Log(LOG_GENERAL,"-- start ERROR LOG summary --\n\n");
-                while (!feof (LogError))
+    while(!feof(LogError)) {
-                {
-                        fgets (str, 1023, LogError);
+      fgets(str,1023,LogError);
-                        str[1023] = 0;
+      str[1023]=0;
-                        Log (LOG_GENERAL, str, stdout);
+      Log(LOG_GENERAL,str,stdout);
-                }
+      }
-                Log (LOG_GENERAL, "-- end ERROR LOG summary --\n\n");
+    Log(LOG_GENERAL,"-- end ERROR LOG summary --\n\n");
-                fclose (LogError);
+    fclose(LogError);
-        }
+    }
-}
+  }
 /****************************************************************************************/
 /* log a command into the console */
-void Log_Command (char *Format, ...)
+void Log_Command(char * Format, ...) {
-{
-        va_list ArgPtr; /* Get an argument pointer */
+   va_list ArgPtr;                           /* Get an argument pointer */
-        char str[1024];
+   char str[1024];
-        /* silence logging */
+/* silence logging */
-        if (LogDisableFlag)
+   if (LogDisableFlag)
-        {
+     {
-                return;
+     return;
-        }
+     }
-        va_start (ArgPtr, Format);      /* Set pointer to 1st arg after the format string */
+   va_start(ArgPtr, Format);                 /* Set pointer to 1st arg after the format string */
-        vsprintf (str, Format, ArgPtr); /* write all the 'Messages' to the string */
+   vsprintf(str, Format, ArgPtr);            /* write all the 'Messages' to the string */
-        va_end (ArgPtr);
+   va_end(ArgPtr);
 #if defined CMDLOG_TCL
-        if (Tcl_Mode == Tcl_GUI)
+   if (Tcl_Mode==Tcl_GUI)
-                Et_EvalF (Tcl_interp, ".con.t insert end \"\n%q\"", str);
+     Et_EvalF(Tcl_interp,".con.t insert end \"\n%q\"",str);
-        else
+   else
 #endif
-                printf ("%s", str);
+     printf("%s",str);
+   }
+/***************************************** Message handler ***********************************************/
+__declspec (dllexport)void Log (EnumLogLevel LoggingLevel, char * Format, ...)
-}
+   {
+   va_list ArgPtr;                           /* Get an argument pointer */
+   char str[1024];
+/* silence logging */
+   if (LogDisableFlag)
+     {
+     return;
+     }
-/***************************************** Message handler
- * ***********************************************/
-__declspec(dllexport) void Log (EnumLogLevel LoggingLevel, char *Format, ...)
+   va_start(ArgPtr, Format);                 /* Set pointer to 1st arg after the format string */
+   vsprintf(str, Format, ArgPtr);            /* write all the 'Messages' to the string */
+   va_end(ArgPtr);
-{
-        va_list ArgPtr; /* Get an argument pointer */
-        char str[1024];
-        /* silence logging */
-        if (LogDisableFlag)
-        {
-                return;
-        }
-        va_start (ArgPtr, Format);      /* Set pointer to 1st arg after the format string */
-        vsprintf (str, Format, ArgPtr); /* write all the 'Messages' to the string */
-        va_end (ArgPtr);
-        if (LoggingLevel == LOG_ERROR)
+   if (LoggingLevel == LOG_ERROR) {
-        {
-                if (LogError != NULL)
+     if (LogError   != NULL)
-                        fprintf (LogError, "%s", str);
+     fprintf (LogError ,"%s" , str);
-        }
+   }
-        /* stick it in the TCL console for now */
+   /* stick it in the TCL console for now */
-        if (LogDisplay != NULL)
+   if (LogDisplay != NULL)
 #if defined CMDLOG_TCL
-                if (Tcl_Mode == Tcl_GUI)
+   if (Tcl_Mode == Tcl_GUI)
-                        Et_EvalF (Tcl_interp, ".con.t insert end \"%q\"", str);
+     Et_EvalF(Tcl_interp,".con.t insert end \"%q\"",str);
-                else
+   else
 #endif
-                        printf ("%s", str);
+     printf("%s",str);
-        /* log everything to the file anyway */
+    /* log everything to the file anyway */
-        if (TransLevel == TRANSON && LogFile != NULL)
+   if (TransLevel == TRANSON && LogFile    != NULL)
-                fprintf (LogFile, str);
+      fprintf (LogFile,    str);
-}
+   }
 /*********************************************************************************************************/
 int SetTrans (int x)
+   {
-{
-        switch (x)
+   switch (x)
-        {
+      {
-        case TRANSOFF:
-                Log (LOG_GENERAL, "Transcript disabled\n");
+      case TRANSOFF  : Log (LOG_GENERAL, "Transcript disabled\n"); TransLevel = TRANSOFF; break;
-                TransLevel = TRANSOFF;
-                break;
-        case TRANSON:
-                TransLevel = TRANSON;
-                Log (LOG_GENERAL, "Transcript enabled\n");
+      case TRANSON   : TransLevel = TRANSON;  Log (LOG_GENERAL, "Transcript enabled\n");  break;
-                break;
-        case TRANSREAD:
-                return (TransLevel);
+      case TRANSREAD : return (TransLevel);
-        default:
-                return (UNKNOWNCMD);
+      default        : return (UNKNOWNCMD);
-        }
+      }
-        return (OKCMD);
+   return (OKCMD);
-}
+   }
 /*********************************************************************************************************/
 /*
 @title
 log transoff
 @text
 If this command is used then further logging will not be written
 to the log file
 @end
 */
 int LogTrOff (ET_TCLARGS)
-{
-        SetTrans (TRANSOFF);
+   { SetTrans(TRANSOFF); return (OKCMD); }
-        return (OKCMD);
-}
 /*
 @title
 log transon
 @text
 If this command is used then logging output will be written
 to the log file
 @end
 */
 int LogTrOn (ET_TCLARGS)
-{
-        SetTrans (TRANSON);
-        return (OKCMD);
+   { SetTrans(TRANSON); return (OKCMD); }
-}
 /*********************************************************************************************************/
 int OpenLog (char *LogName)
-{
+   {
-        SetTrans (TRANSON);
+   SetTrans(TRANSON);
-        LogFile = fopen (LogName, "w");
+   LogFile = fopen (LogName, "w");
-        fprintf (LogFile, "#\n");
+   fprintf (LogFile, "#\n");
-        fprintf (LogFile, "# Produced by VERTICAL version %s\n", Vertical_Version);
+   fprintf (LogFile, "# Produced by VERTICAL version %s\n",Vertical_Version);
-        fprintf (LogFile, "#\n\n");
+   fprintf (LogFile, "#\n\n");
-        return (OKCMD);
+   return (OKCMD);
-}
+   }
 /*********************************************************************************************************/
 int CloseLog (void)
+   {
-{
-        if (LogFile != NULL)
+   if (LogFile != NULL)
-        {
+      {
-                Log (LOG_GENERAL, "Close current log file\n");
+      Log (LOG_GENERAL, "Close current log file\n");
-                fclose (LogFile);
+      fclose (LogFile);
-                LogFile = NULL;
+      LogFile = NULL;
-        }
+      }
-        return (OKCMD);
+   return (OKCMD);
-}
+   }
 /*********************************************************************************************************/
 int LogComm (ET_TCLARGS)
-{
+   {
-        int i;
+   int i;
-        if (argc > 0)
+   if (argc >0)
-        {
+      {
-                Log (LOG_GENERAL, "# LOGGING COMMENT:");
+      Log (LOG_GENERAL, "# LOGGING COMMENT:");
-                for (i = 1; i < argc; i++)
+      for (i=1; i<argc; i++)
-                        Log (LOG_GENERAL, " %s", argv[i]);
+         Log (LOG_GENERAL, " %s", argv[i]);
-                Log (LOG_GENERAL, "\n");
+      Log (LOG_GENERAL, "\n");
-        }
+      }
-        else
+   else
-                return (TCL_ERROR);
+      return (TCL_ERROR);
-        return (TCL_OK);
+   return (TCL_OK);
-}
+   }
 /*********************************************************************************************************/
 /*
 @title
 log lfile <filename>
 All logged output will be written to the named file.
 @end
 */
 int LogLFile (ET_TCLARGS)
+   {
-{
-        if (argc > 0)
+   if (argc > 0)
-        {
+      {
-                Log (LOG_GENERAL, "-- Set log filename: <%s>\n\n", argv[0]);
+      Log (LOG_GENERAL, "-- Set log filename: <%s>\n\n", argv[0]);
-                CloseLog ();
+      CloseLog();
-                OpenLog (argv[0]);
+      OpenLog (argv[0]);
-                return (TCL_OK);
+      return (TCL_OK);
-        }
+      }
-        else
+   else
-                return (TCL_ERROR);
+      return (TCL_ERROR);
-}
+   }
 /*********************************************************************************************************/
 /* enable / disable global silencing flag, one call works
    as a command menu handler */
-void LogSilent (void)
+void LogSilent(void)
-{
+  {
-        LogDisableFlag = 1;
+  LogDisableFlag =1;
+  }
-}
 /*
 @title
 log silent
 @text
 If this command is used, all further log messages are suppressed
 @end
 */
-int LogSilentHndl (ET_TCLARGS)
+int LogSilentHndl(ET_TCLARGS)
-{
+  {
-        LogDisableFlag = 1;
+  LogDisableFlag =1;
-        return 0;
+  return 0;
-}
+  }
 /*********************************************************************************************************/
-void LogVerbose (void)
+void LogVerbose(void)
-{
+  {
-        LogDisableFlag = 0;
+  LogDisableFlag = 0;
-}
+  }
 /*
 @title
 log verbose
 @text
 If this command is used, all further log messages are enabled.
 @end
 */
-int LogVerboseHndl (ET_TCLARGS)
+int LogVerboseHndl(ET_TCLARGS)
-{
+  {
-        LogDisableFlag = 0;
+  LogDisableFlag = 0;
-        return 0;
+  return 0;
+  }
-}
-/************************************* Logging command tokens
+/************************************* Logging command tokens ********************************************/
- * ********************************************/
-CommandMenu const LoggingMenu = {
+   CommandMenu LoggingMenu =
+      {
-    {"comm", 2, LogComm, NULL, "Add comment to log file", NULL, NULL},
+      {"comm",  2, LogComm, NULL, "Add comment to log file",NULL,NULL},
-    {"lfile", 2, LogLFile, NULL, "Open new log file", "filename", NULL},
+      {"lfile", 2, LogLFile,NULL, "Open new log file","filename",NULL},
-    {"troff", 4, LogTrOff, NULL, "Log file transcript on", NULL, NULL},
+      {"troff", 4, LogTrOff,NULL, "Log file transcript on",NULL,NULL},
-    {"tron", 4, LogTrOn, NULL, "Log file transcript off", NULL, NULL},
+      {"tron",  4, LogTrOn, NULL, "Log file transcript off",NULL,NULL} ,
-    {"silent", 4, LogSilentHndl, NULL, "All log output off", NULL, NULL},
+      {"silent",4, LogSilentHndl, NULL, "All log output off",NULL,NULL},
-    {"verbose", 4, LogVerboseHndl, NULL, "All log output resumed", NULL, NULL},
+      {"verbose",4, LogVerboseHndl, NULL, "All log output resumed",NULL,NULL},
-    {NULL, 0, NULL, NULL, NULL, NULL, NULL},
+      {NULL  ,  0, NULL,    NULL, NULL,NULL,NULL} ,
-};
+      };
 /*********************************************************************************************************/

Subversion Repositories Vertical

(root)/branches/metal/cmdlib/cmdlog.c – Rev 2 → 11