BP toys in GPC

1 May 2000

      Hi

First of all let me thank Authors for supplying SetTextBuf in GPC
(20000401 snapshot). There are still, however, some BP functions 
missing in GPC: SeekEOLN, SeekEOF, Include and Exclude. Providing
them in GPC would make porting from BP easier. Maybe the following 
code could be utilized:

const
  acTAB	= #009;
  acLF	= #010;
  acCR	= #013;
  acWS	= #032;

type
  AnySetElement = 0..255;
  AnySet = set of AnySetElement;

function SeekEoln(var aFile: Text): Boolean;
var
  CurPos: Integer;
  CurChar: Char;
begin
  if not Eoln(aFile) and not Eof(aFile) then
  begin
    repeat
      CurPos := FilePos(aFile);
      Read(aFile, CurChar);
    until ((CurChar <> acTAB) and (CurChar <> acWS)) or Eof(aFile);
    Seek(aFile, CurPos);
  end;
  SeekEoln := Eoln(aFile);
end;

function SeekEof(var aFile: Text): Boolean;
begin
  while SeekEoln(aFile) and not Eof(aFile) do Readln(aFile);
  SeekEof := Eof(aFile);
end;

procedure Include(var aSet: AnySet; aElement: AnySetElement);
begin
  aSet := aSet + [aElement];
end;

procedure Exclude(var aSet: AnySet; aElement: AnySetElement);
begin
  aSet := aSet - [aElement];
end;

Regards

-- 
        .
Mariusz Zynel

Institute of Mathematics   |   phone: +48 (85) 745 75 52
University of Bialystok    |
Akademicka 2 St            |   mailto:mariusz@math.uwb.edu.pl
15-267 Bialystok           |
Poland                     |   http://math.uwb.edu.pl/~mariusz/