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