В следующем примере создается файл и его длина устанавливается равной 8192 айтам. Затем указатель файла перемещается в начало файла и вызывается программа _FEOF( ), возвращающая значение 0 ("ложь"). После этого указатель файла пе емещается в конец файла и вновь вызывается программа _FEOF( ), которая на этот раз возвращает значение 1 ("истина").

Код Visual FoxPro

SET LIBRARY TO FEOF

Код C

#include <pro_ext.h>

void putLong(long n)

{

Value val;

val.ev_type = 'I';

val.ev_long = n;

val.ev_width = 10;

_PutValue(&val);

}

FAR Example(ParamBlk FAR *parm)

{

FCHAN fchan = _FCreate("temp.txt", FC_NORMAL);

_FCHSize(fchan, 8196);

_FFlush(fchan);

_FSeek(fchan, 0, FS_FROMBOF);

_PutStr("\n_FSeek(fchan, 0, FS_FROMBOF)");

_PutStr("\n_FEOF(fchan) ="); putLong(_FEOF(fchan));

_FSeek(fchan, 0, FS_FROMEOF);

_PutStr("\n_FSeek(fchan, 0, FS_FROMEOF)");

_PutStr("\n_FEOF(fchan) ="); putLong(_FEOF(fchan));

}

FoxInfo myFoxInfo[] = {

{"FEOF", (FPFI) Example, CALLONLOAD, ""},

};

FoxTable _FoxTable = {

(FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo

};