![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to CCITT.h CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv10no / cmd / bcp|
Return to CCITT.h CVS log | Up to [Research Unix] / researchv10no / cmd / bcp |
1.1 ! root 1: /* Copyright (c) 1989, 1990 AT&T --- All Rights Reserved. */ ! 2: /* THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T. */ ! 3: /* The copyright notice does not imply actual or intended publication. */ ! 4: /* AUTHORS: */ ! 5: /* H. S. Baird - ATT-BL MH - first versions */ ! 6: /* CCITT Group 3 FAX compression codes */ ! 7: #define EOLSTRING "000000000001" ! 8: #define EOLLENGTH 12 /* length of EOLSTRING */ ! 9: #define MAXCODELEN 24 ! 10: ! 11: #define DST_EOL -3 ! 12: ! 13: /* translate a runlength value <=2560 to an index into the Huffman code table; ! 14: if the index is >=64, then must repeat for (r%64) */ ! 15: #define rtoi(r) (((r)<64)? (r): 64+((r)/64)) ! 16: /* translate an index into the Huffman code table to a runlength value */ ! 17: #define itor(i) (((i)<64)? (i): (((i)>64)? (((i)-64)*64): DST_EOL)) ! 18: ! 19: /* Black run code table */ ! 20: static char *codeblk[] = { ! 21: /* code run-length value */ ! 22: "0000110111", /* 0, */ ! 23: "010", /* 1, */ ! 24: "11", /* 2, */ ! 25: "10", /* 3, */ ! 26: "011", /* 4, */ ! 27: "0011", /* 5, */ ! 28: "0010", /* 6, */ ! 29: "00011", /* 7, */ ! 30: "000101", /* 8, */ ! 31: "000100", /* 9, */ ! 32: "0000100", /* 10, */ ! 33: "0000101", /* 11, */ ! 34: "0000111", /* 12, */ ! 35: "00000100", /* 13, */ ! 36: "00000111", /* 14, */ ! 37: "000011000", /* 15, */ ! 38: "0000010111", /* 16, */ ! 39: "0000011000", /* 17, */ ! 40: "0000001000", /* 18, */ ! 41: "00001100111", /* 19, */ ! 42: "00001101000", /* 20, */ ! 43: "00001101100", /* 21, */ ! 44: "00000110111", /* 22, */ ! 45: "00000101000", /* 23, */ ! 46: "00000010111", /* 24, */ ! 47: "00000011000", /* 25, */ ! 48: "000011001010", /* 26, */ ! 49: "000011001011", /* 27, */ ! 50: "000011001100", /* 28, */ ! 51: "000011001101", /* 29, */ ! 52: "000001101000", /* 30, */ ! 53: "000001101001", /* 31, */ ! 54: "000001101010", /* 32, */ ! 55: "000001101011", /* 33, */ ! 56: "000011010010", /* 34, */ ! 57: "000011010011", /* 35, */ ! 58: "000011010100", /* 36, */ ! 59: "000011010101", /* 37, */ ! 60: "000011010110", /* 38, */ ! 61: "000011010111", /* 39, */ ! 62: "000001101100", /* 40, */ ! 63: "000001101101", /* 41, */ ! 64: "000011011010", /* 42, */ ! 65: "000011011011", /* 43, */ ! 66: "000001010100", /* 44, */ ! 67: "000001010101", /* 45, */ ! 68: "000001010110", /* 46, */ ! 69: "000001010111", /* 47, */ ! 70: "000001100100", /* 48, */ ! 71: "000001100101", /* 49, */ ! 72: "000001010010", /* 50, */ ! 73: "000001010011", /* 51, */ ! 74: "000000100100", /* 52, */ ! 75: "000000110111", /* 53, */ ! 76: "000000111000", /* 54, */ ! 77: "000000100111", /* 55, */ ! 78: "000000101000", /* 56, */ ! 79: "000001011000", /* 57, */ ! 80: "000001011001", /* 58, */ ! 81: "000000101011", /* 59, */ ! 82: "000000101100", /* 60, */ ! 83: "000001011010", /* 61, */ ! 84: "000001100110", /* 62, */ ! 85: "000001100111", /* 63 */ ! 86: EOLSTRING, /* EOL */ ! 87: "0000001111", /* 64, */ ! 88: "000011001000", /* 128, */ ! 89: "000011001001", /* 192, */ ! 90: "000001011011", /* 256, */ ! 91: "000000110011", /* 320, */ ! 92: "000000110100", /* 384, */ ! 93: "000000110101", /* 448, */ ! 94: "0000001101100", /* 512, */ ! 95: "0000001101101", /* 576, */ ! 96: "0000001001010", /* 640, */ ! 97: "0000001001011", /* 704, */ ! 98: "0000001001100", /* 768, */ ! 99: "0000001001101", /* 832, */ ! 100: "0000001110010", /* 896, */ ! 101: "0000001110011", /* 960, */ ! 102: "0000001110100", /* 1024, */ ! 103: "0000001110101", /* 1088, */ ! 104: "0000001110110", /* 1152, */ ! 105: "0000001110111", /* 1216, */ ! 106: "0000001010010", /* 1280, */ ! 107: "0000001010011", /* 1344, */ ! 108: "0000001010100", /* 1408, */ ! 109: "0000001010101", /* 1472, */ ! 110: "0000001011010", /* 1536, */ ! 111: "0000001011011", /* 1600, */ ! 112: "0000001100100", /* 1664, */ ! 113: "0000001100101", /* 1728 */ ! 114: /* extended length: */ ! 115: "00000001000", /* 1792, */ ! 116: "00000001100", /* 1856, */ ! 117: "00000001101", /* 1920, */ ! 118: "000000010010", /* 1984, */ ! 119: "000000010011", /* 2048, */ ! 120: "000000010100", /* 2112, */ ! 121: "000000010101", /* 2176, */ ! 122: "000000010110", /* 2240, */ ! 123: "000000010111", /* 2304, */ ! 124: "000000011100", /* 2368, */ ! 125: "000000011101", /* 2432, */ ! 126: "000000011110", /* 2496, */ ! 127: "000000011111", /* 2560 */ ! 128: NULL /* are there codes beyond 2560? */ ! 129: }; ! 130: /* No. bits in the codes in the above table */ ! 131: static short bitcblk[] = { ! 132: 10,3,2,2,3,4,4,5,6,6, /* 0 - 9 */ ! 133: 7,7,7,8,8,9,10,10,10,11, /* 10 - 19 */ ! 134: 11,11,11,11,11,11,12,12,12,12, /* 20 - 29 */ ! 135: 12,12,12,12,12,12,12,12,12,12, /* 30 - 39 */ ! 136: 12,12,12,12,12,12,12,12,12,12, /* 40 - 49 */ ! 137: 12,12,12,12,12,12,12,12,12,12, /* 50 - 59 */ ! 138: 12,12,12,12, /* 60 - 63 */ ! 139: 12, /* EOL */ ! 140: 10, /* 64 */ ! 141: 12,12,12,12,12,12, /* 128 - 448 */ ! 142: 13,13,13,13,13,13,13,13,13, /* 512 - */ ! 143: 13,13,13,13,13,13,13,13,13, ! 144: 13,13, /* - 1728 */ ! 145: 11,11,11, /* 1792 - 1920 */ ! 146: 12,12,12,12,12,12,12,12,12,12, /* 1984 - 2560 */ ! 147: /* for codes over 2560 */ ! 148: 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, ! 149: -1 ! 150: }; ! 151: ! 152: /* White run code table */ ! 153: static char *codewht[] = { ! 154: /* code run-length value */ ! 155: "00110101", /* 0, */ ! 156: "000111", /* 1, */ ! 157: "0111", /* 2, */ ! 158: "1000", /* 3, */ ! 159: "1011", /* 4, */ ! 160: "1100", /* 5, */ ! 161: "1110", /* 6, */ ! 162: "1111", /* 7, */ ! 163: "10011", /* 8, */ ! 164: "10100", /* 9, */ ! 165: "00111", /* 10, */ ! 166: "01000", /* 11, */ ! 167: "001000", /* 12, */ ! 168: "000011", /* 13, */ ! 169: "110100", /* 14, */ ! 170: "110101", /* 15, */ ! 171: "101010", /* 16, */ ! 172: "101011", /* 17, */ ! 173: "0100111", /* 18, */ ! 174: "0001100", /* 19, */ ! 175: "0001000", /* 20, */ ! 176: "0010111", /* 21, */ ! 177: "0000011", /* 22, */ ! 178: "0000100", /* 23, */ ! 179: "0101000", /* 24, */ ! 180: "0101011", /* 25, */ ! 181: "0010011", /* 26, */ ! 182: "0100100", /* 27, */ ! 183: "0011000", /* 28, */ ! 184: "00000010", /* 29, */ ! 185: "00000011", /* 30, */ ! 186: "00011010", /* 31, */ ! 187: "00011011", /* 32, */ ! 188: "00010010", /* 33, */ ! 189: "00010011", /* 34, */ ! 190: "00010100", /* 35, */ ! 191: "00010101", /* 36, */ ! 192: "00010110", /* 37, */ ! 193: "00010111", /* 38, */ ! 194: "00101000", /* 39, */ ! 195: "00101001", /* 40, */ ! 196: "00101010", /* 41, */ ! 197: "00101011", /* 42, */ ! 198: "00101100", /* 43, */ ! 199: "00101101", /* 44, */ ! 200: "00000100", /* 45, */ ! 201: "00000101", /* 46, */ ! 202: "00001010", /* 47, */ ! 203: "00001011", /* 48, */ ! 204: "01010010", /* 49, */ ! 205: "01010011", /* 50, */ ! 206: "01010100", /* 51, */ ! 207: "01010101", /* 52, */ ! 208: "00100100", /* 53, */ ! 209: "00100101", /* 54, */ ! 210: "01011000", /* 55, */ ! 211: "01011001", /* 56, */ ! 212: "01011010", /* 57, */ ! 213: "01011011", /* 58, */ ! 214: "01001010", /* 59, */ ! 215: "01001011", /* 60, */ ! 216: "00110010", /* 61, */ ! 217: "00110011", /* 62, */ ! 218: "00110100", /* 63 */ ! 219: EOLSTRING, /* EOL */ ! 220: "11011", /* 64, */ ! 221: "10010", /* 128, */ ! 222: "010111", /* 192, */ ! 223: "0110111", /* 256, */ ! 224: "00110110", /* 320, */ ! 225: "00110111", /* 384, */ ! 226: "01100100", /* 448, */ ! 227: "01100101", /* 512, */ ! 228: "01101000", /* 576, */ ! 229: "01100111", /* 640, */ ! 230: "011001100", /* 704, */ ! 231: "011001101", /* 768, */ ! 232: "011010010", /* 832, */ ! 233: "011010011", /* 896, */ ! 234: "011010100", /* 960, */ ! 235: "011010101", /* 1024, */ ! 236: "011010110", /* 1088, */ ! 237: "011010111", /* 1152, */ ! 238: "011011000", /* 1216, */ ! 239: "011011001", /* 1280, */ ! 240: "011011010", /* 1344, */ ! 241: "011011011", /* 1408, */ ! 242: "010011000", /* 1472, */ ! 243: "010011001", /* 1536, */ ! 244: "010011010", /* 1600, */ ! 245: "011000", /* 1664, */ ! 246: "010011011", /* 1728 */ ! 247: /* extended length: */ ! 248: "00000001000", /* 1792, */ ! 249: "00000001100", /* 1856, */ ! 250: "00000001101", /* 1920, */ ! 251: "000000010010", /* 1984, */ ! 252: "000000010011", /* 2048, */ ! 253: "000000010100", /* 2112, */ ! 254: "000000010101", /* 2176, */ ! 255: "000000010110", /* 2240, */ ! 256: "000000010111", /* 2304, */ ! 257: "000000011100", /* 2368, */ ! 258: "000000011101", /* 2432, */ ! 259: "000000011110", /* 2496, */ ! 260: "000000011111", /* 2560 */ ! 261: NULL /* are there codes beyond 2560? */ ! 262: }; ! 263: /* no. bits in the codes in the above table */ ! 264: static short bitcwht[] = { ! 265: 8,6,4,4,4,4,4,4,5,5, /* 0 - 9 */ ! 266: 5,5,6,6,6,6,6,6,7,7, /* 10 - 19 */ ! 267: 7,7,7,7,7,7,7,7,7,8, /* 20 - 29 */ ! 268: 8,8,8,8,8,8,8,8,8,8, /* 30 - 39 */ ! 269: 8,8,8,8,8,8,8,8,8,8, /* 40 - 49 */ ! 270: 8,8,8,8,8,8,8,8,8,8, /* 50 - 59 */ ! 271: 8,8,8,8, /* 60 - 63 */ ! 272: 12, /* EOL */ ! 273: 5,5, /* 64,128 */ ! 274: 6, /* 192 */ ! 275: 7, /* 256 */ ! 276: 8,8,8,8,8,8, /* 320 - 640 */ ! 277: 9,9,9,9,9,9,9,9,9,9,9,9,9,9,9, /* 704 - 1600 */ ! 278: 6, /* 1664 */ ! 279: 9, /* 1728 */ ! 280: 11,11,11, /* 1792,1856,1920 */ ! 281: 12,12,12,12,12,12,12,12,12,12, /* 1984 - 2560 */ ! 282: /* for codes over 2560 */ ! 283: 14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14,14, ! 284: -1 ! 285: }; ! 286: ! 287: /* 2-D codes (indices into code2d[] table) */ ! 288: #define i2D_V0 0 ! 289: #define i2D_VR1 1 ! 290: #define i2D_VR2 2 ! 291: #define i2D_VR3 3 ! 292: #define i2D_VL1 4 ! 293: #define i2D_VL2 5 ! 294: #define i2D_VL3 6 ! 295: #define i2D_PASS 7 ! 296: #define i2D_HORIZ 8 ! 297: #define i2D_EOL 9 ! 298: ! 299: static char *code2d[] = { ! 300: "1", /* V0 */ ! 301: "011", /* VR1 */ ! 302: "000011", /* VR2 */ ! 303: "0000011", /* VR3 */ ! 304: "010", /* VL1 */ ! 305: "000010", /* VL2 */ ! 306: "0000010", /* VL3 */ ! 307: "0001", /* PASS */ ! 308: "001", /* HORIZ */ ! 309: EOLSTRING, /* EOL */ ! 310: NULL }; ! 311: static short bitc2d[] = { 1,3,6,7,3,6,7,4,3,12 }; ! 312: ! 313: #define EOL0STRING "0000000000010" ! 314: #define EOL1STRING "0000000000011" ! 315: #define EOFB "000000000001000000000001" ! 316: ! 317: static char *spare1d[] = { ! 318: "000000001", /* 0, */ ! 319: "0000000001", /* 0, */ ! 320: "00000000001", /* 0 */ ! 321: NULL }; ! 322: static char *spare2d[] = { ! 323: "0000001", /* 0, */ ! 324: "00000001", /* 0, */ ! 325: "000000001", /* 0, */ ! 326: "0000000001", /* 0, */ ! 327: "00000000001", /* 0 */ ! 328: NULL }; ! 329: ! 330: /* State-transition table for decoding CCITT G3-1 */ ! 331: ! 332: /* bit colors; also, starting index in table of 1-D codes*/ ! 333: #define DST_color short ! 334: #define DST_white 0 ! 335: #define DST_black 1 ! 336: ! 337: #define flip_color(c) ((c)? 0: 1) ! 338: ! 339: #define DST_2d 2 /* starting index in table of 2-D codes */ ! 340: ! 341: #define DST_state short /* state-id: index into DST_tbl.e[] */ ! 342: #define DST_state_NULL (-1) ! 343: #define DST_state_ERROR (-2) ! 344: ! 345: #define DST_action int ! 346: #define DST_action_NULL (-1) ! 347: #define DST_action_ERROR (-2) ! 348: ! 349: /* transition in finite-state machine */ ! 350: typedef struct DST_transit { ! 351: DST_action a; /* action to perform */ ! 352: DST_state s; /* next state */ ! 353: } DST_transit; ! 354: typedef struct DST_entry { ! 355: char p[MAXCODELEN+1]; /* code prefix so far (in ASCII) */ ! 356: short l; /* strlen(.p) */ ! 357: short z; /* no. of trailing "0"'s in .p */ ! 358: DST_transit t[2]; /* two transitions: on 0 & 1 */ ! 359: } DST_entry; ! 360: typedef struct DST_table { ! 361: int mny; /* no. entries so far */ ! 362: DST_entry *e; /* array in malloc space: ! 363: e[DST_white] starts white 1-D codes; ! 364: e[DST_black] starts black 1-D codes; ! 365: e[DST_2d] starts 2-D codes */ ! 366: } DST_table; ! 367: typedef struct DST_context { ! 368: DST_color c; /* current run-color */ ! 369: int l; /* length of current code in bits: 0..(len-1) */ ! 370: DST_table *t; /* table */ ! 371: DST_state s; /* current state */ ! 372: DST_transit tr; /* current state/action */ ! 373: } DST_context; ! 374: ! 375: ! 376: DST_table *ccitt_table(); ! 377: RLE_Line *g31_to_rlel(); ! 378: int rlel_to_g31(); ! 379: RLE_Line *g32_to_rlel(); ! 380: int rlel_to_g32(); ! 381: RLE_Line *g4_to_rlel(); ! 382: int rlel_to_g4();
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.