FiveTech Support Forums

#include "FiveWin.ch"

static pOld

function Main()

   pOld := FunSwap( "TIME", "MYTIME" )

   MsgInfo( Time() ) // Hemos reemplazado la función Time() original ! :-)

return nil

function MyTime()

   local uRet := ExecPtr( pOld ) // en caso de que queramos llamar a la función original

return "now"

#pragma BEGINDUMP

#include <hbapi.h>

typedef void ( * PFUNC ) ( void );

HB_FUNC( FUNSWAP )
{
   PHB_SYMB symFirst = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 1 ) ) );
   PHB_SYMB symLast  = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 2 ) ) );
   PHB_FUNC pFirst   = symFirst->value.pFunPtr;
   
   symFirst->value.pFunPtr = symLast->value.pFunPtr;
   
   hb_retnl( ( LONG ) pFirst );
}

HB_FUNC( EXECPTR )
{
   PFUNC p = ( PFUNC ) hb_parnl( hb_pcount() );
   
   p();
}   

#pragma ENDDUMP

#include "FiveWin.ch"

static pOld

function Main()

   pOld := FunSwap( "DATE", "TOMORROW" )

   MsgInfo( Date() ) // We have replaced the original Date() function! :-)

return nil

function Tomorrow()

   local uRet := ExecPtr( pOld ) // in case that we want to call the original function

return uRet + 1

#pragma BEGINDUMP

#include <hbapi.h>

typedef void ( * PFUNC ) ( void );

HB_FUNC( FUNSWAP )
{
   PHB_SYMB symFirst = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 1 ) ) );
   PHB_SYMB symLast  = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 2 ) ) );
   PHB_FUNC pFirst   = symFirst->value.pFunPtr;
   
   symFirst->value.pFunPtr = symLast->value.pFunPtr;
   
   hb_retnl( ( LONG ) pFirst );
}

HB_FUNC( EXECPTR )
{
   PFUNC p = ( PFUNC ) hb_parnl( hb_pcount() );
   
   p();
}   

#pragma ENDDUMP

#include "FiveWin.ch"

static pOld

function Main()

   pOld := FunSwap( "TEST", "LOGIT" )

   MsgInfo( Test( "Hello", " world!" ) )

return nil

function Test( u1, u2 )

return u1 + u2

function LogIt( u1, u2 )

   local uRet := ExecPtr( u1, u2, pOld ) // in case that we want to call the original function

   MsgInfo( "Test() called with these parameters: " + u1 + ", " + u2 )

return uRet

#pragma BEGINDUMP

#include <hbapi.h>

typedef void ( * PFUNC ) ( void );

HB_FUNC( FUNSWAP )
{
   PHB_SYMB symFirst = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 1 ) ) );
   PHB_SYMB symLast  = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 2 ) ) );
   PHB_FUNC pFirst   = symFirst->value.pFunPtr;
   
   symFirst->value.pFunPtr = symLast->value.pFunPtr;
   
   hb_retnl( ( LONG ) pFirst );
}

HB_FUNC( EXECPTR )
{
   PFUNC p = ( PFUNC ) hb_parnl( hb_pcount() );
   
   p();
}   

#pragma ENDDUMP

function Main()
    FunSwapPtr( "DATE", @MyDate() )

    ? DATE()
    ? &( "DATE()" )
return nil

#pragma BEGINDUMP

#include <hbapi.h>

typedef void ( * PFUNC ) ( void );

HB_FUNC( FUNSWAPPTR )
{
    PHB_SYMB symFirst = hb_dynsymSymbol( hb_dynsymFindName( hb_parc( 1 ) ) );
    PHB_FUNC pFirst   = symFirst->value.pFunPtr;

    symFirst->value.pFunPtr = ( ( PHB_SYMB ) hb_parptr( 2 ) )->value.pFunPtr;

    hb_retnl( ( LONG ) pFirst );
}

#pragma ENDDUMP

STATIC FUNCTION MyDate()
RETURN STOD( "19680329" )

#include "FiveWin.ch"

function Main()

   local oTime := TFunction():New( @Time() )
   local oMyTime := TFunction():New( @MyTime() ) 

   MsgInfo( oTime:Exec() )

   oTime:Swap( oMyTime )

   MsgInfo( Time() )
   MsgInfo( oTime:Original() )

   oTime:Restore()

   MsgInfo( Time() )

return nil

function MyTime()

return "now"

CLASS TFunction

   DATA   pFunction
   DATA   hPointer

   METHOD New( pFunction )
   
   METHOD Exec() INLINE HB_ExecFromArray( ::pFunction, HB_aParams() )
   
   METHOD Swap( oFunction ) INLINE FunSwap( ::pFunction, oFunction:pFunction )  

   METHOD Restore() INLINE FunRestore( ::pFunction, ::hPointer )
   
   METHOD Original() INLINE HB_ExecFromArray( GenSymbol( @FunDummy(), ::hPointer ), HB_aParams() )

ENDCLASS

METHOD New( pFunction ) CLASS TFunction

   ::pFunction = pFunction
   ::hPointer = FunPtr( pFunction )
   
return Self

#pragma BEGINDUMP

#include <hbapi.h>
#include <hbapiitm.h>
#include <hbstack.h>
#include <windows.h>

HB_FUNC( FUNPTR )
{
   PHB_ITEM pFunction = hb_param( 1, HB_IT_SYMBOL );
   
   hb_retnl( ( LONG ) ( pFunction ? hb_itemGetSymbol( pFunction )->value.pFunPtr : 0 ) );
}

