FiveTech Software tech support forums

* Once the tracing decribed below is turned on, you can call this
* in a PRG to trace PRG-level function calls:
*
* __TRACEPRGCALLS( <lOnOff> ) --> <lOldValue>
*
* It turns on|off tracing of PRG-level function and method calls.
* The symbol name is written just before it's called.
* This is very useful when debugging GPFs as it
* will trace all PRG-level calls up until the crash.
* Uses HB_TRACE so traces are in line with any C-level traces.

Code: Select all  Expand view

set path=c:\bcc582\bin
set HB_USER_CFLAGS=-DHB_PRG_TRACE
win-make.exe

Code: Select all  Expand view

#Define HB_TR_DEBUG      5

    // hb_TraceSysOut( .T. )  // Funciona en Harbour no [x]Harbour
    HB_TR_FLUSH=1
    HB_TR_LEVEL=HB_TR_DEBUG
    HB_TR_OUTPUT = cDirPleno + "TRACE.LOG"

    //And in our code:

    // To trace calls for FWH
    __TRACEPRGCALLS( .T. )
    HB_TRACELEVEL( 5 )
    HB_TRACESTATE(1)
 

Code: Select all  Expand view

// testtrac.prg

#include "FiveWin.ch"

#define HB_TR_ALWAYS     0
#define HB_TR_FATAL      1
#define HB_TR_ERROR      2
#define HB_TR_WARNING    3
#define HB_TR_INFO       4
#define HB_TR_DEBUG      5

#define HB_TR_LEVEL_ALWAYS     0
#define HB_TR_LEVEL_FATAL      1
#define HB_TR_LEVEL_ERROR      2
#define HB_TR_LEVEL_WARNING    3
#define HB_TR_LEVEL_INFO       4
#define HB_TR_LEVEL_DEBUG      5

FUNCTION MAIN()

   ? "TRACING STATUS"

   __TRACEPRGCALLS( .T. )

   ? "hb_traceLevel", hb_traceLevel()

   ? "hb_traceState", hb_traceState()

   ? "LEVEL: HB_TR_ALWAYS",  HB_TRACELEVEL( HB_TR_ALWAYS )

   ? "LEVEL: HB_TR_FATAL",   HB_TRACELEVEL( HB_TR_FATAL )

   ? "LEVEL: HB_TR_ERROR",   HB_TRACELEVEL( HB_TR_ERROR )

   ? "LEVEL: HB_TR_WARNING", HB_TRACELEVEL( HB_TR_WARNING )

   ? "LEVEL: HB_TR_INFO",    HB_TRACELEVEL( HB_TR_INFO )

   ? "LEVEL: HB_TR_DEBUG",   HB_TRACELEVEL( HB_TR_DEBUG )

RETURN NIL
 

Code: Select all  Expand view

//-> \SAMPLES\HBSENHA.PRG

#Include "FiveWin.ch"

#define HB_TR_ALWAYS         0
#define HB_TR_FATAL          1
#define HB_TR_ERROR          2
#define HB_TR_WARNING        3
#define HB_TR_INFO           4
#define HB_TR_DEBUG          5
#define HB_TR_LEVEL_ALWAYS   0
#define HB_TR_LEVEL_FATAL    1
#define HB_TR_LEVEL_ERROR    2
#define HB_TR_LEVEL_WARNING  3
#define HB_TR_LEVEL_INFO     4
#define HB_TR_LEVEL_DEBUG    5

MEMVAR cText ,cKey, cEncrypted, cPassWord

FUNCTION Main()

   *---------------------------------------------------------------------------------------*
   #pragma TEXTHIDDEN(1)

   PUBLIC  cPassWord := "Q65h3l8j41B"  // <- Very important not to change Password or Delete !!!    <-------  "Top Secret ;-)"

   #pragma TEXTHIDDEN(0)
   *---------------------------------------------------------------------------------------*

   __TRACEPRGCALLS( .T. )

   cText := "This is my secret message."

   cKey  := HB_blowfishKey( cPassWord )

   MsgInfo( "Original:  "   + HB_StrToExp( cText ) )

   /* encrypt data */
   #ifdef __XHARBOUR__  // xHarbour

      MsgInfo( "Encrypted: " + StrToHex( cEncrypted := HB_blowfishEncrypt( cKey, cText ) ) )

   #else  // Harbour

      MsgInfo( "Encrypted: " + HB_StrToHex( cEncrypted := HB_blowfishEncrypt( cKey, cText ) ) )

   #endif

   /* decrypt data */
   MsgInfo( "Decrypted: " + HB_StrToExp( HB_blowfishDecrypt( cKey, cEncrypted ) ) )

   ? "hb_traceLevel", hb_traceLevel()

   ? "hb_traceState", hb_traceState()

   /*
   ? "LEVEL: HB_TR_ALWAYS",  HB_TRACELEVEL( HB_TR_ALWAYS )
   ? "LEVEL: HB_TR_FATAL",   HB_TRACELEVEL( HB_TR_FATAL )
   ? "LEVEL: HB_TR_ERROR",   HB_TRACELEVEL( HB_TR_ERROR )
   ? "LEVEL: HB_TR_WARNING", HB_TRACELEVEL( HB_TR_WARNING )
   ? "LEVEL: HB_TR_INFO",    HB_TRACELEVEL( HB_TR_INFO )
   ? "LEVEL: HB_TR_DEBUG",   HB_TRACELEVEL( HB_TR_DEBUG )
   */

RETURN NIL

FUNCTION StrToHex( cString )
RETURN Lower( cString )

// FIN
 

Code: Select all  Expand view

HBSENHA.c:

Error: Unresolved external '_HB_FUN_HB_TRACESYSOUT'
Error: Unable to perform link
* Linking errors *