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