//
// _RE.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
//
//  August 10, 1994 1.0B : Had a bug in BCC32.EXE code generation.  Fixed
//                         with a pragma that disables optimization.  Check
//                         out BUG007.TXT in DOCS for details.
//
//  January 1, 1994 1.0B : BC++ 4.5 reported that a local variable
//                         in RExpand::Expand() wasn't being used, so
//                         I deleted it.
//
//   February 14, 1996  2.0A : New release w/no significant changes

#include "arclib.h"
#if !defined( AL_IBM )
#pragma hdrstop
#endif
#include "_r.h"
#define _519 "Incorrect compression level parameter passed to compressor.  Compression level = %d"
#define _520 "Memory allocation failure in expansion startup"
#define _521 "Internal 1 error in Greenleaf Decompression routine"
#define _522 "Internal 2 error in Greenleaf Decompression routine"

RExpand::RExpand(ALStorage&_266, ALStorage&_267, long _268, int _269) {
_161=&_266; _162=&_267; _248=_268;; if(_269>_137||_269<_138){
mStatus.SetError(AL_ILLEGAL_PARAMETER, _519, _269-10); _175=2; }else
_175=(short )(1<<_269); _176=(short )(_175-1); _166=new uchar [_175+2];
if(_166) memset(_166,0,(_175+2)*sizeof(uchar )); _240=new ushort [_148];
if(_240) memset(_240,0,_148*sizeof(ushort )); _241=new ushort [_149];
if(_241) memset(_241,0,_149*sizeof(ushort )); _242=new uchar [_159];
if(_242) memset(_242,0,_159*sizeof(uchar )); _189=new ushort [2*_141-1];
if(_189) memset(_189,0,(2*_141-1)*sizeof(ushort )); _190=new ushort
[2*_141-1]; if(_190) memset(_190,0,(2*_141-1)*sizeof(ushort )); _180=new
uchar [_141]; _181=new uchar [_152]; if(!_166|| !_240|| !_241|| !_242||
!_189|| !_190|| !_180|| !_181){
mStatus.SetError(AL_CANT_ALLOCATE_MEMORY,_520); } } RExpand::~RExpand()
{ if(_166) delete[]_166; if(_240) delete[]_240; if(_241) delete[]_241;
if(_242) delete[]_242; if(_189) delete[]_189; if(_190) delete[]_190;
if(_180) delete[]_180; if(_181) delete[]_181; } int RExpand::Expand() {
int _231; short _226; short _276; short _203; short _200;
uchar *_278; short _279; short _280; _278=_166; _279=_175; _280=_176;
_231=0; _243=0; _251(); _200=0; while(_243<5){
if((_203=_249())<=UCHAR_MAX){ _278[_200]=(uchar )_203;
if(++_200>=_279){ _200=0; if((short )_162->WriteBuffer(_278,_279)!=_279)
goto _282; } }else { _276=(short )(_203-(UCHAR_MAX+1-_135));
if(_276==_144) break; _226=(short )((_200-_250()-1)&_280);
if(_226<_279-_140-1&&_200<_279-_140-1){ while(--_276>=0)
_278[_200++]=_278[_226++]; }else { while(--_276>=0){
_278[_200]=_278[_226]; if(++_200>=_279){ _200=0; if((short
)_162->WriteBuffer(_278,_279)!=_279) goto _282; } _226=(short
)((_226+1)&_280); } } } } if(_200!=0) _162->WriteBuffer(_278,_200);
_282: return _231; } ushort RExpand::_249() { ushort _276,_283;
if(_244==0){ _244=_252(16); _253(_145,_147,3); _255();
_253(_142,_540,-1); if(mStatus<0) return 0; } _244--;
_276=_240[_182>>4]; if(_276>=_141){ _283=1U<<3; do{ if(_182&_283)
_276=_190[_276]; else _276=_189[_276]; _283>>=1; }while(_276>=_141); }
_256(_180[_276]); return _276; } ushort RExpand::_250() { ushort
_276,_283; _276=_241[_182>>8]; if(_276>=_142){ _283=1U<<7; do{
if(_182&_283) _276=_190[_276]; else _276=_189[_276]; _283>>=1;
}while(_276>=_142); } _256(_181[_276]); if(_276!=0){ _276--; _276=(short
)((1U<<_276)+_252(_276)); } return _276; } void RExpand::_251() {
_244=0; _257(); } ushort RExpand::_252(int _219) { ushort _284;
_284=(ushort )(_182>>(2*CHAR_BIT-_219)); _256(_219); return _284; } void
RExpand::_253(short _254,short _220,short _221) { short _226,_203,_219;
ushort _283; _219=_252(_220); if(_219==0){ _203=_252(_220);
for(_226=0;_226<_254;_226++) _181[_226]=0; for(_226=0;_226<256;_226++)
_241[_226]=_203; }else { _226=0; while(_226<_219){ _203=(short
)(_182>>13); if(_203==7){ _283=1U<<12; while(_283&_182){ _283>>=1;
_203++; } } _256((_203<7)?3:_203-3); _181[_226++]=(uchar )_203;
if(_226==_221){ _203=_252(2); while(--_203>=0) _181[_226++]=0; } }
while(_226<_254) _181[_226++]=0; _258(_254,_181,8,_241,_149); } } void
RExpand::_255() { short _226,_203,_219; ushort _283; _219=_252(_143);
if(_219==0){ _203=_252(_143); for(_226=0;_226<_141;_226++) _180[_226]=0;
for(_226=0;_226<_148;_226++) _240[_226]=_203; }else { _226=0;
while(_226<_219){ _203=_241[_182>>8]; if(_203>=_145){ _283=1U<<7; do{
if(_182&_283) _203=_190[_203]; else _203=_189[_203]; _283>>=1;
}while(_203>=_145); } _256(_181[_203]); if(_203<=2){ if(_203==0) _203=1;
else if(_203==1) _203=(short )(_252(4)+3); else _203=(short
)(_252(_143)+20); while(--_203>=0) _180[_226++]=0; }else
_180[_226++]=(uchar )(_203-2); } while(_226<_141) _180[_226++]=0;
_258(_141,_180,12,_240,_148); } } void RExpand::_256(int _219) {
while(_219>_172){ _219-=_172; _182=(ushort
)((_182<<_172)+(_245>>(CHAR_BIT-_172))); if(_246<=0){ _247=_242;
if(_248>=0&&_248<_159){ _246=(short
)_161->ReadBuffer(_242,(size_t)_248); _248-=_246; }else _246=(short
)_161->ReadBuffer(_242,_159); if(_246<=0) _243++; } _245=*_247++;
_246--; _172=CHAR_BIT; } _172=(short )(_172-_219); _182=(ushort
)((_182<<_219)+(_245>>(CHAR_BIT-_219))); _245<<=_219; } void
RExpand::_257() { _182=0; _245=0; _172=0; _246=0; _256(2*CHAR_BIT); }
#if defined(AL_BORLAND)&&defined(AL_FLAT_MODEL)
#pragma option -Od
#endif
void RExpand::_258(int _259, uchar *_260, int _261, ushort *_262, ushort
_263) { ushort _277[17],_287[17],_288[18],*_204; uint
_226,_289,_209,_290,_291,_292,_293,_283; for(_226=1;_226<=16;_226++)
_277[_226]=0; for(_226=0;(int )_226<_259;_226++) _277[_260[_226]]++;
_288[1]=0; for(_226=1;_226<=16;_226++) _288[_226+1]=(ushort
)(_288[_226]+(_277[_226]<<(16-_226))); if(_288[17]!=(ushort )(1U<<16)){
mStatus.SetError(AL_INTERNAL_ERROR,_521); _243=10; return ; }
_291=16-_261; for(_226=1;(int )_226<=_261;_226++){ _288[_226]>>=_291;
_287[_226]=(ushort )(1U<<(_261-_226)); } while(_226<=16){
_287[_226]=(ushort )(1U<<(16-_226)); _226++; } _226=_288[_261+1]>>_291;
if(_226!=(ushort )(1U<<16)){ _289=1U<<_261; while(_226!=_289)
_262[_226++]=0; } _292=_259; _283=1U<<(15-_261); for(_290=0;(int
)_290<_259;_290++){ if((_209=_260[_290])==0) continue;
_293=_288[_209]+_287[_209]; if((int )_209<=_261){ if(_293>_263){
mStatus.SetError(AL_INTERNAL_ERROR,_522); _243=10; return ; }
for(_226=_288[_209];_226<_293;_226++) _262[_226]=(ushort )_290; }else {
_289=_288[_209]; _204=&_262[_289>>_291]; _226=_209-_261; while(_226!=0){
if(*_204==0){ _190[_292]=_189[_292]=0; *_204=(ushort )_292++; }
if(_289&_283) _204=&_190[*_204]; else _204=&_189[*_204]; _289<<=1;
_226--; } *_204=(ushort )_290; } _288[_209]=(ushort )_293; } }