Exemplo n.º 1
0
static void
hbgihb_init(void *dummy)
{
   HB_SYMBOL_UNUSED(dummy);

   if (!s_pDyns__CLSNEW) {
      PHB_SYMB pExecSym = hb_symbolNew("__CLSADDMSG");
      pExecSym->value.pFunPtr = HB_FUNCNAME(__CLSADDMSG);
      s_pDyns__CLSADDMSG = hb_dynsymNew(pExecSym);
      pExecSym = hb_symbolNew("__CLSNEW");
      pExecSym->value.pFunPtr = HB_FUNCNAME(__CLSNEW);
      s_pDyns__CLSNEW = hb_dynsymNew(pExecSym);
   }
}
Exemplo n.º 2
0
HB_FUNC_EXTERN( DBCLEARRELATION );
HB_FUNC_EXTERN( DBSETRELATION );
HB_FUNC_EXTERN( DBGOTOP );
HB_FUNC_EXTERN( QLBLOC );
HB_FUNC_EXTERN( QVIEW );
HB_FUNC_EXTERN( DBCLOSEAREA );
HB_FUNC_EXTERN( FERASE );
HB_FUNC( I_ERR_TRACE );
HB_FUNC_EXTERN( STRTRAN );
HB_FUNC_EXTERN( MEMOEDIT );
HB_FUNC( I_ERR_TELA );
HB_FUNC_EXTERN( QSAY );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QLOGERRO )
{ "QLOGERRO", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QLOGERRO )}, NULL },
{ "AADD", {HB_FS_PUBLIC}, {HB_FUNCNAME( AADD )}, NULL },
{ "DBCREATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCREATE )}, NULL },
{ "QUSE", {HB_FS_PUBLIC}, {HB_FUNCNAME( QUSE )}, NULL },
{ "QMENSA", {HB_FS_PUBLIC}, {HB_FUNCNAME( QMENSA )}, NULL },
{ "__DBSDF", {HB_FS_PUBLIC}, {HB_FUNCNAME( __DBSDF )}, NULL },
{ "QGIRABARRA", {HB_FS_PUBLIC}, {HB_FUNCNAME( QGIRABARRA )}, NULL },
{ "ORDCONDSET", {HB_FS_PUBLIC}, {HB_FUNCNAME( ORDCONDSET )}, NULL },
{ "RECNO", {HB_FS_PUBLIC}, {HB_FUNCNAME( RECNO )}, NULL },
{ "ORDCREATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( ORDCREATE )}, NULL },
{ "DESCEND", {HB_FS_PUBLIC}, {HB_FUNCNAME( DESCEND )}, NULL },
{ "DTOS", {HB_FS_PUBLIC}, {HB_FUNCNAME( DTOS )}, NULL },
{ "XDATA", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "XHORA", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "DBSETFILTER", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBSETFILTER )}, NULL },
{ "EMPTY", {HB_FS_PUBLIC}, {HB_FUNCNAME( EMPTY )}, NULL },
Exemplo n.º 3
0
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( LEFT );
HB_FUNC_EXTERN( QSAY );
HB_FUNC_EXTERN( ASC );
HB_FUNC_EXTERN( QQOUT );
HB_FUNC_EXTERN( PAD );
HB_FUNC_EXTERN( EMPTY );
HB_FUNC_EXTERN( QRBLOC );
HB_FUNC_EXTERN( QMENSA );
HB_FUNC_EXTERN( QRLOCK );
HB_FUNC_EXTERN( QENCRI );
HB_FUNC_EXTERN( QUNLOCK );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QAD_SENH )
{ "QAD_SENH", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QAD_SENH )}, NULL },
{ "QSBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QSBLOC )}, NULL },
{ "CSENHA1", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CSENHA3", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CSENHA2", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "__MVPRIVATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( __MVPRIVATE )}, NULL },
{ "QLBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QLBLOC )}, NULL },
{ "XDRV_SH", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "NCONT", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "STR", {HB_FS_PUBLIC}, {HB_FUNCNAME( STR )}, NULL },
{ "SETPOS", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETPOS )}, NULL },
{ "SETCOLOR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETCOLOR )}, NULL },
{ "ATCSC_SL", {HB_FS_PUBLIC}, {HB_FUNCNAME( ATCSC_SL )}, NULL },
{ "ROW", {HB_FS_PUBLIC}, {HB_FUNCNAME( ROW )}, NULL },
{ "COL", {HB_FS_PUBLIC}, {HB_FUNCNAME( COL )}, NULL },
{ "UPPER", {HB_FS_PUBLIC}, {HB_FUNCNAME( UPPER )}, NULL },
Exemplo n.º 4
0
static HB_USHORT hb_errClassCreate( void )
{
   HB_USHORT usClassH = hb_clsCreate( HB_TERROR_IVARCOUNT, "ERROR" );

   hb_clsAdd( usClassH, "ARGS"          , HB_FUNCNAME( ARGS )         );
   hb_clsAdd( usClassH, "_ARGS"         , HB_FUNCNAME( _ARGS )        );
   hb_clsAdd( usClassH, "CANDEFAULT"    , HB_FUNCNAME( CANDEFAULT )   );
   hb_clsAdd( usClassH, "_CANDEFAULT"   , HB_FUNCNAME( _CANDEFAULT )  );
   hb_clsAdd( usClassH, "CANRETRY"      , HB_FUNCNAME( CANRETRY )     );
   hb_clsAdd( usClassH, "_CANRETRY"     , HB_FUNCNAME( _CANRETRY )    );
   hb_clsAdd( usClassH, "CANSUBSTITUTE" , HB_FUNCNAME( CANSUBST )     );
   hb_clsAdd( usClassH, "_CANSUBSTITUTE", HB_FUNCNAME( _CANSUBST )    );
   hb_clsAdd( usClassH, "CARGO"         , HB_FUNCNAME( CARGO )        );
   hb_clsAdd( usClassH, "_CARGO"        , HB_FUNCNAME( _CARGO )       );
   hb_clsAdd( usClassH, "DESCRIPTION"   , HB_FUNCNAME( DESCRIPTION )  );
   hb_clsAdd( usClassH, "_DESCRIPTION"  , HB_FUNCNAME( _DESCRIPTION ) );
   hb_clsAdd( usClassH, "FILENAME"      , HB_FUNCNAME( FILENAME )     );
   hb_clsAdd( usClassH, "_FILENAME"     , HB_FUNCNAME( _FILENAME )    );
   hb_clsAdd( usClassH, "GENCODE"       , HB_FUNCNAME( GENCODE )      );
   hb_clsAdd( usClassH, "_GENCODE"      , HB_FUNCNAME( _GENCODE )     );
   hb_clsAdd( usClassH, "OPERATION"     , HB_FUNCNAME( OPERATION )    );
   hb_clsAdd( usClassH, "_OPERATION"    , HB_FUNCNAME( _OPERATION )   );
   hb_clsAdd( usClassH, "OSCODE"        , HB_FUNCNAME( OSCODE )       );
   hb_clsAdd( usClassH, "_OSCODE"       , HB_FUNCNAME( _OSCODE )      );
   hb_clsAdd( usClassH, "SEVERITY"      , HB_FUNCNAME( SEVERITY )     );
   hb_clsAdd( usClassH, "_SEVERITY"     , HB_FUNCNAME( _SEVERITY )    );
   hb_clsAdd( usClassH, "SUBCODE"       , HB_FUNCNAME( SUBCODE )      );
   hb_clsAdd( usClassH, "_SUBCODE"      , HB_FUNCNAME( _SUBCODE )     );
   hb_clsAdd( usClassH, "SUBSYSTEM"     , HB_FUNCNAME( SUBSYSTEM )    );
   hb_clsAdd( usClassH, "_SUBSYSTEM"    , HB_FUNCNAME( _SUBSYSTEM )   );
   hb_clsAdd( usClassH, "TRIES"         , HB_FUNCNAME( TRIES )        );
   hb_clsAdd( usClassH, "_TRIES"        , HB_FUNCNAME( _TRIES )       );

   return usClassH;
}
Exemplo n.º 5
0
 */

#include "hbvmpub.h"
#include "hbinit.h"


HB_FUNC( QDIGITO );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( VAL );
HB_FUNC_EXTERN( SUBSTR );
HB_FUNC_EXTERN( STR );
HB_FUNC_EXTERN( INT );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QDIGITO_ )
{ "QDIGITO", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QDIGITO )}, NULL },
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
{ "VAL", {HB_FS_PUBLIC}, {HB_FUNCNAME( VAL )}, NULL },
{ "SUBSTR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SUBSTR )}, NULL },
{ "STR", {HB_FS_PUBLIC}, {HB_FUNCNAME( STR )}, NULL },
{ "INT", {HB_FS_PUBLIC}, {HB_FUNCNAME( INT )}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_QDIGITO_, "QDIGITO_.PRG", 0x0, 0x0002 )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup hb_vm_SymbolInit_QDIGITO_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( hb_vm_SymbolInit_QDIGITO_ )
   #include "hbiniseg.h"
#endif

HB_FUNC( QDIGITO )
Exemplo n.º 6
0

static void hb_pgsqldd_init( void * cargo )
{
   HB_SYMBOL_UNUSED( cargo );

   if( ! hb_sddRegister( &pgsqldd ) )
      hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
}

/* force SQLBASE linking */
HB_FUNC_TRANSLATE( SDDPG, SQLBASE )

HB_INIT_SYMBOLS_BEGIN( sddpostgre__InitSymbols )
{
   "SDDPG", { HB_FS_PUBLIC | HB_FS_LOCAL }, { HB_FUNCNAME( SDDPG ) }, NULL
},
HB_INIT_SYMBOLS_END( sddpostgre__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_sddpostgre_init_ )
hb_vmAtInit( hb_pgsqldd_init, NULL );
HB_CALL_ON_STARTUP_END( _hb_sddpostgre_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup sddpostgre__InitSymbols
   #pragma startup _hb_sddpostgre_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY  \
   HB_DATASEG_FUNC( sddpostgre__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_sddpostgre_init_ )
   #include "hbiniseg.h"
Exemplo n.º 7
0
      hb_itemReturnForward( &Return );
   }

   hb_itemClear( &hbInfo );

}

