FLL - C++与VFP 双向混合编程

为了对抗UNFOX及内部的加密， 原来VFP中的常用函数要转到FLL中.

Function  glEqual
Lparameters tuVar1,tuVar2,tlIgnoreSpace
*-  判断两个变量是否相等
*-  变量的类型可不相同, 类型不同当然不等
*-   null  等于  null
*-
If  Parameters() < 3
    tlIgnoreSpace = .T.
Endif

If   Isnull (tuVar1)  And   Isnull (tuVar2)
    Return .T.
Endif

If   Isnull (tuVar1)  And  ! Isnull (tuVar2)  Or  ! Isnull (tuVar1)  And   Isnull (tuVar2)
    Return .F.
Endif

If   Vartype (tuVar1) <> Vartype (tuVar2)
    Return .F.
Endif

If  tlIgnoreSpace  And   Vartype (tuVar1) = ' C'
    Return  Trim (tuVAR1) == Trim (tuVAR2)
Else
    Return tuVAR1 == tuVAR2
Endif

如果全用C++语法，做小小东西也会比较麻烦，工作量也会比较大。
下面的代码，未够上段完善，如果和上段VFP函数一样的功能，麻烦还有不少。

void  FAR glEqual(ParamBlk FAR  * parm) 
{    
    Value result;
     int  nIgnoreSpace ;
     char  FAR  *  cStr;

     if ( parm -> p[ 0 ].val.ev_type  !=  parm -> p[ 1 ].val.ev_type )
    {
        _RetLogical( 0 );
         return ;
    }
     // -----

         switch (parm -> p[ 0 ].val.ev_type)
    {  // object,memo,gen,currency未有对比. 字符串,未去空格,未ingoreCase
     case   ' 0 ' :
        _RetLogical( 1 );
         break ;
     case   ' N ' :
        _RetLogical(parm -> p[ 0 ].val.ev_real  ==  parm -> p[ 1 ].val.ev_real );
         break ;
     case   ' I ' :
        _RetLogical(parm -> p[ 0 ].val.ev_real  ==  parm -> p[ 1 ].val.ev_real );
         break ;
     case   ' D ' :
        _RetLogical(parm -> p[ 0 ].val.ev_real  ==  parm -> p[ 1 ].val.ev_real );
         break ;
     case   ' T ' :
        _RetLogical(parm -> p[ 0 ].val.ev_real  ==  parm -> p[ 1 ].val.ev_real );
         break ;
     case   ' L ' :
        _RetLogical(parm -> p[ 0 ].val.ev_length    ==  parm -> p[ 1 ].val.ev_length   );
         break ;
     case   ' C ' :
        NullTerminate( & parm -> p[ 0 ].val);
        NullTerminate( & parm -> p[ 1 ].val);
        RetValue  =  _StrCmp( ( char   * ) _HandToPtr(parm -> p[ 0 ].val.ev_handle), ( char   * ) _HandToPtr(parm -> p[ 1 ].val.ev_handle));
        _RetLogical(RetValue == 0 );
         break ; 
     default :
        _RetLogical( 0 );
    }    
}

折中办法，部分的处理以VFP进行。 就是在C++里，将值又转为VFP的变量，以_Evaluate利用VFP计算求值，待VPF计算好了再将结果放回C++变量中。

这样做可以说是在C++里混合VFP编程，见效快。

VFP混合C++，C++又混合VFP，你中有我我中有你。不亦快哉。

C++中混合VFP的方法：
（1）以 _Evaluate(&Val, char * cVfpExpr)，实现VFP运算值到C++ 值的转换
（2）自写一函数，_Value2FoxVar(Value val, char FAR * cpVarName)， 实现C++值到VFP变量的转换。

_Value2FoxVar代码如下

int  _Value2FoxVar(Value val,  char  FAR  *  cpVarName)
{
     /*  c值(value结构)到fox变量  -> 利于以fox语句去做计算等,
        _Value2FoxVar(VALUE * val, char * cpVarName)
        如FOX变量不存在,就创建一个private的.然后将val放入.  */

    NTI nti;
    Locator loc;
    nti  =  _NameTableIndex(cpVarName);

     if  ( _FindVar(nti,  - 1 ,  & loc) == false  )
    {
        CreateVar(cpVarName, 1 );  // 找不到变量,创建一个
        nti  =  _NameTableIndex(cpVarName);
         if  ( _FindVar(nti,  - 1 ,  & loc) == false  )
        {    HandleExceptionError( " nnd,创建变量竟然失败。 " );
             return   0 ;
        }
    }
        
     _Store( & loc,  & val);
      return   1 ;
}

有了以上的准备，glEqual转为C++/FLL函数，在要求很完善的情况下，处理也是比较简单。这个简单的处理不怕HexEditor，只有小量VFP源码，看不出思路门道的。

void  FAR glEqual(ParamBlk FAR  * parm) 
{    
    Value result;
     int  nIgnoreSpace ;
     char  FAR  *  cStr;

     if ( parm -> p[ 0 ].val.ev_type  !=  parm -> p[ 1 ].val.ev_type )
    {
        _RetLogical( 0 );
         return ;
    }
     // -----

     if  (parm -> p[ 1 ].val.ev_type  ==   ' 0 ' )  // null 
    {
        _RetLogical( 1 );
         return ;
    }
    
     if (parm -> pCount  <   3 )
        nIgnoreSpace = 1 ;
     else
        nIgnoreSpace  =  parm -> p[ 2 ].val.ev_length ;
    
    _Value2FoxVar(parm -> p[ 0 ].val,  " _fll_tmp1 " ); //将值转为VFP变量的值，此变量如原来不存在，创建
    _Value2FoxVar(parm -> p[ 1 ].val,  " _fll_tmp2 " );

     if (parm -> p[ 0 ].val.ev_type  ==   ' C '   &&  nIgnoreSpace == 1  )
        cStr  =     " trim(_fll_tmp1)==trim(_fll_tmp2) "  ;
     else
        cStr  =     " _fll_tmp1 == _fll_tmp2  " ;
    
     if ( _Evaluate( & result, cStr  ) != 0  )  //通过VFP，计算，求值。放到result中
    {
        HandleExceptionError( " glEqual -> _Evaluate 出错。 " );     
       return ;
    }
     else
        _RetLogical( ( int ) result.ev_length  );
    
    _FreeHand(result.ev_handle); 
}