Annotation of freem/src/mumps.c, revision 1.16
1.1 snw 1: /*
1.16 ! snw 2: * $Id: mumps.c,v 1.15 2025/04/03 20:48:14 snw Exp $
1.1 snw 3: * main module of freem
4: *
5: *
1.3 snw 6: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 7: * Copyright (C) 1998 MUG Deutschland
1.4 snw 8: * Copyright (C) 2020, 2025 Coherent Logic Development LLC
1.1 snw 9: *
10: *
11: * This file is part of FreeM.
12: *
13: * FreeM is free software: you can redistribute it and/or modify
14: * it under the terms of the GNU Affero Public License as published by
15: * the Free Software Foundation, either version 3 of the License, or
16: * (at your option) any later version.
17: *
18: * FreeM is distributed in the hope that it will be useful,
19: * but WITHOUT ANY WARRANTY; without even the implied warranty of
20: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21: * GNU Affero Public License for more details.
22: *
23: * You should have received a copy of the GNU Affero Public License
24: * along with FreeM. If not, see <https://www.gnu.org/licenses/>.
25: *
1.5 snw 26: * $Log: mumps.c,v $
1.16 ! snw 27: * Revision 1.15 2025/04/03 20:48:14 snw
! 28: * Improve daemon error diagnostics and bump to 0.63.0-rc3
! 29: *
1.15 snw 30: * Revision 1.14 2025/04/02 04:50:49 snw
31: * Allow vendor routines to be upgraded
32: *
1.14 snw 33: * Revision 1.13 2025/04/02 03:26:22 snw
34: * Don't corrupt the terminal if FreeM runs before fmadm configure has been run
35: *
1.13 snw 36: * Revision 1.12 2025/04/02 02:16:27 snw
37: * Add fmadm status environment command and move journals to a better location
38: *
1.12 snw 39: * Revision 1.11 2025/04/01 23:21:45 snw
40: * fmadm commands for stopping, starting, and restarting environments now functional
41: *
1.11 snw 42: * Revision 1.10 2025/04/01 20:11:46 snw
43: * Further work on fmadm
44: *
1.10 snw 45: * Revision 1.9 2025/03/31 20:01:13 snw
46: * Set d_uid in daemon
47: *
1.9 snw 48: * Revision 1.8 2025/03/24 16:10:48 snw
49: * Print error message and exit on OS/2 if daemon is run without --nofork
50: *
1.8 snw 51: * Revision 1.7 2025/03/24 16:07:55 snw
52: * Force daemon into foreground on OS/2
53: *
1.7 snw 54: * Revision 1.6 2025/03/24 16:04:49 snw
55: * Force daemon into foreground on OS/2
56: *
1.6 snw 57: * Revision 1.5 2025/03/22 21:44:32 snw
58: * Make the startup messages fewer and add environment name to direct-mode prompt
59: *
1.5 snw 60: * Revision 1.4 2025/03/09 19:50:47 snw
61: * Second phase of REUSE compliance and header reformat
62: *
1.4 snw 63: *
64: * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
65: * SPDX-License-Identifier: AGPL-3.0-or-later
1.1 snw 66: **/
67:
1.16 ! snw 68: #define _GNU_SOURCE
1.1 snw 69: #include <stdlib.h>
70: #include <stddef.h>
71: #include "mpsdef.h"
72: #include "errmsg.h"
73: #include "iniconf.h"
74: #include "namespace.h"
75: #include "transact.h"
76: #include "init.h"
77: #include "consttbl.h"
78: #include <setjmp.h>
79: #include <stdio.h>
80: #include <signal.h>
81: #include <time.h>
82: #include <unistd.h>
83: #include <sys/types.h>
84: #include <sys/wait.h>
85: #include <sys/stat.h>
86: #include <limits.h>
87: #include <sys/types.h>
88: #include <pwd.h>
89: #include <string.h>
90: #include <fcntl.h>
91: #include "version.h"
92: #include "shmmgr.h"
93: #include "jobtab.h"
94: #include <errno.h>
95: #include <pwd.h>
96: #include <grp.h>
97:
98:
99: #if defined(HAVE_GETOPT_H)
100: # include <getopt.h>
101: #endif
102:
103: #if !defined(PATH_MAX) && defined(_SCO_DS)
104: # define PATH_MAX 1024
105: #endif
106:
107: extern int xecline(int typ);
108: extern char *getenv(const char *name);
109: void freem_usage(void);
110: void freem_print_version(void);
111: void init_ztrap(void);
112: void m_log (int, const char *);
113:
114: int main (int argc, char **argv, char **envp)
115: {
116: pid_t fork_pid = 0;
117: short dx_mode = 0;
118:
119: int c;
120: int import_env = FALSE;
121: short skip_init = 0;
122:
123: int option_index = 0;
124:
1.13 snw 125: char fm_initialized = FALSE;
126:
1.1 snw 127: char dx_mcode[512];
128: char startup_routine[256];
129: short routine_mode;
130: char m_dialect[50];
131:
132: char nsnbuf[256];
133:
134: char d_username[40];
135: char d_groupname[40];
136: struct group *d_grp;
137: struct passwd *d_user;
138: gid_t d_gid;
139: uid_t d_uid;
140:
141: short custom_user = FALSE;
142: short custom_group = FALSE;
143:
144: #if defined(HAVE_GETOPT_LONG)
145: struct option long_options[] = {
146: {"help", no_argument, 0, 'h'},
147: {"filter", no_argument, &frm_filter, TRUE},
148: {"standard", required_argument, 0, 's'},
149: {"import", no_argument, &import_env, TRUE},
150: {"quiet", no_argument, &quiet_mode, TRUE},
151: {"restricted", no_argument, &restricted_mode, TRUE},
152: {"routine", required_argument, 0, 'r'},
153: {"namespace", required_argument, 0, 'n'},
154: {"environment", required_argument, 0, 'e'},
155: {"version", no_argument, 0, 'v'},
156: {"execute", required_argument, 0, 'x'},
157: {"daemon", no_argument, 0, 'd'},
158: {"nofork", no_argument, 0, 'k'},
159: {"shmsize", required_argument, 0, 'S'},
160: {"user", required_argument, 0, 'u'},
161: {"group", required_argument, 0, 'g'},
162: {0, 0, 0, 0}
163: };
164: #endif
165:
166: char **env;
167: char *varname = (char *) calloc(STRLEN, sizeof(char));
168: char *varval = (char *) calloc(STRLEN, sizeof(char));
169:
170: char *symname = (char *) calloc(STRLEN, sizeof(char));
171: char *symval = (char *) calloc(STRLEN, sizeof(char));
172:
173: int namelen;
174: int vallen;
175:
176: char cli_rtn_path[PATH_MAX] = {0};
177: char *cli_rtn_file;
178: char cli_rtn_name[256];
179:
1.16 ! snw 180: char env_ena[25];
! 181:
1.1 snw 182: routine_mode = FALSE;
183: strcpy (m_dialect, "FREEM");
184:
185: m_argc = argc; /* save arguments count */
186: m_argv = argv; /* save arguments string */
187: m_envp = envp; /* save environment pointer */
188:
189: strncpy (shm_env, "DEFAULT", 8); /* establish default environment name */
190:
191: strncpy (d_username, "freem", 40);
192: strncpy (d_groupname, "freem", 40);
193:
194: strcpy (zb, argv[0]); /* name with which mumps has been called */
195: stcnv_c2m (zb);
196: strcpy (stack0, argv[0]);
197: stcnv_c2m (stack0);
198:
199:
200: /* strncpy (config_file, SYSCONFDIR"/freem.conf", 100); */
201:
202:
203:
204: #if defined(HAVE_GETOPT_LONG)
205:
206: extern char *optarg;
207: extern int optind, optopt;
208:
209: while (1) {
210:
1.16 ! snw 211: c = getopt_long (argc, argv, "hsfiqRr:n:e:vx:dkpS", long_options, &option_index);
1.1 snw 212:
213: if (c == -1) break;
214: if (c == '?') freem_usage ();
215:
216: switch (c) {
217: case 'h':
218: freem_usage ();
219: break;
220:
221: case 'f':
222: frm_filter = TRUE;
223: break;
224:
225: case 'i':
226: import_env = TRUE;
227: break;
228:
229: case 'q':
230: quiet_mode = TRUE;
231: break;
232:
233: case 'e': /* specify FreeM environment */
234: strncpy (shm_env, optarg, 255);
235: break;
236:
237: case 'R':
238: restricted_mode = TRUE;
239: break;
240:
241: case 'r': /* startup routine */
242: direct_mode = FALSE;
243: usermode = 0;
244:
245: strcpy (startup_routine, optarg);
246: startup_routine[strlen (startup_routine)] = '\201';
247:
248: routine_mode = TRUE;
249: break;
250:
251: case 'n': /* namespace */
252: {
253: if (validate_namespace (optarg) == TRUE) {
254: strcpy (nsname, optarg);
255: }
256: else {
257: fprintf (stderr, "freem: invalid namespace '%s'\n", optarg);
258: exit (1);
259: }
260:
261: break;
262: }
263: case 'v': /* version */
264: freem_print_version ();
265: break;
266:
267: case 'x': /* execute */
268: direct_mode = FALSE;
269: usermode = 0;
270: dx_mode = 1;
271:
272: strncpy (dx_mcode, optarg, 512 - 1);
273:
274: stcnv_c2m (dx_mcode);
275:
276: break;
277:
278: case 's': /* --standard */
279:
280: if (strcmp (optarg, "M77") == 0) {
281: standard = D_M77;
282: strcpy (m_dialect, "M 1977");
283: }
284: else if (strcmp (optarg, "M84") == 0) {
285: standard = D_M84;
286: strcpy (m_dialect, "M 1984");
287: }
288: else if (strcmp (optarg, "M90") == 0) {
289: standard = D_M90;
290: strcpy (m_dialect, "M 1990");
291: }
292: else if (strcmp (optarg, "M95") == 0) {
293: standard = D_M95;
294: strcpy (m_dialect, "M 1995");
295: }
296: else if (strcmp (optarg, "MDS") == 0) {
297: standard = D_MDS;
298: strcpy (m_dialect, "Millennium Draft Standard");
299: }
300: else if (strcmp (optarg, "M5") == 0) {
301: standard = D_M5;
302: strcpy (m_dialect, "M5");
303: }
304: else if (strcmp (optarg, "FREEM") == 0) {
305: standard = D_FREEM;
306: strcpy (m_dialect, "FREEM");
307: }
308: else {
309: freem_usage ();
310: }
311:
312: break;
313:
314: case 'd': /* --daemon */
315: run_daemon = TRUE;
316: break;
317:
318: case 'k': /* --nofork */
319: nofork = TRUE;
320: break;
321:
322: case 'S': /* --shmsize */
323: shm_init_size = atol (optarg);
1.16 ! snw 324: break;
1.1 snw 325:
326: }
327:
328: }
329:
330: #else
331:
332: {
333: extern char *optarg;
334: extern int optind, optopt;
335:
1.16 ! snw 336: while ((c = getopt (argc, argv, "hsfiqRr:n:e:vx:dkS:")) != -1) {
1.1 snw 337:
338: if (c == '?') freem_usage ();
339:
340: switch (c) {
341:
342: case 'h':
343: freem_usage ();
344: break;
345:
346: case 'f':
347: frm_filter = TRUE;
348: break;
349:
350: case 'i':
351: import_env = TRUE;
352: break;
353:
354: case 'q':
355: quiet_mode = TRUE;
356: break;
357:
358: case 'e': /* specify FreeM environment */
359: strncpy (shm_env, optarg, 255);
360: break;
361:
362: case 'R':
363: restricted_mode = TRUE;
364: break;
365:
366: case 'r': /* startup routine */
367: direct_mode = FALSE;
368: usermode = 0;
369:
370: strcpy (startup_routine, optarg);
371: startup_routine[strlen (startup_routine)] = '\201';
372:
373: routine_mode = TRUE;
374: break;
375:
376: case 'n': /* namespace */
377: strcpy (nsname, optarg);
378: break;
379:
380: case 'v':
381: freem_print_version ();
382: break;
383:
384: case 'x': /* execute */
385: direct_mode = FALSE;
386: usermode = 0;
387: dx_mode = 1;
388:
389: strncpy (dx_mcode, optarg, 512 - 1);
390:
391: stcnv_c2m (dx_mcode);
392:
393: break;
394:
395: case 'd': /* --daemon */
396: run_daemon = TRUE;
397: break;
398:
399: case 'k': /* --nofork */
400: nofork = TRUE;
401: break;
402:
403: case 's': /* --standard */
404:
405: if (strcmp (optarg, "M77") == 0) {
406: standard = D_M77;
407: strcpy (m_dialect, "M 1977");
408: }
409: else if (strcmp (optarg, "M84") == 0) {
410: standard = D_M84;
411: strcpy (m_dialect, "M 1984");
412: }
413: else if (strcmp (optarg, "M90") == 0) {
414: standard = D_M90;
415: strcpy (m_dialect, "M 1990");
416: }
417: else if (strcmp (optarg, "M95") == 0) {
418: standard = D_M95;
419: strcpy (m_dialect, "M 1995");
420: }
421: else if (strcmp (optarg, "MDS") == 0) {
422: standard = D_MDS;
423: strcpy (m_dialect, "Millennium Draft Standard");
424: }
425: else if (strcmp (optarg, "M5") == 0) {
426: standard = D_M5;
427: strcpy (m_dialect, "M5");
428: }
429: else if (strcmp (optarg, "FREEM") == 0) {
430: standard = D_FREEM;
431: strcpy (m_dialect, "FREEM");
432: }
433: else {
434: freem_usage ();
435: }
436:
437: break;
438:
439:
440: case 'S': /* --shmsize */
441: shm_init_size = atol (optarg);
442: break;
443:
444: }
445: }
446: }
447: #endif
1.6 snw 448:
449: #if defined(__OS2__)
450: if (run_daemon == TRUE && nofork == FALSE) {
1.8 snw 451: printf ("freem: running on OS/2; daemon must be run with --nofork or -k\r\n");
452: exit (1);
1.6 snw 453: }
454: #endif
455:
1.1 snw 456: snprintf (config_file, 4096, "%s/freem/%s/freem.conf", SYSCONFDIR, shm_env);
1.16 ! snw 457: snprintf (env_config_file, 4096, "%s/freem/env.conf", SYSCONFDIR);
1.1 snw 458:
1.16 ! snw 459: if (!file_exists (env_config_file)) {
! 460: fprintf (stderr, "freem: environment catalog does not exist; may need to run fmadm configure\n");
! 461: exit (1);
! 462: }
! 463:
! 464: if (!file_exists (config_file)) {
! 465: fprintf (stderr, "freem: configuration file for %s does not exist; may need to run fmadm configure\n", shm_env);
! 466: exit (1);
! 467: }
! 468:
! 469: if (read_profile_string (env_config_file, shm_env, "user", d_username) == FALSE) {
! 470: fprintf (stderr, "freem: could not determine owning user for environment %s\n", shm_env);
! 471: exit (1);
! 472: }
! 473:
! 474: if (read_profile_string (env_config_file, shm_env, "group", d_groupname) == FALSE) {
! 475: fprintf (stderr, "freem: could not determine owning group for environment %s\n", shm_env);
! 476: exit (1);
! 477: }
1.1 snw 478:
1.16 ! snw 479: if (read_profile_string (env_config_file, shm_env, "enabled", env_ena) == FALSE) {
! 480: fprintf (stderr, "freem: could not discover enabled state for environment %s\n", shm_env);
! 481: exit (1);
! 482: }
1.1 snw 483:
1.16 ! snw 484: if (strcmp (env_ena, "true") != 0) {
! 485: fprintf (stderr, "freem: environment %s is administratively disabled\n", shm_env);
! 486: exit (1);
! 487: }
1.1 snw 488:
1.16 ! snw 489: d_grp = getgrnam (d_groupname);
! 490: if (d_grp == NULL) {
! 491: fprintf (stderr, "freem: invalid group '%s'\n", d_groupname);
! 492: exit (1);
! 493: }
! 494: d_gid = d_grp->gr_gid;
! 495:
! 496: d_user = getpwnam (d_username);
! 497: if (d_user == NULL) {
! 498: fprintf (stderr, "freem: invalid user '%s'\n", d_username);
! 499: exit (1);
! 500: }
! 501: d_uid = d_user->pw_uid;
1.1 snw 502:
1.16 ! snw 503:
! 504: #if defined(__linux__)
! 505: if (run_daemon == FALSE && group_member (d_gid) == 0) {
! 506: fprintf (stderr, "freem: you must be a member of the %s group to use environment %s\n", d_groupname, shm_env);
! 507: exit (1);
! 508: }
1.1 snw 509:
1.16 ! snw 510: #endif
! 511:
! 512: if (run_daemon == TRUE) {
! 513: if (geteuid () != 0 && nofork == FALSE) {
! 514: fprintf (stderr, "freem: forking daemon must be run as root\n");
! 515: exit (1);
! 516: }
1.1 snw 517: }
518:
519: if ((nofork == TRUE) && (run_daemon == FALSE)) {
520: freem_usage ();
521: exit (1);
522: }
523:
524: if ((run_daemon == TRUE) && (nofork == FALSE)) {
525:
526: int fork_fd;
527:
528: /* daemonize */
529:
530: fork_pid = fork ();
531:
532: if (fork_pid < 0) {
533: fprintf (stderr, "freem: failure in fork()\r\n");
534: m_log (1, "failure in initial fork()\r\n");
535: exit (1);
536: }
537:
538: if (fork_pid > 0) {
539: exit (0);
540: }
541:
542: if (setsid () < 0) {
543: fprintf (stderr, "freem: failure in setsid()\r\n");
544: m_log (1, "failure in setsid()\r\n");
545: exit (1);
546: }
547:
548: signal (SIGCHLD, SIG_IGN);
549:
550: fork_pid = fork ();
551:
552: if (fork_pid < 0) {
553: fprintf (stderr, "freem: failure in fork()\r\n");
554: m_log (1, "failure in second fork()\r\n");
555: exit (1);
556: }
557:
558: if (fork_pid > 0) {
559: exit (0);
560: m_log (1, "exiting from second fork");
561: }
562:
563: umask (0);
564:
565: chdir ("/");
566:
567: for (fork_fd = sysconf (_SC_OPEN_MAX); fork_fd > 0; fork_fd--) {
568: close (fork_fd);
569: }
570:
571: if (geteuid () == 0) {
572: /* shed privileges */
573:
574: if (custom_group) {
575: fprintf (stderr, "freem: switching to group %s\n", d_groupname);
576: m_log (1, "switching groups");
577:
578: if (setgid (d_gid) == -1) {
579: fprintf (stderr, "freem: failure switching GID\n");
580: m_log (1, "failure switching GIDs");
581: exit (1);
582: }
583: }
584:
585:
586: if (custom_user) {
587: fprintf (stderr, "freem: switching to username %s\n", d_username);
588: m_log (1, "switching users");
589:
590: if (setuid (d_uid) == -1) {
591: fprintf (stderr, "freem: failure switching UID\n");
592: m_log (1, "failure switching UIDs");
593: exit (1);
594: }
595: }
596:
597: }
598: else {
599: fprintf (stderr, "not euid 0");
600: }
601:
602: freopen ("/dev/null", "r", stdin);
603: freopen ("/dev/null", "w+", stdout);
604: freopen ("/dev/null", "w+", stderr);
605:
606: run_daemon = TRUE;
607: nofork = FALSE;
608:
609: {
610: char pidfile_buf[256];
611: int errsav;
612:
1.11 snw 613: pid_file_path = (char *) malloc (PATH_MAX * sizeof (char));
614: NULLPTRCHK(pid_file_path,"main");
615:
1.10 snw 616: snprintf (pid_file_path, PATH_MAX - 1, "%s/freem/run/%s.pid", LOCALSTATEDIR, shm_env);
617:
1.1 snw 618: pid_fd = open (pid_file_path, O_RDWR | O_CREAT, 0640);
619: errsav = errno;
620:
621: if (pid_fd < 0) {
1.15 snw 622: fprintf (stderr, "freem: could not open PID file %s [%s]\n", pid_file_path, strerror (errsav));
1.1 snw 623: m_log (1, "freem: could not open PID file");
624: m_log (1, strerror (errsav));
625: exit (1);
626: }
627:
628: if (lockf (pid_fd, F_TLOCK, 0) < 0) {
629: errsav = errno;
1.15 snw 630: fprintf (stderr, "freem: could not lock PID file [%s]\n", strerror (errsav));
1.1 snw 631: m_log (1, "freem: could not lock PID file - perhaps already running?");
632: m_log (1, strerror (errsav));
633: exit (1);
634: }
635:
1.10 snw 636: sprintf (pidfile_buf, "%ld\n", (long) getpid ());
1.1 snw 637: write (pid_fd, pidfile_buf, strlen (pidfile_buf));
1.10 snw 638:
1.1 snw 639: }
640:
641:
642: } /* END of daemonization */
643:
644: /* handle passing of an arbitrary .m file on the command line */
645: /* this is most often used for shebang-line scripts. */
646: if (optind < argc) {
647:
648: /* not valid for daemon mode */
649: if (run_daemon == TRUE) {
650: fprintf (stderr, "freem: cannot pass --daemon flag in shebang line\r\n");
651: exit (1);
652: }
653:
654: /* bail if file does not exist */
655: if (access (argv[optind], F_OK) == -1) {
656:
657: set_io (UNIX);
658:
659: fprintf (stderr, "Routine %s does not exist.\n", argv[optind]);
660:
661: exit (1);
662:
663: }
664:
665: skip_init = 1;
666:
667: /* initialize FreeM environment */
668: strncpy (nsnbuf, nsname, 255);
669: if (init (nsnbuf) == FALSE) {
670:
1.14 snw 671: if (fm_initialized) set_io (UNIX);
1.1 snw 672: fprintf (stderr, "\nError initializing FreeM.\n");
673:
674: exit (1);
675:
1.13 snw 676: }
677: else {
678: fm_initialized = TRUE;
679: }
1.1 snw 680:
681:
682: direct_mode = FALSE;
683: usermode = 0;
684:
685: /* was a path specified at all? */
686: if (strchr (argv[optind], '/') == NULL) {
687:
688: /* the entirety of argv[optind] is the filename */
689: cli_rtn_file = argv[optind];
690:
691: /* use the current directory */
692: sprintf (cli_rtn_path, ".");
693:
694: }
695: else {
696:
697: /* isolate the filename from the path */
698: cli_rtn_file = strrchr (argv[optind], '/') + 1;
699:
700: /* isolate the routine name from the filename */
701: strncpy (cli_rtn_name, cli_rtn_file, strchr (cli_rtn_file, '.') - cli_rtn_file);
702:
703: /* isolate the path from the routine file */
704: strncpy (cli_rtn_path, argv[optind], strrchr (argv[optind], '/') - argv[optind]);
705:
706: }
707:
708: /* do we have a file extension? */
709: if (strchr (cli_rtn_file, '.') != NULL) {
710:
711: /* if so, just remove it */
712: strncpy (cli_rtn_name, cli_rtn_file, strchr (cli_rtn_file, '.') - cli_rtn_file);
713:
714: }
715: else {
716:
717: /* otherwise, just take a direct copy */
718: strcpy (cli_rtn_name, cli_rtn_file);
719:
720: }
721:
722: /* make this the startup routine */
723: snprintf (startuprou, 256, "^%s\201", cli_rtn_name);
724:
725: /* re-work the namespace config to search for the
726: routine in the discovered path */
727: if (cli_rtn_name[0] == '%') {
728:
729: snprintf (rou0plib, 256, "%s\201", cli_rtn_path);
730: snprintf (rou1plib, 256, "%s\201", cli_rtn_path);
731:
732: }
733: else {
734:
735: snprintf (rou0path, 256, "%s\201", cli_rtn_path);
736: snprintf (rou1path, 256, "%s\201", cli_rtn_path);
737:
738: }
739:
740: }
741:
1.13 snw 742:
1.1 snw 743: if (!file_exists (config_file)) {
744:
1.13 snw 745: if (fm_initialized == TRUE) set_io (UNIX);
746:
1.1 snw 747: fprintf (stderr, "\nFreeM has not been configured. Please run 'fmadm configure'.\n\n\n\n");
748:
749: exit (2);
750:
751: }
752:
753: if (!skip_init) {
754: /* initialize FreeM environment */
755: strncpy (nsnbuf, nsname, 255);
1.13 snw 756: if (init (nsnbuf) == FALSE) {
1.1 snw 757: set_io (UNIX);
758: fprintf (stderr, "\nError initializing FreeM.\n");
759:
760: exit (1);
761: }
1.13 snw 762: else {
763: fm_initialized = TRUE;
764: }
1.1 snw 765: }
766:
767: if (first_process == TRUE) {
768:
769: char verstr[500];
770: pid_t stop_requester;
771:
772: if (run_daemon == FALSE) {
773: fprintf (stderr, "freem: re-run with --daemon or -d command-line flags\r\n");
774: cleanup ();
775: exit (1);
776: }
777:
778: stcpy (verstr, FREEM_VERSION_STR);
779: stcnv_m2c (verstr);
780:
781: fprintf (stderr, "Coherent Logic Development FreeM version %s\r\n", verstr);
1.2 snw 782: fprintf (stderr, "freem: shared memory for environment %s initialized (%ld bytes of shared memory @ '%p')\r\nfreem: system ready\r\n", shm_env, (long) shm_init_size, shm_config->dta);
1.1 snw 783:
784: for (;;) {
785:
786: job_set_status (pid, JSTAT_HOUSEKEEPING);
787:
788:
789: if (shm_config->hdr->maintenance_mode == 1) {
790:
791: job_slot_t *slot;
792:
793: fprintf (stderr, "freem: entering maintenance mode\r\n");
794: m_log (1, "freem: entering maintenance mode");
795:
796: for (slot = shm_config->hdr->jobtab_head; slot != NULL; slot = slot->next) {
797:
798: if ((slot->pid != pid) && ((slot->flags & JFLG_FMADM) != JFLG_FMADM)) {
799: kill (slot->pid, SIGINT);
800: }
801:
802: }
803:
804: }
805:
806: if ((stop_requester = job_stop_requested (pid)) != 0) {
807: int connected_jobs;
808:
809: job_set_status (pid, JSTAT_SHUTDOWN);
810:
811: connected_jobs = job_count ();
812:
813: fprintf (stderr, "freem: STOP requested by pid %d\r\n", stop_requester);
814: fprintf (stderr, "freem: there are %d job(s) connected to this environment\r\n", connected_jobs);
815:
816: if (connected_jobs > 1) {
817:
818: fprintf (stderr, "freem: asking non-daemon job(s) to disconnect and halt...\r\n");
819: job_request_all_stop ();
820:
821: fprintf (stderr, "freem: waiting 5 seconds for job(s) to disconnect...\r\n");
822: sleep (5);
823:
824: connected_jobs = job_count ();
825: if (connected_jobs > 1) {
826: fprintf (stderr, "freem: sending SIGTERM to %d job(s)...\r\n", connected_jobs);
827: job_signal_all (SIGTERM);
828: fprintf (stderr, "freem: waiting 5 seconds for job(s) to disconnect...\r\n");
829:
830: sleep (5);
831: }
832:
833: connected_jobs = job_count ();
834: if (connected_jobs > 1) {
835: fprintf (stderr, "freem: sending SIGKILL to %d job(s)...\r\n", connected_jobs);
836: job_signal_all (SIGKILL);
837: }
838:
839: job_gc_mark ();
840: job_gc_sweep ();
841:
842: }
843:
844: fprintf (stderr, "freem: terminating\r\n");
845: cleanup ();
1.11 snw 846:
1.1 snw 847: exit (0);
848:
849: }
850:
851: job_gc_mark ();
852: job_set_status (pid, JSTAT_IDLE);
853: sleep (1);
854:
855: job_set_status (pid, JSTAT_HOUSEKEEPING);
856: job_gc_sweep ();
857: sleep (1);
858: }
859:
860: }
861:
862:
863: #if !defined(_AIX)
864: if(import_env == TRUE) {
865:
866: int i_maxlen = 255;
867:
868: for(env = envp; *env != 0; env++) {
869:
870: namelen = 0;
871: vallen = 0;
872:
873: varname = strtok(*env, "=");
874: varval = strtok(NULL, "=");
875:
876: if(varval != NULL) {
877: namelen = strlen (varname);
878: vallen = strlen (varval);
879:
880: snprintf (symname, i_maxlen, "ENV.%s\201\201", varname);
881: strncpy (symval, varval, i_maxlen);
882:
883: stcnv_c2m (symval);
884:
885: symtab (set_sym, symname, symval);
886: }
887: }
888: }
889: #endif
890:
891:
892: if (direct_mode == TRUE && quiet_mode == FALSE) {
893:
894: char verstr[500];
895: char version[256];
896:
897: stcpy (verstr, FREEM_VERSION_STR);
898: stcnv_m2c (verstr);
899:
900: snprintf (version, 255, "\r\nCoherent Logic Development FreeM version %s [DIALECT: %s%s]\r\n\201", verstr, m_dialect, (restricted_mode == TRUE ? "/RESTRICTED" : ""));
901: write_m (version);
902:
1.4 snw 903: snprintf (version, 255, "Copyright (C) 2014, 2020, 2021, 2023, 2025 Coherent Logic Development LLC\r\n\r\n\201");
1.1 snw 904: write_m (version);
905:
1.5 snw 906: /*
1.1 snw 907: printf ("Environment: \t%s\r\n", shm_env);
908: printf ("Environment Daemon:\tPID %d\r\n", shm_config->hdr->first_process);
909: printf ("Interpreter Process:\tPID %d\r\n", pid);
1.5 snw 910: */
1.1 snw 911:
912: }
913: else {
914: write_m ("\r\n\r\n\201");
915: }
916:
917: if (dx_mode) {
918: char k_buf[512];
919:
920: snprintf (k_buf, 512 - 1, "%%TMPINITMCODE\201\201");
921: symtab (set_sym, k_buf, dx_mcode);
922: const_define (k_buf, dx_mcode);
923: }
924:
925: if (routine_mode) {
926: char k_buf[512];
927:
928: snprintf (k_buf, 512 - 1, "%%TMPINITROUTINE\201\201");
929: symtab (set_sym, k_buf, startup_routine);
930: const_define (k_buf, startup_routine);
931: }
932:
933: /* run mumps */
934: xecline (1);
935:
936: exit (0); /* we should never reach that statement */
937:
938: } /* end of main() */
939:
940: void freem_usage(void)
941: {
942: fprintf (stdout, "\nusage: freem [OPTION...]\n\n");
943:
944: fprintf (stdout, "OPTIONS:\n\n");
945:
946: #if defined(HAVE_GETOPT_LONG)
947: fprintf (stdout, "\t-h, --help\n\t\tdisplays this help message\n\n");
948: fprintf (stdout, "\t-i, --import\n\t\timports UNIX environment variables as M locals\n\n");
949: fprintf (stdout, "\t-e <environment-name>, --environment=<environment-name>\n\t\tsets active environment to <environment-name> (DEFAULT if unspecified)\n\n");
950: fprintf (stdout, "\t-f, --filter\n\t\tallows M code to be used as a filter\n\n");
951: fprintf (stdout, "\t-n <NAMESPACE>, --namespace=<NAMESPACE>\n\t\tselects <NAMESPACE> as the startup namespace instead of USER\n\n");
952: fprintf (stdout, "\t-q, --quiet\n\t\tdisables startup messages and prompt string\n\n");
953: fprintf (stdout, "\t-r <LABEL^ROUTINE>, --routine=<LABEL^ROUTINE>\n\t\texecute <LABEL^ROUTINE> on startup instead of entering direct mode\n\n");
954: fprintf (stdout, "\t-s, --standard\n\t\trestrict access to FreeM vendor extensions not present in relevant standards*\n\n");
955: fprintf (stdout, "\t-v, --version\n\t\tdisplay FreeM version information\n\n");
956: fprintf (stdout, "\t-x <MCODE>, --execute=<MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
957: fprintf (stdout, "\t-d, --daemon\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
958: fprintf (stdout, "\t-k, --nofork\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
959: 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");
960: #else
961: fprintf (stdout, "\t-h\n\t\tdisplays this help message\n\n");
962: fprintf (stdout, "\t-i\n\t\timports UNIX environment variables as M locals\n\n");
963: fprintf (stdout, "\t-e <environment-name>\n\t\tsets active environment to <environment-name> (DEFAULT if unspecified)\n\n");
964: fprintf (stdout, "\t-f\n\t\tallows M code to be used as a filter\n\n");
965: fprintf (stdout, "\t-n <NAMESPACE>\n\t\tselects <NAMESPACE> as the startup namespace instead of USER\n\n");
966: fprintf (stdout, "\t-q\n\t\tdisables startup messages and prompt string\n\n");
967: fprintf (stdout, "\t-r <LABEL^ROUTINE>\n\t\texecute <LABEL^ROUTINE> on startup instead of entering direct mode\n\n");
968: fprintf (stdout, "\t-s\n\t\trestrict access to FreeM vendor extensions not present in relevant standards*\n\n");
969: fprintf (stdout, "\t-v\n\t\tdisplay FreeM version information\n\n");
970: fprintf (stdout, "\t-x <MCODE>\n\t\texecute M code <MCODE> on startup\n\n");
971: fprintf (stdout, "\t-d\n\t\trun the FreeM daemon (one and only one FreeM daemon must always be running)\n\n");
972: fprintf (stdout, "\t-k\n\t\trun the FreeM daemon in foreground (requires --daemon)\n\n");
973: fprintf (stdout, "\t-S <BYTES>\n\t\tsets the size of the shared memory segment where FreeM stores the job table, lock table, and IPC table.\n");
974: #endif
975: fprintf (stdout, "\t\t - Each concurrent job takes %d bytes (1 page) of shared memory\n", PG_SIZE);
976: fprintf (stdout, "\t\t - Each LOCK takes %d bytes (2 pages) of shared memory\n", PG_SIZE * 2);
977: fprintf (stdout, "\t\t - Each IPC takes %d bytes (1 page) of shared memory\n\n", PG_SIZE);
978: fprintf (stdout, "\t* FreeM attempts to conform (at least loosely) to the Millennium Draft Standard when this mode is selected.\n\n\n");
979: fprintf (stdout, "Report bugs to: freem-bugs@coherent-logic.com\n");
980: fprintf (stdout, "FreeM home page: <https://freem.coherent-logic.com>\n\n");
981:
982: exit (1);
983: }
984:
985: void freem_print_version(void)
986: {
987: char verstr[500];
988: stcpy (verstr, FREEM_VERSION_STR);
989: stcnv_m2c (verstr);
990:
991: fprintf (stdout, "Coherent Logic Development FreeM %s\n", verstr);
992: fprintf (stdout, "Copyright (C) 2014, 2020, 2021, 2023 Coherent Logic Development LLC\n\n");
993: fprintf (stdout, "License AGPLv3+: GNU AGPL version 3 or later <https://gnu.org/license/agpl-3.0.html>\n");
994: fprintf (stdout, "This is free software: you are free to change and redistribute it.\n");
995: fprintf (stdout, "There is NO WARRANTY, to the extent permitted by law.\n");
996:
997: exit (0);
998: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mumps.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src