fivedev/five
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
486e46659294c501ceff773b3829f1fc893fceb5
five/_FiveSql2/bin/.hbmk/linux/gcc/test_sql_standards.c
Charles KWON OhJun 486e466592 feat: FiveSql2 43/43, @byref, mutable closure, RTL 479, DateTime fix 
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>
2026-04-11 11:35:37 +09:00

1006 lines
41 KiB
C
Raw Blame History

/*
* Harbour 3.2.0dev (r2510040809)
* GNU C 13.3 (64-bit)
* Generated C source from "test/test_sql_standards.prg"
*/
#include "hbvmpub.h"
#include "hbinit.h"
HB_FUNC( MAIN );
HB_FUNC_EXTERN( ERRORBLOCK );
HB_FUNC_EXTERN( QOUT );
HB_FUNC_EXTERN( BREAK );
HB_FUNC_STATIC( TESTINFIXOPERATORS );
HB_FUNC_STATIC( TESTPRIMARYEXPRESSIONS );
HB_FUNC_STATIC( TESTSELECTCLAUSES );
HB_FUNC_STATIC( TESTWINDOWFRAMES );
HB_FUNC_STATIC( TESTNEWSTATEMENTS );
HB_FUNC_STATIC( TESTJSONFUNCTIONS );
HB_FUNC_STATIC( TESTXMLFUNCTIONS );
HB_FUNC_STATIC( TESTSQL2023FUNCTIONS );
HB_FUNC_EXTERN( HB_NTOS );
HB_FUNC_EXTERN( INT );
HB_FUNC_EXTERN( MAX );
HB_FUNC_EXTERN( ERRORLEVEL );
HB_FUNC_STATIC( PARSESQL );
HB_FUNC_EXTERN( TSQLLEXER );
HB_FUNC_EXTERN( TSQLPARSER2 );
HB_FUNC_STATIC( ASSERT );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( HB_HHASKEY );
HB_FUNC_INITSTATICS();
HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_TEST_SQL_STANDARDS )
{ "MAIN", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( MAIN )}, NULL },
{ "ERRORBLOCK", {HB_FS_PUBLIC}, {HB_FUNCNAME( ERRORBLOCK )}, NULL },
{ "QOUT", {HB_FS_PUBLIC}, {HB_FUNCNAME( QOUT )}, NULL },
{ "DESCRIPTION", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "OPERATION", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "BREAK", {HB_FS_PUBLIC}, {HB_FUNCNAME( BREAK )}, NULL },
{ "TESTINFIXOPERATORS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTINFIXOPERATORS )}, NULL },
{ "TESTPRIMARYEXPRESSIONS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTPRIMARYEXPRESSIONS )}, NULL },
{ "TESTSELECTCLAUSES", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTSELECTCLAUSES )}, NULL },
{ "TESTWINDOWFRAMES", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTWINDOWFRAMES )}, NULL },
{ "TESTNEWSTATEMENTS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTNEWSTATEMENTS )}, NULL },
{ "TESTJSONFUNCTIONS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTJSONFUNCTIONS )}, NULL },
{ "TESTXMLFUNCTIONS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTXMLFUNCTIONS )}, NULL },
{ "TESTSQL2023FUNCTIONS", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( TESTSQL2023FUNCTIONS )}, 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 },
{ "ERRORLEVEL", {HB_FS_PUBLIC}, {HB_FUNCNAME( ERRORLEVEL )}, NULL },
{ "PARSESQL", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( PARSESQL )}, NULL },
{ "NEW", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TSQLLEXER", {HB_FS_PUBLIC}, {HB_FUNCNAME( TSQLLEXER )}, NULL },
{ "TOKENIZE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "TSQLPARSER2", {HB_FS_PUBLIC}, {HB_FUNCNAME( TSQLPARSER2 )}, NULL },
{ "GETTOKENS", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "PARSE", {HB_FS_PUBLIC | HB_FS_MESSAGE}, {NULL}, NULL },
{ "ASSERT", {HB_FS_STATIC | HB_FS_LOCAL}, {HB_FUNCNAME( ASSERT )}, NULL },
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
{ "HB_HHASKEY", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_HHASKEY )}, NULL },
{ "(_INITSTATICS00003)", {HB_FS_INITEXIT | HB_FS_LOCAL}, {hb_INITSTATICS}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_TEST_SQL_STANDARDS, "test/test_sql_standards.prg", 0x0, 0x0003 )
#if defined( HB_PRAGMA_STARTUP )
#pragma startup hb_vm_SymbolInit_TEST_SQL_STANDARDS
#elif defined( HB_DATASEG_STARTUP )
#define HB_DATASEG_BODY HB_DATASEG_FUNC( hb_vm_SymbolInit_TEST_SQL_STANDARDS )
#include "hbiniseg.h"
#endif
HB_FUNC( MAIN )
{
static const HB_BYTE pcode[] =
{
116,28,0,36,26,0,176,1,0,89,50,0,1,0,
0,0,176,2,0,106,7,84,82,65,80,58,32,0,
48,3,0,95,1,112,0,72,106,2,32,0,72,48,
4,0,95,1,112,0,72,20,1,176,5,0,95,1,
12,1,6,20,1,36,28,0,176,2,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,29,0,176,
2,0,106,50,32,32,70,105,118,101,83,113,108,32,
83,81,76,58,50,48,48,51,45,50,48,50,51,32,
80,97,114,115,101,114,32,70,101,97,116,117,114,101,
32,84,101,115,116,32,83,117,105,116,101,0,20,1,
36,30,0,176,2,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,31,0,176,2,0,20,0,36,
33,0,176,2,0,106,48,45,45,45,32,83,101,99,
116,105,111,110,32,49,58,32,73,110,102,105,120,66,
80,32,79,112,101,114,97,116,111,114,115,32,40,83,
81,76,58,50,48,48,51,41,32,45,45,45,0,20,
1,36,34,0,176,6,0,20,0,36,36,0,176,2,
0,106,1,0,20,1,36,37,0,176,2,0,106,55,
45,45,45,32,83,101,99,116,105,111,110,32,50,58,
32,80,114,105,109,97,114,121,32,69,120,112,114,101,
115,115,105,111,110,115,32,40,83,81,76,58,49,57,
57,50,45,50,48,50,51,41,32,45,45,45,0,20,
1,36,38,0,176,7,0,20,0,36,40,0,176,2,
0,106,1,0,20,1,36,41,0,176,2,0,106,50,
45,45,45,32,83,101,99,116,105,111,110,32,51,58,
32,83,69,76,69,67,84,32,67,108,97,117,115,101,
115,32,40,83,81,76,58,50,48,48,51,45,50,48,
48,56,41,32,45,45,45,0,20,1,36,42,0,176,
8,0,20,0,36,44,0,176,2,0,106,1,0,20,
1,36,45,0,176,2,0,106,62,45,45,45,32,83,
101,99,116,105,111,110,32,52,58,32,87,105,110,100,
111,119,32,70,114,97,109,101,32,83,112,101,99,105,
102,105,99,97,116,105,111,110,32,40,83,81,76,58,
50,48,48,51,45,50,48,49,49,41,32,45,45,45,
0,20,1,36,46,0,176,9,0,20,0,36,48,0,
176,2,0,106,1,0,20,1,36,49,0,176,2,0,
106,55,45,45,45,32,83,101,99,116,105,111,110,32,
53,58,32,78,101,119,32,83,116,97,116,101,109,101,
110,116,32,84,121,112,101,115,32,40,83,81,76,58,
50,48,48,51,45,50,48,48,56,41,32,45,45,45,
0,20,1,36,50,0,176,10,0,20,0,36,52,0,
176,2,0,106,1,0,20,1,36,53,0,176,2,0,
106,45,45,45,45,32,83,101,99,116,105,111,110,32,
54,58,32,74,83,79,78,32,70,117,110,99,116,105,
111,110,115,32,40,83,81,76,58,50,48,49,54,41,
32,45,45,45,0,20,1,36,54,0,176,11,0,20,
0,36,56,0,176,2,0,106,1,0,20,1,36,57,
0,176,2,0,106,44,45,45,45,32,83,101,99,116,
105,111,110,32,55,58,32,88,77,76,32,70,117,110,
99,116,105,111,110,115,32,40,83,81,76,58,50,48,
48,51,41,32,45,45,45,0,20,1,36,58,0,176,
12,0,20,0,36,60,0,176,2,0,106,1,0,20,
1,36,61,0,176,2,0,106,38,45,45,45,32,83,
101,99,116,105,111,110,32,56,58,32,83,81,76,58,
50,48,50,51,32,70,117,110,99,116,105,111,110,115,
32,45,45,45,0,20,1,36,62,0,176,13,0,20,
0,36,64,0,176,2,0,106,1,0,20,1,36,65,
0,176,2,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,66,0,176,2,0,106,10,32,32,82,
69,83,85,76,84,83,0,20,1,36,67,0,176,2,
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,68,0,176,
2,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,69,0,
176,2,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,70,
0,176,2,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,71,0,176,2,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,
73,0,103,2,0,121,15,28,51,36,74,0,176,2,
0,106,28,32,32,42,42,42,32,70,65,73,76,85,
82,69,83,32,68,69,84,69,67,84,69,68,32,42,
42,42,0,20,1,36,75,0,176,17,0,122,20,1,
25,32,36,77,0,176,2,0,106,20,32,32,65,108,
108,32,116,101,115,116,115,32,112,97,115,115,101,100,
46,0,20,1,36,80,0,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( PARSESQL )
{
static const HB_BYTE pcode[] =
{
13,3,1,36,89,0,48,19,0,176,20,0,12,0,
95,1,112,1,80,2,36,90,0,48,21,0,95,2,
112,0,73,36,91,0,48,19,0,176,22,0,12,0,
48,23,0,95,2,112,0,4,0,0,112,2,80,3,
36,93,0,113,20,0,0,36,94,0,48,24,0,95,
3,112,0,80,4,114,15,0,0,36,95,0,115,73,
36,96,0,100,80,4,36,99,0,95,4,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( ASSERT )
{
static const HB_BYTE pcode[] =
{
13,0,2,116,28,0,36,104,0,104,3,0,170,36,
105,0,95,2,28,33,36,106,0,104,1,0,170,36,
107,0,176,2,0,106,9,32,32,80,65,83,83,58,
32,0,95,1,72,20,1,25,31,36,109,0,104,2,
0,170,36,110,0,176,2,0,106,9,32,32,70,65,
73,76,58,32,0,95,1,72,20,1,36,113,0,95,
2,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTINFIXOPERATORS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,123,0,176,18,0,106,50,83,69,76,
69,67,84,32,42,32,70,82,79,77,32,116,32,87,
72,69,82,69,32,110,97,109,101,32,83,73,77,73,
76,65,82,32,84,79,32,39,37,112,97,116,116,101,
114,110,37,39,0,12,1,80,1,36,125,0,176,25,
0,106,15,49,46,49,32,83,73,77,73,76,65,82,
32,84,79,0,95,1,100,69,21,28,72,73,95,1,
106,5,116,121,112,101,0,1,106,7,83,69,76,69,
67,84,0,8,21,28,48,73,95,1,106,6,119,104,
101,114,101,0,1,100,69,21,28,31,73,95,1,106,
6,119,104,101,114,101,0,1,92,2,1,106,11,83,
73,77,73,76,65,82,32,84,79,0,8,20,2,36,
128,0,176,18,0,106,55,83,69,76,69,67,84,32,
42,32,70,82,79,77,32,116,32,87,72,69,82,69,
32,110,97,109,101,32,83,73,77,73,76,65,82,32,
84,79,32,39,37,120,37,39,32,69,83,67,65,80,
69,32,39,92,39,0,12,1,80,1,36,130,0,176,
25,0,106,22,49,46,50,32,83,73,77,73,76,65,
82,32,84,79,32,69,83,67,65,80,69,0,95,1,
100,69,21,28,68,73,95,1,106,6,119,104,101,114,
101,0,1,100,69,21,28,51,73,95,1,106,6,119,
104,101,114,101,0,1,92,2,1,106,11,83,73,77,
73,76,65,82,32,84,79,0,8,21,28,19,73,95,
1,106,6,119,104,101,114,101,0,1,92,5,1,100,
69,20,2,36,133,0,176,18,0,106,50,83,69,76,
69,67,84,32,42,32,70,82,79,77,32,116,32,87,
72,69,82,69,32,110,97,109,101,32,78,79,84,32,
83,73,77,73,76,65,82,32,84,79,32,39,37,98,
97,100,37,39,0,12,1,80,1,36,135,0,176,25,
0,106,19,49,46,51,32,78,79,84,32,83,73,77,
73,76,65,82,32,84,79,0,95,1,100,69,21,28,
61,73,95,1,106,6,119,104,101,114,101,0,1,100,
69,21,28,44,73,95,1,106,6,119,104,101,114,101,
0,1,122,1,92,5,8,21,28,24,73,95,1,106,
6,119,104,101,114,101,0,1,92,2,1,106,4,78,
79,84,0,8,20,2,36,138,0,176,18,0,106,43,
83,69,76,69,67,84,32,42,32,70,82,79,77,32,
116,32,87,72,69,82,69,32,97,32,73,83,32,68,
73,83,84,73,78,67,84,32,70,82,79,77,32,98,
0,12,1,80,1,36,140,0,176,25,0,106,21,49,
46,52,32,73,83,32,68,73,83,84,73,78,67,84,
32,70,82,79,77,0,95,1,100,69,21,28,54,73,
95,1,106,6,119,104,101,114,101,0,1,100,69,21,
28,37,73,95,1,106,6,119,104,101,114,101,0,1,
92,2,1,106,17,73,83,32,68,73,83,84,73,78,
67,84,32,70,82,79,77,0,8,20,2,36,143,0,
176,18,0,106,47,83,69,76,69,67,84,32,42,32,
70,82,79,77,32,116,32,87,72,69,82,69,32,97,
32,73,83,32,78,79,84,32,68,73,83,84,73,78,
67,84,32,70,82,79,77,32,98,0,12,1,80,1,
36,145,0,176,25,0,106,25,49,46,53,32,73,83,
32,78,79,84,32,68,73,83,84,73,78,67,84,32,
70,82,79,77,0,95,1,100,69,21,28,58,73,95,
1,106,6,119,104,101,114,101,0,1,100,69,21,28,
41,73,95,1,106,6,119,104,101,114,101,0,1,92,
2,1,106,21,73,83,32,78,79,84,32,68,73,83,
84,73,78,67,84,32,70,82,79,77,0,8,20,2,
36,147,0,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTPRIMARYEXPRESSIONS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,157,0,176,18,0,106,42,83,69,76,
69,67,84,32,67,65,83,84,40,115,97,108,97,114,
121,32,65,83,32,86,65,82,67,72,65,82,40,50,
48,41,41,32,70,82,79,77,32,116,0,12,1,80,
1,36,159,0,176,25,0,106,9,50,46,49,32,67,
65,83,84,0,95,1,100,69,21,28,57,73,95,1,
106,8,99,111,108,117,109,110,115,0,1,122,1,122,
1,122,1,92,3,8,21,28,31,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,92,
2,1,106,5,67,65,83,84,0,8,20,2,36,162,
0,176,18,0,106,43,83,69,76,69,67,84,32,67,
65,83,84,40,112,114,105,99,101,32,65,83,32,68,
69,67,73,77,65,76,40,49,48,44,50,41,41,32,
70,82,79,77,32,116,0,12,1,80,1,36,164,0,
176,25,0,106,23,50,46,50,32,67,65,83,84,32,
68,69,67,73,77,65,76,40,49,48,44,50,41,0,
95,1,100,69,21,28,31,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,92,2,1,
106,5,67,65,83,84,0,8,20,2,36,167,0,176,
18,0,106,43,83,69,76,69,67,84,32,69,88,84,
82,65,67,84,40,89,69,65,82,32,70,82,79,77,
32,104,105,114,101,95,100,97,116,101,41,32,70,82,
79,77,32,116,0,12,1,80,1,36,170,0,176,25,
0,106,12,50,46,51,32,69,88,84,82,65,67,84,
0,95,1,100,69,21,28,60,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,122,1,
92,3,8,21,28,34,73,95,1,106,8,99,111,108,
117,109,110,115,0,1,122,1,122,1,92,2,1,106,
8,69,88,84,82,65,67,84,0,8,20,2,36,173,
0,176,18,0,106,42,83,69,76,69,67,84,32,84,
82,73,77,40,76,69,65,68,73,78,71,32,39,32,
39,32,70,82,79,77,32,110,97,109,101,41,32,70,
82,79,77,32,116,0,12,1,80,1,36,176,0,176,
25,0,106,17,50,46,52,32,84,82,73,77,32,76,
69,65,68,73,78,71,0,95,1,100,69,21,28,57,
73,95,1,106,8,99,111,108,117,109,110,115,0,1,
122,1,122,1,122,1,92,3,8,21,28,31,73,95,
1,106,8,99,111,108,117,109,110,115,0,1,122,1,
122,1,92,2,1,106,5,84,82,73,77,0,8,20,
2,36,179,0,176,18,0,106,43,83,69,76,69,67,
84,32,84,82,73,77,40,84,82,65,73,76,73,78,
71,32,39,120,39,32,70,82,79,77,32,110,97,109,
101,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,181,0,176,25,0,106,18,50,46,53,32,84,82,
73,77,32,84,82,65,73,76,73,78,71,0,95,1,
100,69,21,28,31,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,92,2,1,106,5,
84,82,73,77,0,8,20,2,36,184,0,176,18,0,
106,35,83,69,76,69,67,84,32,84,82,73,77,40,
66,79,84,72,32,70,82,79,77,32,110,97,109,101,
41,32,70,82,79,77,32,116,0,12,1,80,1,36,
186,0,176,25,0,106,14,50,46,54,32,84,82,73,
77,32,66,79,84,72,0,95,1,100,69,21,28,31,
73,95,1,106,8,99,111,108,117,109,110,115,0,1,
122,1,122,1,92,2,1,106,5,84,82,73,77,0,
8,20,2,36,189,0,176,18,0,106,36,83,69,76,
69,67,84,32,80,79,83,73,84,73,79,78,40,39,
120,39,32,73,78,32,110,97,109,101,41,32,70,82,
79,77,32,116,0,12,1,80,1,36,192,0,176,25,
0,106,13,50,46,55,32,80,79,83,73,84,73,79,
78,0,95,1,100,69,21,28,61,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,122,
1,92,3,8,21,28,35,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,92,2,1,
106,9,80,79,83,73,84,73,79,78,0,8,20,2,
36,195,0,176,18,0,106,53,83,69,76,69,67,84,
32,79,86,69,82,76,65,89,40,110,97,109,101,32,
80,76,65,67,73,78,71,32,39,88,39,32,70,82,
79,77,32,49,32,70,79,82,32,51,41,32,70,82,
79,77,32,116,0,12,1,80,1,36,198,0,176,25,
0,106,12,50,46,56,32,79,86,69,82,76,65,89,
0,95,1,100,69,21,28,60,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,122,1,
92,3,8,21,28,34,73,95,1,106,8,99,111,108,
117,109,110,115,0,1,122,1,122,1,92,2,1,106,
8,79,86,69,82,76,65,89,0,8,20,2,36,201,
0,176,18,0,106,29,83,69,76,69,67,84,32,65,
82,82,65,89,40,49,44,32,50,44,32,51,41,32,
70,82,79,77,32,116,0,12,1,80,1,36,204,0,
176,25,0,106,10,50,46,57,32,65,82,82,65,89,
0,95,1,100,69,21,28,58,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,122,1,
92,3,8,21,28,32,73,95,1,106,8,99,111,108,
117,109,110,115,0,1,122,1,122,1,92,2,1,106,
6,65,82,82,65,89,0,8,20,2,36,207,0,176,
18,0,106,32,83,69,76,69,67,84,32,82,79,87,
40,49,44,32,39,97,39,44,32,51,46,49,52,41,
32,70,82,79,77,32,116,0,12,1,80,1,36,210,
0,176,25,0,106,9,50,46,49,48,32,82,79,87,
0,95,1,100,69,21,28,56,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,122,1,
92,3,8,21,28,30,73,95,1,106,8,99,111,108,
117,109,110,115,0,1,122,1,122,1,92,2,1,106,
4,82,79,87,0,8,20,2,36,213,0,176,18,0,
106,32,83,69,76,69,67,84,32,67,79,65,76,69,
83,67,69,40,97,44,32,98,44,32,48,41,32,70,
82,79,77,32,116,0,12,1,80,1,36,216,0,176,
25,0,106,14,50,46,49,49,32,67,79,65,76,69,
83,67,69,0,95,1,100,69,21,28,61,73,95,1,
106,8,99,111,108,117,109,110,115,0,1,122,1,122,
1,122,1,92,3,8,21,28,35,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,92,
2,1,106,9,67,79,65,76,69,83,67,69,0,8,
20,2,36,219,0,176,18,0,106,27,83,69,76,69,
67,84,32,78,85,76,76,73,70,40,97,44,32,48,
41,32,70,82,79,77,32,116,0,12,1,80,1,36,
222,0,176,25,0,106,12,50,46,49,50,32,78,85,
76,76,73,70,0,95,1,100,69,21,28,59,73,95,
1,106,8,99,111,108,117,109,110,115,0,1,122,1,
122,1,122,1,92,3,8,21,28,33,73,95,1,106,
8,99,111,108,117,109,110,115,0,1,122,1,122,1,
92,2,1,106,7,78,85,76,76,73,70,0,8,20,
2,36,225,0,176,18,0,106,62,83,69,76,69,67,
84,32,76,73,83,84,65,71,71,40,110,97,109,101,
44,32,39,44,39,41,32,87,73,84,72,73,78,32,
71,82,79,85,80,32,40,79,82,68,69,82,32,66,
89,32,110,97,109,101,41,32,70,82,79,77,32,116,
0,12,1,80,1,36,228,0,176,25,0,106,13,50,
46,49,51,32,76,73,83,84,65,71,71,0,95,1,
100,69,21,28,60,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,122,1,92,3,8,
21,28,34,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,122,1,122,1,92,2,1,106,8,76,73,
83,84,65,71,71,0,8,20,2,36,230,0,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTSELECTCLAUSES )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,240,0,176,18,0,106,46,83,69,76,
69,67,84,32,42,32,70,82,79,77,32,116,32,79,
82,68,69,82,32,66,89,32,110,97,109,101,32,65,
83,67,32,78,85,76,76,83,32,70,73,82,83,84,
0,12,1,80,1,36,243,0,176,25,0,106,16,51,
46,49,32,78,85,76,76,83,32,70,73,82,83,84,
0,95,1,100,69,21,28,84,73,176,26,0,95,1,
106,9,111,114,100,101,114,95,98,121,0,1,12,1,
121,15,21,28,59,73,176,26,0,95,1,106,9,111,
114,100,101,114,95,98,121,0,1,122,1,12,1,92,
3,16,21,28,31,73,95,1,106,9,111,114,100,101,
114,95,98,121,0,1,122,1,92,3,1,106,6,70,
73,82,83,84,0,8,20,2,36,246,0,176,18,0,
106,48,83,69,76,69,67,84,32,42,32,70,82,79,
77,32,116,32,79,82,68,69,82,32,66,89,32,115,
97,108,97,114,121,32,68,69,83,67,32,78,85,76,
76,83,32,76,65,83,84,0,12,1,80,1,36,249,
0,176,25,0,106,15,51,46,50,32,78,85,76,76,
83,32,76,65,83,84,0,95,1,100,69,21,28,83,
73,176,26,0,95,1,106,9,111,114,100,101,114,95,
98,121,0,1,12,1,121,15,21,28,58,73,176,26,
0,95,1,106,9,111,114,100,101,114,95,98,121,0,
1,122,1,12,1,92,3,16,21,28,30,73,95,1,
106,9,111,114,100,101,114,95,98,121,0,1,122,1,
92,3,1,106,5,76,65,83,84,0,8,20,2,36,
252,0,176,18,0,106,53,83,69,76,69,67,84,32,
42,32,70,82,79,77,32,116,32,79,82,68,69,82,
32,66,89,32,105,100,32,70,69,84,67,72,32,70,
73,82,83,84,32,49,48,32,82,79,87,83,32,79,
78,76,89,0,12,1,80,1,36,255,0,176,25,0,
106,21,51,46,51,32,70,69,84,67,72,32,70,73,
82,83,84,32,79,78,76,89,0,95,1,100,69,21,
28,64,73,176,27,0,95,1,106,6,102,101,116,99,
104,0,12,2,21,28,45,73,95,1,106,6,102,101,
116,99,104,0,1,92,10,8,21,28,27,73,95,1,
106,11,102,101,116,99,104,95,116,105,101,115,0,1,
106,5,79,78,76,89,0,8,20,2,36,2,1,176,
18,0,106,57,83,69,76,69,67,84,32,42,32,70,
82,79,77,32,116,32,79,82,68,69,82,32,66,89,
32,105,100,32,70,69,84,67,72,32,70,73,82,83,
84,32,53,32,82,79,87,83,32,87,73,84,72,32,
84,73,69,83,0,12,1,80,1,36,5,1,176,25,
0,106,20,51,46,52,32,70,69,84,67,72,32,87,
73,84,72,32,84,73,69,83,0,95,1,100,69,21,
28,69,73,176,27,0,95,1,106,6,102,101,116,99,
104,0,12,2,21,28,50,73,95,1,106,6,102,101,
116,99,104,0,1,92,5,8,21,28,32,73,95,1,
106,11,102,101,116,99,104,95,116,105,101,115,0,1,
106,10,87,73,84,72,32,84,73,69,83,0,8,20,
2,36,8,1,176,18,0,106,68,83,69,76,69,67,
84,32,42,32,70,82,79,77,32,116,32,79,82,68,
69,82,32,66,89,32,105,100,32,79,70,70,83,69,
84,32,50,48,32,82,79,87,83,32,70,69,84,67,
72,32,70,73,82,83,84,32,49,48,32,82,79,87,
83,32,79,78,76,89,0,12,1,80,1,36,10,1,
176,25,0,106,16,51,46,53,32,79,70,70,83,69,
84,32,82,79,87,83,0,95,1,100,69,21,28,36,
73,95,1,106,7,111,102,102,115,101,116,0,1,92,
20,8,21,28,17,73,95,1,106,6,102,101,116,99,
104,0,1,92,10,8,20,2,36,13,1,176,18,0,
106,75,83,69,76,69,67,84,32,100,101,112,116,44,
32,121,114,44,32,83,85,77,40,97,109,116,41,32,
70,82,79,77,32,116,32,71,82,79,85,80,32,66,
89,32,71,82,79,85,80,73,78,71,32,83,69,84,
83,32,40,40,100,101,112,116,41,44,32,40,121,114,
41,44,32,40,41,41,0,12,1,80,1,36,17,1,
176,25,0,106,18,51,46,54,32,71,82,79,85,80,
73,78,71,32,83,69,84,83,0,95,1,100,69,21,
28,89,73,176,26,0,95,1,106,9,103,114,111,117,
112,95,98,121,0,1,12,1,121,15,21,28,64,73,
95,1,106,9,103,114,111,117,112,95,98,121,0,1,
122,1,122,1,92,3,8,21,28,39,73,95,1,106,
9,103,114,111,117,112,95,98,121,0,1,122,1,92,
2,1,106,14,71,82,79,85,80,73,78,71,32,83,
69,84,83,0,8,20,2,36,20,1,176,18,0,106,
54,83,69,76,69,67,84,32,100,101,112,116,44,32,
83,85,77,40,115,97,108,97,114,121,41,32,70,82,
79,77,32,116,32,71,82,79,85,80,32,66,89,32,
82,79,76,76,85,80,40,100,101,112,116,41,0,12,
1,80,1,36,24,1,176,25,0,106,11,51,46,55,
32,82,79,76,76,85,80,0,95,1,100,69,21,28,
82,73,176,26,0,95,1,106,9,103,114,111,117,112,
95,98,121,0,1,12,1,121,15,21,28,57,73,95,
1,106,9,103,114,111,117,112,95,98,121,0,1,122,
1,122,1,92,3,8,21,28,32,73,95,1,106,9,
103,114,111,117,112,95,98,121,0,1,122,1,92,2,
1,106,7,82,79,76,76,85,80,0,8,20,2,36,
27,1,176,18,0,106,57,83,69,76,69,67,84,32,
100,101,112,116,44,32,121,114,44,32,83,85,77,40,
97,109,116,41,32,70,82,79,77,32,116,32,71,82,
79,85,80,32,66,89,32,67,85,66,69,40,100,101,
112,116,44,32,121,114,41,0,12,1,80,1,36,31,
1,176,25,0,106,9,51,46,56,32,67,85,66,69,
0,95,1,100,69,21,28,80,73,176,26,0,95,1,
106,9,103,114,111,117,112,95,98,121,0,1,12,1,
121,15,21,28,55,73,95,1,106,9,103,114,111,117,
112,95,98,121,0,1,122,1,122,1,92,3,8,21,
28,30,73,95,1,106,9,103,114,111,117,112,95,98,
121,0,1,122,1,92,2,1,106,5,67,85,66,69,
0,8,20,2,36,34,1,176,18,0,106,68,83,69,
76,69,67,84,32,42,32,70,82,79,77,32,116,44,
32,76,65,84,69,82,65,76,32,40,83,69,76,69,
67,84,32,42,32,70,82,79,77,32,115,32,87,72,
69,82,69,32,115,46,105,100,32,61,32,116,46,105,
100,41,32,65,83,32,108,97,116,0,12,1,80,1,
36,37,1,176,25,0,106,21,51,46,57,32,76,65,
84,69,82,65,76,32,115,117,98,113,117,101,114,121,
0,95,1,100,69,21,28,59,73,176,26,0,95,1,
106,7,116,97,98,108,101,115,0,1,12,1,92,2,
16,21,28,35,73,95,1,106,7,116,97,98,108,101,
115,0,1,92,2,1,122,1,106,12,95,95,76,65,
84,69,82,65,76,95,95,0,8,20,2,36,40,1,
176,18,0,106,40,83,69,76,69,67,84,32,42,32,
70,82,79,77,32,116,32,87,72,69,82,69,32,105,
100,32,61,32,49,32,70,79,82,32,85,80,68,65,
84,69,0,12,1,80,1,36,42,1,176,25,0,106,
16,51,46,49,48,32,70,79,82,32,85,80,68,65,
84,69,0,95,1,100,69,21,28,49,73,176,27,0,
95,1,106,9,102,111,114,95,108,111,99,107,0,12,
2,21,28,27,73,95,1,106,9,102,111,114,95,108,
111,99,107,0,1,106,7,85,80,68,65,84,69,0,
8,20,2,36,45,1,176,18,0,106,26,83,69,76,
69,67,84,32,42,32,70,82,79,77,32,116,32,70,
79,82,32,83,72,65,82,69,0,12,1,80,1,36,
47,1,176,25,0,106,15,51,46,49,49,32,70,79,
82,32,83,72,65,82,69,0,95,1,100,69,21,28,
48,73,176,27,0,95,1,106,9,102,111,114,95,108,
111,99,107,0,12,2,21,28,26,73,95,1,106,9,
102,111,114,95,108,111,99,107,0,1,106,6,83,72,
65,82,69,0,8,20,2,36,50,1,176,18,0,106,
43,83,69,76,69,67,84,32,42,32,70,82,79,77,
32,116,32,70,79,82,32,85,80,68,65,84,69,32,
79,70,32,110,97,109,101,44,32,115,97,108,97,114,
121,0,12,1,80,1,36,53,1,176,25,0,106,19,
51,46,49,50,32,70,79,82,32,85,80,68,65,84,
69,32,79,70,0,95,1,100,69,21,28,57,73,176,
27,0,95,1,106,14,102,111,114,95,108,111,99,107,
95,99,111,108,115,0,12,2,21,28,30,73,176,26,
0,95,1,106,14,102,111,114,95,108,111,99,107,95,
99,111,108,115,0,1,12,1,92,2,8,20,2,36,
56,1,176,18,0,106,65,83,69,76,69,67,84,32,
110,97,109,101,44,32,83,85,77,40,115,97,108,97,
114,121,41,32,79,86,69,82,32,119,32,70,82,79,
77,32,116,32,87,73,78,68,79,87,32,119,32,65,
83,32,40,79,82,68,69,82,32,66,89,32,105,100,
41,0,12,1,80,1,36,60,1,176,25,0,106,19,
51,46,49,51,32,87,73,78,68,79,87,32,99,108,
97,117,115,101,0,95,1,100,69,21,28,82,73,176,
27,0,95,1,106,12,119,105,110,100,111,119,95,100,
101,102,115,0,12,2,21,28,57,73,176,26,0,95,
1,106,12,119,105,110,100,111,119,95,100,101,102,115,
0,1,12,1,122,8,21,28,29,73,95,1,106,12,
119,105,110,100,111,119,95,100,101,102,115,0,1,122,
1,122,1,106,2,87,0,8,20,2,36,62,1,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTWINDOWFRAMES )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,72,1,176,18,0,106,89,83,69,76,
69,67,84,32,83,85,77,40,120,41,32,79,86,69,
82,32,40,79,82,68,69,82,32,66,89,32,105,100,
32,82,79,87,83,32,66,69,84,87,69,69,78,32,
85,78,66,79,85,78,68,69,68,32,80,82,69,67,
69,68,73,78,71,32,65,78,68,32,67,85,82,82,
69,78,84,32,82,79,87,41,32,70,82,79,77,32,
116,0,12,1,80,1,36,74,1,176,25,0,106,15,
52,46,49,32,82,79,87,83,32,102,114,97,109,101,
0,95,1,100,69,21,28,25,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,122,1,
92,12,8,20,2,36,77,1,176,18,0,106,82,83,
69,76,69,67,84,32,65,86,71,40,120,41,32,79,
86,69,82,32,40,79,82,68,69,82,32,66,89,32,
105,100,32,82,65,78,71,69,32,66,69,84,87,69,
69,78,32,51,32,80,82,69,67,69,68,73,78,71,
32,65,78,68,32,51,32,70,79,76,76,79,87,73,
78,71,41,32,70,82,79,77,32,116,0,12,1,80,
1,36,79,1,176,25,0,106,16,52,46,50,32,82,
65,78,71,69,32,102,114,97,109,101,0,95,1,100,
69,21,28,25,73,95,1,106,8,99,111,108,117,109,
110,115,0,1,122,1,122,1,122,1,92,12,8,20,
2,36,82,1,176,18,0,106,83,83,69,76,69,67,
84,32,83,85,77,40,120,41,32,79,86,69,82,32,
40,79,82,68,69,82,32,66,89,32,105,100,32,71,
82,79,85,80,83,32,66,69,84,87,69,69,78,32,
49,32,80,82,69,67,69,68,73,78,71,32,65,78,
68,32,49,32,70,79,76,76,79,87,73,78,71,41,
32,70,82,79,77,32,116,0,12,1,80,1,36,84,
1,176,25,0,106,17,52,46,51,32,71,82,79,85,
80,83,32,102,114,97,109,101,0,95,1,100,69,21,
28,25,73,95,1,106,8,99,111,108,117,109,110,115,
0,1,122,1,122,1,122,1,92,12,8,20,2,36,
87,1,176,18,0,106,109,83,69,76,69,67,84,32,
83,85,77,40,120,41,32,79,86,69,82,32,40,79,
82,68,69,82,32,66,89,32,105,100,32,82,79,87,
83,32,66,69,84,87,69,69,78,32,85,78,66,79,
85,78,68,69,68,32,80,82,69,67,69,68,73,78,
71,32,65,78,68,32,67,85,82,82,69,78,84,32,
82,79,87,32,69,88,67,76,85,68,69,32,67,85,
82,82,69,78,84,32,82,79,87,41,32,70,82,79,
77,32,116,0,12,1,80,1,36,89,1,176,25,0,
106,24,52,46,52,32,69,88,67,76,85,68,69,32,
67,85,82,82,69,78,84,32,82,79,87,0,95,1,
100,69,21,28,25,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,122,1,92,12,8,
20,2,36,92,1,176,18,0,106,99,83,69,76,69,
67,84,32,83,85,77,40,120,41,32,79,86,69,82,
32,40,79,82,68,69,82,32,66,89,32,105,100,32,
82,79,87,83,32,66,69,84,87,69,69,78,32,49,
32,80,82,69,67,69,68,73,78,71,32,65,78,68,
32,49,32,70,79,76,76,79,87,73,78,71,32,69,
88,67,76,85,68,69,32,78,79,32,79,84,72,69,
82,83,41,32,70,82,79,77,32,116,0,12,1,80,
1,36,94,1,176,25,0,106,22,52,46,53,32,69,
88,67,76,85,68,69,32,78,79,32,79,84,72,69,
82,83,0,95,1,100,69,21,28,25,73,95,1,106,
8,99,111,108,117,109,110,115,0,1,122,1,122,1,
122,1,92,12,8,20,2,36,97,1,176,18,0,106,
111,83,69,76,69,67,84,32,83,85,77,40,120,41,
32,79,86,69,82,32,40,79,82,68,69,82,32,66,
89,32,105,100,32,82,79,87,83,32,66,69,84,87,
69,69,78,32,85,78,66,79,85,78,68,69,68,32,
80,82,69,67,69,68,73,78,71,32,65,78,68,32,
85,78,66,79,85,78,68,69,68,32,70,79,76,76,
79,87,73,78,71,32,69,88,67,76,85,68,69,32,
71,82,79,85,80,41,32,70,82,79,77,32,116,0,
12,1,80,1,36,99,1,176,25,0,106,18,52,46,
54,32,69,88,67,76,85,68,69,32,71,82,79,85,
80,0,95,1,100,69,21,28,25,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,122,
1,92,12,8,20,2,36,102,1,176,18,0,106,94,
83,69,76,69,67,84,32,83,85,77,40,120,41,32,
79,86,69,82,32,40,79,82,68,69,82,32,66,89,
32,105,100,32,82,79,87,83,32,66,69,84,87,69,
69,78,32,50,32,80,82,69,67,69,68,73,78,71,
32,65,78,68,32,50,32,70,79,76,76,79,87,73,
78,71,32,69,88,67,76,85,68,69,32,84,73,69,
83,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,104,1,176,25,0,106,17,52,46,55,32,69,88,
67,76,85,68,69,32,84,73,69,83,0,95,1,100,
69,21,28,25,73,95,1,106,8,99,111,108,117,109,
110,115,0,1,122,1,122,1,122,1,92,12,8,20,
2,36,107,1,176,18,0,106,99,83,69,76,69,67,
84,32,83,85,77,40,120,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,
105,100,32,82,79,87,83,32,66,69,84,87,69,69,
78,32,49,32,80,82,69,67,69,68,73,78,71,32,
65,78,68,32,67,85,82,82,69,78,84,32,82,79,
87,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,109,1,176,25,0,106,30,52,46,56,32,80,97,
114,116,105,116,105,111,110,32,43,32,79,114,100,101,
114,32,43,32,70,114,97,109,101,0,95,1,100,69,
21,28,25,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,122,1,122,1,122,1,92,12,8,20,2,
36,112,1,176,18,0,106,64,83,69,76,69,67,84,
32,82,79,87,95,78,85,77,66,69,82,40,41,32,
79,86,69,82,32,40,79,82,68,69,82,32,66,89,
32,110,97,109,101,32,65,83,67,32,78,85,76,76,
83,32,70,73,82,83,84,41,32,70,82,79,77,32,
116,0,12,1,80,1,36,114,1,176,25,0,106,23,
52,46,57,32,87,105,110,100,111,119,32,78,85,76,
76,83,32,70,73,82,83,84,0,95,1,100,69,21,
28,25,73,95,1,106,8,99,111,108,117,109,110,115,
0,1,122,1,122,1,122,1,92,12,8,20,2,36,
116,1,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTNEWSTATEMENTS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,126,1,176,18,0,106,36,86,65,76,
85,69,83,32,40,49,44,32,39,97,39,41,44,32,
40,50,44,32,39,98,39,41,44,32,40,51,44,32,
39,99,39,41,0,12,1,80,1,36,128,1,176,25,
0,106,16,53,46,49,32,86,65,76,85,69,83,32,
114,111,119,115,0,95,1,100,69,21,28,45,73,95,
1,106,5,116,121,112,101,0,1,106,7,86,65,76,
85,69,83,0,8,21,28,21,73,176,26,0,95,1,
106,5,114,111,119,115,0,1,12,1,92,3,8,20,
2,36,131,1,176,18,0,106,16,84,65,66,76,69,
32,101,109,112,108,111,121,101,101,115,0,12,1,80,
1,36,133,1,176,25,0,106,20,53,46,50,32,84,
65,66,76,69,32,115,104,111,114,116,104,97,110,100,
0,95,1,100,69,21,28,50,73,95,1,106,5,116,
121,112,101,0,1,106,6,84,65,66,76,69,0,8,
21,28,27,73,95,1,106,6,116,97,98,108,101,0,
1,106,10,69,77,80,76,79,89,69,69,83,0,8,
20,2,36,136,1,176,18,0,106,25,67,65,76,76,
32,109,121,95,112,114,111,99,40,49,44,32,39,104,
101,108,108,111,39,41,0,12,1,80,1,36,138,1,
176,25,0,106,19,53,46,51,32,67,65,76,76,32,
112,114,111,99,101,100,117,114,101,0,95,1,100,69,
21,28,73,73,95,1,106,5,116,121,112,101,0,1,
106,5,67,65,76,76,0,8,21,28,51,73,95,1,
106,10,112,114,111,99,101,100,117,114,101,0,1,106,
8,77,89,95,80,82,79,67,0,8,21,28,21,73,
176,26,0,95,1,106,5,97,114,103,115,0,1,12,
1,92,2,8,20,2,36,141,1,176,18,0,106,21,
67,65,76,76,32,114,101,102,114,101,115,104,95,99,
97,99,104,101,40,41,0,12,1,80,1,36,143,1,
176,25,0,106,17,53,46,52,32,67,65,76,76,32,
110,111,32,97,114,103,115,0,95,1,100,69,21,28,
78,73,95,1,106,5,116,121,112,101,0,1,106,5,
67,65,76,76,0,8,21,28,56,73,95,1,106,10,
112,114,111,99,101,100,117,114,101,0,1,106,14,82,
69,70,82,69,83,72,95,67,65,67,72,69,0,8,
21,28,20,73,176,26,0,95,1,106,5,97,114,103,
115,0,1,12,1,121,8,20,2,36,148,1,176,18,
0,106,197,77,69,82,71,69,32,73,78,84,79,32,
116,103,116,32,85,83,73,78,71,32,115,114,99,32,
79,78,32,116,103,116,46,105,100,32,61,32,115,114,
99,46,105,100,32,87,72,69,78,32,77,65,84,67,
72,69,68,32,65,78,68,32,115,114,99,46,97,99,
116,105,118,101,32,61,32,49,32,84,72,69,78,32,
85,80,68,65,84,69,32,83,69,84,32,116,103,116,
46,110,97,109,101,32,61,32,115,114,99,46,110,97,
109,101,32,87,72,69,78,32,78,79,84,32,77,65,
84,67,72,69,68,32,65,78,68,32,115,114,99,46,
97,99,116,105,118,101,32,61,32,49,32,84,72,69,
78,32,73,78,83,69,82,84,32,40,105,100,44,32,
110,97,109,101,41,32,86,65,76,85,69,83,32,40,
115,114,99,46,105,100,44,32,115,114,99,46,110,97,
109,101,41,0,12,1,80,1,36,151,1,176,25,0,
106,24,53,46,53,32,77,69,82,71,69,32,65,78,
68,32,99,111,110,100,105,116,105,111,110,0,95,1,
100,69,21,28,95,73,95,1,106,5,116,121,112,101,
0,1,106,6,77,69,82,71,69,0,8,21,28,72,
73,95,1,106,12,104,97,115,95,109,97,116,99,104,
101,100,0,1,21,28,51,73,95,1,106,16,104,97,
115,95,110,111,116,95,109,97,116,99,104,101,100,0,
1,21,28,26,73,95,1,106,16,109,97,116,99,104,
95,99,111,110,100,105,116,105,111,110,0,1,100,69,
20,2,36,155,1,176,18,0,106,89,77,69,82,71,
69,32,73,78,84,79,32,116,103,116,32,85,83,73,
78,71,32,115,114,99,32,79,78,32,116,103,116,46,
105,100,32,61,32,115,114,99,46,105,100,32,87,72,
69,78,32,77,65,84,67,72,69,68,32,65,78,68,
32,115,114,99,46,100,101,108,101,116,101,100,32,61,
32,49,32,84,72,69,78,32,68,69,76,69,84,69,
0,12,1,80,1,36,157,1,176,25,0,106,17,53,
46,54,32,77,69,82,71,69,32,68,69,76,69,84,
69,0,95,1,100,69,21,28,46,73,95,1,106,5,
116,121,112,101,0,1,106,6,77,69,82,71,69,0,
8,21,28,23,73,95,1,106,15,109,97,116,99,104,
101,100,95,100,101,108,101,116,101,0,1,20,2,36,
159,1,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTJSONFUNCTIONS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,169,1,176,18,0,106,41,83,69,76,
69,67,84,32,74,83,79,78,95,86,65,76,85,69,
40,100,97,116,97,44,32,39,36,46,110,97,109,101,
39,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,172,1,176,25,0,106,15,54,46,49,32,74,83,
79,78,95,86,65,76,85,69,0,95,1,100,69,21,
28,63,73,95,1,106,8,99,111,108,117,109,110,115,
0,1,122,1,122,1,122,1,92,3,8,21,28,37,
73,95,1,106,8,99,111,108,117,109,110,115,0,1,
122,1,122,1,92,2,1,106,11,74,83,79,78,95,
86,65,76,85,69,0,8,20,2,36,175,1,176,18,
0,106,42,83,69,76,69,67,84,32,74,83,79,78,
95,81,85,69,82,89,40,100,97,116,97,44,32,39,
36,46,105,116,101,109,115,39,41,32,70,82,79,77,
32,116,0,12,1,80,1,36,177,1,176,25,0,106,
15,54,46,50,32,74,83,79,78,95,81,85,69,82,
89,0,95,1,100,69,21,28,37,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,92,
2,1,106,11,74,83,79,78,95,81,85,69,82,89,
0,8,20,2,36,180,1,176,18,0,106,50,83,69,
76,69,67,84,32,42,32,70,82,79,77,32,116,32,
87,72,69,82,69,32,74,83,79,78,95,69,88,73,
83,84,83,40,100,97,116,97,44,32,39,36,46,110,
97,109,101,39,41,0,12,1,80,1,36,182,1,176,
25,0,106,16,54,46,51,32,74,83,79,78,95,69,
88,73,83,84,83,0,95,1,100,69,21,28,69,73,
95,1,106,6,119,104,101,114,101,0,1,100,69,21,
28,52,73,95,1,106,6,119,104,101,114,101,0,1,
122,1,92,3,8,21,28,32,73,95,1,106,6,119,
104,101,114,101,0,1,92,2,1,106,12,74,83,79,
78,95,69,88,73,83,84,83,0,8,20,2,36,185,
1,176,18,0,106,60,83,69,76,69,67,84,32,74,
83,79,78,95,79,66,74,69,67,84,40,39,110,97,
109,101,39,32,86,65,76,85,69,32,110,97,109,101,
44,32,39,105,100,39,32,86,65,76,85,69,32,105,
100,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,188,1,176,25,0,106,16,54,46,52,32,74,83,
79,78,95,79,66,74,69,67,84,0,95,1,100,69,
21,28,64,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,122,1,122,1,122,1,92,3,8,21,28,
38,73,95,1,106,8,99,111,108,117,109,110,115,0,
1,122,1,122,1,92,2,1,106,12,74,83,79,78,
95,79,66,74,69,67,84,0,8,20,2,36,191,1,
176,18,0,106,34,83,69,76,69,67,84,32,74,83,
79,78,95,65,82,82,65,89,40,49,44,32,50,44,
32,51,41,32,70,82,79,77,32,116,0,12,1,80,
1,36,194,1,176,25,0,106,15,54,46,53,32,74,
83,79,78,95,65,82,82,65,89,0,95,1,100,69,
21,28,63,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,122,1,122,1,122,1,92,3,8,21,28,
37,73,95,1,106,8,99,111,108,117,109,110,115,0,
1,122,1,122,1,92,2,1,106,11,74,83,79,78,
95,65,82,82,65,89,0,8,20,2,36,197,1,176,
18,0,106,34,83,69,76,69,67,84,32,74,83,79,
78,95,65,82,82,65,89,65,71,71,40,110,97,109,
101,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,200,1,176,25,0,106,18,54,46,54,32,74,83,
79,78,95,65,82,82,65,89,65,71,71,0,95,1,
100,69,21,28,66,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,122,1,92,3,8,
21,28,40,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,122,1,122,1,92,2,1,106,14,74,83,
79,78,95,65,82,82,65,89,65,71,71,0,8,20,
2,36,203,1,176,18,0,106,48,83,69,76,69,67,
84,32,74,83,79,78,95,79,66,74,69,67,84,65,
71,71,40,110,97,109,101,32,86,65,76,85,69,32,
115,97,108,97,114,121,41,32,70,82,79,77,32,116,
0,12,1,80,1,36,206,1,176,25,0,106,19,54,
46,55,32,74,83,79,78,95,79,66,74,69,67,84,
65,71,71,0,95,1,100,69,21,28,67,73,95,1,
106,8,99,111,108,117,109,110,115,0,1,122,1,122,
1,122,1,92,3,8,21,28,41,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,92,
2,1,106,15,74,83,79,78,95,79,66,74,69,67,
84,65,71,71,0,8,20,2,36,209,1,176,18,0,
106,83,83,69,76,69,67,84,32,74,83,79,78,95,
84,65,66,76,69,40,100,97,116,97,44,32,39,36,
46,105,116,101,109,115,39,32,67,79,76,85,77,78,
83,32,40,110,97,109,101,32,86,65,82,67,72,65,
82,40,53,48,41,32,80,65,84,72,32,39,36,46,
110,97,109,101,39,41,41,32,70,82,79,77,32,116,
0,12,1,80,1,36,212,1,176,25,0,106,15,54,
46,56,32,74,83,79,78,95,84,65,66,76,69,0,
95,1,100,69,21,28,63,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,122,1,92,
3,8,21,28,37,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,92,2,1,106,11,
74,83,79,78,95,84,65,66,76,69,0,8,20,2,
36,214,1,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTXMLFUNCTIONS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,224,1,176,18,0,106,46,83,69,76,
69,67,84,32,88,77,76,69,76,69,77,69,78,84,
40,78,65,77,69,32,101,109,112,108,111,121,101,101,
44,32,110,97,109,101,41,32,70,82,79,77,32,116,
0,12,1,80,1,36,227,1,176,25,0,106,15,55,
46,49,32,88,77,76,69,76,69,77,69,78,84,0,
95,1,100,69,21,28,63,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,122,1,92,
3,8,21,28,37,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,92,2,1,106,11,
88,77,76,69,76,69,77,69,78,84,0,8,20,2,
36,230,1,176,18,0,106,56,83,69,76,69,67,84,
32,88,77,76,70,79,82,69,83,84,40,110,97,109,
101,32,65,83,32,101,109,112,110,97,109,101,44,32,
115,97,108,97,114,121,32,65,83,32,115,97,108,41,
32,70,82,79,77,32,116,0,12,1,80,1,36,233,
1,176,25,0,106,14,55,46,50,32,88,77,76,70,
79,82,69,83,84,0,95,1,100,69,21,28,62,73,
95,1,106,8,99,111,108,117,109,110,115,0,1,122,
1,122,1,122,1,92,3,8,21,28,36,73,95,1,
106,8,99,111,108,117,109,110,115,0,1,122,1,122,
1,92,2,1,106,10,88,77,76,70,79,82,69,83,
84,0,8,20,2,36,236,1,176,18,0,106,64,83,
69,76,69,67,84,32,88,77,76,65,71,71,40,88,
77,76,69,76,69,77,69,78,84,40,78,65,77,69,
32,105,116,101,109,44,32,110,97,109,101,41,32,79,
82,68,69,82,32,66,89,32,110,97,109,101,41,32,
70,82,79,77,32,116,0,12,1,80,1,36,239,1,
176,25,0,106,11,55,46,51,32,88,77,76,65,71,
71,0,95,1,100,69,21,28,59,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,122,
1,92,3,8,21,28,33,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,92,2,1,
106,7,88,77,76,65,71,71,0,8,20,2,36,241,
1,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_STATIC( TESTSQL2023FUNCTIONS )
{
static const HB_BYTE pcode[] =
{
13,1,0,36,251,1,176,18,0,106,50,83,69,76,
69,67,84,32,100,101,112,116,44,32,65,78,89,95,
86,65,76,85,69,40,110,97,109,101,41,32,70,82,
79,77,32,116,32,71,82,79,85,80,32,66,89,32,
100,101,112,116,0,12,1,80,1,36,254,1,176,25,
0,106,14,56,46,49,32,65,78,89,95,86,65,76,
85,69,0,95,1,100,69,21,28,64,73,95,1,106,
8,99,111,108,117,109,110,115,0,1,92,2,1,122,
1,122,1,92,3,8,21,28,37,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,92,2,1,122,1,
92,2,1,106,10,65,78,89,95,86,65,76,85,69,
0,8,20,2,36,1,2,176,18,0,106,32,83,69,
76,69,67,84,32,71,82,69,65,84,69,83,84,40,
97,44,32,98,44,32,99,41,32,70,82,79,77,32,
116,0,12,1,80,1,36,4,2,176,25,0,106,13,
56,46,50,32,71,82,69,65,84,69,83,84,0,95,
1,100,69,21,28,61,73,95,1,106,8,99,111,108,
117,109,110,115,0,1,122,1,122,1,122,1,92,3,
8,21,28,35,73,95,1,106,8,99,111,108,117,109,
110,115,0,1,122,1,122,1,92,2,1,106,9,71,
82,69,65,84,69,83,84,0,8,20,2,36,7,2,
176,18,0,106,29,83,69,76,69,67,84,32,76,69,
65,83,84,40,97,44,32,98,44,32,99,41,32,70,
82,79,77,32,116,0,12,1,80,1,36,10,2,176,
25,0,106,10,56,46,51,32,76,69,65,83,84,0,
95,1,100,69,21,28,58,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,122,1,92,
3,8,21,28,32,73,95,1,106,8,99,111,108,117,
109,110,115,0,1,122,1,122,1,92,2,1,106,6,
76,69,65,83,84,0,8,20,2,36,13,2,176,18,
0,106,34,83,69,76,69,67,84,32,76,80,65,68,
40,110,97,109,101,44,32,50,48,44,32,39,32,39,
41,32,70,82,79,77,32,116,0,12,1,80,1,36,
16,2,176,25,0,106,9,56,46,52,32,76,80,65,
68,0,95,1,100,69,21,28,57,73,95,1,106,8,
99,111,108,117,109,110,115,0,1,122,1,122,1,122,
1,92,3,8,21,28,31,73,95,1,106,8,99,111,
108,117,109,110,115,0,1,122,1,122,1,92,2,1,
106,5,76,80,65,68,0,8,20,2,36,19,2,176,
18,0,106,34,83,69,76,69,67,84,32,82,80,65,
68,40,110,97,109,101,44,32,50,48,44,32,39,46,
39,41,32,70,82,79,77,32,116,0,12,1,80,1,
36,22,2,176,25,0,106,9,56,46,53,32,82,80,
65,68,0,95,1,100,69,21,28,57,73,95,1,106,
8,99,111,108,117,109,110,115,0,1,122,1,122,1,
122,1,92,3,8,21,28,31,73,95,1,106,8,99,
111,108,117,109,110,115,0,1,122,1,122,1,92,2,
1,106,5,82,80,65,68,0,8,20,2,36,25,2,
176,18,0,106,51,83,69,76,69,67,84,32,100,101,
112,116,44,32,66,79,79,76,95,65,78,68,40,97,
99,116,105,118,101,41,32,70,82,79,77,32,116,32,
71,82,79,85,80,32,66,89,32,100,101,112,116,0,
12,1,80,1,36,28,2,176,25,0,106,13,56,46,
54,32,66,79,79,76,95,65,78,68,0,95,1,100,
69,21,28,63,73,95,1,106,8,99,111,108,117,109,
110,115,0,1,92,2,1,122,1,122,1,92,3,8,
21,28,36,73,95,1,106,8,99,111,108,117,109,110,
115,0,1,92,2,1,122,1,92,2,1,106,9,66,
79,79,76,95,65,78,68,0,8,20,2,36,31,2,
176,18,0,106,50,83,69,76,69,67,84,32,100,101,
112,116,44,32,66,79,79,76,95,79,82,40,97,99,
116,105,118,101,41,32,70,82,79,77,32,116,32,71,
82,79,85,80,32,66,89,32,100,101,112,116,0,12,
1,80,1,36,34,2,176,25,0,106,12,56,46,55,
32,66,79,79,76,95,79,82,0,95,1,100,69,21,
28,62,73,95,1,106,8,99,111,108,117,109,110,115,
0,1,92,2,1,122,1,122,1,92,3,8,21,28,
35,73,95,1,106,8,99,111,108,117,109,110,115,0,
1,92,2,1,122,1,92,2,1,106,8,66,79,79,
76,95,79,82,0,8,20,2,36,36,2,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_INITSTATICS()
{
static const HB_BYTE pcode[] =
{
117,28,0,3,0,116,28,0,121,82,1,0,121,82,
2,0,121,82,3,0,7
};
hb_vmExecute( pcode, symbols );
}
Reference in New Issue View Git Blame Copy Permalink