В следующем примере строковый аргумент, переданный по ссылке, преобразуется в прописные символы.

Код Visual FoxPro

SET LIBRARY TO STORE

x = "abc"

= XUPPER(@x)

? x

Код C

#include <pro_ext.h>

void FAR Upper(ParamBlk FAR *parm)

{

char FAR *pString;

Value val;

int i;

//

// _Load() and _Store are the functions of interest for pass-by-reference.

//

_Load(&parm->p[0].loc, &val);

//

// FoxPro doesn't check the type of pass-by-reference arguments, so we do.

//

if (val.ev_type != 'C') {

_Error(9); // "Data type mismatch"

}

pString = _HandToPtr(val.ev_handle);

for (i = 0; i < val.ev_length; i++) {

if ('a' <= *pString && *pString <= 'z') {

*pString += ('A' - 'a');

}

pString++;

}

_Store(&parm->p[0].loc, &val);

//

// We need to free the handle that we created with _LOAD()

//

_FreeHand(val.ev_handle);

}

FoxInfo myFoxInfo[] = {

{"XUPPER", (FPFI) Upper, 1, "R"},

};

FoxTable _FoxTable = {

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

};