#define __PRG_SOURCE__ __FILE__

HB_FUNC_EXTERN( HB_VMMODE );
HB_FUNC_EXTERN( HB_MULTITHREAD );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER HB_PCODE_VER

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_HBVER )
{ "HB_VMMODE",      {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_VMMODE )},      NULL },
{ "HB_MULTITHREAD", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_MULTITHREAD )}, NULL }
HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_HBVER )

#if defined(HB_PRAGMA_STARTUP)
   #pragma startup hb_vm_SymbolInit_HBVER
#elif defined(HB_MSC_STARTUP)
   #if defined( HB_OS_WIN_64 )
      #pragma section( HB_MSC_START_SEGMENT, long, read )
   #endif
   #pragma data_seg( HB_MSC_START_SEGMENT )
   static HB_$INITSYM hb_vm_auto_SymbolInit_HBVER = hb_vm_SymbolInit_HBVER;
   #pragma data_seg()
#endif
Exemplo n.º 8
0
HB_FUNC( STATUSCONTROLLER );
HB_FUNC_EXTERN( __CLSLOCKDEF );
HB_FUNC_EXTERN( HBCLASS );
HB_FUNC_EXTERN( BASECONTROLLER );
HB_FUNC_STATIC( STATUSCONTROLLER_NEW );
HB_FUNC_EXTERN( __CLSUNLOCKDEF );
HB_FUNC_EXTERN( __OBJHASMSG );
HB_FUNC_EXTERN( STATUSSERVICEAPI );
HB_FUNC_EXTERN( __DBGENTRY );
HB_FUNC_INITSTATICS();
HB_FUNC_INITLINES();


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_STATUS_CONTROLLER )
{ "STATUSCONTROLLER", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( STATUSCONTROLLER )}, NULL },
{ "__CLSLOCKDEF", {HB_FS_PUBLIC}, {HB_FUNCNAME( __CLSLOCKDEF )}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "HBCLASS", {HB_FS_PUBLIC}, {HB_FUNCNAME( HBCLASS )}, NULL },
{ "BASECONTROLLER", {HB_FS_PUBLIC}, {HB_FUNCNAME( BASECONTROLLER )}, NULL },
{ "ADDMETHOD", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "STATUSCONTROLLER_NEW", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( STATUSCONTROLLER_NEW )}, NULL },
{ "CREATE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "__CLSUNLOCKDEF", {HB_FS_PUBLIC}, {HB_FUNCNAME( __CLSUNLOCKDEF )}, NULL },
{ "INSTANCE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "__OBJHASMSG", {HB_FS_PUBLIC}, {HB_FUNCNAME( __OBJHASMSG )}, NULL },
{ "INITCLASS", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "_OSERVICE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "STATUSSERVICEAPI", {HB_FS_PUBLIC}, {HB_FUNCNAME( STATUSSERVICEAPI )}, NULL },
{ "SUPER", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "__DBGENTRY", {HB_FS_PUBLIC}, {HB_FUNCNAME( __DBGENTRY )}, NULL },
Exemplo n.º 9
0
HB_FUNC( TRACE_PACK );
HB_FUNC_EXTERN( INT );
HB_FUNC_EXTERN( LASTREC );
HB_FUNC_EXTERN( ORDCONDSET );
HB_FUNC( Q_METER );
HB_FUNC_EXTERN( RECNO );
HB_FUNC_EXTERN( ORDCREATE );
HB_FUNC_EXTERN( DELETED );
HB_FUNC_EXTERN( STR );
HB_FUNC_EXTERN( MOD );
HB_FUNC( Q902 );
HB_FUNC_INITSTATICS();


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_Q901 )
{ "Q901", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( Q901 )}, NULL },
{ "NQUANTX", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CNTX", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CCAMINHO", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "M_MACRO", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CFILENAME", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "LFLAGUNIQ", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "LFLAGPACK", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "NEMPR", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "__MVPRIVATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( __MVPRIVATE )}, NULL },
{ "C255", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CDESCR", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CSETA", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "LALL", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "AEMP", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CMARCA1", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
Exemplo n.º 10
0
   HB_SYMBOL_UNUSED( cargo );

   OCI_Cleanup();
}

