![[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|
Return to gfix.c CVS log | Up to [Coherent Logic Development] / freem / src |
1.1 snw 1: /*
2: * *
3: * * *
4: * * *
5: * ***************
6: * * * * *
7: * * MUMPS *
8: * * * * *
9: * ***************
10: * * *
11: * * *
12: * *
13: *
14: * gfix.c
15: * display freem database blocks on-screen
16: *
17: *
18: * Author: Serena Willis <jpw@coherent-logic.com>
19: * Copyright (C) 1998 MUG Deutschland
20: * Copyright (C) 2020 Coherent Logic Development LLC
21: *
22: *
23: * This file is part of FreeM.
24: *
25: * FreeM is free software: you can redistribute it and/or modify
26: * it under the terms of the GNU Affero Public License as published by
27: * the Free Software Foundation, either version 3 of the License, or
28: * (at your option) any later version.
29: *
30: * FreeM is distributed in the hope that it will be useful,
31: * but WITHOUT ANY WARRANTY; without even the implied warranty of
32: * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
33: * GNU Affero Public License for more details.
34: *
35: * You should have received a copy of the GNU Affero Public License
36: * along with FreeM. If not, see <https://www.gnu.org/licenses/>.
37: *
38: **/
39:
40: #include <stdlib.h>
41: #include <setjmp.h>
42: #include <signal.h>
43: #include <stdio.h>
44: #include "mpsdef0.h"
45: #include "errmsg.h"
46: #include <fcntl.h>
47: #include <unistd.h>
48: #include <string.h>
49: #include <sys/types.h>
50: #include <sys/wait.h>
51:
52: /* needed if byte data are to be interpreted as unsigned integer */
53: #define UNSIGN(A) ((A)&0377)
54:
55: #define g_EOL 30
56: #define POINT 28
57: #define MINUS 26
58:
59: #define ROOT 0L
60: /* length of blocks. status bytes defined as offset to blocklength */
61: #define BLOCKLEN 1024
62: #define DATALIM (BLOCKLEN-11)
63: #define LLPTR (BLOCKLEN-10)
64: #define NRBLK LLPTR
65: #define RLPTR (BLOCKLEN- 6)
66: #define FREE RLPTR
67: #define BTYP (BLOCKLEN- 3)
68: #define OFFS (BLOCKLEN- 2)
69:
70: #define PLEN 3
71:
72: #define EMPTY 0
73: #define FBLK 1
74: #define POINTER 2
75: #define BOTTOM 6
76: #define DATA 8
77:
78: #define LF 10
79: #define CR 13
80: #define SPC ' '
81: #define NUL 0
82: #define DEL 127
83:
84: #ifndef SYSFIVE
85: #define FreeM_timezone -3600
86: #else
87:
88: #ifdef __CYGWIN__
89: #define FreeM_timezone _timezone
90: #else
91: extern long FreeM_timezone;
92: #endif /* __CYGWIN__ */
93:
94: #endif /* SYSFIVE */
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 ZALLOCATE 'A'
122: #define ZBREAK 'B'
123: #define ZDEALLOCATE 'D'
124: #define ZGO 'G'
125: #define ZHALT 'H'
126: #define ZINSERT 'I'
127: #define ZJOB 'J'
128: #define ZLOAD 'L'
129: #define ZNEW 'N'
130: #define ZPRINT 'P'
131: #define ZQUIT 'Q'
132: #define ZREMOVE 'R'
133: #define ZSAVE 'S'
134: #define ZTRAP 'T'
135: #define ZWRITE 'W'
136: #define PRIVATE SP
137:
138:
139:
140: int
141: main (argc, argv)
142: int argc; /* arguments count */
143: char *argv[]; /* arguments string */
144:
145: {
146: static char ASCII[] = "NULSOHSTXETXEOTENQACKBELBS TABLF VT FF CR SO SI DLEDC1DC2DC3DC4NAKSYNETBCANEM SUBESCFS GS RS US ";
147: char filnam[40];
148: short filedes;
149: char block[BLOCKLEN];
150: char key[512];
151: char data[1024];
152: long blknbr;
153: short offset;
154: short type;
155: unsigned long pointer;
156: short length;
157: short koffs;
158:
159: register int i,
160: j,
161: k,
162: ch;
163:
164: filnam[0] = '^';
165: filnam[1] = 0;
166:
167: if (argc > 1) {
168: j = 0;
169: while (--argc > 0) {
170: j++; /* accept it with or without '^' sign */
171: if (**(argv + j) == '-') {
172: fprintf (stderr, "usage is: %s [^]global\012\015", *argv);
173: exit (0);
174: }
175: if (**(argv + j) == '^')
176: strcpy (filnam, *(argv + j));
177: else
178: strcpy (&filnam[1], *(argv + j));
179: }
180: } else {
181: printf ("\012\015display global ^");
182: scanf ("%s", &filnam[1]);
183: }
184: if ((filedes = open (filnam, 0)) == -1) {
185: printf ("cannot open file %s\007\012\015", filnam);
186: exit (0);
187: }
188: again:;
189:
190: printf ("\012\015display block #");
191: scanf ("%ld", &blknbr);
192: if (blknbr < 0) {
193: printf ("\012\015*** done ***\012\015\033[r\033[24H");
194: exit (0);
195: }
196: lseek (filedes, blknbr * 1024L, 0);
197: if (read (filedes, block, BLOCKLEN) == 0) {
198: printf ("block #%ld does not exist\007\012\015-1 will terminate", blknbr);
199: goto again;
200: }
201: printf ("\033[r\033[2Jglobal\033[;20H%s\033[;40Hblock\033[;60H%ld",
202: filnam,
203: blknbr);
204: printf ("\033[2Hblock type\033[2;20H");
205: type = block[BTYP];
206: switch (type) {
207: case DATA:
208: printf ("DATA");
209: break;
210: case POINTER:
211: printf ("POINTER");
212: break;
213: case BOTTOM:
214: printf ("BOTTOM POINTER");
215: break;
216: case EMPTY:
217: printf ("EMPTY");
218: break;
219: case FBLK:
220: printf ("FBLK");
221: break;
222: default:
223: printf ("ILLEGAL TYPE");
224: type = DATA;
225: }
226: if (blknbr == ROOT)
227: printf (", ROOT");
228:
229: offset = UNSIGN (block[OFFS]) * 256 +
230: UNSIGN (block[OFFS + 1]);
231: printf ("\033[2;40Hoffset\033[2;60H%d", offset);
232: if (offset > DATALIM || (type == FBLK && offset % PLEN)) {
233: printf (" ???");
234: offset = DATALIM;
235: }
236: pointer = UNSIGN (block[LLPTR]) * 65536 +
237: UNSIGN (block[LLPTR + 1]) * 256 +
238: UNSIGN (block[LLPTR + 2]);
239: printf ("\033[3H%s\033[3;20H%ld",
240: blknbr != ROOT ? "LEFT LINK POINTER" : "NR_OF_BLKS",
241: pointer);
242:
243: pointer = UNSIGN (block[RLPTR]) * 65536 +
244: UNSIGN (block[RLPTR + 1]) * 256 +
245: UNSIGN (block[RLPTR + 2]);
246: printf ("\033[3;40H%s\033[3;60H%ld",
247: blknbr != ROOT ? "RIGHT LINK POINTER" : "FREE",
248: pointer);
249:
250: printf ("\033[4;24r\033[4H"); /* define scrolling area */
251:
252: if (type == FBLK) {
253: i = 0;
254: while (i < offset) {
255: k = UNSIGN (block[i]) * 65536 +
256: UNSIGN (block[i + 1]) * 256 +
257: UNSIGN (block[i + 2]);
258: i += PLEN;
259: printf ("%8d", k);
260: }
261: goto again;
262: }
263: i = 0;
264: while (i < offset) {
265: printf ("\012\015%3d", i);
266: length = UNSIGN (block[i++]);
267: k = koffs = UNSIGN (block[i++]);
268: if ((i + length) > offset)
269: break;
270: for (j = 0; j < length; j++)
271: key[k++] = block[i++];
272: key[k] = g_EOL;
273: /*----------------------*/
274: {
275: short ch0,
276: i,
277: j,
278: k,
279: typ;
280:
281: j = 0;
282: i = 0;
283: data[j++] = '(';
284: k = 1;
285: while ((ch = UNSIGN (key[i++])) != g_EOL) {
286: if (k) {
287: k = 0;
288: if ((typ = (ch > SPC)))
289: data[j++] = '"';
290: }
291: ch0 = (ch >= SPC ? (ch >> 1) : /* 'string' chars */
292: (ch < 20 ? (ch >> 1) + '0' : /* 0...9 */
293: (ch >> 1) + SPC)); /* '.' or '-' */
294: if (ch0 == DEL) {
295: if (((ch = UNSIGN (key[i++])) >> 1) == DEL) {
296: ch0 += DEL;
297: ch = UNSIGN (key[i++]);
298: }
299: ch0 += (ch >> 1);
300: data[j] = '<';
301: data[++j] = '0' + ch0 / 100;
302: data[++j] = '0' + (ch0 % 100) / 10;
303: data[++j] = '0' + ch0 % 10;
304: data[++j] = '>';
305: } else
306: data[j] = ch0;
307: if (data[j++] == '"')
308: data[j++] = '"';
309: if (ch & 01) {
310: if (typ)
311: data[j++] = '"';
312: data[j++] = ',';
313: k = 1;
314: }
315: }
316: data[j--] = 0;
317: data[j] = ')';
318: if (j == 0)
319: data[0] = 0;
320: while (j >= 0) {
321: if ((ch = data[--j]) < SPC || ch >= DEL)
322: break;
323: }
324: if (j < 0)
325: printf ("[%d][%d] %s ", length, koffs, data);
326: else
327: printf ("[%d][%d] <illegal subscipt>", length, koffs);
328: /*----------------------*/
329: }
330: if (type == DATA) {
331: length = UNSIGN (block[i++]);
332: k = 0;
333: if ((i + length) > offset)
334: break;
335: while (length-- > 0) {
336: ch = UNSIGN (block[i++]);
337: if ((ch >= SPC) && (ch < DEL))
338: data[k++] = ch;
339: else {
340: data[k++] = '<';
341: if ((ch >= NUL) && (ch < SPC)) {
342: ch = ch * 3;
343: data[k++] = ASCII[ch++];
344: data[k++] = ASCII[ch++];
345: if ((data[k++] = ASCII[ch++]) == SPC)
346: k--;
347: } else if (ch == DEL) {
348: data[k++] = 'D';
349: data[k++] = 'E';
350: data[k++] = 'L';
351: } else {
352: if (ch > 99) {
353: data[k++] = '0' + (ch / 100);
354: ch = ch % 100;
355: }
356: if (ch > 9) {
357: data[k++] = '0' + (ch / 10);
358: ch = ch % 10;
359: }
360: data[k++] = '0' + ch;
361: }
362: data[k++] = '>';
363: }
364: }
365: data[k] = 0;
366: printf ("= %s", data);
367: } else {
368: pointer = UNSIGN (block[i]) * 65536 +
369: UNSIGN (block[i + 1]) * 256 +
370: UNSIGN (block[i + 2]);
371: i += PLEN;
372: printf ("-> %ld", pointer);
373: }
374: }
375: if (i != offset)
376: printf ("\012\015wrong offset %d vs. %d\012\015", offset, i);
377: goto again;
378: }