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