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