//
// _RC.CPP
//
//  Source file for ArchiveLib 2.0
//
//  Copyright (c) Greenleaf Software, Inc. 1994-1996
//  All Rights Reserved
//
// CONTENTS
//
//  All shrouded.
//
// REVISION HISTORY
//
//  May 26, 1994  1.0A   : First release
//
//  July 7, 1994  1.0B   : A few changes to support UNIX.  Can't really say
//                         what they are, sorry!
//
//  August 10, 1994 1.0B : Added support for the incompressible option.
//                         This means keeping track of the number of bytes
//                         that I have written, and checking to make sure that
//                         it never exceeds the size of my input file.  If
//                         it does, I flag the file as incompressible, and
//                         return asap.
//
//  January 1, 1995 1.01A : Borland C++ 4.5 generates an error if you
//                          include malloc.h and have -O2 turned on.
//                          The little #ifdef that turns off __BCOPT__
//                          gets rid of the error without causing
//                          any other damage.
//
//   February 14, 1996  2.0A : New release w/no substantial changes
//

#include "arclib.h"
#if !defined( AL_IBM )
#pragma hdrstop
#endif

#include "_r.h"

#ifdef AL_SYMANTEC
#include <stdlib.h>
#else

#if defined( AL_BORLAND )
#if defined( __BCOPT__ )
#undef __BCOPT__
#endif
#endif

