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