🚀 go-pugleaf

Archive-name: uniq.pas
Submitted-by: russell@alpha3.ersys.edmonton.ab.ca

in comp.archives.msdos.d mathews@ncgl.gsfc.nasa.gov (Jason Mathews) writes:

> uniq.zip        Remove or report adjacent duplicate lines
> 
> ShareWare.

{handles stdin only, lines <=255 chars}
{use -v to print only duplicated lines}
{use -20 to check only first 20 chars}

program uniq;

var
  s: string;
  last: string;
  checklen: integer;
  shownew: boolean;
  arg: integer;
  isnew: boolean;
  code: word;
  bof: boolean;

begin

  checklen := 255;
  shownew := true;

  for arg := 1 to paramcount do
    begin
      if copy(paramstr(arg),1,1)='-' then
        begin
          if paramstr(arg)='-v' then
            shownew := false
          else
            val(copy(paramstr(arg),2,255),checklen,code);
        end;
    end;

  last := '';
  bof := true;

  while not eof do
    begin

      readln(s);

      if bof then
        isnew := true
      else
        isnew := (copy(s,1,checklen)<>copy(last,1,checklen));

      if isnew=shownew then
        writeln(s);

      last := s;

      bof := false;
    end;

end.
-- 
Russell Schulz  russell@alpha3.ersys.edmonton.ab.ca  ersys!rschulz  Shad 86c