[Back to ARCHIVES SWAG index]  [Back to Main SWAG index]  [Original]

{
Author: Steve Wierenga
LZH Viewer
}

Unit Lzhv;
(**) Interface (**)
Uses
  Dos,Crt;

Type
  FileheaderType = Record  { Lzh File header }
    Headsize,
    Headchk   : Byte;
    HeadID    : packed Array[1..5] of Char;
    Packsize,
    Origsize,
    Filetime  : LongInt;
    Attr      : Word;
    Filename  : String[12];
    f32       : PathStr;
    dt        : DateTime;
  end;

Var
  Fh         : FileheaderType;
  Fha        : Array[1..sizeof(FileheaderType)] of Byte Absolute fh;
  crc        : Word;   { CRC value }
  crcbuf     : Array[1..2] of Byte Absolute CRC;
  crc_table  : Array[0..255] of Word; { Table of CRC's }
  inFile     : File; { File to be processed }
  registered : Boolean; { Is registered? }

Procedure Make_crc_table; { Create table of CRC's }
Function  Mksum : Byte;     { Get CheckSum }
Procedure ViewLzh(LZHFile : String);  { View the File }
Function  GAN(LZHFile : String) : String;  { Get the LZH Filename }


(**) Implementation (**)
Procedure Terminate; { Exit the Program }
begin
  Write('ARCHPEEK could not find specified File. Aborting...');
  Halt;
end;

Procedure Make_crc_table;
Var
  i,
  index,
  ax    : Word;
  carry : Boolean;
begin
  index := 0;
  Repeat
    ax := index;
    For i := 1 to 8 do
    begin
      carry := odd(ax);
      ax := ax shr 1;
      if carry then
        ax := ax xor $A001;
    end;
    crc_table[index] := ax;
    inc(index);
  Until index > 255;
end;

{ use this to calculate the CRC value of the original File }
{ call this Function afer reading every Byte from the File }
Procedure calccrc(data : Byte);
Var
  index : Integer;
begin
  crcbuf[1] := crcbuf[1] xor data;
  index := crcbuf[1];
  crc := crc shr 8;
  crc := crc xor crc_table[index];
end;


Function Mksum : Byte;  {calculate check sum For File header }
Var
  i : Integer;
  b : Byte;
begin
  b := 0;
  For i := 3 to fh.headsize+2 do
    b := b+fha[i];
  mksum := b;
end;

Procedure viewlzh(LZHFile : String); { View the LZH File }
Var
  l1,l2,
  oldFilepos,
  a,b,a1,b1,
  totalorig,
  totalpack : LongInt;
  count,z   : Integer;
  numread,
  i, year1,
  month1,
  day1,
  hour1,
  min1,
  sec1      : Word;
  s1        : String[50];
  s2        : String[20];
  l         : String[80];
  sss       :  String;
begin
  registered  :=  False; { Unregistered }
  if not registered then { Registered? }
  begin
    Writeln('ArchPeek 0.01Alpha [UNREGISTERED] Copyright 1993 Steve Wierenga');
    Delay(200);
  end;
  assign(inFile,LZHFile);
  {$I-}
  reset(inFile,1);   { Open LZH File }
  {$I+}
  If IOResult <> 0 then
    Terminate;   { Specified File exists? }
  sss :=  GAN(LZHFile);  { Get Filename of LZH File }
  Writeln( 'Lzh FileName: ',sss);
  WriteLn( '    Name           Length      Size  Saved    Date      Time    ');
  WriteLn('__________________________________________________________');
  oldFilepos := 0;       { Init Variables }
  count := 1;
  z  := 0;
  a1 := 0;
  Repeat
    z  :=  z + 1;
    seek(inFile,oldFilepos);                              {
    Goto start of File}
    blockread(inFile,fha,sizeof(FileheaderType),numread); {
    Read Fileheader}
    oldFilepos := oldFilepos+fh.headsize+2+fh.packsize;   {
    Where are we? }
    i := Mksum; { Get the checksum }
    if fh.headsize <> 0 then
    begin
      if i <> fh.headchk then
      begin
        Writeln('Error in File. Unable to read.  Aborting...');
        Close(inFile);
        Exit;
      end;
      Case Length(Fh.FileName) Of          { Straigthen out String }
        1  : Fh.FileName  :=  Fh.FileName + '           ';
        2  : Fh.FileName  :=  Fh.FileName + '          ';
        3  : Fh.FileName  :=  Fh.FileName + '         ';
        4  : Fh.FileName  :=  Fh.FileName + '        ';
        5  : Fh.FileName  :=  Fh.FileName + '       ';
        6  : Fh.FileName  :=  Fh.FileName + '      ';
        7  : Fh.FileName  :=  Fh.FileName + '     ';
        8  : Fh.FileName  :=  Fh.FileName + '    ';
        9  : Fh.FileName  :=  Fh.FileName + '   ';
        10 : Fh.FileName  :=  Fh.FileName + '  ';
        11 : Fh.FileName  :=  Fh.FileName + ' ';
        12 : Fh.FileName  :=  Fh.FileName + '';
      end;
      UnPackTime(Fh.FileTime,Fh.DT);
      a1 := a1 + Fh.OrigSize;            { Increase Uncompressed Size }
      Write('       ', fh.Filename : 2, fh.origsize : 9, fh.packSize : 10,
                   (100 - fh.packSize / fh.origSize * 100) : 5 : 0, '%');
       { Display info }
      Case fh.dt.month of  { Get date and time }
        1..9   : Write( '0':4,fh.dt.month);
        10..12 : Write( ' ',fh.dt.month:4);
      end;
      Write( '/');
      Case fh.dt.day of
        1..9   : Write( '0',fh.dt.day);
        10..31 : Write( fh.dt.day);
      end;
      Write( '/');
      Case fh.dt.year of
        1980 : Write( '80');
        1981 : Write( '81');
        1982 : Write( '82');
        1983 : Write( '83');
        1984 : Write( '84');
        1985 : Write( '85');
        1986 : Write( '86');
        1987 : Write( '87');
        1988 : Write( '88');
        1989 : Write( '89');
        1990 : Write( '90');
        1991 : Write( '91');
        1992 : Write( '92');
        1993 : Write( '93');
        1994 : Write( '94');
        1995 : Write( '95');
        1996 : Write( '96');
      end;
      Case fh.dt.hour of
        0..9   : Write( '0':3,fh.dt.hour,':');
        10..23 : Write( ' ',fh.dt.hour:3,':');
      end;
      Case fh.dt.min of
        0..9   : Write( '0',fh.dt.min,':');
        10..59 : Write( fh.dt.min,':');
      end;
      Case fh.dt.sec of
        0..9   : Writeln( '0',fh.dt.sec);
        10..59 : Writeln( fh.dt.sec);
      end;
    end;
  Until   (fh.headsize=0);
  Writeln( '===========================================================');
  GetFTime(inFile,l1);
  UnPackTime(l1,fh.dt);
  Write( '  ', z, ' Files  ', a1 : 12, FileSize(inFile) : 10,
          (100 - FileSize(inFile) / a1 * 100) : 5 : 0, '%');
  Case fh.dt.month of
    1..9   : Write( '0':4,fh.dt.month);
    10..12 : Write( ' ',fh.dt.month:4);
  end;
  Write( '/');
  Case fh.dt.day of
    1..9   : Write( '0',fh.dt.day);
    10..31 : Write( fh.dt.day);
  end;
  Write( '/');
  Case fh.dt.year of
    1980 : Write( '80');
    1981 : Write( '81');
    1982 : Write( '82');
    1983 : Write( '83');
    1984 : Write( '84');
    1985 : Write( '85');
    1986 : Write( '86');
    1987 : Write( '87');
    1988 : Write( '88');
    1989 : Write( '89');
    1990 : Write( '90');
    1991 : Write( '91');
    1992 : Write( '92');
    1993 : Write( '93');
    1994 : Write( '94');
    1995 : Write( '95');
    1996 : Write( '96');
  end;
  Case fh.dt.hour of
    0..9   : Write( '0':3,fh.dt.hour,':');
    10..23 : Write( ' ',fh.dt.hour:3,':');
  end;
  Case fh.dt.min of
    0..9   : Write( '0',fh.dt.min,':');
    10..59 : Write( fh.dt.min,':');
  end;
  Case fh.dt.sec of
    0..9   : Writeln( '0',fh.dt.sec);
    10..59 : Writeln( fh.dt.sec);
  end;
end;

Function GAN(LZHFile : String): String;
Var
  Dir  : DirStr;
  Name : NameStr;
  Exts : ExtStr;
begin
  FSplit(LZHFile,Dir,Name,Exts);
  GAN := Name + Exts;
end;


end.


[Back to ARCHIVES SWAG index]  [Back to Main SWAG index]  [Original]