HB_FUNC( HB_SDDOCI_REGISTER )
{
   hb_ocidd_init( NULL );
}

/* force SQLBASE linking */
HB_FUNC_TRANSLATE( SDDOCI, SQLBASE )

HB_INIT_SYMBOLS_BEGIN( ocidd__InitSymbols )
{
   "SDDOCI", { HB_FS_PUBLIC }, { HB_FUNCNAME( SDDOCI ) }, NULL
},
HB_INIT_SYMBOLS_END( ocidd__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_ocidd_init_ )
hb_vmAtInit( hb_ocidd_init, NULL );
hb_vmAtExit( hb_ocidd_exit, NULL );
HB_CALL_ON_STARTUP_END( _hb_ocidd_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup ocidd__InitSymbols
   #pragma startup _hb_ocidd_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY  \
   HB_DATASEG_FUNC( ocidd__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_ocidd_init_ )
Exemplo n.º 11
0
HB_FUNC_EXTERN( QRBLOC );
HB_FUNC_EXTERN( LEFT );
HB_FUNC_EXTERN( SUBSTR );
HB_FUNC_EXTERN( TYPE );
HB_FUNC_EXTERN( QSAY );
HB_FUNC_EXTERN( STR );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( DTOC );
HB_FUNC_EXTERN( EMPTY );
HB_FUNC_EXTERN( SEEKB_SL );
HB_FUNC_EXTERN( STRZERO );
HB_FUNC_EXTERN( QWAIT );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QAUXPROG )
{ "Q_AUX_PROG", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( Q_AUX_PROG )}, NULL },
{ "SETKEY", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETKEY )}, NULL },
{ "TONE", {HB_FS_PUBLIC}, {HB_FUNCNAME( TONE )}, NULL },
{ "UPPER", {HB_FS_PUBLIC}, {HB_FUNCNAME( UPPER )}, NULL },
{ "CHR", {HB_FS_PUBLIC}, {HB_FUNCNAME( CHR )}, NULL },
{ "QINKEY", {HB_FS_PUBLIC}, {HB_FUNCNAME( QINKEY )}, NULL },
{ "I_VER_VAR", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_VER_VAR )}, NULL },
{ "I_VER_255", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_VER_255 )}, NULL },
{ "I_VER_PUB", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_VER_PUB )}, NULL },
{ "I_VER_MEM", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_VER_MEM )}, NULL },
{ "I_VER_SIT", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_VER_SIT )}, NULL },
{ "QSBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QSBLOC )}, NULL },
{ "SETCOLOR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETCOLOR )}, NULL },
{ "CVAR", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "__MVPRIVATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( __MVPRIVATE )}, NULL },
{ "SCROLL", {HB_FS_PUBLIC}, {HB_FUNCNAME( SCROLL )}, NULL },
Exemplo n.º 12
0
 */

#include "hbvmpub.h"
#include "hbpcode.h"
#include "hbinit.h"

#define __PRG_SOURCE__ "c:/EDUCAR/program/FRM_FOTO.prg"

HB_FUNC( FRM_FOTO );
extern HB_FUNC( AADD );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER 5

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_FRM_FOTO )
{ "FRM_FOTO", HB_FS_PUBLIC | HB_FS_FIRST, HB_FUNCNAME( FRM_FOTO ), (PHB_DYNS) 1 },
{ "AADD", HB_FS_PUBLIC, HB_FUNCNAME( AADD ), NULL }
HB_INIT_SYMBOLS_END( hb_vm_SymbolInit_FRM_FOTO )

#if defined(HB_STATIC_STARTUP)
   #pragma startup hb_vm_SymbolInit_FRM_FOTO
#elif defined(_MSC_VER)
   #if _MSC_VER >= 1010
      #pragma data_seg( ".CRT$XIY" )
      #pragma comment( linker, "/Merge:.CRT=.data" )
   #else
      #pragma data_seg( "XIY" )
   #endif
   static HB_$INITSYM hb_vm_auto_SymbolInit_FRM_FOTO = hb_vm_SymbolInit_FRM_FOTO;
   #pragma data_seg()
#elif ! defined(__GNUC__)
HB_FUNC_EXTERN( HB_NTOS );
HB_FUNC_EXTERN( SQLDATE );
HB_FUNC_EXTERN( DATE );
HB_FUNC_EXTERN( QUERYRETORNAARRAY );
HB_FUNC_EXTERN( SYSREFRESH );
HB_FUNC_EXTERN( CALCULAVALORES );
HB_FUNC_EXTERN( AADD );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( WAITOFF );
HB_FUNC_EXTERN( FW_GT );
HB_FUNC_EXTERN( ERRORSYS );
HB_FUNC_INITSTATICS();


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_RELATORIOCONTASRECEBER )
{ "RELATORIOCONTASRECEBER", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( RELATORIOCONTASRECEBER )}, NULL },
{ "HB_HASH", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_HASH )}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "CADASTRODECLIENTES", {HB_FS_PUBLIC}, {HB_FUNCNAME( CADASTRODECLIENTES )}, NULL },
{ "TDIALOG", {HB_FS_PUBLIC}, {HB_FUNCNAME( TDIALOG )}, NULL },
{ "REDEFINE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TGET", {HB_FS_PUBLIC}, {HB_FUNCNAME( TGET )}, NULL },
{ "PCOUNT", {HB_FS_PUBLIC}, {HB_FUNCNAME( PCOUNT )}, NULL },
{ "EMPTY", {HB_FS_PUBLIC}, {HB_FUNCNAME( EMPTY )}, NULL },
{ "CONSULTA", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TSAY", {HB_FS_PUBLIC}, {HB_FUNCNAME( TSAY )}, NULL },
{ "TRADMENU", {HB_FS_PUBLIC}, {HB_FUNCNAME( TRADMENU )}, NULL },
{ "TBUTTONBMP", {HB_FS_PUBLIC}, {HB_FUNCNAME( TBUTTONBMP )}, NULL },
{ "GERARELATORIO", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( GERARELATORIO )}, NULL },
{ "END", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "CONFIGURAACTIONDATA", {HB_FS_PUBLIC}, {HB_FUNCNAME( CONFIGURAACTIONDATA )}, NULL },
Exemplo n.º 14
0
extern HB_FUNC( VALTYPE );
extern HB_FUNC( LOADLIBRARY );
extern HB_FUNC( ABS );
extern HB_FUNC( GETPROCADDRESS );
extern HB_FUNC( CALLDLL );
extern HB_FUNC( FREELIBRARY );
extern HB_FUNC( MSGALERT );
extern HB_FUNC( LTRIM );
extern HB_FUNC( STR );
extern HB_FUNC( ERRORSYS );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER 5

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_HOLLOW )
{ "TEXTO", HB_FS_STATIC | HB_FS_PUBLIC | HB_FS_FIRST, HB_FUNCNAME( TEXTO ), (PHB_DYNS) 1 },
{ "NEW", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "TDIALOG", HB_FS_PUBLIC, HB_FUNCNAME( TDIALOG ), NULL },
{ "TFONT", HB_FS_PUBLIC, HB_FUNCNAME( TFONT ), NULL },
{ "ACTIVATE", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BLCLICKED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BMOVED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "_BPAINTED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "SAYROTATED", HB_FS_PUBLIC, HB_FUNCNAME( SAYROTATED ), (PHB_DYNS) 1 },
{ "BRCLICKED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "HDC", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "DRAWROTATED", HB_FS_STATIC | HB_FS_PUBLIC, HB_FUNCNAME( DRAWROTATED ), (PHB_DYNS) 1 },
{ "SETTEXTCOLOR", HB_FS_PUBLIC, HB_FUNCNAME( SETTEXTCOLOR ), NULL },
{ "SETBKCOLOR", HB_FS_PUBLIC, HB_FUNCNAME( SETBKCOLOR ), NULL },
{ "SETBKMODE", HB_FS_PUBLIC, HB_FUNCNAME( SETBKMODE ), NULL },
{ "SELECTOBJECT", HB_FS_PUBLIC, HB_FUNCNAME( SELECTOBJECT ), NULL },
Exemplo n.º 15
0
HB_FUNC_EXTERN( FERROR );
HB_FUNC_EXTERN( UHTTPDNEW );
HB_FUNC_EXTERN( HB_EOL );
HB_FUNC_EXTERN( DBCLOSEALL );
HB_FUNC_EXTERN( HB_VFEXISTS );
HB_FUNC_EXTERN( UPROCINFO );
HB_FUNC_EXTERN( STATUSCONTROLLER );
HB_FUNC_EXTERN( UREDIRECT );
HB_FUNC_EXTERN( ERRORLEVEL );
HB_FUNC_EXTERN( __HBEXTERN__HBSSL__ );
HB_FUNC_EXTERN( __DBGENTRY );
HB_FUNC_INITLINES();


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_WSRESTFUL )
{ "MAIN", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( MAIN )}, NULL },
{ "HB_ARGCHECK", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_ARGCHECK )}, NULL },
{ "QOUT", {HB_FS_PUBLIC}, {HB_FUNCNAME( QOUT )}, NULL },
{ "HB_MEMOWRIT", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_MEMOWRIT )}, NULL },
{ "HB_VFERASE", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_VFERASE )}, NULL },
{ "SET", {HB_FS_PUBLIC}, {HB_FUNCNAME( SET )}, NULL },
{ "RDDSETDEFAULT", {HB_FS_PUBLIC}, {HB_FUNCNAME( RDDSETDEFAULT )}, NULL },
{ "HB_DBEXISTS", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_DBEXISTS )}, NULL },
{ "HB_DBDROP", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_DBDROP )}, NULL },
{ "DBCREATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCREATE )}, NULL },
{ "ORDCREATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( ORDCREATE )}, NULL },
{ "DBCLOSEAREA", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCLOSEAREA )}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "UHTTPDLOG", {HB_FS_PUBLIC}, {HB_FUNCNAME( UHTTPDLOG )}, NULL },
{ "ADD", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "CLOSE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
Exemplo n.º 16
0
HB_FUNC_EXTERN( MSGINFO );
HB_FUNC_EXTERN( TXMLNFE );
HB_FUNC_EXTERN( ALLTRIM );
HB_FUNC_EXTERN( MSGSTOP );
HB_FUNC_EXTERN( ISINTERNET );
HB_FUNC_EXTERN( CREATEOBJECT );
HB_FUNC_EXTERN( MEMOWRIT );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER 10

#include "hbapi.h"

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_MAIN )
{ "DIVERTCONSTRUCTORCALL", {HB_FS_PUBLIC | HB_FS_DEFERRED}, {NULL}, NULL },
{ "GETPROCADD", {HB_FS_PUBLIC}, {HB_FUNCNAME( GETPROCADD )}, NULL },
{ "TACTIVEX", {HB_FS_PUBLIC}, {HB_FUNCNAME( TACTIVEX )}, NULL },
{ "ERRORSYS", {HB_FS_PUBLIC}, {HB_FUNCNAME( ERRORSYS )}, NULL },
{ "MAIN", {HB_FS_PUBLIC | HB_FS_LOCAL | HB_FS_FIRST}, {HB_FUNCNAME( MAIN )}, &ModuleFakeDyn },
{ "SPACE", {HB_FS_PUBLIC}, {HB_FUNCNAME( SPACE )}, NULL },
{ "CCHAVE", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "__MVPRIVATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( __MVPRIVATE )}, NULL },
{ "CCNPJ", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "NEW", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "TFONT", {HB_FS_PUBLIC}, {HB_FUNCNAME( TFONT )}, NULL },
{ "OFONT", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "OFONT2", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "TDIALOG", {HB_FS_PUBLIC}, {HB_FUNCNAME( TDIALOG )}, NULL },
{ "ODLG", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "REDEFINE", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "TGET", {HB_FS_PUBLIC}, {HB_FUNCNAME( TGET )}, NULL },
HB_FUNC_EXTERN( TRADMENU );
HB_FUNC_EXTERN( PCOUNT );
HB_FUNC_EXTERN( TBUTTONBMP );
HB_FUNC_STATIC( GERARELATORIO );
HB_FUNC_EXTERN( QUERYRETORNAARRAY );
HB_FUNC_EXTERN( EMPTY );
HB_FUNC_EXTERN( MSGSTOP );
HB_FUNC_EXTERN( INICIARRELATORIOFAST );
HB_FUNC_EXTERN( CARREGDADOSFASTREPORT );
HB_FUNC_EXTERN( FW_GT );
HB_FUNC_EXTERN( ERRORSYS );
HB_FUNC_INITSTATICS();


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_RELATORIOCARGOS )
{ "RELATORIOCARGOS", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( RELATORIOCARGOS )}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TDIALOG", {HB_FS_PUBLIC}, {HB_FUNCNAME( TDIALOG )}, NULL },
{ "REDEFINE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TRADMENU", {HB_FS_PUBLIC}, {HB_FUNCNAME( TRADMENU )}, NULL },
{ "PCOUNT", {HB_FS_PUBLIC}, {HB_FUNCNAME( PCOUNT )}, NULL },
{ "TBUTTONBMP", {HB_FS_PUBLIC}, {HB_FUNCNAME( TBUTTONBMP )}, NULL },
{ "GERARELATORIO", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( GERARELATORIO )}, NULL },
{ "END", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "_LHELPICON", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "ACTIVATE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "BLCLICKED", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "BMOVED", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "BPAINTED", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "BRCLICKED", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "QUERYRETORNAARRAY", {HB_FS_PUBLIC}, {HB_FUNCNAME( QUERYRETORNAARRAY )}, NULL },
Exemplo n.º 18
0
   {
      hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
   }
}

HB_FUNC( HB_SDDMY_REGISTER )
{
   hb_mysqldd_init( NULL );
}

/* force SQLBASE linking */
HB_FUNC_TRANSLATE( SDDMY, SQLBASE )

HB_INIT_SYMBOLS_BEGIN( mysqldd__InitSymbols )
{
   "SDDMY", { HB_FS_PUBLIC }, { HB_FUNCNAME( SDDMY ) }, NULL
},
HB_INIT_SYMBOLS_END( mysqldd__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_mysqldd_init_ )
hb_vmAtInit( hb_mysqldd_init, NULL );
HB_CALL_ON_STARTUP_END( _hb_mysqldd_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup mysqldd__InitSymbols
   #pragma startup _hb_mysqldd_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY  HB_DATASEG_FUNC( mysqldd__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_mysqldd_init_ )
   #include "hbiniseg.h"
#endif
Exemplo n.º 19
0
#if SQLITE_VERSION_NUMBER >= 3006000
   sqlite3_shutdown();
#endif
}

HB_FUNC( HB_SDDSQLITE3_REGISTER )
{
   hb_sqlt3dd_init( NULL );
}

/* force SQLBASE linking */
HB_FUNC_TRANSLATE( SDDSQLITE3, SQLBASE )

HB_INIT_SYMBOLS_BEGIN( sqlt3dd__InitSymbols )
{
   "SDDSQLITE3", { HB_FS_PUBLIC }, { HB_FUNCNAME( SDDSQLITE3 ) }, NULL
},
HB_INIT_SYMBOLS_END( sqlt3dd__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_sqlt3dd_init_ )
hb_vmAtInit( hb_sqlt3dd_init, NULL );
hb_vmAtExit( hb_sqlt3dd_exit, NULL );
HB_CALL_ON_STARTUP_END( _hb_sqlt3dd_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup sqlt3dd__InitSymbols
   #pragma startup _hb_sqlt3dd_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY \
   HB_DATASEG_FUNC( sqlt3dd__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_sqlt3dd_init_ )
Exemplo n.º 20
0
Arquivo: core.c Projeto: NaldoDj/core
   if( ! hb_sddRegister( &s_odbcdd ) )
      hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
}

