Initial import of xtrkcad version 1:4.0.2-2

1 files changed, 147 insertions, 0 deletions

diff --git a/app/bin/lprintf.c b/app/bin/lprintf.c
new file mode 100644
index 0000000..c0f1c00
--- /dev/null
+++ b/app/bin/lprintf.c
@@ -0,0 +1,147 @@
+/*
+ * $Header: /home/dmarkle/xtrkcad-fork-cvs/xtrkcad/app/bin/lprintf.c,v 1.2 2006-05-26 17:31:44 m_fischer Exp $
+ */
+
+/*  XTrkCad - Model Railroad CAD
+ *  Copyright (C) 2005 Dave Bullis
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU General Public License as published by
+ *  the Free Software Foundation; either version 2 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU General Public License for more details.
+ *
+ *  You should have received a copy of the GNU General Public License
+ *  along with this program; if not, write to the Free Software
+ *  Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <errno.h>
+#ifndef WINDOWS
+#include <time.h>
+#else
+#include <time.h>
+#include <sys/timeb.h>
+#endif
+#include "track.h"
+
+/****************************************************************************
+ *
+ * LPRINTF
+ *
+ */
+
+
+EXPORT dynArr_t logTable_da;
+
+static FILE * logFile;
+static char * logFileName;
+EXPORT time_t logClock = 0;
+static BOOL_T logInitted = FALSE;
+static long logLineNumber;
+
+static void LogInit( void )
+{
+	int inx;
+
+	if ( logTable_da.cnt != 0 )
+		return;
+	DYNARR_SET( logTable_t, logTable_da, 11 );
+	for ( inx=0; inx<=10; inx++ ) {
+		logTable(inx).name = "";
+		logTable(inx).level = inx;
+	}
+}
+
+EXPORT void LogOpen( char * filename )
+{
+	time( &logClock );
+	logFileName = filename;
+	LogInit();
+}
+
+
+static void LogDoOpen( void )
+{
+	if ( logFileName == NULL ) {
+#ifdef WINDOWS
+		logFileName = (char*)MyMalloc( strlen(wGetAppWorkDir()) + 1 + strlen("xtclog.txt") + 1);
+		sprintf( logFileName, "%s%s%s", wGetAppWorkDir(), FILE_SEP_CHAR, "xtclog.txt" );
+#else
+		logFile = stdout;
+#endif
+	}
+
+	if ( logFileName ) {
+		logFile = fopen( logFileName, "a" );
+		if ( logFile == NULL ) {
+			NoticeMessage( MSG_OPEN_FAIL, "Continue", NULL, "Log", logFileName, strerror(errno) );
+			perror( logFileName );
+			return;
+		}
+	}
+	fprintf( logFile, "# %s Version: %s, Date: %s\n", sProdName, sVersion, ctime(&logClock) );
+	if ( recordF )
+		fprintf( recordF, "# LOG CLOCK %s\n", ctime(&logClock) );
+}
+
+EXPORT void LogClose( void )
+{
+	time_t clock;
+	if ( logFile ) {
+		time(&clock);
+		fprintf( logFile, "LOG END %s\n", ctime(&clock) );
+		if ( logFile != stdout )
+			fclose( logFile );
+	 }
+	 logFile = NULL;
+}
+
+EXPORT void LogSet( char * name, int level )
+{
+	LogInit();
+	DYNARR_APPEND( logTable_t, logTable_da, 10 );
+	logTable(logTable_da.cnt-1).name = MyStrdup( name );
+	logTable(logTable_da.cnt-1).level = level;
+}
+
+EXPORT int LogFindIndex( char * name )
+{
+	int inx;
+	for ( inx=11; inx<logTable_da.cnt; inx++ )
+		if ( strcasecmp( logTable(inx).name, name ) == 0 )
+			return inx;
+	return 0;
+}
+
+EXPORT void LogPrintf(
+		char * format,
+		... )
+{
+	va_list ap;
+	if (!logInitted) {
+		LogDoOpen();
+		logInitted = TRUE;
+	}
+	if ( logFile == NULL )
+		return;
+	logLineNumber++;
+	if ( logLineNumber % 100 == 0 ) {
+		if ( recordF ) {
+			fprintf( recordF, "# LOG LINE %ld\n", logLineNumber );
+			fprintf( logFile, "LOG LINE %ld\n", logLineNumber );
+		}
+	}
+	va_start( ap, format );
+	vfprintf( logFile, format, ap );
+	va_end( ap );
+	fflush( logFile );
+}
+