Annotation of freem/src/namespace.c, revision 1.3
1.1 snw 1: /*
1.3 ! snw 2: * $Id$
1.1 snw 3: * Namespace support
4: *
5: *
1.2 snw 6: * Author: Serena Willis <snw@coherent-logic.com>
1.1 snw 7: * Copyright (C) 1998 MUG Deutschland
1.3 ! 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.3 ! snw 26: * $Log$
! 27: *
! 28: * SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
! 29: * SPDX-License-Identifier: AGPL-3.0-or-later
1.1 snw 30: **/
31:
32: #include <stddef.h>
33: #include <stdio.h>
34: #include <string.h>
35: #include <unistd.h>
36: #include <stdlib.h>
37:
38: #include "mpsdef.h"
39: #include "iniconf.h"
40: #include "journal.h"
41: #include "init.h"
42: #include "namespace.h"
43:
44: #include <limits.h>
45:
46: #if !defined(PATH_MAX) && defined(_SCO_DS)
47: # define PATH_MAX 4096
48: #endif
49:
50: #if !defined(PATH_MAX) && defined(__gnu_hurd__)
51: # define PATH_MAX 1024
52: #endif
53:
54: #if defined(__NetBSD__) || defined(__FreeBSD__) || defined(__OpenBSD__)
55: # include <sys/syslimits.h>
56: #endif
57:
58: #define LOCK 'l'
59: #define ZDEALLOCATE 'D'
60:
61: void ns_error(char *ns, char *e)
62: {
63: char msg_buf[256];
64:
65: snprintf(msg_buf, 256, "error switching to namespace '%s': %s (possibly a configuration error?)\r\n\201", ns, e);
66: write_m(msg_buf);
67:
68: return;
69: }
70:
71: void set_namespace(char *ns, int verbose)
72: {
73: register int i;
74:
75: char tmps[256];
76:
77: char notif[256];
78: char ns_m[256];
79: char ns_buf[PATH_MAX];
80:
81: char jour_file[PATH_MAX];
82:
83: unsigned long cut_threshold = 1073741824; /* default journal cut threshold of 1GiB */
84:
85: strncpy (ns_m, ns, 256 - 1);
86: stcnv_c2m (ns_m);
87:
88:
89: /* get the root directory of the namespace */
90: get_conf (ns, "root", nsroot);
91:
92: if(!file_exists (config_file)) {
93: snprintf (tmps, 256, "configuration file '%s' does not exist.\n", config_file);
94: ns_error (ns, tmps);
95:
96: cleanup ();
97:
98: exit (1);
99: }
100:
101:
102: /* turn off all the old so-called "journal" implementation */
103: ug_buf[HOME][0] = EOL;
104: jour_flag = 0;
105: jourfile[0] = NUL;
106:
107: /* the real journal file */
108: jour_file[0] = NUL;
109:
110:
111: /* only read journal config for SYSTEM namespace, as journaling
112: is across all namespaces */
113:
114: /* clear private buffer */
115: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
116:
117: if(get_conf("SYSTEM", "journal_file", ns_buf) == TRUE) {
118: strncpy (jour_file, ns_buf, PATH_MAX);
119: }
120:
121: if(get_conf("SYSTEM", "journal_host_id", ns_buf) == TRUE) {
122: strncpy (jour_hostid, ns_buf, 255);
123: }
124: else {
125: strncpy (jour_hostid, "DEFAULT", 255);
126: }
127:
128: if(get_conf("SYSTEM", "journal_cut_threshold", ns_buf) == TRUE) {
129: cut_threshold = (unsigned long) strtol (ns_buf, NULL, 0);
130: }
131:
132: /* clear private buffer */
133: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
134:
135: if(get_conf("SYSTEM", "journal_mode", ns_buf) == TRUE) {
136:
137: if(strcmp(ns_buf, "off") == 0) {
138: /* journaling is disabled */
139: }
140: else if(strcmp(ns_buf, "on") == 0) {
141:
142: if (jour_file[0] == NUL) {
143: ns_error ("SYSTEM", "journal file undefined while trying to set journal mode");
144: goto jour_end;
145: }
146:
147: jnl_init (jour_file, jour_hostid, cut_threshold, 0);
148:
149: }
150: else {
151: snprintf (tmps, 256, "invalid journal_mode '%s'", ns_buf);
152: ns_error ("SYSTEM", tmps);
153:
154: goto jour_end;
155: }
156:
157: }
158:
159:
160: jour_end:
161:
162:
163: /* clear private buffer */
164: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
165:
166: /* set up percent routines -- always in SYSTEM */
167: if(get_conf("SYSTEM", "routines_path", ns_buf) != TRUE) {
168: ns_error("SYSTEM", "could not get routines_path");
169: }
170: else {
171: stcnv_c2m(ns_buf);
172: stcpy(rou0plib, ns_buf); /* Set DO-GOTO-JOB % routine access path */
173: stcpy(rou1plib, ns_buf); /* Set ZLOAD-ZSAVE % routine access path */
174:
175: /* clear %-routine buffer */
176: for (i = 0; i < NO_OF_RBUF; i++) {
177:
178: if (pgms[i][0] == '%') {
179:
180: if (rouptr != (buff + (i * PSIZE0))) {
181: pgms[i][0] = EOL;
182: ages[i] = 0L;
183: }
184:
185: path[i][0] = EOL;
186: }
187:
188: }
189: }
190:
191: /* clear private buffer */
192: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
193:
194: /* set up percent globals -- always in SYSTEM */
195: if(get_conf("SYSTEM", "globals_path", ns_buf) != TRUE) {
196: ns_error("SYSTEM", "could not get globals_path");
197: }
198: else {
199: stcnv_c2m(ns_buf);
200: stcpy(gloplib, ns_buf); /* Set % globals path */
201:
202: /* close % globals */
203: for (i = 0; i < NO_GLOBLS; i++) {
204:
205: if (oldfil[i][0] == '%') {
206:
207: close (olddes[i]);
208:
209: usage[i] = 0;
210: olddes[i] = 0;
211: oldfil[i][0] = NUL;
212: }
213:
214: }
215: }
216:
217:
218: /* set up global engines */
219: /* SYSTEM */
220: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
221:
222: if(get_conf("SYSTEM", "global_engine", ns_buf) == TRUE) {
223: global_set_engine ('s', ns_buf);
224: }
225: else {
226: global_set_engine ('s', "BUILTIN");
227: }
228:
229: /* primary namespace */
230: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
231:
232: if(get_conf(ns, "global_engine", ns_buf) == TRUE) {
233: global_set_engine ('u', ns_buf);
234: }
235: else {
236: global_set_engine ('u', "BUILTIN");
237: }
238:
239: /* set up local engine */
240: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
241:
242: if(get_conf(ns, "local_engine", ns_buf) == TRUE) {
243: sprintf(loc_engine, "%s", ns_buf);
244: }
245: else {
246: sprintf(loc_engine, "BUILTIN");
247: }
248:
249:
250: /* clear private buffer */
251: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
252:
253: /* set up regular routines */
254: if(get_conf(ns, "routines_path", ns_buf) != TRUE) {
255: if (verbose) {
256: ns_error(ns, "could not get routines_path");
257: }
258: else {
259: merr_raise (M26);
260: return;
261: }
262: }
263: else {
264: stcnv_c2m(ns_buf);
265: stcpy(rou0path, ns_buf); /* Set DO-GOTO-JOB routine access path */
266: stcpy(rou1path, ns_buf); /* Set ZLOAD-ZSAVE routine access path */
267:
268: /* clear routine buffer */
269: for (i = 0; i < NO_OF_RBUF; i++) {
270:
271: if (pgms[i][0] != '%') {
272:
273: if (rouptr != (buff + (i * PSIZE0))) {
274: pgms[i][0] = EOL;
275: ages[i] = 0L;
276: }
277:
278: path[i][0] = EOL;
279: }
280:
281: }
282: }
283:
284: /* clear private buffer */
285: for(i = 0; i < 256; i++) ns_buf[i] = NUL;
286:
287: /* set up regular globals */
288: if (get_conf (ns, "globals_path", ns_buf) != TRUE) {
289: if (verbose) {
290: ns_error (ns, "could not get globals_path");
291: }
292: else {
293: merr_raise (M26);
294: return;
295: }
296: }
297: else {
298: stcnv_c2m (ns_buf);
299: stcpy (glopath, ns_buf); /* Set globals path */
300:
301: /* close regular globals
302: for (i = 0; i < NO_GLOBLS; i++) {
303:
304: if (oldfil[i][0] != '%') {
305:
306: close (olddes[i]);
307:
308: usage[i] = 0;
309: olddes[i] = 0;
310: oldfil[i][0] = NUL;
311: }
312:
313: }
314: */
315: }
316:
317: strcpy (nsname, ns);
318:
319: if (verbose == TRUE) {
320: snprintf (notif, 256, "Namespace set to '%s'\r\n\201", ns);
321: write_m (notif);
322: }
323:
324: }
325:
326: short validate_namespace (char *nsn_v)
327: {
328: char scratch[256];
329:
330: if (get_conf (nsn_v, "routines_path", scratch) == FALSE) return FALSE;
331: if (get_conf (nsn_v, "globals_path", scratch) == FALSE) return FALSE;
332:
333: return TRUE;
334:
335: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to namespace.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src