Annotation of freem/src/gcompact.c, revision 1.4
1.1 snw 1: /*
1.4 ! snw 2: * $Id: gcompact.c,v 1.3 2025/03/09 19:14:25 snw Exp $
1.1 snw 3: * global compactor
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: gcompact.c,v $
! 27: * Revision 1.3 2025/03/09 19:14:25 snw
! 28: * First 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: /* compacts mumps globals.
36: * it is essential that the global structure is ok.
37: * because on certain errors (e.g. empty data block)
38: * large parts of data may be lost. errors in pointer
39: * blocks may be ignored, as long as the path to the first
40: * data block is ok.
41: */
42: #include <string.h>
43: #include <sys/types.h>
44: #include <sys/stat.h>
45: #include <sys/wait.h>
46: #include <fcntl.h>
47: #include <unistd.h>
48: #include <stdlib.h>
49:
50: #include <stddef.h>
51: #include "mpsdef0.h"
52: #include "errmsg.h"
53: #include <signal.h>
54: #include <setjmp.h>
55: #include <stdio.h>
56:
57:
58: /* needed if byte data are to be interpreted as unsigned integer */
59: #define UNSIGN(A) ((A)&0377)
60:
61: #define g_EOL 30
62: #define POINT 28
63: #define MINUS 26
64:
65: #define ROOT 0L
66: /* length of blocks. status bytes defined as offset to blocklength */
67: #define DATALIM (BLOCKLEN-11)
68: #define LLPTR (BLOCKLEN-10)
69: #define NRBLK LLPTR
70: #define RLPTR (BLOCKLEN- 6)
71: #define FREE RLPTR
72: #define BTYP (BLOCKLEN- 3)
73: #define OFFS (BLOCKLEN- 2)
74:
75: #define EMPTY 0
76: #define FBLK 1
77: #define POINTER 2
78: #define BOTTOM 6
79: #define DATA 8
80: /* error code */
81: #define PROTECT 30
82:
83: #ifndef SYSFIVE
84: #define FreeM_timezone -3600
85: #else
86:
87: #ifdef __CYGWIN__
88: #define FreeM_timezone _timezone
89: #else
90: extern long FreeM_timezone;
91: #endif /* __CYGWIN__ */
92:
93: #endif /* SYSFIVE */
94:
95:
96: /* mumps commands */
97: #define BREAK 'b'
98: #define CLOSE 'c'
99: #define DO 'd'
100: #define DO_BLOCK 2
101: #define ELSE 'e'
102: #define FOR 'f'
103: #define GOTO 'g'
104: #define HA 'h'
105: #define HALT '0'
106: #define HANG '1'
107: #define IF 'i'
108: #define JOB 'j'
109: #define KILL 'k'
110: #define LOCK 'l'
111: #define NEW 'n'
112: #define OPEN 'o'
113: #define QUIT 'q'
114: #define READ 'r'
115: #define SET 's'
116: #define USE 'u'
117: #define VIEW 'v'
118: #define WRITE 'w'
119: #define XECUTE 'x'
120:
121: #define ZBREAK 'B'
122: #define ZGO 'G'
123: #define ZHALT 'H'
124: #define ZINSERT 'I'
125: #define ZJOB 'J'
126: #define ZLOAD 'L'
127: #define ZNEW 'N'
128: #define ZPRINT 'P'
129: #define ZQUIT 'Q'
130: #define ZREMOVE 'R'
131: #define ZSAVE 'S'
132: #define ZTRAP 'T'
133: #define ZWRITE 'W'
134: #define PRIVATE SP
135:
136: extern short ierr;
137:
138:
139: int main (int argc, char **argv)
140: {
141:
142: char filnam[40]; /* global to be restored */
143: static char savnam[512] = "^/usr/tmp/"; /* intermediate storage */
144: static char unlnam[40] = "/usr/tmp/^"; /* "unlink" filename */
145: short fildes; /* file descriptor to filnam */
146: char block[BLOCKLEN];
147: char key[512];
148: char data[512];
149: unsigned long blknbr;
150: long offset;
151: long type;
152: long length;
153: long koffs;
154:
155: register int i;
156: register int j;
157: register int k;
158: register int ch;
159:
160: umask (0); /* protection bits mask to full rights */
161: filnam[0] = '^';
162: filnam[1] = 0;
163:
164: if (argc > 1) {
165:
166: j = 0;
167:
168: while (--argc > 0) {
169:
170: j++;
171:
172: if (**(argv + j) == '-') {
173: printf ("usage is: %s [^]global\012\015", *argv);
174: exit (0);
175: }
176:
177: strcpy (&filnam[1], *(argv + j));
178:
179: }
180:
181: }
182: else {
183: printf ("\012\015%s global ^", *argv);
184: scanf ("%s", &filnam[1]);
185: }
186:
187: j = filnam[1];
188:
189: if (j == '.' || j == '/' || j == '^') {
190:
191: j = 0;
192:
193: while ((filnam[j] = filnam[j + 1])) j++;
194:
195: }
196:
197: if ((fildes = open (filnam, 0)) == -1) {
198: printf ("cannot open file %s\007\012\015", filnam);
199: exit (1);
200: }
201:
202: strcpy (&savnam[10], &filnam[1]);
203:
204: koffs = 10 + strlen (&filnam[1]);
205:
206: strcpy (&unlnam[10], &filnam[1]);
207: unlink (unlnam); /* kill previous tmp_file */
208:
209: blknbr = ROOT;
210:
211: for (;;) {
212:
213: lseek (fildes, blknbr * BLOCKLEN, 0);
214:
215: if (read (fildes, block, BLOCKLEN) == 0) {
216: printf ("\015*** something wrong ***\033[K\012\015");
217: exit (0);
218: }
219:
220: if (block[BTYP] == DATA) goto first;
221:
222: i = UNSIGN (block[0]) + 2;
223:
224: blknbr = UNSIGN (block[i]) * 65536 + UNSIGN (block[i + 1]) * 256 + UNSIGN (block[i + 2]);
225:
226: }
227:
228:
229: again:
230:
231: if (blknbr == 0) {
232:
233: printf ("\015*** done ***\033[K\012\015");
234:
235: strcpy (block, "mv /usr/tmp/\\^");
236: strcat (block, &filnam[1]);
237: strcat (block, " .");
238:
239: system (block);
240:
241: exit (0);
242:
243: }
244:
245: lseek (fildes, blknbr * BLOCKLEN, 0);
246:
247: if (read (fildes, block, BLOCKLEN) == 0) {
248:
249: strcpy (block, "mv /usr/tmp/\\^");
250: strcat (block, &filnam[1]);
251: strcat (block, " .");
252:
253: system (block);
254:
255: exit (0);
256:
257: }
258:
259:
260: first: /* entry point for first DATA block */
261:
262: type = block[BTYP];
263:
264: blknbr = UNSIGN (block[RLPTR]) * 65536 +
265: UNSIGN (block[RLPTR + 1]) * 256 +
266: UNSIGN (block[RLPTR + 2]);
267:
268: if (type != DATA) goto again;
269:
270: offset = UNSIGN (block[OFFS]) * 256 + UNSIGN (block[OFFS + 1]);
271:
272: i = 0;
273:
274: while (i < offset) {
275:
276: length = UNSIGN (block[i++]);
277: k = UNSIGN (block[i++]);
278:
279: if ((i + length) > offset) break;
280:
281: for (j = 0; j < length; j++) key[k++] = block[i++];
282:
283: key[k] = g_EOL;
284:
285: {
286:
287: long ch0;
288: long i;
289: long j;
290: long k;
291:
292: j = 0;
293: i = 0;
294:
295: data[j++] = DELIM;
296:
297: k = 1;
298:
299: while ((ch = UNSIGN (key[i++])) != g_EOL) {
300:
301: if (k) k = 0;
302:
303: ch0 = (ch >= SP ? (ch >> 1) : /* 'string' chars */
304: (ch < 20 ? (ch >> 1) + '0' : /* 0...9 */
305: (ch >> 1) + SP)); /* '.' or '-' */
306:
307: if (ch0 == DEL) {
308:
309: if (((ch = UNSIGN (key[i++])) >> 1) == DEL) {
310:
311: ch0 += DEL;
312: ch0 = UNSIGN (key[i++]);
313:
314: }
315:
316: ch0 += (ch >> 1);
317:
318: }
319:
320: data[j++] = ch0;
321:
322: if (ch & 01) {
323: data[j++] = DELIM;
324: k = 1;
325: }
326:
327: }
328:
329: data[j--] = EOL;
330:
331: if (j == 0) {
332: data[0] = EOL;
333: }
334: else if (data[j] == DELIM) {
335: data[j] = EOL;
336: }
337:
338: while (j >= 0) {
339: if ((UNSIGN (ch = data[--j]) < SP) && (ch != DELIM)) break;
340: }
341:
342: if (j < 0) {
343: stcpy (&savnam[koffs], data);
344: }
345: else {
346: goto again;
347: } /* illegal subscipt */
348:
349: }
350:
351: length = UNSIGN (block[i++]);
352: k = 0;
353:
354: if ((i + length) > offset) break;
355:
356: stcpy0 (data, &block[i], length);
357:
358: i += length;
359: data[length] = EOL;
360:
361: global (0, savnam, data); /* call original global */
362:
363: if (merr () == PROTECT) {
364: printf ("\012cannot open intermediate file in /usr/tmp\012");
365: exit (1);
366: }
367:
368: }
369:
370: if (i != offset) printf ("\012wrong offset %ld vs. %d\012", offset, i);
371:
372: goto again;
373: }
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to gcompact.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Coherent Logic Development] / freem / src