Is the simple example below the best way to implement a filter in FPC?
The example code blanks column 2 of a text file. This program works
with both "blankCol2 filename" and "blankCol2 <filename". Compiled with
3.0.2.
The PTOP question is how to configure PTOP to format files like this
example. Specifically the begin-end block on the "IF". Anybody care to
share a PTOP configuration file?
Thanks
John
(* example filter program. blank column 2 *)
{$mode objfpc}{$H+}{$J-}
program blankCol2;
Uses getopts, sysutils;
var
{ for getopts }
fileName : string;
fin : text;
pipe : boolean; { if true then piped input instead of a file }
function getOptions() : boolean;
var
statusGood : boolean;
c : char ;
begin
{ setup options }
statusGood := true; { assume options correct }
{ get options }
repeat
c := GetOpt('');
case c of
'?',':':
begin
writeln ('Error with opt:' , optopt) ;
statusGood := false;
end;
end ; { case }
until c=endofoptions;
{ check for filename }
if optind <=paramcount then
begin
fileName := paramstr( optind );
pipe := false
end
else
begin
pipe := true; { no filename so pipe }
end;
getOptions := statusGood
end;
procedure processFile();
var
line : string;
done : boolean;
begin
repeat
if (pipe = true) then
readln(input, line)
else
readln(fin, line);
if (length(line) > 2) then line[2] := ' ';
writeln(line);
if (pipe = true) then
done := eof(input)
else
done := eof(fin);
until (done);
end;
begin
{ process options }
if (getOptions() = false) then
begin {options bad}
writeln('bad');
end
else
begin {options good}
if (pipe = true) then { open stdin }
reset(input)
else
begin {open file }
assign(fin, fileName);
reset(fin);
end;
processFile();
if (pipe = true) then
begin
close(input);
writeln('pipe: for test');
end
else
begin
close(fin);
writeln('file: for test');
end;
close(output);
end;
end.
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal
