FiveTech Support Forums

#pragma BEGINDUMP


void hb_errInternal( ULONG ulIntCode, const char * szText, const char * szPar1, const char * szPar2 )
{
} 

#pragma ENDDUMP

//----------------------------------------------------------------------------//
//    ExpBar.prg - Ejemplo de uso de la clase TExplorerBar
//----------------------------------------------------------------------------//
#include "fivewin.ch"

PROCEDURE Main()

   LOCAL oWnd, oBar, oPanel
   LOCAL bClick := {|o| MsgInfo( HB_PCODEVER() ) }
   ...

#pragma BEGINDUMP

#include "hbapifs.h"
#include "hbapilng.h"
#include <windows.h>

void hb_errInternal( ULONG ulIntCode, const char * szText, const char * szPar1, const char * szPar2 )
{
   char title[64], buffer[ 1024 ];
   FILE *fpError;
   BOOL bLang;

   HB_TRACE(HB_TR_DEBUG, ("hb_errInternal(%lu, %s, %s, %s)", ulIntCode, szText, szPar1, szPar2));

   if( strncmp( szText, "Module:", 7 ) == 0 ) // pcode version
      return;

   bLang = ( hb_langID() != NULL );

   if( szText )
   {
      fpError = hb_fopen( "error.log", "a" );

      if( fpError )
      {
         fclose( fpError );
         TraceLog( "error.log", szText, szPar1, szPar2 );
      }
   }

   hb_conOutErr( hb_conNewLine(), 0 );

   hb_snprintf( title, sizeof( title ), bLang ?
                      ( char * ) hb_langDGetItem( HB_LANG_ITEM_BASE_ERRINTR ) :
                      "Unrecoverable error %lu: ", ulIntCode );

   hb_conOutErr( title, 0 );

   if( szText != NULL )
   {
      hb_snprintf( buffer, sizeof( buffer ), szText, szPar1, szPar2 );
   }
   else if (bLang)
   {
      hb_snprintf( buffer, sizeof( buffer ), ( char * ) hb_langDGetItem( HB_LANG_ITEM_BASE_ERRINTR + ulIntCode - 9000 ), szPar1, szPar2 );
   }

   hb_conOutErr( buffer, 0 );
   hb_conOutErr( hb_conNewLine(), 0 );
   hb_stackDispCall();

   #ifdef HB_OS_WIN_32
      MessageBox( NULL, buffer, title, MB_ICONSTOP );
   #endif

   /* release console settings */
   hb_conRelease();

   if( hb_cmdargCheck( "ERRGPF" ) )
   {
       int *pGPF = NULL;
       *pGPF = 0;
       *(--pGPF) = 0;
   }

   #if defined( HB_THREAD_SUPPORT ) && defined( HB_OS_OS2 )
      /* Post all threads waiting on an indefinite wait */
      DosPostEventSem(hb_hevWakeUpAll);
      /* Let's give them some time to wake up */
      DosSleep(5000);
      /* Stop VM, I cannot call exit() here or I end up with a zombie process */
      hb_vmQuit();
   #endif

   exit( EXIT_FAILURE );
}

#pragma ENDDUMP

   if( strncmp( szText, "Module:", 7 ) == 0 ) // pcode version
      return;