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