HB_FUNC( HB_SDDODBC_REGISTER )
{
   hb_odbcdd_init( NULL );
}

/* force SQLBASE linking */
HB_FUNC_TRANSLATE( SDDODBC, SQLBASE )

HB_INIT_SYMBOLS_BEGIN( odbcdd__InitSymbols )
{
   "SDDODBC", { HB_FS_PUBLIC }, { HB_FUNCNAME( SDDODBC ) }, NULL
},
HB_INIT_SYMBOLS_END( odbcdd__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_odbcdd_init_ )
hb_vmAtInit( hb_odbcdd_init, NULL );
HB_CALL_ON_STARTUP_END( _hb_odbcdd_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup odbcdd__InitSymbols
   #pragma startup _hb_odbcdd_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY  \
   HB_DATASEG_FUNC( odbcdd__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_odbcdd_init_ )
   #include "hbiniseg.h"
Exemplo n.º 21
0
extern HB_FUNC( TCHECKBOX );
extern HB_FUNC( PCOUNT );
extern HB_FUNC( CGETFILE );
extern HB_FUNC( EMPTY );
extern HB_FUNC( FILE );
extern HB_FUNC( PRINTBEGIN );
extern HB_FUNC( PAGEBEGIN );
extern HB_FUNC( PAGEEND );
extern HB_FUNC( PRINTEND );
extern HB_FUNC( ERRORSYS );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER 5

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_TESTIMG )
{ "IMG", HB_FS_PUBLIC | HB_FS_FIRST, HB_FUNCNAME( IMG ), (PHB_DYNS) 1 },
{ "NEW", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "TDIALOG", HB_FS_PUBLIC, HB_FUNCNAME( TDIALOG ), NULL },
{ "TIMAGE", HB_FS_PUBLIC, HB_FUNCNAME( TIMAGE ), NULL },
{ "PROGRESS", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "TBUTTON", HB_FS_PUBLIC, HB_FUNCNAME( TBUTTON ), NULL },
{ "GETIMAGE", HB_FS_PUBLIC, HB_FUNCNAME( GETIMAGE ), (PHB_DYNS) 1 },
{ "PRINTIMAGE", HB_FS_PUBLIC, HB_FUNCNAME( PRINTIMAGE ), (PHB_DYNS) 1 },
{ "COPYTOCLIPBOARD", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "LOADFROMCLIPBOARD", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "REFRESH", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "SAVEIMAGE", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "MSGINFO", HB_FS_PUBLIC, HB_FUNCNAME( MSGINFO ), NULL },
{ "END", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "TCHECKBOX", HB_FS_PUBLIC, HB_FUNCNAME( TCHECKBOX ), NULL },
{ "PCOUNT", HB_FS_PUBLIC, HB_FUNCNAME( PCOUNT ), NULL },
Exemplo n.º 22
0
 * Generated C source from "SCROL_.PRG"
 */

