program DicTest;

  USES  xCrt,
	LZTests,
	LZTypes,
	LZBase,
	LZDic;

  const
    bs:set of Byte=[];
    cInitialBuf='abcdabce abcd abceabcabcabcd     abcaabcdabce abceca ';
    cBuf:string[Length(cInitialBuf)]=cInitialBuf;

procedure WriteCode(const Codes:tLZCodesArray; n:tCodesIndex);
  var  i:tCodesIndex; c:tIndex;
begin
  i:=0;
  while i<n do begin
    c:=Codes.Code[i];
    case c of
      0: begin
	TextColor(Yellow);
	write('r(',Codes.Length[i],'), ');
	c:=Codes.Code[i];
	write(c,'(',Codes.Length[i],'), ');
	NormVideo;
	bs:=[];
      end;
      1: begin
	TextColor(LightBlue);
	write('i(',Codes.Length[i],'), ');
	Inc(i);
	c:=Codes.Code[i];
	write(c,'(',Codes.Length[i],'), ');
	NormVideo;
      end;
      2: begin
	TextColor(Yellow);
	write('n(',Codes.Length[i],'), ');
	Inc(i);
	c:=Codes.Code[i];
	write(c,'(',Codes.Length[i],'), ');
	if c in bs then
	  write('Error!');
	Include(bs,c);
	NormVideo;
      end;
      else write(c,'(',Codes.Length[i],'), ');
    end;
    Inc(i);
  end;
end;

var
  Dic:tLZDictionary;
  Codes:tLZCodesArray;
  n:tIndex;
  i:word;
  WorkBuffer:array[byte] of byte;

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

  for i:=1 to Length(cBuf) do begin
    n:=Dic.ByteToCodes(Ord(cBuf[i]),Codes);
    if n>High(tCodesIndex) then begin
       write('!',n);
       RunError(201);
    end;
    WriteCode(Codes,n);
  end;
{  for i:=Low(i) to 65000 do begin
    n:=Dic.ByteToCodes(random(255),Codes);
    if n>High(tCodesIndex) then begin
       write('!',n);
       RunError(201);
    end;
    WriteCode(Codes,n);
  end;}
  writeln;
  writeln;
  writeln('Initial Size:',Dic.InitialSizeInBytes);
  writeln('Compressed Size:',Dic.CompressedSizeInBytes);
  writeln('Free:',Dic.FreeSizeInNodes);
  writeln('CurrentMaxFragmentSize:',Dic.CurrentDictionaryMaxFragmentSize);
  writeln;
  Dic.WriteFragments(WorkBuffer,SizeOf(WorkBuffer));
  Dic.SeqCheck;
  Dic.Done;
  writeln('Program TestLZDictionary end.');
end.