В следующем примере выполняется ряд операций над таблицей, открытой в текущей абочей области. На экран выдается значение, возвращаемое программой _RecCount( ).

Код Visual FoxPro

SET LIBRARY TO RETINT

? CTEST()

Код C

#include <pro_ext.h>

#define nl _PutChr('\n')

long FAR CTest()

{

long rc,rec;

int workarea = -1;

int flag = 0;

int rn,recn;

rc = _DBRewind(workarea);

_PutStr("top"); nl;

rc = _DBSkip(workarea, 5);

_PutStr("skipped 5"); nl;

rc = _DBAppend(workarea,flag);

_PutStr("Appending"); nl;

rc = _DBRewind(workarea);

_PutStr("top"); nl;

rn = _DBRecCount(workarea);

_RetInt(rn, 10);

rec = rn;

return rn;

}

FoxInfo myFoxInfo[] = {

{"CTEST", (FPFI) CTest,0 , ""},

};

FoxTable _FoxTable = {

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

};