#include "hbvmpub.h"
#include "hbinit.h"


HB_FUNC( SCROL_SL );
HB_FUNC_EXTERN( QSBLOC );
HB_FUNC_EXTERN( SETCLEARA );
HB_FUNC_EXTERN( CLEAR_SL );
HB_FUNC_EXTERN( QRBLOC );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_SCROL_ )
{ "SCROL_SL", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SCROL_SL )}, NULL },
{ "QSBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QSBLOC )}, NULL },
{ "SETCLEARA", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETCLEARA )}, NULL },
{ "CLEAR_SL", {HB_FS_PUBLIC}, {HB_FUNCNAME( CLEAR_SL )}, NULL },
{ "QRBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QRBLOC )}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_SCROL_, "SCROL_.PRG", 0x0, 0x0002 )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup hb_vm_SymbolInit_SCROL_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( hb_vm_SymbolInit_SCROL_ )
   #include "hbiniseg.h"
#endif

HB_FUNC( SCROL_SL )
{
Exemplo n.º 23
0
extern HB_FUNC( LOADLIBRARY );
extern HB_FUNC( ABS );
extern HB_FUNC( GETPROCADDRESS );
extern HB_FUNC( EMPTY );
extern HB_FUNC( CALLDLL );
extern HB_FUNC( FREELIBRARY );
extern HB_FUNC( MSGALERT );
extern HB_FUNC( LTRIM );
extern HB_FUNC( STR );
extern HB_FUNC( ERRORSYS );

#undef HB_PRG_PCODE_VER
#define HB_PRG_PCODE_VER 5

HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_EMF )
{ "DIBUJO7", HB_FS_PUBLIC | HB_FS_FIRST, HB_FUNCNAME( DIBUJO7 ), (PHB_DYNS) 1 },
{ "NEW", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "TWINDOW", HB_FS_PUBLIC, HB_FUNCNAME( TWINDOW ), NULL },
{ "ACTIVATE", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BLCLICKED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BRCLICKED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BMOVED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BRESIZED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "_BPAINTED", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "DRAWEMF", HB_FS_STATIC | HB_FS_PUBLIC, HB_FUNCNAME( DRAWEMF ), (PHB_DYNS) 1 },
{ "BKEYDOWN", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BINIT", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "BLBUTTONUP", HB_FS_PUBLIC | HB_FS_MEMVAR | HB_FS_MESSAGE, NULL, NULL },
{ "CREATEEMF", HB_FS_STATIC | HB_FS_PUBLIC, HB_FUNCNAME( CREATEEMF ), (PHB_DYNS) 1 },
{ "GETDEVICECAPS", HB_FS_PUBLIC, HB_FUNCNAME( GETDEVICECAPS ), NULL },
{ "GETCLIENTRECT", HB_FS_PUBLIC, HB_FUNCNAME( GETCLIENTRECT ), NULL },
Exemplo n.º 24
0
#include "hbvmpub.h"
#include "hbinit.h"


HB_FUNC( QENCRI );
HB_FUNC_EXTERN( MOD );
HB_FUNC_EXTERN( CHR );
HB_FUNC_EXTERN( NUMXOR );
HB_FUNC_EXTERN( ASC );
HB_FUNC_EXTERN( SUBSTR );
HB_FUNC_EXTERN( LEN );
HB_FUNC( QDECRI );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QCRIP )
{ "QENCRI", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QENCRI )}, NULL },
{ "MOD", {HB_FS_PUBLIC}, {HB_FUNCNAME( MOD )}, NULL },
{ "CHR", {HB_FS_PUBLIC}, {HB_FUNCNAME( CHR )}, NULL },
{ "NUMXOR", {HB_FS_PUBLIC}, {HB_FUNCNAME( NUMXOR )}, NULL },
{ "ASC", {HB_FS_PUBLIC}, {HB_FUNCNAME( ASC )}, NULL },
{ "SUBSTR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SUBSTR )}, NULL },
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
{ "QDECRI", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QDECRI )}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_QCRIP, "QCRIP.PRG", 0x0, 0x0002 )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup hb_vm_SymbolInit_QCRIP
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( hb_vm_SymbolInit_QCRIP )
   #include "hbiniseg.h"
