Charles KWON OhJun
486e466592
Major changes since last commit: - FiveSql2 SQL:1999 engine (10,458 LOC) — 43/43 ALL PASS - 21 compiler/runtime bugs fixed (short-circuit AND/OR, FOR LOOP, etc.) - @byref pass-by-reference via RefCell pattern - Mutable closure capture (EnsureLocalRef + RefCell sharing) - RTL: 400 → 479 functions (+79: file, string, datetime, hash, UTF-8) - DateTime/Timestamp fully working (hb_DateTime, hb_Hour/Min/Sec, display) - Reserved word guard (39 keywords blocked from function calls) - AEval arg order fix (element before index) - Closure capture redecl fix (unique _cap_ names per block) - Hash/string indexing in ArrayPush/ArrayPop - Harbour compat test suite: 51/51 - 4 docs: Porting Report, Implementation Plan, Optimization Plan, Commercialization Co-Authored-By: Claude Opus 4.6 (1M context) <noreply@anthropic.com>
728 lines
28 KiB
C
728 lines
28 KiB
C
/*
|
|
* Harbour 3.2.0dev (r2510040809)
|
|
* GNU C 13.3 (64-bit)
|
|
* Generated C source from "test/test_sql1999_hard.prg"
|
|
*/
|
|
|
|
#include "hbvmpub.h"
|
|
#include "hbinit.h"
|
|
|
|
|
|
HB_FUNC( MAIN );
|
|
HB_FUNC_EXTERN( QOUT );
|
|
HB_FUNC_STATIC( SETUPDATA );
|
|
HB_FUNC_STATIC( TEST01_RECURSIVECTE_WITHLEVELS );
|
|
HB_FUNC_STATIC( TEST02_WINDOWRANK_TOPN_PERDEPT );
|
|
HB_FUNC_STATIC( TEST03_CTE_MULTIJOIN_AGGREGATE );
|
|
HB_FUNC_STATIC( TEST04_RECURSIVEFIBONACCI_WINDOW );
|
|
HB_FUNC_STATIC( TEST05_NESTEDCTE_WINDOWLAG );
|
|
HB_FUNC_STATIC( TEST06_CTE_SUBQUERY_HAVING );
|
|
HB_FUNC_STATIC( TEST07_RECURSIVEPOWERSET );
|
|
HB_FUNC_STATIC( TEST08_WINDOW_RUNNINGTOTAL_PARTITION );
|
|
HB_FUNC_STATIC( TEST09_MULTICTE_CROSSJOIN_WINDOW );
|
|
HB_FUNC_STATIC( TEST10_RECURSIVE_HIERARCHY_DEPTH_SALARY );
|
|
HB_FUNC_STATIC( CLEANUPDATA );
|
|
HB_FUNC_EXTERN( HB_NTOS );
|
|
HB_FUNC_EXTERN( INT );
|
|
HB_FUNC_EXTERN( MAX );
|
|
HB_FUNC_STATIC( ASSERT );
|
|
HB_FUNC_STATIC( ROWS );
|
|
HB_FUNC_EXTERN( VALTYPE );
|
|
HB_FUNC_EXTERN( LEN );
|
|
HB_FUNC_STATIC( CELLVAL );
|
|
HB_FUNC_EXTERN( FERASE );
|
|
HB_FUNC_EXTERN( DBCREATE );
|
|
HB_FUNC_EXTERN( DBUSEAREA );
|
|
HB_FUNC_EXTERN( DBAPPEND );
|
|
HB_FUNC_EXTERN( FIELDPUT );
|
|
HB_FUNC_EXTERN( DBCOMMIT );
|
|
HB_FUNC_EXTERN( DBCLOSEALL );
|
|
HB_FUNC_EXTERN( DBSELECTAREA );
|
|
HB_FUNC_EXTERN( __SETFORMAT );
|
|
HB_FUNC_EXTERN( FIVE_SQL );
|
|
HB_FUNC_INITSTATICS();
|
|
|
|
|
|
HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_TEST_SQL1999_HARD )
|
|
{ "MAIN", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( MAIN )}, NULL },
|
|
{ "QOUT", {HB_FS_PUBLIC}, {HB_FUNCNAME( QOUT )}, NULL },
|
|
{ "SETUPDATA", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( SETUPDATA )}, NULL },
|
|
{ "TEST01_RECURSIVECTE_WITHLEVELS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST01_RECURSIVECTE_WITHLEVELS )}, NULL },
|
|
{ "TEST02_WINDOWRANK_TOPN_PERDEPT", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST02_WINDOWRANK_TOPN_PERDEPT )}, NULL },
|
|
{ "TEST03_CTE_MULTIJOIN_AGGREGATE", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST03_CTE_MULTIJOIN_AGGREGATE )}, NULL },
|
|
{ "TEST04_RECURSIVEFIBONACCI_WINDOW", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST04_RECURSIVEFIBONACCI_WINDOW )}, NULL },
|
|
{ "TEST05_NESTEDCTE_WINDOWLAG", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST05_NESTEDCTE_WINDOWLAG )}, NULL },
|
|
{ "TEST06_CTE_SUBQUERY_HAVING", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST06_CTE_SUBQUERY_HAVING )}, NULL },
|
|
{ "TEST07_RECURSIVEPOWERSET", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST07_RECURSIVEPOWERSET )}, NULL },
|
|
{ "TEST08_WINDOW_RUNNINGTOTAL_PARTITION", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST08_WINDOW_RUNNINGTOTAL_PARTITION )}, NULL },
|
|
{ "TEST09_MULTICTE_CROSSJOIN_WINDOW", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST09_MULTICTE_CROSSJOIN_WINDOW )}, NULL },
|
|
{ "TEST10_RECURSIVE_HIERARCHY_DEPTH_SALARY", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TEST10_RECURSIVE_HIERARCHY_DEPTH_SALARY )}, NULL },
|
|
{ "CLEANUPDATA", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( CLEANUPDATA )}, NULL },
|
|
{ "HB_NTOS", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_NTOS )}, NULL },
|
|
{ "INT", {HB_FS_PUBLIC}, {HB_FUNCNAME( INT )}, NULL },
|
|
{ "MAX", {HB_FS_PUBLIC}, {HB_FUNCNAME( MAX )}, NULL },
|
|
{ "ASSERT", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( ASSERT )}, NULL },
|
|
{ "ROWS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( ROWS )}, NULL },
|
|
{ "VALTYPE", {HB_FS_PUBLIC}, {HB_FUNCNAME( VALTYPE )}, NULL },
|
|
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
|
|
{ "CELLVAL", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( CELLVAL )}, NULL },
|
|
{ "FERASE", {HB_FS_PUBLIC}, {HB_FUNCNAME( FERASE )}, NULL },
|
|
{ "DBCREATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCREATE )}, NULL },
|
|
{ "DBUSEAREA", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBUSEAREA )}, NULL },
|
|
{ "DBAPPEND", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBAPPEND )}, NULL },
|
|
{ "FIELDPUT", {HB_FS_PUBLIC}, {HB_FUNCNAME( FIELDPUT )}, NULL },
|
|
{ "DBCOMMIT", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCOMMIT )}, NULL },
|
|
{ "DBCLOSEALL", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBCLOSEALL )}, NULL },
|
|
{ "DBSELECTAREA", {HB_FS_PUBLIC}, {HB_FUNCNAME( DBSELECTAREA )}, NULL },
|
|
{ "__SETFORMAT", {HB_FS_PUBLIC}, {HB_FUNCNAME( __SETFORMAT )}, NULL },
|
|
{ "FIVE_SQL", {HB_FS_PUBLIC}, {HB_FUNCNAME( FIVE_SQL )}, NULL },
|
|
{ "(_INITSTATICS00003)", {HB_FS_INITEXIT | HB_FS_LOCAL}, {hb_INITSTATICS}, NULL }
|
|
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_TEST_SQL1999_HARD, "test/test_sql1999_hard.prg", 0x0, 0x0003 )
|
|
|
|
#if defined( HB_PRAGMA_STARTUP )
|
|
#pragma startup hb_vm_SymbolInit_TEST_SQL1999_HARD
|
|
#elif defined( HB_DATASEG_STARTUP )
|
|
#define HB_DATASEG_BODY HB_DATASEG_FUNC( hb_vm_SymbolInit_TEST_SQL1999_HARD )
|
|
#include "hbiniseg.h"
|
|
#endif
|
|
|
|
HB_FUNC( MAIN )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
116,32,0,36,21,0,176,1,0,106,65,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,0,20,1,36,22,0,176,1,0,
|
|
106,43,32,32,83,81,76,58,49,57,57,57,32,67,
|
|
111,109,112,108,101,120,32,83,116,114,101,115,115,32,
|
|
84,101,115,116,115,32,40,49,48,32,116,101,115,116,
|
|
115,41,0,20,1,36,23,0,176,1,0,106,65,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,0,20,1,36,24,0,176,
|
|
1,0,20,0,36,26,0,176,2,0,20,0,36,28,
|
|
0,176,3,0,20,0,36,29,0,176,4,0,20,0,
|
|
36,30,0,176,5,0,20,0,36,31,0,176,6,0,
|
|
20,0,36,32,0,176,7,0,20,0,36,33,0,176,
|
|
8,0,20,0,36,34,0,176,9,0,20,0,36,35,
|
|
0,176,10,0,20,0,36,36,0,176,11,0,20,0,
|
|
36,37,0,176,12,0,20,0,36,39,0,176,13,0,
|
|
20,0,36,41,0,176,1,0,20,0,36,42,0,176,
|
|
1,0,106,65,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,0,20,
|
|
1,36,43,0,176,1,0,106,10,32,32,80,97,115,
|
|
115,58,32,32,0,176,14,0,103,1,0,12,1,72,
|
|
20,1,36,44,0,176,1,0,106,10,32,32,70,97,
|
|
105,108,58,32,32,0,176,14,0,103,2,0,12,1,
|
|
72,20,1,36,45,0,176,1,0,106,10,32,32,84,
|
|
111,116,97,108,58,32,0,176,14,0,103,3,0,12,
|
|
1,72,20,1,36,46,0,176,1,0,106,10,32,32,
|
|
82,97,116,101,58,32,32,0,176,14,0,176,15,0,
|
|
103,1,0,92,100,65,176,16,0,103,3,0,122,12,
|
|
2,18,12,1,12,1,72,106,2,37,0,72,20,1,
|
|
36,47,0,176,1,0,106,65,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,61,61,61,61,61,61,61,61,61,61,61,61,
|
|
61,61,0,20,1,36,49,0,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( ASSERT )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,2,116,32,0,36,54,0,104,3,0,170,36,
|
|
55,0,95,2,28,33,36,56,0,104,1,0,170,36,
|
|
57,0,176,1,0,106,9,32,32,80,65,83,83,58,
|
|
32,0,95,1,72,20,1,25,31,36,59,0,104,2,
|
|
0,170,36,60,0,176,1,0,106,9,32,32,70,65,
|
|
73,76,58,32,0,95,1,72,20,1,36,63,0,95,
|
|
2,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( ROWS )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,1,36,68,0,176,19,0,95,1,12,1,106,
|
|
2,65,0,8,28,45,176,20,0,95,1,12,1,92,
|
|
2,16,28,33,176,19,0,95,1,92,2,1,12,1,
|
|
106,2,65,0,8,28,16,36,69,0,176,20,0,95,
|
|
1,92,2,1,20,1,7,36,72,0,121,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( CELLVAL )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,3,36,79,0,176,19,0,95,1,12,1,106,
|
|
2,65,0,8,28,100,176,20,0,95,1,12,1,92,
|
|
2,16,28,88,176,19,0,95,1,92,2,1,12,1,
|
|
106,2,65,0,8,28,71,95,2,176,20,0,95,1,
|
|
92,2,1,12,1,34,28,56,176,19,0,95,1,92,
|
|
2,1,95,2,1,12,1,106,2,65,0,8,28,36,
|
|
95,3,176,20,0,95,1,92,2,1,95,2,1,12,
|
|
1,34,28,18,36,80,0,95,1,92,2,1,95,2,
|
|
1,95,3,1,110,7,36,83,0,100,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( SETUPDATA )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
36,89,0,176,22,0,106,14,101,109,112,108,111,121,
|
|
101,101,115,46,100,98,102,0,20,1,36,96,0,176,
|
|
23,0,106,14,101,109,112,108,111,121,101,101,115,46,
|
|
100,98,102,0,106,3,73,68,0,106,2,78,0,92,
|
|
10,121,4,4,0,106,5,78,65,77,69,0,106,2,
|
|
67,0,92,30,121,4,4,0,106,5,68,69,80,84,
|
|
0,106,2,67,0,92,20,121,4,4,0,106,7,83,
|
|
65,76,65,82,89,0,106,2,78,0,92,12,92,2,
|
|
4,4,0,106,7,77,71,82,95,73,68,0,106,2,
|
|
78,0,92,10,121,4,4,0,4,5,0,20,2,36,
|
|
97,0,176,24,0,120,100,106,14,101,109,112,108,111,
|
|
121,101,101,115,46,100,98,102,0,100,9,9,20,6,
|
|
36,98,0,176,25,0,20,0,176,26,0,122,122,20,
|
|
2,176,26,0,92,2,106,6,65,108,105,99,101,0,
|
|
20,2,176,26,0,92,3,106,12,69,110,103,105,110,
|
|
101,101,114,105,110,103,0,20,2,176,26,0,92,4,
|
|
93,64,31,20,2,176,26,0,92,5,121,20,2,36,
|
|
99,0,176,25,0,20,0,176,26,0,122,92,2,20,
|
|
2,176,26,0,92,2,106,4,66,111,98,0,20,2,
|
|
176,26,0,92,3,106,12,69,110,103,105,110,101,101,
|
|
114,105,110,103,0,20,2,176,26,0,92,4,93,88,
|
|
27,20,2,176,26,0,92,5,122,20,2,36,100,0,
|
|
176,25,0,20,0,176,26,0,122,92,3,20,2,176,
|
|
26,0,92,2,106,8,67,104,97,114,108,105,101,0,
|
|
20,2,176,26,0,92,3,106,12,69,110,103,105,110,
|
|
101,101,114,105,110,103,0,20,2,176,26,0,92,4,
|
|
93,112,23,20,2,176,26,0,92,5,122,20,2,36,
|
|
101,0,176,25,0,20,0,176,26,0,122,92,4,20,
|
|
2,176,26,0,92,2,106,6,68,105,97,110,97,0,
|
|
20,2,176,26,0,92,3,106,6,83,97,108,101,115,
|
|
0,20,2,176,26,0,92,4,93,76,29,20,2,176,
|
|
26,0,92,5,121,20,2,36,102,0,176,25,0,20,
|
|
0,176,26,0,122,92,5,20,2,176,26,0,92,2,
|
|
106,4,69,118,101,0,20,2,176,26,0,92,3,106,
|
|
6,83,97,108,101,115,0,20,2,176,26,0,92,4,
|
|
93,136,19,20,2,176,26,0,92,5,92,4,20,2,
|
|
36,103,0,176,25,0,20,0,176,26,0,122,92,6,
|
|
20,2,176,26,0,92,2,106,6,70,114,97,110,107,
|
|
0,20,2,176,26,0,92,3,106,6,83,97,108,101,
|
|
115,0,20,2,176,26,0,92,4,93,148,17,20,2,
|
|
176,26,0,92,5,92,4,20,2,36,104,0,176,25,
|
|
0,20,0,176,26,0,122,92,7,20,2,176,26,0,
|
|
92,2,106,6,71,114,97,99,101,0,20,2,176,26,
|
|
0,92,3,106,10,77,97,114,107,101,116,105,110,103,
|
|
0,20,2,176,26,0,92,4,93,100,25,20,2,176,
|
|
26,0,92,5,121,20,2,36,105,0,176,25,0,20,
|
|
0,176,26,0,122,92,8,20,2,176,26,0,92,2,
|
|
106,6,72,101,110,114,121,0,20,2,176,26,0,92,
|
|
3,106,10,77,97,114,107,101,116,105,110,103,0,20,
|
|
2,176,26,0,92,4,93,124,21,20,2,176,26,0,
|
|
92,5,92,7,20,2,36,106,0,176,25,0,20,0,
|
|
176,26,0,122,92,9,20,2,176,26,0,92,2,106,
|
|
4,73,118,121,0,20,2,176,26,0,92,3,106,3,
|
|
72,82,0,20,2,176,26,0,92,4,93,112,23,20,
|
|
2,176,26,0,92,5,121,20,2,36,107,0,176,25,
|
|
0,20,0,176,26,0,122,92,10,20,2,176,26,0,
|
|
92,2,106,5,74,97,99,107,0,20,2,176,26,0,
|
|
92,3,106,3,72,82,0,20,2,176,26,0,92,4,
|
|
93,136,19,20,2,176,26,0,92,5,92,9,20,2,
|
|
36,108,0,176,27,0,20,0,36,109,0,176,28,0,
|
|
20,0,176,29,0,106,2,49,0,20,1,176,30,0,
|
|
100,20,1,36,112,0,176,22,0,106,11,111,114,100,
|
|
101,114,115,46,100,98,102,0,20,1,36,119,0,176,
|
|
23,0,106,11,111,114,100,101,114,115,46,100,98,102,
|
|
0,106,3,73,68,0,106,2,78,0,92,10,121,4,
|
|
4,0,106,7,69,77,80,95,73,68,0,106,2,78,
|
|
0,92,10,121,4,4,0,106,8,80,82,79,68,85,
|
|
67,84,0,106,2,67,0,92,30,121,4,4,0,106,
|
|
7,65,77,79,85,78,84,0,106,2,78,0,92,12,
|
|
92,2,4,4,0,106,11,79,82,68,69,82,95,68,
|
|
65,84,69,0,106,2,67,0,92,10,121,4,4,0,
|
|
4,5,0,20,2,36,120,0,176,24,0,120,100,106,
|
|
11,111,114,100,101,114,115,46,100,98,102,0,100,9,
|
|
9,20,6,36,121,0,176,25,0,20,0,176,26,0,
|
|
122,122,20,2,176,26,0,92,2,122,20,2,176,26,
|
|
0,92,3,106,7,76,97,112,116,111,112,0,20,2,
|
|
176,26,0,92,4,93,196,9,20,2,36,122,0,176,
|
|
25,0,20,0,176,26,0,122,92,2,20,2,176,26,
|
|
0,92,2,122,20,2,176,26,0,92,3,106,8,77,
|
|
111,110,105,116,111,114,0,20,2,176,26,0,92,4,
|
|
93,32,3,20,2,36,123,0,176,25,0,20,0,176,
|
|
26,0,122,92,3,20,2,176,26,0,92,2,92,2,
|
|
20,2,176,26,0,92,3,106,9,75,101,121,98,111,
|
|
97,114,100,0,20,2,176,26,0,92,4,93,150,0,
|
|
20,2,36,124,0,176,25,0,20,0,176,26,0,122,
|
|
92,4,20,2,176,26,0,92,2,92,3,20,2,176,
|
|
26,0,92,3,106,6,77,111,117,115,101,0,20,2,
|
|
176,26,0,92,4,92,100,20,2,36,125,0,176,25,
|
|
0,20,0,176,26,0,122,92,5,20,2,176,26,0,
|
|
92,2,92,4,20,2,176,26,0,92,3,106,8,80,
|
|
114,105,110,116,101,114,0,20,2,176,26,0,92,4,
|
|
93,176,4,20,2,36,126,0,176,25,0,20,0,176,
|
|
26,0,122,92,6,20,2,176,26,0,92,2,92,4,
|
|
20,2,176,26,0,92,3,106,8,83,99,97,110,110,
|
|
101,114,0,20,2,176,26,0,92,4,93,244,1,20,
|
|
2,36,127,0,176,25,0,20,0,176,26,0,122,92,
|
|
7,20,2,176,26,0,92,2,92,5,20,2,176,26,
|
|
0,92,3,106,7,84,97,98,108,101,116,0,20,2,
|
|
176,26,0,92,4,93,132,3,20,2,36,128,0,176,
|
|
25,0,20,0,176,26,0,122,92,8,20,2,176,26,
|
|
0,92,2,92,6,20,2,176,26,0,92,3,106,6,
|
|
80,104,111,110,101,0,20,2,176,26,0,92,4,93,
|
|
76,4,20,2,36,129,0,176,25,0,20,0,176,26,
|
|
0,122,92,9,20,2,176,26,0,92,2,92,7,20,
|
|
2,176,26,0,92,3,106,7,67,97,109,101,114,97,
|
|
0,20,2,176,26,0,92,4,93,184,11,20,2,36,
|
|
130,0,176,25,0,20,0,176,26,0,122,92,10,20,
|
|
2,176,26,0,92,2,92,7,20,2,176,26,0,92,
|
|
3,106,5,76,101,110,115,0,20,2,176,26,0,92,
|
|
4,93,220,5,20,2,36,131,0,176,25,0,20,0,
|
|
176,26,0,122,92,11,20,2,176,26,0,92,2,92,
|
|
8,20,2,176,26,0,92,3,106,8,72,101,97,100,
|
|
115,101,116,0,20,2,176,26,0,92,4,93,250,0,
|
|
20,2,36,132,0,176,25,0,20,0,176,26,0,122,
|
|
92,12,20,2,176,26,0,92,2,92,9,20,2,176,
|
|
26,0,92,3,106,5,68,101,115,107,0,20,2,176,
|
|
26,0,92,4,93,32,3,20,2,36,133,0,176,25,
|
|
0,20,0,176,26,0,122,92,13,20,2,176,26,0,
|
|
92,2,92,9,20,2,176,26,0,92,3,106,6,67,
|
|
104,97,105,114,0,20,2,176,26,0,92,4,93,88,
|
|
2,20,2,36,134,0,176,25,0,20,0,176,26,0,
|
|
122,92,14,20,2,176,26,0,92,2,92,10,20,2,
|
|
176,26,0,92,3,106,5,76,97,109,112,0,20,2,
|
|
176,26,0,92,4,93,200,0,20,2,36,135,0,176,
|
|
25,0,20,0,176,26,0,122,92,15,20,2,176,26,
|
|
0,92,2,92,2,20,2,176,26,0,92,3,106,7,
|
|
87,101,98,99,97,109,0,20,2,176,26,0,92,4,
|
|
93,94,1,20,2,36,136,0,176,27,0,20,0,36,
|
|
137,0,176,28,0,20,0,176,29,0,106,2,49,0,
|
|
20,1,176,30,0,100,20,1,36,139,0,100,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( CLEANUPDATA )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
36,144,0,176,28,0,20,0,36,145,0,176,22,0,
|
|
106,14,101,109,112,108,111,121,101,101,115,46,100,98,
|
|
102,0,20,1,36,146,0,176,22,0,106,11,111,114,
|
|
100,101,114,115,46,100,98,102,0,20,1,36,147,0,
|
|
176,22,0,106,14,95,95,99,116,101,95,111,114,103,
|
|
46,100,98,102,0,20,1,36,148,0,176,22,0,106,
|
|
15,95,95,99,116,101,95,110,117,109,115,46,100,98,
|
|
102,0,20,1,36,149,0,176,22,0,106,14,95,95,
|
|
99,116,101,95,102,105,98,46,100,98,102,0,20,1,
|
|
36,150,0,176,22,0,106,17,95,95,99,116,101,95,
|
|
114,97,110,107,101,100,46,100,98,102,0,20,1,36,
|
|
151,0,176,22,0,106,21,95,95,99,116,101,95,100,
|
|
101,112,116,95,115,116,97,116,115,46,100,98,102,0,
|
|
20,1,36,152,0,176,22,0,106,23,95,95,99,116,
|
|
101,95,111,114,100,101,114,95,116,111,116,97,108,115,
|
|
46,100,98,102,0,20,1,36,153,0,176,22,0,106,
|
|
19,95,95,99,116,101,95,116,111,112,95,101,109,112,
|
|
115,46,100,98,102,0,20,1,36,154,0,176,22,0,
|
|
106,23,95,95,99,116,101,95,100,101,112,116,95,115,
|
|
117,109,109,97,114,121,46,100,98,102,0,20,1,36,
|
|
155,0,176,22,0,106,21,95,95,99,116,101,95,101,
|
|
109,112,95,111,114,100,101,114,115,46,100,98,102,0,
|
|
20,1,36,156,0,176,22,0,106,17,95,95,99,116,
|
|
101,95,112,111,119,101,114,115,46,100,98,102,0,20,
|
|
1,36,158,0,100,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST01_RECURSIVECTE_WITHLEVELS )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,169,0,176,28,0,20,0,
|
|
36,170,0,113,75,1,0,36,176,0,176,31,0,106,
|
|
215,87,73,84,72,32,82,69,67,85,82,83,73,86,
|
|
69,32,111,114,103,32,65,83,32,40,83,69,76,69,
|
|
67,84,32,105,100,44,32,110,97,109,101,44,32,49,
|
|
32,65,83,32,108,118,108,32,70,82,79,77,32,101,
|
|
109,112,108,111,121,101,101,115,32,87,72,69,82,69,
|
|
32,109,103,114,95,105,100,32,61,32,48,32,85,78,
|
|
73,79,78,32,65,76,76,32,83,69,76,69,67,84,
|
|
32,101,46,105,100,44,32,101,46,110,97,109,101,44,
|
|
32,111,46,108,118,108,32,43,32,49,32,70,82,79,
|
|
77,32,101,109,112,108,111,121,101,101,115,32,101,32,
|
|
74,79,73,78,32,111,114,103,32,111,32,79,78,32,
|
|
101,46,109,103,114,95,105,100,32,61,32,111,46,105,
|
|
100,41,32,83,69,76,69,67,84,32,110,97,109,101,
|
|
44,32,108,118,108,32,70,82,79,77,32,111,114,103,
|
|
32,79,82,68,69,82,32,66,89,32,108,118,108,44,
|
|
32,110,97,109,101,0,12,1,80,1,36,178,0,176,
|
|
17,0,106,60,49,46,32,82,101,99,117,114,115,105,
|
|
118,101,32,67,84,69,32,43,32,74,79,73,78,58,
|
|
32,111,114,103,32,104,105,101,114,97,114,99,104,121,
|
|
32,49,48,32,114,111,119,115,44,32,108,118,108,32,
|
|
49,32,102,105,114,115,116,0,176,18,0,95,1,12,
|
|
1,92,10,8,21,28,15,73,176,21,0,95,1,122,
|
|
92,2,12,3,122,8,20,2,114,78,0,0,36,179,
|
|
0,115,73,36,180,0,104,3,0,170,104,2,0,170,
|
|
176,1,0,106,51,32,32,70,65,73,76,58,32,49,
|
|
46,32,82,101,99,117,114,115,105,118,101,32,67,84,
|
|
69,32,111,114,103,32,104,105,101,114,97,114,99,104,
|
|
121,32,40,101,120,99,101,112,116,105,111,110,41,0,
|
|
20,1,36,183,0,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST02_WINDOWRANK_TOPN_PERDEPT )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,194,0,176,28,0,20,0,
|
|
36,195,0,113,21,1,0,36,201,0,176,31,0,106,
|
|
203,87,73,84,72,32,114,97,110,107,101,100,32,65,
|
|
83,32,40,83,69,76,69,67,84,32,110,97,109,101,
|
|
44,32,100,101,112,116,44,32,115,97,108,97,114,121,
|
|
44,32,82,79,87,95,78,85,77,66,69,82,40,41,
|
|
32,79,86,69,82,32,40,80,65,82,84,73,84,73,
|
|
79,78,32,66,89,32,100,101,112,116,32,79,82,68,
|
|
69,82,32,66,89,32,115,97,108,97,114,121,32,68,
|
|
69,83,67,41,32,65,83,32,114,110,32,70,82,79,
|
|
77,32,101,109,112,108,111,121,101,101,115,41,32,83,
|
|
69,76,69,67,84,32,110,97,109,101,44,32,100,101,
|
|
112,116,44,32,115,97,108,97,114,121,32,70,82,79,
|
|
77,32,114,97,110,107,101,100,32,87,72,69,82,69,
|
|
32,114,110,32,60,61,32,50,32,79,82,68,69,82,
|
|
32,66,89,32,100,101,112,116,44,32,115,97,108,97,
|
|
114,121,32,68,69,83,67,0,12,1,80,1,36,204,
|
|
0,176,17,0,106,34,50,46,32,87,105,110,100,111,
|
|
119,32,82,65,78,75,32,116,111,112,32,50,47,100,
|
|
101,112,116,58,32,56,32,114,111,119,115,0,176,18,
|
|
0,95,1,12,1,92,8,8,20,2,114,73,0,0,
|
|
36,205,0,115,73,36,206,0,104,3,0,170,104,2,
|
|
0,170,176,1,0,106,46,32,32,70,65,73,76,58,
|
|
32,50,46,32,87,105,110,100,111,119,32,82,65,78,
|
|
75,32,116,111,112,32,50,47,100,101,112,116,32,40,
|
|
101,120,99,101,112,116,105,111,110,41,0,20,1,36,
|
|
209,0,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST03_CTE_MULTIJOIN_AGGREGATE )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,220,0,176,28,0,20,0,
|
|
36,221,0,113,85,1,0,36,228,0,176,31,0,106,
|
|
240,87,73,84,72,32,111,114,100,101,114,95,116,111,
|
|
116,97,108,115,32,65,83,32,40,83,69,76,69,67,
|
|
84,32,101,109,112,95,105,100,44,32,83,85,77,40,
|
|
97,109,111,117,110,116,41,32,65,83,32,116,111,116,
|
|
97,108,44,32,67,79,85,78,84,40,42,41,32,65,
|
|
83,32,99,110,116,32,70,82,79,77,32,111,114,100,
|
|
101,114,115,32,71,82,79,85,80,32,66,89,32,101,
|
|
109,112,95,105,100,41,32,83,69,76,69,67,84,32,
|
|
101,46,110,97,109,101,44,32,101,46,100,101,112,116,
|
|
44,32,116,46,116,111,116,97,108,44,32,116,46,99,
|
|
110,116,32,70,82,79,77,32,101,109,112,108,111,121,
|
|
101,101,115,32,101,32,74,79,73,78,32,111,114,100,
|
|
101,114,95,116,111,116,97,108,115,32,116,32,79,78,
|
|
32,101,46,105,100,32,61,32,116,46,101,109,112,95,
|
|
105,100,32,87,72,69,82,69,32,116,46,116,111,116,
|
|
97,108,32,62,32,53,48,48,32,79,82,68,69,82,
|
|
32,66,89,32,116,46,116,111,116,97,108,32,68,69,
|
|
83,67,0,12,1,80,1,36,230,0,176,17,0,106,
|
|
43,51,46,32,67,84,69,43,74,79,73,78,43,65,
|
|
103,103,58,32,101,109,112,108,111,121,101,101,115,32,
|
|
119,105,116,104,32,111,114,100,101,114,115,62,53,48,
|
|
48,0,176,18,0,95,1,12,1,92,5,16,21,28,
|
|
17,73,176,21,0,95,1,122,92,3,12,3,93,244,
|
|
1,16,20,2,114,63,0,0,36,231,0,115,73,36,
|
|
232,0,104,3,0,170,104,2,0,170,176,1,0,106,
|
|
36,32,32,70,65,73,76,58,32,51,46,32,67,84,
|
|
69,43,74,79,73,78,43,65,103,103,32,40,101,120,
|
|
99,101,112,116,105,111,110,41,0,20,1,36,235,0,
|
|
7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST04_RECURSIVEFIBONACCI_WINDOW )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,246,0,176,28,0,20,0,
|
|
36,247,0,113,232,0,0,36,253,0,176,31,0,106,
|
|
130,87,73,84,72,32,82,69,67,85,82,83,73,86,
|
|
69,32,102,105,98,32,65,83,32,40,83,69,76,69,
|
|
67,84,32,49,32,65,83,32,110,44,32,49,32,65,
|
|
83,32,97,44,32,48,32,65,83,32,98,32,85,78,
|
|
73,79,78,32,65,76,76,32,83,69,76,69,67,84,
|
|
32,110,32,43,32,49,44,32,97,32,43,32,98,44,
|
|
32,97,32,70,82,79,77,32,102,105,98,32,87,72,
|
|
69,82,69,32,110,32,60,32,49,48,41,32,83,69,
|
|
76,69,67,84,32,110,44,32,97,32,70,82,79,77,
|
|
32,102,105,98,0,12,1,80,1,36,0,1,176,17,
|
|
0,106,44,52,46,32,82,101,99,117,114,115,105,118,
|
|
101,32,70,105,98,111,110,97,99,99,105,58,32,49,
|
|
48,32,114,111,119,115,44,32,102,105,98,40,49,48,
|
|
41,61,53,53,0,176,18,0,95,1,12,1,92,10,
|
|
8,21,28,17,73,176,21,0,95,1,92,10,92,2,
|
|
12,3,92,55,8,20,2,114,70,0,0,36,1,1,
|
|
115,73,36,2,1,104,3,0,170,104,2,0,170,176,
|
|
1,0,106,43,32,32,70,65,73,76,58,32,52,46,
|
|
32,82,101,99,117,114,115,105,118,101,32,70,105,98,
|
|
111,110,97,99,99,105,32,40,101,120,99,101,112,116,
|
|
105,111,110,41,0,20,1,36,5,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST05_NESTEDCTE_WINDOWLAG )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,16,1,176,28,0,20,0,
|
|
36,17,1,113,229,0,0,36,21,1,176,31,0,106,
|
|
115,83,69,76,69,67,84,32,110,97,109,101,44,32,
|
|
115,97,108,97,114,121,44,32,76,65,71,40,115,97,
|
|
108,97,114,121,44,32,49,41,32,79,86,69,82,32,
|
|
40,79,82,68,69,82,32,66,89,32,115,97,108,97,
|
|
114,121,32,68,69,83,67,41,32,65,83,32,112,114,
|
|
101,118,95,115,97,108,97,114,121,32,70,82,79,77,
|
|
32,101,109,112,108,111,121,101,101,115,32,79,82,68,
|
|
69,82,32,66,89,32,115,97,108,97,114,121,32,68,
|
|
69,83,67,0,12,1,80,1,36,25,1,176,17,0,
|
|
106,42,53,46,32,87,105,110,100,111,119,32,76,65,
|
|
71,58,32,49,48,32,114,111,119,115,44,32,102,105,
|
|
114,115,116,32,104,97,115,32,110,111,32,112,114,101,
|
|
118,0,176,18,0,95,1,12,1,92,10,8,21,28,
|
|
31,73,176,21,0,95,1,122,92,3,12,3,100,8,
|
|
21,31,15,73,176,21,0,95,1,122,92,3,12,3,
|
|
121,8,20,2,114,61,0,0,36,26,1,115,73,36,
|
|
27,1,104,3,0,170,104,2,0,170,176,1,0,106,
|
|
34,32,32,70,65,73,76,58,32,53,46,32,87,105,
|
|
110,100,111,119,32,76,65,71,32,40,101,120,99,101,
|
|
112,116,105,111,110,41,0,20,1,36,30,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST06_CTE_SUBQUERY_HAVING )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,41,1,176,28,0,20,0,
|
|
36,42,1,113,237,0,0,36,47,1,176,31,0,106,
|
|
144,83,69,76,69,67,84,32,100,101,112,116,44,32,
|
|
67,79,85,78,84,40,42,41,32,65,83,32,99,110,
|
|
116,44,32,65,86,71,40,115,97,108,97,114,121,41,
|
|
32,65,83,32,97,118,103,95,115,97,108,32,70,82,
|
|
79,77,32,101,109,112,108,111,121,101,101,115,32,87,
|
|
72,69,82,69,32,105,100,32,73,78,32,40,83,69,
|
|
76,69,67,84,32,101,109,112,95,105,100,32,70,82,
|
|
79,77,32,111,114,100,101,114,115,41,32,71,82,79,
|
|
85,80,32,66,89,32,100,101,112,116,32,79,82,68,
|
|
69,82,32,66,89,32,97,118,103,95,115,97,108,32,
|
|
68,69,83,67,0,12,1,80,1,36,49,1,176,17,
|
|
0,106,53,54,46,32,83,117,98,113,117,101,114,121,
|
|
43,71,82,79,85,80,32,66,89,58,32,100,101,112,
|
|
116,115,32,111,102,32,101,109,112,108,111,121,101,101,
|
|
115,32,119,105,116,104,32,111,114,100,101,114,115,0,
|
|
176,18,0,95,1,12,1,92,2,16,20,2,114,68,
|
|
0,0,36,50,1,115,73,36,51,1,104,3,0,170,
|
|
104,2,0,170,176,1,0,106,41,32,32,70,65,73,
|
|
76,58,32,54,46,32,83,117,98,113,117,101,114,121,
|
|
43,71,82,79,85,80,32,66,89,32,40,101,120,99,
|
|
101,112,116,105,111,110,41,0,20,1,36,54,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST07_RECURSIVEPOWERSET )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,65,1,176,28,0,20,0,
|
|
36,66,1,113,241,0,0,36,72,1,176,31,0,106,
|
|
134,87,73,84,72,32,82,69,67,85,82,83,73,86,
|
|
69,32,112,111,119,101,114,115,32,65,83,32,40,83,
|
|
69,76,69,67,84,32,48,32,65,83,32,110,44,32,
|
|
49,32,65,83,32,118,97,108,32,85,78,73,79,78,
|
|
32,65,76,76,32,83,69,76,69,67,84,32,110,32,
|
|
43,32,49,44,32,118,97,108,32,42,32,50,32,70,
|
|
82,79,77,32,112,111,119,101,114,115,32,87,72,69,
|
|
82,69,32,110,32,60,32,49,53,41,32,83,69,76,
|
|
69,67,84,32,110,44,32,118,97,108,32,70,82,79,
|
|
77,32,112,111,119,101,114,115,0,12,1,80,1,36,
|
|
75,1,176,17,0,106,46,55,46,32,82,101,99,117,
|
|
114,115,105,118,101,32,112,111,119,101,114,115,32,111,
|
|
102,32,50,58,32,49,54,32,114,111,119,115,44,32,
|
|
50,94,49,53,61,51,50,55,54,56,0,176,18,0,
|
|
95,1,12,1,92,16,8,21,28,20,73,176,21,0,
|
|
95,1,92,16,92,2,12,3,97,0,128,0,0,8,
|
|
20,2,114,67,0,0,36,76,1,115,73,36,77,1,
|
|
104,3,0,170,104,2,0,170,176,1,0,106,40,32,
|
|
32,70,65,73,76,58,32,55,46,32,82,101,99,117,
|
|
114,115,105,118,101,32,112,111,119,101,114,115,32,40,
|
|
101,120,99,101,112,116,105,111,110,41,0,20,1,36,
|
|
80,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST08_WINDOW_RUNNINGTOTAL_PARTITION )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,91,1,176,28,0,20,0,
|
|
36,92,1,113,206,0,0,36,96,1,176,31,0,106,
|
|
134,83,69,76,69,67,84,32,110,97,109,101,44,32,
|
|
100,101,112,116,44,32,115,97,108,97,114,121,44,32,
|
|
83,85,77,40,115,97,108,97,114,121,41,32,79,86,
|
|
69,82,32,40,80,65,82,84,73,84,73,79,78,32,
|
|
66,89,32,100,101,112,116,32,79,82,68,69,82,32,
|
|
66,89,32,115,97,108,97,114,121,41,32,65,83,32,
|
|
114,117,110,110,105,110,103,95,116,111,116,97,108,32,
|
|
70,82,79,77,32,101,109,112,108,111,121,101,101,115,
|
|
32,79,82,68,69,82,32,66,89,32,100,101,112,116,
|
|
44,32,115,97,108,97,114,121,0,12,1,80,1,36,
|
|
98,1,176,17,0,106,32,56,46,32,82,117,110,110,
|
|
105,110,103,32,83,85,77,32,98,121,32,100,101,112,
|
|
116,58,32,49,48,32,114,111,119,115,0,176,18,0,
|
|
95,1,12,1,92,10,8,20,2,114,71,0,0,36,
|
|
99,1,115,73,36,100,1,104,3,0,170,104,2,0,
|
|
170,176,1,0,106,44,32,32,70,65,73,76,58,32,
|
|
56,46,32,87,105,110,100,111,119,32,114,117,110,110,
|
|
105,110,103,32,116,111,116,97,108,32,40,101,120,99,
|
|
101,112,116,105,111,110,41,0,20,1,36,103,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST09_MULTICTE_CROSSJOIN_WINDOW )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,114,1,176,28,0,20,0,
|
|
36,115,1,113,44,1,0,36,122,1,176,31,0,106,
|
|
202,87,73,84,72,32,100,101,112,116,95,115,116,97,
|
|
116,115,32,65,83,32,40,83,69,76,69,67,84,32,
|
|
100,101,112,116,44,32,67,79,85,78,84,40,42,41,
|
|
32,65,83,32,99,110,116,44,32,83,85,77,40,115,
|
|
97,108,97,114,121,41,32,65,83,32,116,111,116,97,
|
|
108,32,70,82,79,77,32,101,109,112,108,111,121,101,
|
|
101,115,32,71,82,79,85,80,32,66,89,32,100,101,
|
|
112,116,41,32,83,69,76,69,67,84,32,100,101,112,
|
|
116,44,32,99,110,116,44,32,116,111,116,97,108,44,
|
|
32,68,69,78,83,69,95,82,65,78,75,40,41,32,
|
|
79,86,69,82,32,40,79,82,68,69,82,32,66,89,
|
|
32,116,111,116,97,108,32,68,69,83,67,41,32,65,
|
|
83,32,114,110,107,32,70,82,79,77,32,100,101,112,
|
|
116,95,115,116,97,116,115,32,79,82,68,69,82,32,
|
|
66,89,32,114,110,107,0,12,1,80,1,36,125,1,
|
|
176,17,0,106,42,57,46,32,77,117,108,116,105,45,
|
|
67,84,69,32,43,32,68,69,78,83,69,95,82,65,
|
|
78,75,58,32,52,32,100,101,112,116,115,32,114,97,
|
|
110,107,101,100,0,176,18,0,95,1,12,1,92,4,
|
|
8,21,28,15,73,176,21,0,95,1,122,92,4,12,
|
|
3,122,8,20,2,114,73,0,0,36,126,1,115,73,
|
|
36,127,1,104,3,0,170,104,2,0,170,176,1,0,
|
|
106,46,32,32,70,65,73,76,58,32,57,46,32,77,
|
|
117,108,116,105,45,67,84,69,32,43,32,68,69,78,
|
|
83,69,95,82,65,78,75,32,40,101,120,99,101,112,
|
|
116,105,111,110,41,0,20,1,36,130,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_STATIC( TEST10_RECURSIVE_HIERARCHY_DEPTH_SALARY )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,0,116,32,0,36,141,1,176,28,0,20,0,
|
|
36,142,1,113,122,1,0,36,149,1,176,31,0,106,
|
|
249,87,73,84,72,32,82,69,67,85,82,83,73,86,
|
|
69,32,111,114,103,32,65,83,32,40,83,69,76,69,
|
|
67,84,32,105,100,44,32,110,97,109,101,44,32,115,
|
|
97,108,97,114,121,44,32,49,32,65,83,32,100,101,
|
|
112,116,104,32,70,82,79,77,32,101,109,112,108,111,
|
|
121,101,101,115,32,87,72,69,82,69,32,109,103,114,
|
|
95,105,100,32,61,32,48,32,85,78,73,79,78,32,
|
|
65,76,76,32,83,69,76,69,67,84,32,101,46,105,
|
|
100,44,32,101,46,110,97,109,101,44,32,101,46,115,
|
|
97,108,97,114,121,44,32,111,46,100,101,112,116,104,
|
|
32,43,32,49,32,70,82,79,77,32,101,109,112,108,
|
|
111,121,101,101,115,32,101,32,74,79,73,78,32,111,
|
|
114,103,32,111,32,79,78,32,101,46,109,103,114,95,
|
|
105,100,32,61,32,111,46,105,100,41,32,83,69,76,
|
|
69,67,84,32,110,97,109,101,44,32,115,97,108,97,
|
|
114,121,44,32,100,101,112,116,104,32,70,82,79,77,
|
|
32,111,114,103,32,79,82,68,69,82,32,66,89,32,
|
|
100,101,112,116,104,44,32,110,97,109,101,0,12,1,
|
|
80,1,36,153,1,176,17,0,106,55,49,48,46,32,
|
|
82,101,99,117,114,115,105,118,101,32,104,105,101,114,
|
|
97,114,99,104,121,43,115,97,108,97,114,121,58,32,
|
|
49,48,32,114,111,119,115,44,32,100,101,112,116,104,
|
|
32,49,32,102,105,114,115,116,0,176,18,0,95,1,
|
|
12,1,92,10,8,21,28,33,73,176,21,0,95,1,
|
|
122,92,3,12,3,122,8,21,28,17,73,176,21,0,
|
|
95,1,92,10,92,3,12,3,92,2,16,20,2,114,
|
|
78,0,0,36,154,1,115,73,36,155,1,104,3,0,
|
|
170,104,2,0,170,176,1,0,106,51,32,32,70,65,
|
|
73,76,58,32,49,48,46,32,82,101,99,117,114,115,
|
|
105,118,101,32,104,105,101,114,97,114,99,104,121,43,
|
|
115,97,108,97,114,121,32,40,101,120,99,101,112,116,
|
|
105,111,110,41,0,20,1,36,158,1,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC_INITSTATICS()
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
117,32,0,3,0,116,32,0,121,82,1,0,121,82,
|
|
2,0,121,82,3,0,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|