HB_FUNC( FUNSWAP )
{
   PHB_ITEM pFirst = hb_param( 1, HB_IT_SYMBOL );
   PHB_ITEM pLast  = hb_param( 2, HB_IT_SYMBOL );
   
   if( pFirst && pLast )
   {
      hb_itemGetSymbol( pFirst )->value.pFunPtr = hb_itemGetSymbol( pLast )->value.pFunPtr;
   }
}       

HB_FUNC( FUNRESTORE )
{
   PHB_ITEM pFunction = hb_param( 1, HB_IT_SYMBOL );
   PHB_SYMB pSymbol = hb_itemGetSymbol( pFunction );
   
   if( pSymbol )
      pSymbol->value.pFunPtr = ( void * ) hb_parnl( 2 );
}   

HB_FUNC( GENSYMBOL )
{
   PHB_SYMB pSymbol = hb_dynsymSymbol( hb_dynsymFindName( "FUNDUMMY" ) );
   
   pSymbol->value.pFunPtr = ( void * ) hb_parnl( 2 );
   hb_itemPutSymbol( hb_stackReturnItem(), pSymbol );
}

HB_FUNC( FUNDUMMY )
{
}

#pragma ENDDUMP

xLINK: error: Unresolved external symbol '_hb_itemPutSymbol'.
xLINK: fatal error: 1 unresolved external(s).

#include "hbclass.ch"



PROCEDURE Main()

   TimeTest()

   StodTest()

RETURN



PROCEDURE TimeTest

LOCAL oMyTime := TFunction():New( @MyTime() )

local oTime := TFunction():New( @Time() )



   ? "Time() test..."

   ? oTime:Exec()



   oTime:Swap( oMyTime )



   ? Time()

   ? oTime:Original()



   oTime:Restore()



   ? Time()

   ?

RETURN



FUNCTION MyTime()

RETURN "now"



PROCEDURE StodTest

LOCAL oMyStod := TFunction():New( @MyStod() )

LOCAL cDate := "20080131"

PRIVATE oStod := TFunction():New( @Stod() )



   ? "Stod() test..."

   ? oStod:Exec( cDate )



   oStod:Swap( oMyStod )



   ? Stod( cDate )

   ? "Atencion: ", Stod( "20080131" )

   ? oStod:Original( cDate )



   oStod:Restore()



   ? Stod( cDate )

   ?

RETURN nil



FUNCTION MyStod( s )

RETURN oStod:Original( s ) - 1







CLASS TFunction

   DATA   pFunction

   DATA   hPointer



   METHOD New( pFunction )

   METHOD Exec

   METHOD Swap( oFunction ) INLINE FunSwap( ::pFunction, oFunction:pFunction)

   METHOD Restore() INLINE FunRestore( ::pFunction, ::hPointer )

   METHOD Original

ENDCLASS



METHOD New( pFunction ) CLASS TFunction

   ::pFunction = pFunction

   ::hPointer = FunPtr( pFunction )

RETURN Self



#pragma BEGINDUMP



#include <hbapi.h>

#include <hbapiitm.h>

#include <hbvm.h>

#include <hbstack.h>

#include <windows.h>



HB_FUNC( FUNPTR )

{

   PHB_SYMB pFunction = ( PHB_SYMB ) hb_parptr( 1 );

   hb_retptr( ( void * ) ( pFunction ? pFunction->value.pFunPtr : 0 ) );

}



HB_FUNC( FUNSWAP )

{

   PHB_SYMB pFirst = ( PHB_SYMB ) hb_parptr( 1 );

   PHB_SYMB pLast  = ( PHB_SYMB ) hb_parptr( 2 );



   if( pFirst && pLast )

   {

      pFirst->value.pFunPtr = pLast->value.pFunPtr;

   }

}



HB_FUNC( FUNRESTORE )

{

   PHB_SYMB pSymbol = ( PHB_SYMB ) hb_parptr( 1 );



   if( pSymbol )

   {

      pSymbol->value.pFunPtr = ( void * ) hb_parptr( 2 );

   }

}



typedef void ( * PFUNC ) ( void );



HB_FUNC( TFUNCTION_EXEC )

{

   PHB_ITEM pSelf = hb_stackSelfItem();

   PHB_SYMB pFunction;

   PFUNC p;

   static PHB_SYMB hPointer = 0;



   if( ! hPointer )

   {

      hPointer = hb_dynsymSymbol( hb_dynsymFind( "PFUNCTION" ) );

   }



   hb_vmPushSymbol( hPointer );

   hb_vmPush( pSelf );

   hb_vmSend( 0 );



   pFunction = ( PHB_SYMB ) hb_parptr( -1 );

   p = ( PFUNC ) pFunction->value.pFunPtr;



   p();

}



HB_FUNC( TFUNCTION_ORIGINAL )

{

   PHB_ITEM pSelf = hb_stackSelfItem();

   PFUNC p;

   static PHB_SYMB hPointer = 0;



   if( ! hPointer )

   {

      hPointer = hb_dynsymSymbol( hb_dynsymFind( "HPOINTER" ) );

   }



   hb_vmPushSymbol( hPointer );

   hb_vmPush( pSelf );

   hb_vmSend( 0 );



   p = ( PFUNC ) hb_parptr( -1 );



   p();

}



#pragma ENDDUMP