#endif
Exemplo n.º 25
0
#define HB_TERROR_OPERATION    7
#define HB_TERROR_OSCODE       8
#define HB_TERROR_SEVERITY     9
#define HB_TERROR_SUBCODE      10
#define HB_TERROR_SUBSYSTEM    11
#define HB_TERROR_TRIES        12

#define HB_TERROR_IVARCOUNT    12


HB_FUNC_EXTERN( ERRORNEW );


static PHB_ITEM s_pError = NULL;

static HB_SYMB s_symErrorNew = { "ERRORNEW", { HB_FS_PUBLIC | HB_FS_LOCAL }, { HB_FUNCNAME( ERRORNEW ) }, NULL };

typedef struct
{
   PHB_ERROR_INFO errorHandler;
   PHB_ITEM       errorBlock;
   int            iLaunchCount;
   int            uiErrorDOS;    /* The value of DosError() */
} HB_ERRDATA, * PHB_ERRDATA;

static void hb_errorDataRelease( void * Cargo )
{
   PHB_ERRDATA pErrData = ( PHB_ERRDATA ) Cargo;

   hb_itemRelease( pErrData->errorBlock );
}
Exemplo n.º 26
0
HB_FUNC_STATIC( DEFINICIJA_KALK_DOKS_TABELE );
HB_FUNC_EXTERN( CREATE_DBF );
HB_FUNC( MODSTRU_KALK_DOKS );
HB_FUNC_EXTERN( AFTER_CREATE_MODSTRU );
HB_FUNC_EXTERN( CREATE_INDEX );
HB_FUNC_EXTERN( THREAD_CREATE_MODSTRU_INDEX_DBF );
HB_FUNC_STATIC( DEFINICIJA_KALK_TABELE );
HB_FUNC_EXTERN(  );
HB_FUNC( MODSTRU_KALK_KALK );
HB_FUNC_EXTERN( AADD );
HB_FUNC_EXTERN( F18_DOK_ATRIB );
HB_FUNC_EXTERN( MODSTRU );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_CRE_ALL_KALK )
{ "CRE_ALL_KALK", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( CRE_ALL_KALK )}, NULL },
{ "CRE_KALK_DOKS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( CRE_KALK_DOKS )}, NULL },
{ "CRE_KALK_KALK", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( CRE_KALK_KALK )}, NULL },
{ "DEFINICIJA_KALK_DOKS_TABELE", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( DEFINICIJA_KALK_DOKS_TABELE )}, NULL },
{ "CREATE_DBF", {HB_FS_PUBLIC}, {HB_FUNCNAME( CREATE_DBF )}, NULL },
{ "MODSTRU_KALK_DOKS", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( MODSTRU_KALK_DOKS )}, NULL },
{ "AFTER_CREATE_MODSTRU", {HB_FS_PUBLIC}, {HB_FUNCNAME( AFTER_CREATE_MODSTRU )}, NULL },
{ "CREATE_INDEX", {HB_FS_PUBLIC}, {HB_FUNCNAME( CREATE_INDEX )}, NULL },
{ "THREAD_CREATE_MODSTRU_INDEX_DBF", {HB_FS_PUBLIC}, {HB_FUNCNAME( THREAD_CREATE_MODSTRU_INDEX_DBF )}, NULL },
{ "DEFINICIJA_KALK_TABELE", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( DEFINICIJA_KALK_TABELE )}, NULL },
{ "", {HB_FS_PUBLIC}, {HB_FUNCNAME(  )}, NULL },
{ "MODSTRU_KALK_KALK", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( MODSTRU_KALK_KALK )}, NULL },
{ "AADD", {HB_FS_PUBLIC}, {HB_FUNCNAME( AADD )}, NULL },
{ "CREATE_LOCAL_ATRIB_TABLE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "F18_DOK_ATRIB", {HB_FS_PUBLIC}, {HB_FUNCNAME( F18_DOK_ATRIB )}, NULL },
Exemplo n.º 27
0
 * Generated C source from "QINTCHR_.PRG"
 */

#include "hbvmpub.h"
#include "hbinit.h"


HB_FUNC( QINTCHR );
HB_FUNC_EXTERN( VALTYPE );
HB_FUNC_EXTERN( SUBSTR );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( LEFT );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_QINTCHR_ )
{ "QINTCHR", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( QINTCHR )}, NULL },
{ "VALTYPE", {HB_FS_PUBLIC}, {HB_FUNCNAME( VALTYPE )}, NULL },
{ "SUBSTR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SUBSTR )}, NULL },
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
{ "LEFT", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEFT )}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_QINTCHR_, "QINTCHR_.PRG", 0x0, 0x0002 )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup hb_vm_SymbolInit_QINTCHR_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( hb_vm_SymbolInit_QINTCHR_ )
   #include "hbiniseg.h"
