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