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