#endif

HB_FUNC( QINTCHR )
{
Exemplo n.º 28
0
      hb_retni( hb_rddInheritEx( pTable, &sdfTable, &sdfSuper, NULL, NULL ) );
   }
   else
      hb_retni( HB_FAILURE );
}

static void hb_sdfRddInit( void * cargo )
{
   HB_SYMBOL_UNUSED( cargo );

   if( hb_rddRegister( "SDF", RDT_TRANSFER ) > 1 )
      hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
}

HB_INIT_SYMBOLS_BEGIN( sdf1__InitSymbols )
{ "SDF",              {HB_FS_PUBLIC|HB_FS_LOCAL}, {HB_FUNCNAME( SDF )}, NULL },
{ "SDF_GETFUNCTABLE", {HB_FS_PUBLIC|HB_FS_LOCAL}, {HB_FUNCNAME( SDF_GETFUNCTABLE )}, NULL }
HB_INIT_SYMBOLS_END( sdf1__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_sdf_rdd_init_ )
   hb_vmAtInit( hb_sdfRddInit, NULL );
HB_CALL_ON_STARTUP_END( _hb_sdf_rdd_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup sdf1__InitSymbols
   #pragma startup _hb_sdf_rdd_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY    HB_DATASEG_FUNC( sdf1__InitSymbols ) \
                              HB_DATASEG_FUNC( _hb_sdf_rdd_init_ )
   #include "hbiniseg.h"
#endif
Exemplo n.º 29
0
   }
   else
      hb_retni( HB_FAILURE );
}

static void hb_sqlbaseInit( void * cargo )
{
   HB_SYMBOL_UNUSED( cargo );

   if( hb_rddRegister( "SQLBASE", RDT_FULL ) > 1 )
      hb_errInternal( HB_EI_RDDINVALID, NULL, NULL, NULL );
}

HB_INIT_SYMBOLS_BEGIN( sqlbase__InitSymbols )
{
   "SQLBASE", { HB_FS_PUBLIC }, { HB_FUNCNAME( SQLBASE ) }, NULL
},
{ "SQLBASE_GETFUNCTABLE", { HB_FS_PUBLIC }, { HB_FUNCNAME( SQLBASE_GETFUNCTABLE ) }, NULL }
HB_INIT_SYMBOLS_END( sqlbase__InitSymbols )

HB_CALL_ON_STARTUP_BEGIN( _hb_sqlbase_init_ )
hb_vmAtInit( hb_sqlbaseInit, NULL );
HB_CALL_ON_STARTUP_END( _hb_sqlbase_init_ )

#if defined( HB_PRAGMA_STARTUP )
   #pragma startup sqlbase__InitSymbols
   #pragma startup _hb_sqlbase_init_
#elif defined( HB_DATASEG_STARTUP )
   #define HB_DATASEG_BODY  HB_DATASEG_FUNC( sqlbase__InitSymbols ) \
   HB_DATASEG_FUNC( _hb_sqlbase_init_ )
   #include "hbiniseg.h"
Exemplo n.º 30
0
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( QRELEASEFIELDS );
HB_FUNC_STATIC( I_CRITICA );
HB_FUNC_EXTERN( QAPPEND );
HB_FUNC_EXTERN( QRLOCK );
HB_FUNC_EXTERN( QREPLACEFIELDS );
HB_FUNC_EXTERN( QUNLOCK );
HB_FUNC_EXTERN( QM1 );
HB_FUNC_EXTERN( QM2 );
HB_FUNC_EXTERN( DBSEEK );
HB_FUNC_EXTERN( DBDELETE );
HB_FUNC_EXTERN( QM3 );


HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_Q198 )
{ "Q198", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( Q198 )}, NULL },
{ "QUSE", {HB_FS_PUBLIC}, {HB_FUNCNAME( QUSE )}, NULL },
{ "XDRV_SH", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "CGM", {HB_FS_PUBLIC}, {NULL}, NULL },
{ "QVIEW", {HB_FS_PUBLIC}, {HB_FUNCNAME( QVIEW )}, NULL },
{ "DBCLOSEAREA", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCLOSEAREA )}, NULL },
{ "C198A", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( C198A )}, NULL },
{ "SETCURSOR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SETCURSOR )}, NULL },
{ "COPCAO", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "UPPER", {HB_FS_PUBLIC}, {HB_FUNCNAME( UPPER )}, NULL },
{ "CHR", {HB_FS_PUBLIC}, {HB_FUNCNAME( CHR )}, NULL },
{ "XUSRA", {HB_FS_PUBLIC | HB_FS_MEMVAR}, {NULL}, NULL },
{ "QLBLOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( QLBLOC )}, NULL },
{ "QMENSA", {HB_FS_PUBLIC}, {HB_FUNCNAME( QMENSA )}, NULL },
{ "QABREV", {HB_FS_PUBLIC}, {HB_FUNCNAME( QABREV )}, NULL },
{ "I_EDICAO", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( I_EDICAO )}, NULL },