N/******************************************************************************<*_TITLE detest - Test performance of decompression routines.*E*_DESCR The detest program tests the performance of the decompressionC* subroutines. The decompression subroutines have been testedD* on a varitey of computer hardware confurations and operatingE* systems. However, because of subtle differences of C-languageC* compilers and computer hardware, there is no assurance that@* they will correctly function on your system. If problemsI* occur while trying to install the decompression software on your H* system, this program can be run to verify the performance of the* subroutines.*F* The detest program has three arrays containing fixed values. I* The first array, hist, contains the values of a first-difference H* histogram. This array is passed to the decmpinit subroutine for F* initialization of the Huffman coding tree. The second array, D* lin_in, contains the values of an image-line which has been E* compressed. This array is passed to the decompress subroutineC* for decompression of the line. The output of the decompressF* routine is placed in the lin_out array and is compared, sampleF* by sample, with the lin_tst array. The lin_tst array containsD* the correct values of the decompression subroutine. If there1* is a mismatch then a failure is reported.*C*_LIMS Detest and the decompression routines were tested on a VAX H* computer running under Version 4.6 of VMS, a micro-VAX computer I* under version 2.2 of ULTRIX, an IBM/PC running under version 2.2 G* of Microsoft, and a SUN work station running under version 4.2,* release 3.4, of UNIX.*D*_HIST 01-March-1988 Eric Eliason, USGS Flagstaff, original verisonN*****************************************************************************/ long hist[512] = {M 12, 6, 13, 3, 13, 15, 13, 49, 8, 7,M 13, 8, 16, 4, 17, 33, 13, 8, 11, 3,M 26, 4, 15, 42, 19, 6, 19, 12, 3, 4,M 19, 10, 7, 11, 13, 3, 21, 11, 3, 45,M 14, 6, 14, 8, 15, 8, 13, 43, 2, 7,M 15, 18, 11, 3, 13, 14, 14, 11, 10, 5,M 14, 6, 12, 50, 15, 5, 15, 4, 7, 5,M 16, 33, 9, 5, 15, 4, 436, 7, 4, 22,M 20, 8, 4, 7, 15, 4, 14, 23, 5, 3,M 15, 9, 4, 6, 13, 29, 17, 5, 4, 3,M 16, 6, 5, 36, 32, 4, 43, 3, 39, 3,M 53, 21, 32, 3, 106, 4, 78, 4, 14, 32,M 18, 6, 10, 4, 24, 3, 20, 41, 14, 3,M 29, 4, 17, 5, 15, 16, 17, 5, 3, 4,M 17, 5, 8, 28, 13, 3, 14, 6, 7, 7,M 13, 31, 6, 5, 13, 4, 19, 5, 4, 41,M 14, 10, 9, 3, 14, 5, 21, 44, 8, 4,M 14, 11, 7, 6, 15, 9, 20, 3, 6, 5,M 22, 8, 9, 30, 22, 3, 20, 10, 3, 11,M 19, 39, 2, 13, 13, 3, 27, 8, 9, 22,M 16, 10, 4, 11, 14, 13, 21, 59, 3, 25,M 13, 25, 8, 31, 15, 72, 26, 50, 6, 47,M 14, 71, 5, 486, 17, 65, 21, 59, 8, 48,M 20, 49, 17, 66, 14, 97, 20, 103, 6, 155,M 35, 157, 15, 152, 17, 247, 15, 367, 8, 1147,M 14, 9225, 24, 113488, 23, 405608, 1073, 112576, 126, 9256,M 86, 1179, 94, 441, 109, 347, 95, 187, 10, 183,M 4, 148, 31, 192, 92, 139, 71, 298, 274, 137,M 14, 43, 21, 40, 406, 40, 20, 49, 13, 67,M 5, 59, 17, 79, 6, 72, 30, 54, 6, 23,M 11, 19, 13, 21, 23, 14, 22, 19, 5, 24,M 4, 11, 17, 6, 9, 9, 28, 4, 3, 24,M 23, 34, 19, 12, 6, 10, 20, 11, 12, 31,M 813, 8, 25, 5, 6, 5, 38, 9, 6, 18,M 6, 13, 14, 4, 23, 9, 24, 3, 85, 94,M 87, 94, 99, 90, 83, 85, 100, 85, 3, 26,M 8, 22, 13, 5, 13, 7, 19, 7, 17, 14,M 3, 7, 27, 6, 3, 5, 21, 12, 13, 14,M 5, 7, 14, 3, 26, 7, 16, 8, 8, 18,M 4, 3, 23, 16, 6, 4, 16, 5, 3, 14,M 4, 19, 16, 4, 3, 3, 15, 6, 10, 21,M 3, 6, 15, 4, 3, 8, 28, 6, 8, 16,M 8, 10, 15, 3, 26, 24, 14, 3, 8, 17,M 5, 13, 19, 3, 11, 4, 17, 5, 6, 15,M 24, 20, 15, 4, 9, 4, 16, 8, 3, 28,M 21, 13, 25, 11, 3, 3, 21, 17, 10, 17,M 4, 11, 13, 9, 22, 17, 25, 5, 10, 24,M 4, 12, 25, 18, 3, 13, 19, 11, 9, 16,M 6, 34, 26, 6, 8, 6, 27, 3, 16, 13,M 11, 9, 14, 5, 7, 4, 26, 8, 3, 17,M 8, 12, 13, 14, 3, 3, 23, 6, 4, 12, 1, 0}; long len_in = { 227}; char lin_in[227] = { #'\034','\352','\215','\066','\026',#'\145','\107','\030','\306','\233',#'\346','\313','\161','\070','\240',#'\037','\036','\062','\301','\216',#'\227','\055','\247','\036','\322',#'\332','\134','\122','\124','\226',#'\063','\143','\313','\372','\031',#'\154','\041','\227','\225','\370',#'\111','\151','\162','\306','\316',#'\227','\161','\264','\217','\330',#'\317','\216','\347','\067','\377',#'\151','\154','\307','\313','\217',#'\342','\242','\226','\137','\227',#'\270','\317','\161','\315','\225',#'\046','\315','\226','\131','\122',#'\130','\240','\330','\347','\270',#'\322','\367','\377','\140','\243',#'\057','\122','\154','\146','\301',#'\103','\202','\213','\217','\057',#'\317','\335','\245','\307','\036',#'\136','\311','\161','\264','\356',#'\052','\107','\145','\221','\332',#'\137','\274','\334','\037','\124',#'\056','\155','\057','\352','\245',#'\212','\115','\366','\224','\320',#'\313','\052','\052','\116','\342',#'\201','\332','\135','\245','\307',#'\151','\250','\145','\111','\343',#'\370','\241','\246','\322','\241',#'\103','\216','\225','\166','\106',#'\227','\024','\013','\111','\143',#'\037','\032','\133','\140','\306',#'\132','\134','\123','\113','\366',#'\130','\066','\026','\322','\307',#'\330','\306','\166','\166','\161',#'\214','\154','\330','\077','\145',#'\242','\315','\014','\156','\270',#'\177','\377','\377','\377','\377',#'\377','\377','\377','\377','\377',#'\377','\377','\377','\377','\377',#'\377','\377','\377','\377','\376',#'\205','\100','\135','\026','\274',#'\122','\072','\361','\110','\372',#'\374','\224','\260','\377','\377',#'\361','\035','\035','\174','\144','\033','\200'}; long len_out = { 836}; char lin_out[836]; char lin_tst[836] = { #'\034','\034','\034','\034','\030',#'\030','\032','\030','\034','\034',#'\032','\034','\036','\036','\034',#'\036','\036','\036','\040','\040',#'\034','\036','\036','\036','\036',#'\040','\036','\040','\036','\040',#'\036','\042','\042','\040','\040',#'\040','\040','\042','\042','\042',#'\040','\042','\042','\040','\036',#'\036','\040','\044','\044','\044',#'\046','\042','\044','\046','\050',#'\046','\046','\046','\046','\050',#'\046','\046','\046','\050','\046',#'\050','\050','\046','\050','\052',#'\050','\052','\050','\050','\054',#'\052','\052','\054','\054','\052',#'\050','\054','\054','\054','\056',#'\054','\054','\054','\052','\056',#'\054','\052','\056','\054','\054',#'\056','\052','\056','\052','\056',#'\054','\056','\054','\056','\056',#'\056','\054','\056','\054','\054',#'\054','\056','\056','\054','\054',#'\054','\054','\054','\054','\044',#'\024','\014','\024','\050','\054',#'\056','\056','\054','\060','\056',#'\056','\060','\060','\056','\060',#'\056','\054','\056','\056','\056',#'\056','\062','\060','\060','\056',#'\056','\060','\056','\054','\060',#'\062','\060','\060','\060','\060',#'\060','\056','\060','\056','\060',#'\060','\060','\060','\060','\060',#'\062','\060','\060','\056','\056',#'\060','\060','\060','\060','\062',#'\062','\062','\060','\060','\060',#'\060','\060','\060','\060','\060',#'\060','\060','\056','\062','\060',#'\056','\060','\060','\060','\062',#'\060','\060','\060','\060','\062',#'\062','\060','\060','\062','\060',#'\060','\060','\060','\060','\060',#'\062','\056','\056','\060','\054',#'\062','\060','\060','\060','\060',#'\060','\062','\062','\060','\060',#'\060','\056','\056','\060','\056',#'\060','\060','\060','\060','\060',#'\056','\056','\060','\056','\056',#'\060','\060','\060','\056','\060',#'\060','\054','\060','\060','\056',#'\060','\060','\060','\056','\060',#'\060','\056','\060','\060','\056',#'\060','\060','\054','\060','\056',#'\060','\054','\056','\060','\060',#'\060','\056','\060','\056','\056',#'\060','\060','\060','\060','\060',#'\056','\056','\060','\056','\062',#'\060','\060','\060','\056','\056',#'\056','\056','\056','\056','\056',#'\056','\056','\056','\054','\056',#'\060','\054','\056','\056','\056',#'\060','\060','\056','\056','\056',#'\052','\056','\056','\054','\056',#'\054','\056','\056','\056','\054',#'\056','\060','\054','\056','\054',#'\054','\056','\060','\054','\056',#'\056','\054','\054','\056','\054',#'\054','\054','\056','\056','\054',#'\054','\054','\054','\054','\056',#'\056','\056','\056','\056','\056',#'\056','\054','\054','\052','\056',#'\054','\054','\056','\054','\054',#'\056','\054','\054','\054','\056',#'\056','\054','\054','\054','\052',#'\054','\054','\056','\056','\054',#'\054','\056','\054','\052','\056',#'\056','\056','\054','\054','\056',#'\052','\052','\054','\054','\056',#'\054','\054','\052','\054','\054',#'\052','\054','\054','\056','\054',#'\054','\052','\056','\054','\054',#'\054','\054','\054','\052','\052',#'\052','\054','\054','\054','\052',#'\052','\054','\056','\054','\054',#'\054','\054','\050','\050','\052',#'\054','\054','\052','\052','\054',#'\054','\054','\052','\056','\054',#'\054','\054','\054','\054','\054',#'\050','\050','\054','\052','\054',#'\050','\054','\054','\052','\052',#'\052','\052','\050','\054','\060',#'\060','\050','\056','\052','\054',#'\054','\050','\054','\054','\054',#'\052','\052','\054','\050','\052',#'\054','\052','\052','\050','\054',#'\052','\052','\050','\054','\052',#'\052','\054','\052','\052','\050',#'\054','\054','\050','\052','\050',#'\052','\052','\046','\052','\052',#'\052','\052','\054','\052','\052',#'\052','\052','\052','\052','\054',#'\050','\052','\050','\054','\054',#'\052','\056','\052','\054','\050',#'\052','\050','\050','\052','\050',#'\050','\054','\050','\050','\050',#'\050','\046','\050','\050','\052',#'\050','\054','\052','\052','\054',#'\050','\052','\054','\046','\052',#'\050','\052','\050','\052','\050',#'\050','\050','\050','\052','\050',#'\054','\052','\050','\046','\050',#'\052','\050','\052','\050','\052',#'\052','\050','\054','\052','\052',#'\054','\050','\046','\052','\050',#'\050','\050','\050','\050','\046',#'\050','\050','\046','\050','\052',#'\050','\046','\050','\052','\052',#'\050','\046','\052','\050','\052',#'\050','\050','\050','\050','\046',#'\050','\046','\050','\046','\050',#'\050','\050','\050','\046','\050',#'\050','\050','\050','\046','\050',#'\050','\050','\050','\052','\050',#'\052','\050','\052','\050','\046',#'\050','\050','\050','\046','\050',#'\052','\050','\050','\050','\050',#'\050','\046','\050','\050','\046',#'\060','\056','\046','\050','\050',#'\050','\046','\046','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\263','\150','\002','\000','\001',#'\000','\001','\000','\000','\000',#'\030','\024','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\000','\000','\000','\000',#'\000','\002','\001','\000','\203', '\002' };O/******************************************************************************C Call the DECMPINIT routine, pass the histogram so the huffman tree can be builtP*******************************************************************************/ main () { extern void decmpinit(); extern void decompress(); extern void swapit(); int i,k,ifail; swapit(hist); decmpinit(hist); ifail = 0; for (k=0; k<2; ++k) {5 decompress(lin_in,lin_out,&len_in,&len_out); for (i=0; i<836; ++i) {' if (lin_out[i] != lin_tst[i]) { ifail = 1;? printf("Error, decompression routines failed\n");: printf(" sample number: %d\n",i);C printf(" sample value should be: %d\n",lin_tst[i]);C printf(" output of decompressinon: %d\n",lin_out[i]); } } }C if (ifail == 0) printf("Decompression routines succeeded\n");@ if (ifail != 0) printf("Decompression routines failed\n"); } void swapit(longwords) long int *longwords; {N/*****************************************************************************MThis routine will swap bytes of the histogram integer long words for computerOhardware which stores long words in "most significant byte order first" order. GThis is necessary because the DECOMPRESSION routines will automatically/swap the byte order for this computer hardware.O******************************************************************************/ short int cnt; for (cnt=512; cnt--;) {9 unsigned char *cp = (unsigned char *) longwords; unsigned long int j; short int i;3 for (i=4; --i >= 0; j = (j<<8) | *(cp+i)); *longwords++ = j; } return; }