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