--- freem/src/mumps.c 2025/03/09 15:20:18 1.3
+++ freem/src/mumps.c 2025/04/01 20:11:46 1.10
@@ -1,23 +1,11 @@
/*
- * *
- * * *
- * * *
- * ***************
- * * * * *
- * * MUMPS *
- * * * * *
- * ***************
- * * *
- * * *
- * *
- *
- * mumps.c
+ * $Id: mumps.c,v 1.10 2025/04/01 20:11:46 snw Exp $
* main module of freem
*
*
* Author: Serena Willis <snw@coherent-logic.com>
* Copyright (C) 1998 MUG Deutschland
- * Copyright (C) 2020 Coherent Logic Development LLC
+ * Copyright (C) 2020, 2025 Coherent Logic Development LLC
*
*
* This file is part of FreeM.
@@ -35,6 +23,31 @@
* You should have received a copy of the GNU Affero Public License
* along with FreeM. If not, see <https://www.gnu.org/licenses/>.
*
+ * $Log: mumps.c,v $
+ * Revision 1.10 2025/04/01 20:11:46 snw
+ * Further work on fmadm
+ *
+ * Revision 1.9 2025/03/31 20:01:13 snw
+ * Set d_uid in daemon
+ *
+ * Revision 1.8 2025/03/24 16:10:48 snw
+ * Print error message and exit on OS/2 if daemon is run without --nofork
+ *
+ * Revision 1.7 2025/03/24 16:07:55 snw
+ * Force daemon into foreground on OS/2
+ *
+ * Revision 1.6 2025/03/24 16:04:49 snw
+ * Force daemon into foreground on OS/2
+ *
+ * Revision 1.5 2025/03/22 21:44:32 snw
+ * Make the startup messages fewer and add environment name to direct-mode prompt
+ *
+ * Revision 1.4 2025/03/09 19:50:47 snw
+ * Second phase of REUSE compliance and header reformat
+ *
+ *
+ * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
+ * SPDX-License-Identifier: AGPL-3.0-or-later
**/
#include <stdlib.h>
@@ -125,7 +138,6 @@ int main (int argc, char **argv, char **
{"execute", required_argument, 0, 'x'},
{"daemon", no_argument, 0, 'd'},
{"nofork", no_argument, 0, 'k'},
- {"pidfile", required_argument, 0, 'p'},
{"shmsize", required_argument, 0, 'S'},
{"user", required_argument, 0, 'u'},
{"group", required_argument, 0, 'g'},
@@ -287,10 +299,6 @@ int main (int argc, char **argv, char **
nofork = TRUE;
break;
- case 'p': /* --pidfile */
- pid_file_path = strdup (optarg);
- break;
-
case 'S': /* --shmsize */
shm_init_size = atol (optarg);
break;
@@ -316,7 +324,7 @@ int main (int argc, char **argv, char **
extern char *optarg;
extern int optind, optopt;
- while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkpS:u:g:")) != -1) {
+ while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkS:u:g:")) != -1) {
if (c == '?') freem_usage ();
@@ -383,10 +391,6 @@ int main (int argc, char **argv, char **
nofork = TRUE;
break;
- case 'p': /* --pidfile */
- pid_file_path = strdup (optarg);
- break;
-
case 's': /* --standard */
if (strcmp (optarg, "M77") == 0) {
@@ -443,6 +447,14 @@ int main (int argc, char **argv, char **
}
}
#endif
+
+#if defined(__OS2__)
+ if (run_daemon == TRUE && nofork == FALSE) {
+ printf ("freem: running on OS/2; daemon must be run with --nofork or -k\r\n");
+ exit (1);
+ }
+#endif
+
snprintf (config_file, 4096, "%s/freem/%s/freem.conf", SYSCONFDIR, shm_env);
if (run_daemon == TRUE && geteuid() == 0) {
@@ -468,6 +480,9 @@ int main (int argc, char **argv, char **
d_uid = d_user->pw_uid;
}
+ else {
+ d_uid = 0;
+ }
}
@@ -566,43 +581,13 @@ int main (int argc, char **argv, char **
run_daemon = TRUE;
nofork = FALSE;
- if (pid_file_path == NULL) {
- /* no PID file specified. choose one. */
- uid_t pid_uid;
- char *home_directory;
-
- pid_file_path = (char *) calloc (PATH_MAX, sizeof (char));
- NULLPTRCHK(pid_file_path,"main");
-
- home_directory = (char *) calloc (PATH_MAX, sizeof (char));
- NULLPTRCHK(home_directory,"main");
-
- pid_uid = geteuid ();
-
- if (pid_uid == 0) {
- /* we're running as root */
- strcpy (pid_file_path, "/var/run/freem.pid");
- }
- else {
- /* our user is a normie */
- struct passwd *pw = getpwuid (pid_uid);
-
- if (pw == NULL) {
- m_log (1, "main: failure in getpwuid()");
- }
-
- strcpy (home_directory, pw->pw_dir);
- snprintf (pid_file_path, PATH_MAX - 1, "%s/.freem.pid", home_directory);
- }
-
- free (home_directory);
-
- }
-
{
char pidfile_buf[256];
int errsav;
+ snprintf (pid_file_path, PATH_MAX - 1, "%s/freem/run/%s.pid", LOCALSTATEDIR, shm_env);
+
+ printf (pid_file_path);
m_log (1, pid_file_path);
pid_fd = open (pid_file_path, O_RDWR | O_CREAT, 0640);
@@ -621,9 +606,10 @@ int main (int argc, char **argv, char **
exit (1);
}
- sprintf (pidfile_buf, "%d\n", getpid ());
+ sprintf (pidfile_buf, "%ld\n", (long) getpid ());
write (pid_fd, pidfile_buf, strlen (pidfile_buf));
-
+
+ close (pid_fd);
}
@@ -886,13 +872,14 @@ int main (int argc, char **argv, char **
snprintf (version, 255, "\r\nCoherent Logic Development FreeM version %s [DIALECT: %s%s]\r\n\201", verstr, m_dialect, (restricted_mode == TRUE ? "/RESTRICTED" : ""));
write_m (version);
- snprintf (version, 255, "Copyright (C) 2014, 2020, 2021, 2023 Coherent Logic Development LLC\r\n\r\n\201");
+ snprintf (version, 255, "Copyright (C) 2014, 2020, 2021, 2023, 2025 Coherent Logic Development LLC\r\n\r\n\201");
write_m (version);
+ /*
printf ("Environment: \t%s\r\n", shm_env);
printf ("Environment Daemon:\tPID %d\r\n", shm_config->hdr->first_process);
printf ("Interpreter Process:\tPID %d\r\n", pid);
-
+ */
}
else {
@@ -941,7 +928,6 @@ void freem_usage(void)
fprintf (stdout, "\t-x <MCODE>, --execute=<MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
fprintf (stdout, "\t-d, --daemon\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
fprintf (stdout, "\t-k, --nofork\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
- fprintf (stdout, "\t-p <PIDFILE>, --pidfile=<PIDFILE>\n\t\tuse <PIDFILE> to record the PID of the FreeM daemon\n\n\n");
fprintf (stdout, "\t-S <BYTES>, --shmsize=<BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");
#else
fprintf (stdout, "\t-h\n\t\tdisplays this help message\n\n");