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