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