program tail;
{$mode objfpc}{$H+}
uses
Classes, Math;
var
names : TStringList;
lines : TStringList;
linescount : Integer;
l, err : Integer;
i, j : integer;
begin
names:=TStringList.Create;
linescount:=20;
i:=1;
while i<=Paramcount do begin
if lowercase(ParamStr(i))='-n' then begin
Val(ParamStr(i+1), l, err);
if err=0 then linescount:=l;
inc(i);
end else
names.Add(ParamStr(i));
inc(i);
end;
lines:=TStringList.Create;
for i:=0 to names.Count-1 do begin
lines.Clear;
try
lines.LoadFromFile(names[i]);
for j:=Max(0, lines.Count-linescount) to lines.Count-1 do
writeln(lines[j]);
except
end;
end;
lines.Free;
names.Free;
end.
--
_______________________________________________
Lazarus mailing list
[email protected]
http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
