program CodecTest;

  USES  {xCrt,}
	ComTypes,
	LZTests,
	LZTypes,
	LZBase,
	LZDic,
	LZCodec,
	LZFile;

var
  Dic:tLZCodec;

const
  cInitialBuf='abcdabce abcd abceabcabcabcd     abcaabcdabce abceca ';

type
  tBIndex=0..Pred(Length(cInitialBuf));
  tB=array[tBIndex] of char;
  tPB=^tB;

  tBufIndex=0..(High(word)-100);
  tBuff=array[tBufIndex] of char;
  tPBuff=^tBuff;

var
  nc:tBufferIndex;
  i,j:word;
  EncodedBuf,InitialBuf,DecodedBuf:tPBuff;
  eds,es,EncodedBufSize,
  EncodedSize,EncodedDataSize,DecodedDataSize,OutSize:tBufferIndex;
  ibI:tBufIndex;
  b:byte;
  eq:BOOLEAN;
  f:file;

begin
  writeln;
  writeln('Program Test LZCodec start...');
  writeln;
  Dic.Init(Dic.SizeInNodesMax);
  Randomize;

  New(InitialBuf);
  New(EncodedBuf);
  New(DecodedBuf);

  { заполняем буфера }
  for ibI:=Low(ibI) to High(ibI) do begin
    b:=random(High(b));
    InitialBuf^[ibI]:=Chr(b);
    DecodedBuf^[ibI]:=#0;
    EncodedBuf^[ibI]:=#0;
  end;

  { обеспечиваем наличие повторяющихся фрагментов }
  tPB(InitialBuf)^:=cInitialBuf;
  for ibI:=Low(ibI) to (High(ibI) div (Length(cInitialBuf)+10)) do begin
    tPB(@InitialBuf^[ibI*(Length(cInitialBuf)+10)])^:=cInitialBuf;
  end;

  writeln('Кодируем: ');
  Dic.EncodeReset;
  EncodedBufSize:=60000;
  { кодирование буфера }
  Dic.Encode(InitialBuf^,60000 {SizeOf(InitialBuf^),} {Length(cInitialBuf)},
	     EncodedSize,
	     EncodedBuf^,EncodedBufSize,
	     EncodedDataSize);
  if EncodedDataSize<EncodedBufSize then begin
    { запись остатка кода (<8 бит) в буфер }
    Dic.Encode(InitialBuf^,0,es,
	       EncodedBuf^[EncodedDataSize],(EncodedBufSize-EncodedDataSize),eds);
    Inc(EncodedDataSize,eds);
  end;
  Assign(f,'Initial.dat');
  Rewrite(f,1);
  BlockWrite(f,InitialBuf^,EncodedSize);
  Close(f);
  Assign(f,'Encoded.dat');
  Rewrite(f,1);
  BlockWrite(f,EncodedBuf^, EncodedDataSize);
  Close(f);

  writeln;
  writeln('Закодир., байт: ',EncodedSize,' (',Dic.InitialSizeInBytes,'), ',
	  'упак.размер: ',EncodedDataSize,' (',Dic.CompressedSizeInBytes,')');
  writeln('Словарь, узлов: ',Dic.SizeInNodes-Dic.FreeSizeInNodes,
	  ', cвободно: ',Dic.FreeSizeInNodes);
  writeln('Макс. длина фрагмента послед. словаря, байт: ',Dic.CurrentDictionaryMaxFragmentSize);
  writeln('Макс. длина фрагмента сессии, байт: ',Dic.CurrentSessionMaxFragmentSize);
  writeln('Число сбросов словаря, раз: ',Dic.DictionaryResetCount);
  writeln;

{  Dic.WriteFragments(DecodedBuf^,SizeOf(DecodedBuf^));}
  {$IfDef Debug}
  Dic.SeqCheck;
  {$EndIf}

  writeln('Декодируем: ');
  Dic.DecodeReset;
  Dic.Decode(EncodedBuf^,EncodedDataSize,
	     DecodedDataSize,
	     DecodedBuf^,60000,
	     OutSize);
  Assign(f,'Decoded.dat');
  Rewrite(f,1);
  BlockWrite(f,DecodedBuf^, OutSize);
  Close(f);

  writeln;
  writeln('Декодировано, байт: ',DecodedDataSize);
  writeln('Словарь, узлов: ',Dic.SizeInNodes-Dic.FreeSizeInNodes,
	  ', cвободно: ',Dic.FreeSizeInNodes);
  writeln('Макс. длина фрагмента послед. словаря, байт: ',Dic.CurrentDictionaryMaxFragmentSize);
  writeln('Макс. длина фрагмента сессии, байт: ',Dic.CurrentSessionMaxFragmentSize);
  writeln('Число сбросов словаря, раз: ',Dic.DictionaryResetCount);
  writeln;
  writeln;

  write('Проверяем: ');
  eq:=TRUE or (OutSize=EncodedSize);
  if eq then
    for j:=0 to Pred(OutSize) do begin
      eq:=(DecodedBuf^[j]=InitialBuf^[j]);
      if not eq then begin
	break;
      end;
    end;

  if eq then writeln('правильно.') else writeln(^G'НЕправильно на позиции: ',j,^G);

  Dic.Done;
  writeln;
  writeln('Program TestLZDictionary end.');
end.