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