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