blob: cc3eef8f8cecfffe658cca23cea2b5c0c2b9244f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
|
/*
* Uncompress program this is very very fast
*
*/
#include <sys/types.h>
#include <sys/stat.h>
#include <fcntl.h>
#include <stdio.h>
#include <malloc.h>
#define MAXLEN 255
#define maxno 61000U
#define USE_BSS
#ifdef USE_BSS
unsigned char fptr[maxno];
#else
unsigned char *fptr;
#endif
FILE * fd;
int key;
main(argc, argv)
int argc;
char ** argv;
{
#ifndef USE_BSS
fptr = (unsigned char * ) malloc(maxno);
if( fptr == 0 )
{
perror("Cannot allocate memory");
exit(1);
}
#endif
if( argc < 2 )
{
fd = stdin;
key = getc(fd);
uncompress();
}
else
{
fd = fopen(argv[1], "r" );
if( fd == 0 ) { perror("Open failed"); exit(1); }
key = getc(fd);
uncompress();
}
}
/*
Uncompression routine -- v.v.fast
*/
uncompress()
{
register unsigned char * mainscan;
register unsigned char * secondscan;
register unsigned char * ptr = (unsigned char * ) fptr;
register unsigned char * eptr = ptr+maxno;
register unsigned int len;
register int ch;
mainscan = ptr;
for(;;)
{
ch = getc(fd);
if(ch == EOF) break;
ch &= 0xFF;
if(ch == key)
{
ch = getc(fd);
if( ch == 0 )
*mainscan++ = key;
else
{
len = (unsigned char) getc(fd);
if( ch & 0x80 )
len += ((unsigned char) getc(fd)) << 8;
secondscan = mainscan - len;
if(len > mainscan - ptr) secondscan += maxno;
len = (unsigned char) ch & 0x7F;
for( ; len>0; len-- )
{
*mainscan++ = *secondscan++;
if( secondscan == eptr ) secondscan = ptr;
if( mainscan == eptr )
{ write(1, ptr, (int)(mainscan-ptr)); mainscan = ptr; }
}
}
}
else
*mainscan++ = ch;
if( mainscan == eptr )
{ write(1, ptr, (int)(mainscan-ptr)); mainscan = ptr; }
}
if( mainscan != ptr )
{ write(1, ptr, (int)(mainscan-ptr)); mainscan = ptr; }
}
|