В следующем примере строится связный список выделяемых блоков памяти размером 1 Кбайт каждый, пока не будет исчерпана вся доступная память. После этого все в деленные блоки освобождаются и возвращается их количество. _MemAvail( ) испо ьзуется для выхода из первого цикла while.

Код Visual FoxPro

SET LIBRARY TO MEMAVAIL

? MEMAVAIL() && displays approx. memory available in K

Код C

#include <pro_ext.h>

#define ALLOCSIZE 1024

FAR Example(ParamBlk FAR *parm)

{

int nHandles = 0;

MHANDLE head = 0, mh;

while (_MemAvail(ALLOCSIZE))

{

mh = _AllocHand(ALLOCSIZE);

*((MHANDLE *) _HandToPtr(mh)) = head;

head = mh;

nHandles++;

}

_RetInt(nHandles, 10);

while (head != 0)

{

mh = *((MHANDLE *) _HandToPtr(head));

_FreeHand(head);

head = mh;

}

}

FoxInfo myFoxInfo[] = {

{"MEMAVAIL", (FPFI) Example, 0, ""},

};

FoxTable _FoxTable = {

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

};