Ticket #9: DATVERGL.PAS

uses dos,crt;

const size=32768;
      digits:array[0..$F] of char =('0','1','2','3','4','5','6','7',
                                    '8','9','A','B','C','D','E','F');

type pdata=array[0..size] of byte;

var d1,d2:^pdata;
    f1,f2:file;
    f3:text;
    gel1,gel2,work:word;
    focnt,todo,done,diffs,i:longint;
    follo:boolean;


function strx(wert:longint;len:byte):string;
var  s:string;
begin

  str(wert,s);

  while s[0]<chr(len) do s:=' '+s;

  strx:=s;

end;


function w2x(x:word):string;
var i:word;
    s:string[7];
begin

  i:=4;
  s[0]:=chr(i);
  repeat
    s[i]:=digits[x and $000F];
    x:=x shr 4;
    dec(i);
  until i=0;

  w2x:=s;
end;



function d2x(x:longint):string;
var i:word;
    s:string[9];
begin

  i:=8;
  s[0]:=chr(i);
  repeat
    s[i]:=digits[x and $000F];
    x:=x shr 4;
    dec(i);
  until i=0;

  d2x:=s;
end;




function b2x(x:word):string;
var i:word;
    s:string[7];
begin

  i:=2;
  s[0]:=chr(i);
  repeat
    s[i]:=digits[x and $000F];
    x:=x shr 4;
    dec(i);
  until i=0;

  b2x:='0x'+s;
end;


begin
  getmem(d1,size);
  getmem(d2,size);


  writeln('V1.0 by M.S. 12/08');

  if paramcount<2 then
    begin
      writeln('komplette pfade der zu vergleichenden Dateien angeben');
      halt;
    end;


  assign(f1,paramstr(1));
  reset(f1,1);
  if ioresult<>0 then
    begin
      writeln('kann "',paramstr(1),'" nicht ”ffnen');
      halt;
    end;


  assign(f2,paramstr(2));
  reset(f2,1);
  if ioresult<>0 then
    begin
      close(f1);
      writeln('kann "',paramstr(2),'" nicht ”ffnen');
      halt;
    end;


  todo:=filesize(f1);

  if todo<>filesize(f2) then
    begin
      close(f1);
      close(f2);
      writeln('"',paramstr(1),'" und "',paramstr(2),'" mssen gleich groá sein');
      halt;
    end;

  if todo=0 then
    begin
      close(f1);
      close(f2);
      writeln('"',paramstr(1),'" und "',paramstr(2),'" sind 0 Bytes groá');
      halt;
    end;



  assign(f3,'datvergl.txt');
  rewrite(f3);

  follo:=false;
  focnt:=0;
  done :=0;
  diffs:=0;
  repeat

    if todo>size then work:=size else work:=todo;

    if work>0 then
      begin
        blockread(f1,d1^,work,gel1);
        blockread(f2,d2^,work,gel2);

        if (gel1<>work) or (gel2<>work) then
          begin
            close(f1);
            close(f2);
            close(f3);
            writeln('Fehler beim Lesen');
            halt;
          end;

          i:=0;
          repeat
            if d1^[i]<>d2^[i] then
              begin
                inc(diffs);
                inc(focnt);
                if diffs=1 then writeln(f3,'Adresse Data1 Data2 Count Follow');
                writeln(f3,d2x(done+i),' ',b2x(d1^[i]),' != ',b2x(d2^[i]),strx(diffs,11),strx(focnt,11));
              end
            else focnt:=0;

            inc(i);
          until i=work;

        dec(todo,work);
        inc(done,work)

      end;

  until todo=0;

  if diffs>0 then
    begin
      writeln(   diffs,' Unterschiede gefunden, siehe "datvergl.txt"');
      writeln(f3,diffs,' Unterschiede gefunden');
    end
  else
    begin
      writeln('Dateien stimmen berein!')
    end;

  close(f1);
  close(f2);
  close(f3);

end.