_MemFill( ) API Library Routine


void _MemFill(void FAR ptr, int character, unsigned int length) void FAR ptr; /* Starting point for fill. / int character; / Character for fill. / unsigned int length; / How many bytes to fill. */

void _MemFill(void FAR *ptr, int character, unsigned int length)
void FAR *ptr;               /* Starting point for fill. */
int character;               /* Character for fill. */
unsigned int length;         /* How many bytes to fill. */

The following example uses _MemFill( ) to duplicate the functionality of the Visual FoxPro function REPLICATE( ).

Visual FoxPro Code

	Copy Code
SET LIBRARY TO MEMFILL x = xREPLICATE("x", 120) ? x ? LEN(x)

C Code

	Copy Code
#include <pro_ext.h> FAR Example(ParamBlk FAR parm) { char FAR rep; char c = (char ) _HandToPtr(parm->p[0].val.ev_handle); rep = _Alloca((int) parm->p[1].val.ev_long + 1); _MemFill(rep, c, (int) parm->p[1].val.ev_long); rep[parm->p[1].val.ev_long] = '\0'; _RetChar(rep); } FoxInfo myFoxInfo[] = { {"XREPLICATE", (FPFI) Example, 2, "C,I"}, }; FoxTable _FoxTable = { (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo };

Copy Code

#include <pro_ext.h>
FAR Example(ParamBlk FAR *parm)
{
   char FAR *rep;
   char c = *(char *) _HandToPtr(parm->p[0].val.ev_handle);
   rep = _Alloca((int) parm->p[1].val.ev_long + 1);
   _MemFill(rep, c, (int) parm->p[1].val.ev_long);
  rep[parm->p[1].val.ev_long] = '\0';
   _RetChar(rep);
}
FoxInfo myFoxInfo[] = {
   {"XREPLICATE", (FPFI) Example, 2, "C,I"},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Example

Visual FoxPro Code

C Code

See Also

Reference

Concepts

Other Resources