--- freem/src/log.c	2025/04/04 01:18:21	1.7
+++ freem/src/log.c	2025/04/15 02:24:43	1.9
@@ -1,5 +1,5 @@
 /*
- *   $Id: log.c,v 1.7 2025/04/04 01:18:21 snw Exp $
+ *   $Id: log.c,v 1.9 2025/04/15 02:24:43 snw Exp $
  *    freem error logging
  *
  *  
@@ -24,6 +24,12 @@
  *   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
  *
  *   $Log: log.c,v $
+ *   Revision 1.9  2025/04/15 02:24:43  snw
+ *   Improve FreeM logging capabilities
+ *
+ *   Revision 1.8  2025/04/04 02:12:25  snw
+ *   Bump to 0.63.0-rc5 and make sure m_log function is never empty
+ *
  *   Revision 1.7  2025/04/04 01:18:21  snw
  *   Remove vestigial logging code and bump to 0.63.0-rc4
  *
@@ -47,16 +53,144 @@
 # include <syslog.h>
 #endif
 #include <stdlib.h>
+#include <stdarg.h>
+
+#if defined(USE_SYS_TIME_H) && !defined(MSDOS) && !defined(__osf__)
+# include <sys/time.h>
+#else
+# include <time.h> 
+#endif
 
 #include "mpsdef.h"
 
+
 void m_log (int level, const char *msg)
 {
 
+    FILE *fp;
+    time_t unix_epoch;
+    char timeval[255];
+    char filename[4096];    
+    struct tm *logtime;
+
+    snprintf (filename, sizeof (filename) - 1, "/var/log/freem/%s.log", shm_env);
+    
+    if ((fp = fopen (filename, "a+")) != NULL) {
+        unix_epoch = time (0L);
+        logtime = localtime (&unix_epoch);
+        strftime (timeval, sizeof (timeval) - 1, "%F %T", logtime);
+        fprintf (fp, "%s [LEVEL %d PID %ld]:  %s\n", timeval, level, pid, msg);
+        fclose (fp);
+    }
     
 #if defined(__linux__) | defined(__FreeBSD__) | defined(__sun__)
     syslog (level, "%s", msg);
 #endif
+    
+    return;
+    
+}
+
+
+void logprintf(int level, char *fmt, ...)
+{
+    va_list ptr;
+    va_start (ptr, fmt);
 
+    char logmsg[BIGSTR];
+    char tmps[BIGSTR];
     
+    char ch;
+    char typ;
+    char subtyp;
+
+    register int i;
+
+    for (i = 0; fmt[i] != '\0'; i++) {
+        ch = fmt[i];
+
+        switch (ch) {
+            
+            case '%':
+                typ = fmt[++i];
+
+                switch (typ) {
+                    
+                    case '%': /* literal percent sign */
+                        strcat (logmsg, "%");
+                        break;
+
+                    case 'c': /* char */
+                        sprintf (tmps, "%c", va_arg (ptr, int));
+                        strcat (logmsg, tmps);
+                        break;
+
+                    case 's': /* C string */
+                        strcat (logmsg, va_arg (ptr, char *));
+                        break;
+
+                    case 'S': /* FreeM string */
+                        stcpy (tmps, va_arg (ptr, char *));
+                        stcnv_m2c (tmps);
+                        strcat (logmsg, tmps);
+                        break;
+
+                    case 'd': /* int */
+                        sprintf (tmps, "%d", va_arg (ptr, int));
+                        strcat (logmsg, tmps);
+                        break;
+
+                    case 'l': /* long... */
+                        subtyp = fmt[++i];
+                        switch (subtyp) {
+                            
+                            case 'd': /* long int */
+                                sprintf (tmps, "%ld", va_arg (ptr, long));
+                                strcat (logmsg, tmps);
+                                break;
+
+                            case 'f': /* float */
+                                sprintf (tmps, "%lf", va_arg (ptr, double));
+                                strcat (logmsg, tmps);
+                                break;
+                                
+                        }
+                        break;
+                }
+                
+            case '\\':
+                typ = fmt[++i];
+                switch (typ) {
+                    case 'n':
+                        sprintf (tmps, "\n");
+                        strcat (logmsg, tmps);
+                        break;
+                        
+                    case 'r':
+                        sprintf (tmps, "\r");
+                        strcat (logmsg, tmps);
+                        break;
+
+                    case 't':
+                        sprintf (tmps, "\t");
+                        strcat (logmsg, tmps);
+                        break;
+                        
+                    case '\\':
+                        sprintf (tmps, "\\");
+                        strcat (logmsg, tmps);
+                        break;
+                }
+                
+            default:
+                sprintf (tmps, "%c", ch);
+                strcat (logmsg, tmps);
+                break;
+        }
+    }
+
+    m_log (level, logmsg);
+        
+    va_end (ptr);
+    return;
 }