unit ECO_srch;
interface


  function blockpos(var buffer;size: word;s: string): integer;


type
  boyertable = record
    match       :              string;
    matchlength :                byte;
    table       : array[char] of byte
  end;

  procedure makeboyertable(matchstring: string;var table: boyertable);
  function boyermoore(
    var bufferaddr;size: word;start: word;var table: boyertable
  ): word;