_Evaluate( ) (Rutina de biblioteca API)

Compila y ejecuta una expresión de Visual FoxPro especificada con expr e incluye su resultado en res.

int _Evaluate(Value FAR *res, char FAR *expr)
Value FAR *res;            /* Address for result. */
char FAR *expr;            /* Expression. */

Observaciones

Puede especificar cualquier expresión que se pueda evaluar mediante la función EVALUATE( ) de Visual FoxPro. Después de haber evaluado la expresión, el control normalmente vuelve a la instrucción C inmediatamente después de la llamada a _Evaluate( ). Las excepciones incluyen la evaluación de una expresión de Visual FoxPro que ejecuta un comando CANCEL o QUIT de Visual FoxPro.

_Evaluate( ) devuelve el número de error interno de Visual FoxPro para cualquier error que ocurra durante la evaluación de la expresión de Visual FoxPro o devuelve 0 si no ocurre ningún error. El contenido de res solamente es válido cuando _Evaluate( ) devuelve un valor de 0.

Nota   No llame a _Evaluate( ) desde un controlador de eventos.

Para obtener más información acerca de cómo crear una biblioteca API e integrarla con Visual FoxPro, vea Acceso a la API de Visual FoxPro.

Ejemplo

El siguiente ejemplo tiene la misma funcionalidad que la función EVALUATE( ) de Visual FoxPro.

Código Visual FoxPro

SET LIBRARY TO EVALUATE
? XEVAL("2 + 3")
? XEVAL("'a' + 'b'")
? XEVAL("SIN(PI()/2))")

Código C

#include <pro_ext.h>

FAR EvaluateEx(ParamBlk FAR *parm)
{
   char FAR *expr;
   Value result;

//   Null terminate character string
   if (!_SetHandSize(parm->p[0].val.ev_handle, 
      parm->p[0].val.ev_length + 1))
   {
      _Error(182); // "Insufficient memory"
   }
   _HLock(parm->p[0].val.ev_handle);
   expr = (char FAR *) _HandToPtr(parm->p[0].val.ev_handle);
   expr[parm->p[0].val.ev_length] = '\0';

   _Evaluate(&result, expr);
   _RetVal(&result);

   _HUnLock(parm->p[0].val.ev_handle);
}

FoxInfo myFoxInfo[] = {
   {"XEVAL", (FPFI) EvaluateEx, 1, "C"},
};
FoxTable _FoxTable = {
   (FoxTable FAR *) 0, sizeof(myFoxInfo)/sizeof(FoxInfo), myFoxInfo
};

Vea también

_Execute( ) (Rutina de biblioteca API) | CANCEL (Comando) | QUIT (Comando) | Acceso a la API de Visual FoxPro