GetFS

Return file selector

Declaration

Source position: line 0

function GetFS(

var T: Text

):LongInt; function GetFS(

var F: file

):LongInt;

Description

GetFS returns the file selector that the kernel provided for your file. In principle you don' need this file selector. Only for some calls it is needed, such as the #rtl.baseunix.fpSelect call or so.

Errors

In case the file was not opened, then -1 is returned.

Example

Program Example33;

{ Program to demonstrate the SelectText function. }

Uses Unix;

Var tv : TimeVal;

begin
  Writeln ('Press the <ENTER> to continue the program.');
  { Wait until File descriptor 0 (=Input) changes }
  SelectText (Input,nil);
  { Get rid of <ENTER> in buffer }
  readln;
  Writeln ('Press <ENTER> key in less than 2 seconds...');
  tv.tv_sec:=2;
  tv.tv_sec:=0;
  if SelectText (Input,@tv)>0 then
    Writeln ('Thank you !')
  else
    Writeln ('Too late !');
end.

Notes