Annotation of freem/src/gfix.c, revision 1.1
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: }
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