unit ECO_cfi; { cfi = compression file interface }
interface
uses
  dos

  ;

const
  cfismartmode : boolean = false; { niet verder zoeken na geen hit }
  cfisfx       : boolean = false; {       niet in exe & com kijken }

type
  cfityperecord = record
    cfiname      : string[67]; {filename only 12 chars!!!!!} {even meer !!}
    cfipath      : string[67]; {directory if used}
    cficrc       : longint;    {crc check}
    cfipsize     : longint;    {packed size file}
    cfiosize     : longint;    {original size file}
    cfitime      : longint;    {dos packed time}
    cfiattr      : byte;       {zip and lzh/lzs only}
    cfimethod    : word;       {soort compressie}
    cfiptotal    : longint;    {total packed size}
    cfiototal    : longint;    {total original size}
  end;
  str79          = string[79];
  str8           = string[8];


var
  cfierror          : boolean;
  cfifile           : file;                          { used by all routines }
  cfipos            : longint;               { position where info begins!! }
  cfifilename       : str79;
  cfitype           : cfityperecord;
  cfityp            : byte;                { type archive : zoo, arc, lzh etc }
  readcentralheader : boolean; { read also zip central header default false }



  procedure closecfi;
  function opencfifile(f : str79) : boolean;
  function cfinext : boolean;
  function dectohex(l: longint; cfityp: byte) : str8;