unit ECO_fil;
interface
uses
  dos,      unit_str,
  unit_sup, unit_fil,
  ECO_ext,  ECO_str


  ;


type
  searchrecord = record
    attr   :       byte;
    time   :    longint;
    size   :    longint;
    name   : string[12];
   {fill   : array[1..21] of byte; we don't need that!}
  end;


const
  only = $40; notnone = $80;


var
  _dosdrv        : integer;
  _dosdrvchar    :    char;
  _doscurpath    : pathstr;
  _dosdiscfree,
  _dosdiscsize   : longint;



  { extended file supplement }
  function  __attrfilter(fileattr, filter: byte): boolean;
  function  __comexebatfilter(s: namestr): boolean;
  function  __curdir: string;
  function  __delvlfil(drive: char) : boolean;
  function  __deverr: string;
  procedure __drvparm(drv: char);
  procedure __erasefiles(s: string);
  function  __existpath(s: string): boolean;
  function  __extractext(name: pathstr): str3;
  function  __extractname(s : string): string;
  function  __extractpath(s : string): string;
  function  __findfil(f: string; var s: string): boolean;
  function  __inparams(s: string): boolean;
  function  __packfil(str: string; size: byte): string;
  procedure __parsefil(name: filestr; var nam: namestr; var ext: extstr);
  function  __retdfil(drive: char) : byte;
  function  __reteqfil(drv: char; var errorcode: byte): char;
  function  __searchrec(
    src                  : searchrec;
    nm, woord, mainsize  :      word;
    takemainsize, extended,
    ampm, show_attr,
    wide                 :   boolean
  ): string;
  procedure __srec2srec(s: searchrec; var s2: searchrecord);
  function  __seteqfil(drv: char; var errorcode: byte): char;
  function  __sizefil(pt: string): longint;
  procedure __speedfil;
  function  __strattr(attr: byte): string;