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