#include <malloc.h>
#endif
#define _519 "Incorrect compression level parameter passed to compressor.  Compression level = %d"
#define _520 "Memory allocation failure in compression startup"
#define _445(_200,_446)((short )((_446<<_154)^(_278[_200+2]))&(_153-1))
#define _447(_200,_201){short _204;if((_204=_163[_201])!=_157)_164[_204]=\
_200;_164[_200]=_201;_163[_200]=_204;_163[_201]=_200;}
#define _448(s){short _204;if((_204=_164[s])!=_157){_164[s]=_157;_163[_204]\
=_157;}}
RCompress::RCompress(ALStorage&_266, ALStorage&_267, int _269, int _235)
{ _161=&_266; _162=&_267; _531=_235; if(_269>_137||_269<_138){
mStatus.SetError(AL_ILLEGAL_PARAMETER,_519,_269-10); _175=2; }else
_175=(short )(1<<_269); _176=(short )(_175-1); if((_166=new uchar
[_175+_140+2])!=0) memset(_166,0,(_175+_140+2)*sizeof(uchar ));
#if defined(AL_LARGE_DATA)||defined(AL_FLAT_MODEL)||defined(AL_UNIX)
if((_163=new short [_175+_153])!=0)
memset(_163,0,(_175+_153)*sizeof(short )); if((_164=new short
[_175])!=0) memset(_164,0,_175*sizeof(short )); _165=new uchar [_155];
#else
_163=(short _far*)_fcalloc(_175+_153,sizeof(short )); _164=(short
_far*)_fcalloc(_175,sizeof(short )); _165=(uchar
_far*)_fcalloc(_155,sizeof(uchar ));
#endif
_179=new uchar [_156];
if((_189=new ushort [2*_141-1])!=0)
memset(_189,0,(2*_141-1)*sizeof(ushort )); if((_190=new ushort
[2*_141-1])!=0) memset(_190,0,(2*_141-1)*sizeof(ushort )); if((_177=new
short [_141+1])!=0) memset(_177,0,(_141+1)*sizeof(short )); _180=new
uchar [_141]; if((_191=new ushort [2*_141-1])!=0)
memset(_191,0,(2*_141-1)*sizeof(ushort )); if((_192=new ushort
[_141])!=0) memset(_192,0,_141*sizeof(ushort )); _181=new uchar [_152];
if((_193=new ushort [2*_142-1])!=0)
memset(_193,0,(2*_142-1)*sizeof(ushort )); if((_194=new ushort
[_152])!=0) memset(_194,0,_152*sizeof(ushort )); if(!_166|| !_163||
!_164|| !_165|| !_179|| !_189|| !_190|| !_177|| !_180|| !_191|| !_192||
!_181|| !_193|| !_194){ mStatus.SetError(AL_CANT_ALLOCATE_MEMORY,_520);
} _533=0; _534=_266.GetSize(); } RCompress::~RCompress() { if(_166)
delete[]_166;
#if defined(AL_LARGE_DATA)||defined(AL_FLAT_MODEL)||defined(AL_UNIX)
if(_163) delete[]_163; if(_164) delete[]_164; if(_165) delete[]_165;
#else
_ffree(_163); _ffree(_164); _ffree(_165);
#endif
if(_179)
delete[]_179; if(_189) delete[]_189; if(_190) delete[]_190; if(_177)
delete[]_177; if(_180) delete[]_180; if(_191) delete[]_191; if(_192)
delete[]_192; if(_181) delete[]_181; if(_193) delete[]_193; if(_194)
delete[]_194; }inline void RCompress::_223(short _203) {
_208(_180[_203],_192[_203]); }int RCompress::Compress() { short _209;
short _201; short _200; short s; int _231; uchar *_278; short _280;
short _279; _278=_166; _280=_176; _279=_175; _231=0; _196();
_198();_200=0; _209=(short )_161->ReadBuffer(_278,_279); s=(short
)(_209&_280); _169=0; _168=0; _201=(short
)(((_278[_200]<<_154)^(_278[_200+1]))&(_153-1)); _201=(short
)(_445(_200,_201)+_279); while(_209>_140+4&&!_170){ _199(_200,_201);
if(_168<_135){ _202(_278[_200],0); _447(_200,_201); _200++; _201=(short
)(_445(_200,_201)+_279); _209--; }else { _209-=_168; _202((ushort
)(_168+(UCHAR_MAX+1-_135)),_169); while(--_168>=0){ _447(_200,_201);
_200++; _201=(short )(_445(_200,_201)+_279); } } }
for(;_209<_140;_209++){ int _203=_161->ReadChar (); if(_203<0) break;
_278[s]=(unsigned char )_203; if(s<_140-1) _278[s+_279]=_278[s];
_448(s); s=(short )((s+1)&(_280)); } while(_209>0&&!_170){
_199(_200,_201); if(_168>_209) _168=_209; if(_168<_135){ _168=1;
_202(_278[_200],0); }else _202((ushort )(_168+(UCHAR_MAX+1-_135)),
_169); while(--_168>=0){ int _203=_161->ReadChar (); if(_203<0) break;
else _278[s]=(unsigned char )_203; if(s<_140-1) _278[s+_279]=_278[s];
_448(s); s=(short )((s+1)&(_280)); _447(_200,_201); _200=(short
)((_200+1)&(_280)); _201=(short )(_445(_200,_201)+_279); }
while(_168-->=0){ _447(_200,_201); _200=(short )((_200+1)&_280);
_201=(short )(_445(_200,_201)+_279); _209--; } if(_162->mStatus<0)
return 1; } if(!_170) _202(_144+(UCHAR_MAX+1-_135),0); _197(); if(_170)
_231=1; return _231; } void RCompress::_196() { int _226;
for(_226=0;_226<_141;_226++) _191[_226]=0; for(_226=0;_226<_142;_226++)
_193[_226]=0; _173=0; _205(); _170=0; _185=1; _184=0; _186=0; _165[0]=0;
_183=_155; _183-=(ushort )((3*CHAR_BIT)+6); } void RCompress::_197() {
if(!_170) _207(); _206(); _183=0; _184=0; } void RCompress::_198() {
#if defined(AL_FLAT_MODEL)||defined(AL_UNIX)
register short *_450;
#else
register short _far*_450;
#endif
register short _226; _450=&_163[_175];
for(_226=_153;_226>0;_226--) *_450++=_157; _450=_164;
for(_226=_175;_226>0;_226--) *_450++=_157; } void RCompress::_199(short
_200,short _201) { register uchar *_451; register uchar *_278; short
_226,_452,_204,_453; _452=_158; _168=0; _451=&_166[_200]; _204=_201;
while((_204=_163[_204])!=_157){ if(--_452<0) break; _278=&_166[_204];
if(_451[_168]!=_278[_168]) continue; if(_451[0]!=_278[0]) continue;
if(_451[1]!=_278[1]) continue; if(_451[2]!=_278[2]) continue;
for(_226=3;_226<_140;_226++) if(_451[_226]!=_278[_226]) break;
if(_226>_168){ _453=(short )(_200-_204-1); if(_453<0) _453+=_175;
if(_453>=_175){ break; } _169=_453; if((_168=_226)>=_140) break; } } }
void RCompress::_202(ushort _203,ushort _204) { if((_185>>=1)==0){
_185=1U<<(CHAR_BIT-1); if(_184>=_183){ _207(); if(_170) return ;
_184=0; } _186=_184++; _165[_186]=0; } _165[_184++]=(uchar )_203;
_191[_203]++; if(_203>=(1U<<CHAR_BIT)){ _165[_186]|=(uchar )_185;
_165[_184++]=(uchar )_204; _165[_184++]=(uchar )(_204>>CHAR_BIT);
_203=0; while(_204){ _203++; _204>>=1; } _193[_203]++; } } void
RCompress::_205() { _172=0; _182=0; _171=0; } void RCompress::_206() {
if(!_170){ _208(CHAR_BIT-1,0); if(_171) _210(); } _171=0; } void
RCompress::_207() { uint _226,_289,_229,_454,_455; uint _456=0; ushort
_217[2*_145-1]; _229=_211(_141,_191,_180,_192); _455=_191[_229];
_208(16,(ushort )_455); if(_229>=_141){ _216(_217);
_229=_211(_145,_217,_181,_194); if(_229>=_145){ _218(_145,_147,3); }else
{ _208(_147,0); _208(_147,(ushort )_229); } _222(); }else {
_208(_147,0); _208(_147,0); _208(_143,0); _208(_143,(ushort )_229); }
_229=_211(_142,_193,_181,_194); if(_229>=_142){ _218(_142,_540,-1);
}else { _208(_540,0); _208(_540,(ushort )_229); } _454=0;
for(_226=0;_226<_455;_226++){ if(_226%CHAR_BIT==0) _456=_165[_454++];
else _456<<=1; if(_456&(1U<<(CHAR_BIT-1))){ _223((short
)(_165[_454++]+(1U<<CHAR_BIT))); _289=_165[_454++];
_289+=_165[_454++]<<CHAR_BIT; _224((short )_289); }else
_223(_165[_454++]); if(_170) return ; } for(_226=0;_226<_141;_226++)
_191[_226]=0; for(_226=0;_226<_142;_226++) _193[_226]=0; } void
RCompress::_208(int _209,ushort _203) { _203<<=_133-_209; _182|=(ushort
)(_203>>_172); if((_172+=(short )_209)>=8){ if(_171>=_156) _210();
_179[_171++]=(uchar )(_182>>CHAR_BIT); if((_172=(ushort )(_172-
CHAR_BIT))<CHAR_BIT) _182<<=CHAR_BIT; else { if(_171>=_156) _210();
_179[_171++]=(uchar )_182; _172=(ushort )(_172-CHAR_BIT); _182=(ushort
)(_203<<(_209-_172)); } } } void RCompress::_210() { if(_171<=0) return
; if(_531&&(_533+=_171)>=_534) _170=1; else
_162->WriteBuffer(_179,_171); _171=0; } int RCompress::_211(int _212,
ushort *_213, uchar *_214, ushort *_215) { int _226,_276,_289,_292;
short _227; _174=(short )_212; _187=_213; _178=_214; _292=_174; _227=0;
_177[1]=0; for(_226=0;_226<_174;_226++){ _178[_226]=0; if(_187[_226])
_177[++_227]=(short )_226; } if(_227<2){ _215[_177[1]]=0; return
_177[1]; } for(_226=_227/2;_226>=1;_226--) _225(_226,_187,_177,_227);
_188=_215; do{ _226=_177[1]; if(_226<_174) *_188++=(ushort )_226;
_177[1]=_177[_227--]; _225(1,_187,_177,_227); _276=_177[1];
if(_276<_174) *_188++=(ushort )_276; _289=_292++; _187[_289]=(ushort
)(_187[_226]+_187[_276]); _177[1]=(short )_289; _225(1,_187,_177,_227);
_189[_289]=(ushort )_226; _190[_289]=(ushort )_276; }while(_227>1);
_188=_215; _228(_289); _230(_212,_214,_215); return _289; } void
RCompress::_216(ushort *_217) { short _226,_289,_219,_277;
for(_226=0;_226<_145;_226++) _217[_226]=0; _219=_141;
while(_219>0&&_180[_219-1]==0) _219--; _226=0; while(_226<_219){
_289=_180[_226++]; if(_289==0){ _277=1; while(_226<_219&&_180[_226]==0){
_226++; _277++; } if(_277<=2) _217[0]+=_277; else if(_277<=18)
_217[1]++; else if(_277==19){ _217[0]++; _217[1]++; }else _217[2]++;
}else _217[_289+2]++; } } void RCompress::_218(short _219,short
_220,short _221) { short _226,_289; while(_219>0&&_181[_219-1]==0)
_219--; _208(_220,_219); _226=0; while(_226<_219){ _289=_181[_226++];
if(_289<=6){ _208(3,_289); }else _208(_289-3,(ushort )(USHRT_MAX<<1));
if(_226==_221){ while(_226<6&&_181[_226]==0) _226++; _208(2,(ushort
)(_226-3)); } } } void RCompress::_222() { short _226,_289,_219,_277;
_219=_141; while(_219>0&&_180[_219-1]==0) _219--; _208(_143,_219);
_226=0; while(_226<_219){ _289=_180[_226++]; if(_289==0){ _277=1;
while(_226<_219&&_180[_226]==0){ _226++; _277++; } if(_277<=2){
for(_289=0;_289<_277;_289++) _208(_181[0],_194[0]); }else if(_277<=18){
_208(_181[1],_194[1]); _208(4,(ushort )(_277-3)); }else if(_277==19){
_208(_181[0],_194[0]); _208(_181[1],_194[1]); _208(4,15); }else {
_208(_181[2],_194[2]); _208(_143,(ushort )(_277-20)); } }else
_208(_181[_289+2],_194[_289+2]); } } void RCompress::_224(ushort _204) {
ushort _203,_457; _203=0; _457=_204; while(_457){ _203++; _457>>=1; }
_208(_181[_203],_194[_203]); if(_203>1) _208(_203-1,_204); } void
RCompress::_225(int _226,ushort *_187,short *_177,short _227) { int
_276,_289; _289=_177[_226]; while((_276=2*_226)<=_227){
if(_276<_227&&_187[_177[_276]]>_187[_177[_276+1]]) _276++;
if(_187[_289]<=_187[_177[_276]]) break; _177[_226]=_177[_276];
_226=_276; } _177[_226]=(ushort )_289; } void RCompress::_228(int _229)
{ int _226,_289; uint _458; for(_226=0;_226<=16;_226++) _167[_226]=0;
_232(_229); _458=0; for(_226=16;_226>0;_226--)
_458+=_167[_226]<<(16-_226); while(_458!=(1U<<16)){ _167[16]--;
for(_226=15;_226>0;_226--){ if(_167[_226]!=0){ _167[_226]--;
_167[_226+1]=(ushort )(_167[_226+1]+2); break; } } _458--; }
for(_226=16;_226>0;_226--){ _289=_167[_226]; while(--_289>=0)
_178[*_188++]=(uchar )_226; } } void RCompress::_230(int _219,uchar
*_209,ushort *_231) { int _226; ushort _288[18]; _288[1]=0;
for(_226=1;_226<=16;_226++) _288[_226+1]=(ushort
)((_288[_226]+_167[_226])<<1); for(_226=0;_226<_219;_226++)
_231[_226]=_288[_209[_226]]++; } void RCompress::_232(int _226) {
if(_226<_174) _167[(_173<16)?_173:16]++; else { _173++;
_232(_189[_226]); _232(_190[_226]); _173--; } }