Annotation of freem/src/init.c, revision 1.7
1.1 snw 1: /*
1.7 ! snw 2: * $Id: init.c,v 1.6 2025/03/09 19:14:25 snw Exp $
1.1 snw 3: * FreeM initialization
4: *
5: *
1.5 snw 6: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 7: * Copyright (C) 1998 MUG Deutschland
1.6 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.7 ! snw 26: * $Log: init.c,v $
! 27: * Revision 1.6 2025/03/09 19:14:25 snw
! 28: * First phase of REUSE compliance and header reformat
! 29: *
1.6 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 <stdio.h>
36: #include <stdlib.h>
37: #include <string.h>
38: #include <unistd.h>
39: #include <limits.h>
40: #include <sys/types.h>
41: #include <sys/stat.h>
42: #include <pwd.h>
43: #include <time.h>
44: #include <errno.h>
45: #include <sys/ioctl.h>
1.2 snw 46:
1.4 snw 47: #if !defined(__APPLE__) && !defined(__gnu_hurd__) && !defined(EMSCRIPTEN)
48: # if defined(__FreeBSD__) || defined(__NetBSD__) || defined(__OpenBSD__) || defined(__AMIGA)
49: # include <termios.h>
50: # if !defined(__AMIGA)
51: # define TCGETA TIOCGETA
52: # define TCSETA TIOCSETA
53: # endif
54: # define termio termios
55: # else
56: # if !defined(MSDOS)
57: # include <termio.h>
58: # endif
59: # endif
1.2 snw 60: #else
61: # include <termios.h>
62: #endif
1.1 snw 63:
64: #include "config.h"
65:
66: #if defined(HAVE_MWAPI_MOTIF)
67: # include <Xm/Xm.h>
68: #endif
69:
70: #include "mpsdef.h"
71: #include "transact.h"
72: #include "namespace.h"
73: #include "events.h"
74: #include "mdebug.h"
75: #include "shmmgr.h"
76: #include "locktab.h"
77: #include "jobtab.h"
78: #include "datatypes.h"
79: #include "objects.h"
80:
81: #ifdef HAVE_LIBREADLINE
82: # if defined(HAVE_READLINE_READLINE_H)
83: # include <readline/readline.h>
84: # elif defined(HAVE_READLINE_H)
85: # include <readline.h>
86: # else /* !defined(HAVE_READLINE_H) */
87: extern char *readline ();
88: # endif /* !defined(HAVE_READLINE_H) */
89: char *cmdline = NULL;
90: #else /* !defined(HAVE_READLINE_READLINE_H) */
91: /* no readline */
92: #endif /* HAVE_LIBREADLINE */
93:
94: #ifdef HAVE_READLINE_HISTORY
95: # if defined(HAVE_READLINE_HISTORY_H)
96: # include <readline/history.h>
97: # elif defined(HAVE_HISTORY_H)
98: # include <history.h>
99: # else /* !defined(HAVE_HISTORY_H) */
100: extern void add_history ();
101: extern int write_history ();
102: extern int read_history ();
103: # endif /* defined(HAVE_READLINE_HISTORY_H) */
104: /* no history */
105: #endif /* HAVE_READLINE_HISTORY */
106:
107: #if defined(HAVE_WIRINGPI_H)
108: # include <wiringPi.h>
109: #endif
110:
111: #if !defined(PATH_MAX) && defined(_SCO_DS)
112: # define PATH_MAX 4096
113: #endif
114:
115: #if !defined(PATH_MAX) && defined(__gnu_hurd__)
116: # define PATH_MAX 1024
117: #endif
118:
119: #if !defined(PATH_MAX) && defined(__sun__)
120: # include <limits.h>
121: #endif
122:
123: #if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__OpenBSD__)
124: # include <sys/syslimits.h>
125: #endif
126:
127: #define SHMKEY 0x990120
128: #define SHMSIZ 1048576
129:
130: void init_process(void);
131: void init_devtable(void);
132: void init_signals(void);
133: void init_timezone(void);
134: void init_freem_path(void);
135:
136: #if defined(HAVE_LIBREADLINE)
137: void init_readline(void);
138: #endif
139:
140: void init_execution_context(void);
141: void init_io(void);
142: void init_random_number(void);
143: void init_ztrap(void);
144: void init_ssvn(void);
145: void init_terminal(void);
146: void init_estack(void);
147:
148: void init_mwapi(void);
149:
150: short init (char *namespace_name)
151: {
152: short retval;
153:
154: init_process ();
155: init_devtable ();
156: init_signals ();
157: init_freem_path ();
158: init_timezone ();
159:
160: #if defined(HAVE_LIBREADLINE)
161: init_readline ();
162: #endif
163:
164: init_execution_context ();
165:
166: if (run_daemon == FALSE) {
167: init_io ();
168: }
169:
170: init_random_number ();
171: init_ztrap ();
172:
173: retval = shm_init (shm_init_size);
174:
175: if (retval == SHMS_GET_ERR) {
176: fprintf (stderr, "init: error initializing shared memory [errno %d]\r\n", errno);
177: exit (1);
178: }
179:
180: symtab_init ();
181: tp_init ();
182:
183: set_namespace (namespace_name, FALSE);
184:
185: if (first_process) {
186: fprintf (stderr, "init: we are the first process in the environment (pid %d)\r\n", pid);
187: }
188:
189: if (first_process) fprintf (stderr, "init: initializing job table\r\n");
190: jobtab_init ();
191:
192: if (first_process) fprintf (stderr, "init: adding job to job table\r\n");
193: job_init (FALSE);
194:
195: if (first_process) fprintf (stderr, "init: initializing structured system variables\r\n");
196: init_ssvn ();
197:
198: if (first_process) fprintf (stderr, "init: initializing terminal\r\n");
199: init_terminal ();
200:
201: if (first_process) fprintf (stderr, "init: initializing asynchronous events\r\n");
202: evt_init ();
203:
204: if (first_process) fprintf (stderr, "init: initializing debugger\r\n");
205: dbg_init ();
206:
207: if (first_process) fprintf (stderr, "init: initializing error stack\r\n");
208: init_estack();
209:
210: etrap[0] = EOL;
211: ecode[0] = EOL;
212: estack = 0;
213:
214: init_mwapi();
215:
216: if (merr () == OK) {
217: return TRUE;
218: }
219:
220: return FALSE;
221: }
222:
223: void init_process (void)
224: {
225: pid = getpid (); /* get $J = process ID */
226: umask (0); /* protection bits mask to full rights */
227: snprintf (fp_conversion, 9, "%%.%df\201", DBL_DIG);
228:
229: if (fp_mode) {
230: zprecise = DBL_DIG;
231: }
232: else {
233: zprecise = 100;
234: }
235: }
236:
237: void init_devtable (void)
238: {
239: register int i;
240: register int j;
241:
242: for (j = 0; j <= MAXDEV; j++) { /* init. translation tables */
243:
244: for (i = 0; i < 256; i++) {
245: G0I[j][i] = (char) i;
246: G0O[j][i] = (char) i;
247: G1I[j][i] = (char) i;
248: G1O[j][i] = (char) i;
249: }
250:
251: G0I[j][UNSIGN (EOL)] = NUL;
252: G0O[j][UNSIGN (EOL)] = NUL;
253: G1I[j][UNSIGN (EOL)] = NUL;
254: G1O[j][UNSIGN (EOL)] = NUL;
255: G0I[j][UNSIGN (DELIM)] = NUL;
256: G0O[j][UNSIGN (DELIM)] = NUL;
257: G1I[j][UNSIGN (DELIM)] = NUL;
258: G1O[j][UNSIGN (DELIM)] = NUL;
259: G0I[j][256] = EOL;
260: G0O[j][256] = EOL;
261: G1I[j][256] = EOL;
262: G1O[j][256] = EOL;
263:
264: }
265:
266: #ifdef SCO
267: #ifndef HACK_NOXLATE
268: G0I[HOME][245] = 64;
269: G0O[HOME][64] = 245; /* Paragraph */
270: G0I[HOME][142] = 91;
271: G0O[HOME][91] = 142; /* A umlaut */
272: G0I[HOME][153] = 92;
273: G0O[HOME][92] = 153; /* O umlaut */
274: G0I[HOME][154] = 93;
275: G0O[HOME][93] = 154; /* U umlaut */
276: G0I[HOME][132] = 123;
277: G0O[HOME][123] = 132; /* a umlaut */
278: G0I[HOME][148] = 124;
279: G0O[HOME][124] = 148; /* o umlaut */
280: G0I[HOME][129] = 125;
281: G0O[HOME][125] = 129; /* u umlaut */
282: G0I[HOME][225] = 126;
283: G0O[HOME][126] = 225; /* sharp s */
284: #endif/*HACK_NOXLATE*/
285:
286: /* DEC Special graphics */
287: G1I[HOME][254] = 96;
288: G1O[HOME][96] = 254; /* diamond */
289: G1I[HOME][176] = 97;
290: G1O[HOME][97] = 176; /* checker board */
291: G1I[HOME][241] = 99;
292: G1O[HOME][99] = 241; /* FF */
293: G1I[HOME][242] = 100;
294: G1O[HOME][100] = 242; /* CR */
295: G1I[HOME][243] = 101;
296: G1O[HOME][101] = 243; /* LF */
297: G1I[HOME][248] = 102;
298: G1O[HOME][102] = 248; /* degree sign */
299: G1I[HOME][241] = 103;
300: G1O[HOME][103] = 241; /* plus minus */
301: G1I[HOME][244] = 104;
302: G1O[HOME][104] = 244; /* NL */
303: G1I[HOME][251] = 105;
304: G1O[HOME][105] = 251; /* VT */
305: G1I[HOME][217] = 106;
306: G1O[HOME][106] = 217; /* lower right corner */
307: G1I[HOME][191] = 107;
308: G1O[HOME][107] = 191; /* upper right corner */
309: G1I[HOME][218] = 108;
310: G1O[HOME][108] = 218; /* upper left corner */
311: G1I[HOME][192] = 109;
312: G1O[HOME][109] = 192; /* lower left corner */
313: G1I[HOME][197] = 110;
314: G1O[HOME][110] = 197; /* cross */
315: G1I[HOME][200] = 111;
316: G1O[HOME][111] = 200; /* linescan 5 */
317: G1I[HOME][201] = 112;
318: G1O[HOME][112] = 201; /* linescan 4 */
319: G1I[HOME][196] = 113;
320: G1O[HOME][113] = 196; /* linescan 3 */
321: G1I[HOME][202] = 114;
322: G1O[HOME][114] = 202; /* linescan 2 */
323: G1I[HOME][203] = 115;
324: G1O[HOME][115] = 203; /* linescan 1 */
325: G1I[HOME][195] = 116;
326: G1O[HOME][116] = 195; /* left junction */
327: G1I[HOME][180] = 117;
328: G1O[HOME][117] = 180; /* right junction */
329: G1I[HOME][193] = 118;
330: G1O[HOME][118] = 193; /* lower junction */
331: G1I[HOME][194] = 119;
332: G1O[HOME][119] = 194; /* upper junction */
333: G1I[HOME][179] = 120;
334: G1O[HOME][120] = 179; /* vertival bar */
335: G1I[HOME][243] = 121;
336: G1O[HOME][121] = 243; /* lower equals */
337: G1I[HOME][242] = 122;
338: G1O[HOME][122] = 242; /* greater equals */
339: G1I[HOME][227] = 123;
340: G1O[HOME][123] = 227; /* pi */
341: G1I[HOME][246] = 124;
342: G1O[HOME][124] = 246; /* not equals */
343: G1I[HOME][128] = 125;
344: G1O[HOME][125] = 128; /* euro sign */
345: G1I[HOME][250] = 126;
346: G1O[HOME][126] = 250; /* centered dot */
347: #endif /* SCO */
348: }
349:
350: void init_signals (void)
351: {
352: sig_init ();
353: }
354:
355: void init_timezone (void)
356: {
357:
358: struct tm lt;
359: struct tm gt;
360:
361: unsigned long gmt;
362: unsigned long lmt;
363:
364: long clock;
365:
366: #ifdef __CYGWIN__
367:
368: tzset (); /* may be required in order */
369: /* to guarantee _timezone set */
370: #else
371:
372: clock = time (0L);
373: lt = *localtime (&clock);
374: gt = *gmtime (&clock);
375:
376: /* This is awkward but I think it is portable: steve_morris */
377: gmt = gt.tm_year * 365;
378: gmt = (gmt + gt.tm_yday) * 24;
379: gmt = (gmt + gt.tm_hour) * 60;
380: gmt = (gmt + gt.tm_min);
381:
382: lmt = lt.tm_year * 365;
383: lmt = (lmt + lt.tm_yday) * 24;
384: lmt = (lmt + lt.tm_hour) * 60;
385: lmt = (lmt + lt.tm_min);
386:
387: FreeM_timezone = (gmt - lmt) * 60;
388: tzoffset = -FreeM_timezone;
389:
390: #endif /* __CYGWIN__ */
391:
392:
393: }
394:
395: void init_freem_path (void)
396: {
397:
398: if((freem_path = malloc(PATH_MAX + 1)) == NULL) {
399: fprintf(stderr, "Can't allocate freem_path. Exiting.");
400:
401: exit(1);
402: }
403:
404: freem_path[0] = NUL;
405:
406: /* check where I'm being executed from */
407: #ifdef __linux__
408: readlink ("/proc/self/exe", freem_path, PATH_MAX);
409: #endif
410: #ifdef __FreeBSD__
411: readlink ("/proc/curproc/file", freem_path, PATH_MAX);
412: #endif
413: #ifdef __sun
414: readlink ("/proc/self/path/a.out", freem_path, PATH_MAX);
415: #endif
416:
417: if(freem_path[0] == NUL) {
418: /* we don't know where we came from */
419: }
420:
421: getcwd (curdir, PATHLEN);
422: stcnv_c2m (curdir);
423:
424: }
425:
426: #if defined(HAVE_LIBREADLINE)
427: void init_readline (void)
428: {
429: uid_t uid = geteuid ();
430: struct passwd *pw = getpwuid (uid);
431: char *pw_buf;
432:
433: pw_buf = (char *) calloc (strlen(pw->pw_dir) + 1, sizeof(char));
434: strcpy (pw_buf, pw->pw_dir);
435:
436: snprintf (history_file, 256, "%s/.freem_history", pw_buf);
437:
438: free (pw_buf);
439:
440: using_history ();
441: read_history (history_file);
442: }
443: #endif
444:
445: void init_execution_context (void)
446: {
447: register int i;
448:
449: obj_init ();
450:
451: merr_clear ();
452:
453: codptr = code;
454: code[0] = EOL; /* init code_pointer */
455: partition = calloc ((unsigned) (PSIZE + 2), 1);
456:
457: if (partition == NULL) exit (2); /* could not allocate stuff... */
458:
459: for (i = 0; i < MAXNO_OF_RBUF; i++) {
460: rbuf_flags[i].standard = standard;
461: }
462:
463: for (i = 0; i < NESTLEVLS; i++) {
464: extr_types[i] = DT_STRING;
465: }
466:
467: symlen = PSIZE;
468: s = &partition[PSIZE] - 256; /* pointer to symlen_offset */
469: argptr = partition; /* pointer to beg of tmp-storage */
470:
471: svntable = calloc ((unsigned) (UDFSVSIZ + 1), 1);
472: if (svntable == NULL) exit (2); /* could not allocate stuff... */
473:
474: svnlen = UDFSVSIZ; /* begin of udf_svn_table */
475: buff = calloc ((unsigned) NO_OF_RBUF * (unsigned) PSIZE0, 1); /* routine buffer pool */
476: if (buff == NULL) exit (2); /* could not allocate stuff... */
477:
478:
479: newstack = calloc ((unsigned) NSIZE, 1);
480: if (newstack == NULL) exit (2); /* could not allocate stuff... */
481:
482: #ifdef DEBUG_NEWPTR
483: printf("Allocating newptr stack...\r\n");
484: #endif
485:
486: newptr = newstack;
487: newlimit = newstack + NSIZE - 1024;
488:
489:
490: namstck = calloc ((unsigned) NESTLEVLS * 13, 1);
491: if (namstck == NULL) exit (2); /* could not allocate stuff... */
492:
493: *namstck = EOL;
494: *(namstck + 1) = EOL;
495: namptr = namstck; /* routine name stack pointer */
496: framstck = calloc ((unsigned) NESTLEVLS * 256, 1);
497: if (framstck == NULL) exit (2); /* could not allocate stuff... */
498:
499: *framstck = EOL;
500: *(framstck + 1) = EOL;
501: dofrmptr = framstck; /* DO_frame stack pointer */
502: cmdstack = calloc ((unsigned) NESTLEVLS * 256, 1);
503: if (cmdstack == NULL) exit (2); /* could not allocate stuff... */
504:
505: cmdptr = cmdstack; /* command stack */
506:
507: rouend = rouins = rouptr = buff;
508: roucur = buff + (NO_OF_RBUF * PSIZE0 + 1);
509: *rouptr = EOL;
510: *(rouptr + 1) = EOL;
511: *(rouptr + 2) = EOL;
512:
513: err_suppl[0] = EOL; /* empty out supplemental error info */
514: }
515:
516: void init_estack (void)
517: {
518: stcpy (merr_stack[0].PLACE, "xecline()\201");
519: }
520:
521: #if defined(HAVE_MWAPI_MOTIF)
522: void init_mwapi (void)
523: {
524: /*
525: if (getenv("DISPLAY") != NULL) {
526: gtk_init (0, NULL);
527: }
528: */
529: //TODO: init Motif/libXt
530: }
531: #else
532: void init_mwapi (void)
533: {
534: return;
535: }
536: #endif
537:
538: void init_io (void)
539: {
540: register int i;
541:
542: /* initialize screen */
543: setbuf (stdin, NULL); /* no input buffering */
544: glvnflag.all = 0L;
545: stcpy (buff, "\201");
546: writeHOME (buff);
547: sq_modes[0] = '+';
548: for (i = 0; i <= MAXDEV; ug_buf[i++][0] = EOL); /* init read-buffers */
549:
1.7 ! snw 550: frm_crlf[HOME] = frm_filter;
1.1 snw 551:
552: if (hardcopy) zbreakon = ENABLE; /* enable CTRL/B */
553:
554: set_io (MUMPS); /* set i/o parameters */
555:
556: #if !defined(__AMIGA)
557: if (ttyname (HOME)) { /* for $IO of HOME */
558: strcpy (dev[HOME], ttyname (HOME));
559: dev[HOME][strlen (dev[HOME])] = EOL;
560: }
561: else {
562: dev[HOME][0] = EOL; /* ...we are in a pipe */
563: }
564: #else
565: strcpy (dev[HOME], "CONSOLE:");
566: #endif
567:
568: /* init function keys */
569: for (i = 0; i < 44; zfunkey[i++][0] = EOL);
570: }
571:
572: void init_random_number (void)
573: {
574:
575: srand (time (NULL));
576:
577: if ((nrandom = time (0L) * getpid ()) < 0) {
578: nrandom = (-nrandom);
579: }
580:
581: }
582:
583: void init_ztrap (void)
584: {
585:
586: if (frm_filter) {
587: ztrap[0][0] = EOL; /* no default ztrap for filters */
588: }
589: else if (startuprou[0] == '^') {
590: stcpy (ztrap[0], startuprou);
591: }
592: else {
593: stcpy (ztrap[0], "^%SYSINIT\201");
594: }
595:
596: /* $ZT to be xecuted on startup */
597:
598: stcpy (ztrap[NESTLEVLS + 1], ztrap[0]); /* DSM V.2 error trapping */
599:
600: }
601:
602: void init_ssvn(void)
603: {
604: ssvn_job_update ();
605: ssvn_display_update ();
606: ssvn_routine_update ();
607: ssvn_library_update ();
608: if (first_process) ssvn_system_update ();
609: }
610:
611: void init_terminal(void)
612: {
613: xpos[HOME] = 80;
614: ypos[HOME] = 24;
615: }
616:
617: void reset_terminal(void)
618: {
619: struct termio tpara;
620:
621: ioctl (0, TCGETA, &tpara);
622:
623: tpara.c_lflag |= (ECHO | ICANON); /* enable echo/no cbreak mode */
624: tpara.c_iflag |= ICRNL; /* cr-lf mapping */
625: tpara.c_oflag |= ONLCR; /* cr-lf mapping */
626: tpara.c_cc[VMIN] = EOT;
627: tpara.c_cc[VTIME] = -1;
628:
629: ioctl (0, TCSETA, &tpara);
630: }
631:
632: void cleanup (void)
633: {
634: char k_buf[256];
635: int ch;
636:
637: /* remove this job's entry from ^$JOB SSVN */
638: snprintf (k_buf, 255, "^$JOB\202%d\201", pid);
639: symtab_shm (kill_sym, k_buf, " \201");
640:
641: reset_terminal ();
642:
643: if (tp_level > 0) {
644:
645: if (direct_mode == TRUE) {
646: fprintf (stderr, "UNCOMMITTED TRANSACTIONS EXIST:\n\n");
647: tp_tdump ();
648: set_io (UNIX);
649: fprintf (stderr, "\nWould you like to c)ommit or r)ollback the above transactions and their operations? ($TLEVEL = %d) ", tp_level);
650:
651: for (;;) {
652: ch = fgetc (stdin);
653:
654: if (ch == 'c' || ch == 'C') {
655: while (tp_level > 0) tp_tcommit ();
656:
657: fprintf (stderr, "\n\nTransactions have been committed.\n");
658:
659: break;
660: }
661: else if (ch == 'r' || ch == 'R') {
662: tp_trollback (tp_level);
663:
664: fprintf (stderr, "\n\nTransactions have been rolled back.\n");
665:
666: break;
667: }
668: else {
669: fprintf (stderr, "\n\nInvalid input '%c'. Must choose c)ommit or r)ollback.\n", ch);
670: }
671: }
672: }
673: else {
674: fprintf (stderr, "Uncommitted transactions exist. Rolling back.\n");
675: tp_trollback (tp_level);
676: }
677: }
678:
679: #if defined(HAVE_LIBREADLINE)
680: write_history (history_file);
681: #endif
682:
683: locktab_unlock_all ();
684: job_remove (pid);
685:
686: shm_exit ();
687:
688: if (run_daemon == TRUE) {
689:
690: if (pid_fd != -1) {
691: lockf (pid_fd, F_ULOCK, 0);
692: close (pid_fd);
693: }
694:
695: if (pid_file_path != NULL) {
696: unlink (pid_file_path);
697: }
698:
699: }
700:
701:
702:
703: free (buff); /* free previously allocated space */
704: free (svntable);
705: if (partition) free (partition);
706: if (apartition) free (apartition);
707:
708:
709: free (newstack);
710:
711:
712: if (v22size) free (v22ali);
713:
714: return;
715: } /* end of cleanup */
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to init.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src