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>
424 lines
15 KiB
C
424 lines
15 KiB
C
/*
|
|
* Harbour 3.2.0dev (r2510040809)
|
|
* GNU C 13.3 (64-bit)
|
|
* Generated C source from "src/TSqlExpr.prg"
|
|
*/
|
|
|
|
#include "hbvmpub.h"
|
|
#include "hbinit.h"
|
|
|
|
|
|
HB_FUNC( SQLNODE );
|
|
HB_FUNC( SQLEXPRNAME );
|
|
HB_FUNC_EXTERN( SUBSTR );
|
|
HB_FUNC_EXTERN( AT );
|
|
HB_FUNC( SQLVALTOSTR );
|
|
HB_FUNC( SQLEXPRHASAGG );
|
|
HB_FUNC( SQLISAGGNAME );
|
|
HB_FUNC( SQLISSCALARNAME );
|
|
HB_FUNC_EXTERN( VALTYPE );
|
|
HB_FUNC_EXTERN( ALLTRIM );
|
|
HB_FUNC_EXTERN( STR );
|
|
HB_FUNC_EXTERN( DTOC );
|
|
HB_FUNC_EXTERN( HB_TTOC );
|
|
HB_FUNC( SQLFOLDCONST );
|
|
HB_FUNC_EXTERN( ACLONE );
|
|
HB_FUNC_EXTERN( LEN );
|
|
HB_FUNC( SQLEVALROWEXPR );
|
|
HB_FUNC_EXTERN( UPPER );
|
|
HB_FUNC_EXTERN( SQLCOERCENUM );
|
|
HB_FUNC_EXTERN( SQLISTRUE );
|
|
HB_FUNC_EXTERN( SQLCMPEQ );
|
|
HB_FUNC_EXTERN( SQLCMPLT );
|
|
HB_FUNC_EXTERN( SQLEVALFUNC );
|
|
HB_FUNC( SQLCOLLECTCOLS );
|
|
HB_FUNC_EXTERN( AADD );
|
|
|
|
|
|
HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_TSQLEXPR )
|
|
{ "SQLNODE", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( SQLNODE )}, NULL },
|
|
{ "SQLEXPRNAME", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLEXPRNAME )}, NULL },
|
|
{ "SUBSTR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SUBSTR )}, NULL },
|
|
{ "AT", {HB_FS_PUBLIC}, {HB_FUNCNAME( AT )}, NULL },
|
|
{ "SQLVALTOSTR", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLVALTOSTR )}, NULL },
|
|
{ "SQLEXPRHASAGG", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLEXPRHASAGG )}, NULL },
|
|
{ "SQLISAGGNAME", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLISAGGNAME )}, NULL },
|
|
{ "SQLISSCALARNAME", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLISSCALARNAME )}, NULL },
|
|
{ "VALTYPE", {HB_FS_PUBLIC}, {HB_FUNCNAME( VALTYPE )}, NULL },
|
|
{ "ALLTRIM", {HB_FS_PUBLIC}, {HB_FUNCNAME( ALLTRIM )}, NULL },
|
|
{ "STR", {HB_FS_PUBLIC}, {HB_FUNCNAME( STR )}, NULL },
|
|
{ "DTOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( DTOC )}, NULL },
|
|
{ "HB_TTOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_TTOC )}, NULL },
|
|
{ "SQLFOLDCONST", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLFOLDCONST )}, NULL },
|
|
{ "ACLONE", {HB_FS_PUBLIC}, {HB_FUNCNAME( ACLONE )}, NULL },
|
|
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
|
|
{ "SQLEVALROWEXPR", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLEVALROWEXPR )}, NULL },
|
|
{ "UPPER", {HB_FS_PUBLIC}, {HB_FUNCNAME( UPPER )}, NULL },
|
|
{ "SQLCOERCENUM", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLCOERCENUM )}, NULL },
|
|
{ "SQLISTRUE", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLISTRUE )}, NULL },
|
|
{ "SQLCMPEQ", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLCMPEQ )}, NULL },
|
|
{ "SQLCMPLT", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLCMPLT )}, NULL },
|
|
{ "SQLEVALFUNC", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLEVALFUNC )}, NULL },
|
|
{ "SQLCOLLECTCOLS", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCOLLECTCOLS )}, NULL },
|
|
{ "AADD", {HB_FS_PUBLIC}, {HB_FUNCNAME( AADD )}, NULL }
|
|
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_TSQLEXPR, "src/TSqlExpr.prg", 0x0, 0x0003 )
|
|
|
|
#if defined( HB_PRAGMA_STARTUP )
|
|
#pragma startup hb_vm_SymbolInit_TSQLEXPR
|
|
#elif defined( HB_DATASEG_STARTUP )
|
|
#define HB_DATASEG_BODY HB_DATASEG_FUNC( hb_vm_SymbolInit_TSQLEXPR )
|
|
#include "hbiniseg.h"
|
|
#endif
|
|
|
|
HB_FUNC( SQLNODE )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,5,36,16,0,95,1,95,2,95,3,95,4,
|
|
95,5,4,5,0,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLEXPRNAME )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,1,36,23,0,95,1,100,8,28,11,36,24,
|
|
0,106,2,63,0,110,7,36,26,0,95,1,122,1,
|
|
92,2,8,28,55,36,27,0,95,1,92,2,1,80,
|
|
2,36,28,0,106,2,46,0,95,2,24,28,26,36,
|
|
29,0,176,2,0,95,2,176,3,0,106,2,46,0,
|
|
95,2,12,2,122,72,20,2,7,36,31,0,95,2,
|
|
110,7,36,33,0,95,1,122,1,92,3,8,28,21,
|
|
36,34,0,95,1,92,2,1,106,6,40,46,46,46,
|
|
41,0,72,110,7,36,36,0,95,1,122,1,92,12,
|
|
8,28,21,36,37,0,95,1,92,2,1,106,6,40,
|
|
46,46,46,41,0,72,110,7,36,39,0,95,1,122,
|
|
1,122,8,28,16,36,40,0,176,4,0,95,1,92,
|
|
2,1,20,1,7,36,43,0,106,5,101,120,112,114,
|
|
0,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLEXPRHASAGG )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,1,36,48,0,95,1,100,8,28,8,36,49,
|
|
0,9,110,7,36,51,0,95,1,122,1,92,3,8,
|
|
28,20,176,6,0,95,1,92,2,1,12,1,28,8,
|
|
36,52,0,120,110,7,36,55,0,9,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLISAGGNAME )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,1,36,59,0,106,2,44,0,95,1,72,106,
|
|
2,44,0,72,106,119,44,67,79,85,78,84,44,83,
|
|
85,77,44,65,86,71,44,77,73,78,44,77,65,88,
|
|
44,71,82,79,85,80,95,67,79,78,67,65,84,44,
|
|
83,84,82,73,78,71,95,65,71,71,44,76,73,83,
|
|
84,65,71,71,44,74,83,79,78,95,65,82,82,65,
|
|
89,65,71,71,44,74,83,79,78,95,79,66,74,69,
|
|
67,84,65,71,71,44,88,77,76,65,71,71,44,65,
|
|
78,89,95,86,65,76,85,69,44,66,79,79,76,95,
|
|
65,78,68,44,66,79,79,76,95,79,82,44,0,24,
|
|
110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLISSCALARNAME )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,1,36,63,0,106,2,44,0,95,1,72,106,
|
|
2,44,0,72,105,141,2,44,85,80,80,69,82,44,
|
|
76,79,87,69,82,44,84,82,73,77,44,76,84,82,
|
|
73,77,44,82,84,82,73,77,44,83,85,66,83,84,
|
|
82,44,83,85,66,83,84,82,73,78,71,44,76,69,
|
|
78,44,76,69,78,71,84,72,44,82,69,80,76,65,
|
|
67,69,44,83,80,65,67,69,44,82,69,80,76,73,
|
|
67,65,84,69,44,83,84,85,70,70,44,67,72,65,
|
|
82,73,78,68,69,88,44,67,79,78,67,65,84,44,
|
|
65,66,83,44,82,79,85,78,68,44,73,78,84,44,
|
|
70,76,79,79,82,44,67,69,73,76,73,78,71,44,
|
|
67,69,73,76,44,77,79,68,44,80,79,87,69,82,
|
|
44,83,81,82,84,44,83,73,71,78,44,89,69,65,
|
|
82,44,77,79,78,84,72,44,68,65,89,44,78,79,
|
|
87,44,68,65,84,69,44,84,73,77,69,44,68,84,
|
|
79,83,44,68,84,79,67,44,67,84,79,68,44,83,
|
|
84,79,68,44,67,65,83,84,44,67,79,78,86,69,
|
|
82,84,44,83,84,82,44,86,65,76,44,65,76,76,
|
|
84,82,73,77,44,73,73,70,44,67,79,65,76,69,
|
|
83,67,69,44,78,85,76,76,73,70,44,68,65,84,
|
|
69,65,68,68,44,68,65,84,69,68,73,70,70,44,
|
|
69,79,77,79,78,84,72,44,73,78,83,84,82,44,
|
|
82,69,86,69,82,83,69,44,80,65,68,76,44,80,
|
|
65,68,82,44,80,65,68,67,44,73,83,78,85,77,
|
|
69,82,73,67,44,73,83,68,65,84,69,44,73,83,
|
|
86,65,76,73,68,44,84,89,80,69,79,70,44,84,
|
|
89,80,69,44,70,79,82,77,65,84,44,72,66,95,
|
|
72,79,85,82,44,72,66,95,77,73,78,85,84,69,
|
|
44,72,66,95,83,69,67,79,78,68,44,72,66,95,
|
|
68,65,84,69,84,73,77,69,44,72,66,95,84,84,
|
|
79,67,44,72,66,95,67,84,79,84,44,84,73,77,
|
|
69,83,84,65,77,80,44,82,79,85,78,68,95,66,
|
|
65,78,75,69,82,44,69,88,73,83,84,83,44,69,
|
|
88,84,82,65,67,84,44,80,79,83,73,84,73,79,
|
|
78,44,79,86,69,82,76,65,89,44,65,82,82,65,
|
|
89,44,82,79,87,44,74,83,79,78,95,86,65,76,
|
|
85,69,44,74,83,79,78,95,81,85,69,82,89,44,
|
|
74,83,79,78,95,69,88,73,83,84,83,44,74,83,
|
|
79,78,95,84,65,66,76,69,44,74,83,79,78,95,
|
|
79,66,74,69,67,84,44,74,83,79,78,95,65,82,
|
|
82,65,89,44,74,83,79,78,95,79,66,74,69,67,
|
|
84,65,71,71,44,74,83,79,78,95,65,82,82,65,
|
|
89,65,71,71,44,88,77,76,69,76,69,77,69,78,
|
|
84,44,88,77,76,70,79,82,69,83,84,44,88,77,
|
|
76,65,71,71,44,71,82,69,65,84,69,83,84,44,
|
|
76,69,65,83,84,44,76,80,65,68,44,82,80,65,
|
|
68,44,65,78,89,95,86,65,76,85,69,44,66,79,
|
|
79,76,95,65,78,68,44,66,79,79,76,95,79,82,
|
|
44,0,24,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLVALTOSTR )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,0,1,36,68,0,95,1,100,8,28,14,36,69,
|
|
0,106,5,78,85,76,76,0,110,7,36,72,0,176,
|
|
8,0,95,1,12,1,106,2,67,0,8,28,10,176,
|
|
9,0,95,1,20,1,7,36,73,0,176,8,0,95,
|
|
1,12,1,106,2,78,0,8,28,15,176,9,0,176,
|
|
10,0,95,1,12,1,20,1,7,36,74,0,176,8,
|
|
0,95,1,12,1,106,2,68,0,8,28,10,176,11,
|
|
0,95,1,20,1,7,36,75,0,176,8,0,95,1,
|
|
12,1,106,2,76,0,8,28,22,95,1,28,10,106,
|
|
4,46,84,46,0,25,8,106,4,46,70,46,0,110,
|
|
7,36,76,0,176,8,0,95,1,12,1,106,2,84,
|
|
0,8,28,10,176,12,0,95,1,20,1,7,36,79,
|
|
0,106,1,0,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLFOLDCONST )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,5,1,36,86,0,95,1,100,8,28,8,36,87,
|
|
0,100,110,7,36,93,0,95,1,122,1,122,8,31,
|
|
38,95,1,122,1,92,10,8,31,29,95,1,122,1,
|
|
92,2,8,31,20,95,1,122,1,92,9,8,31,11,
|
|
95,1,122,1,92,7,8,28,9,36,94,0,95,1,
|
|
110,7,36,96,0,95,1,122,1,92,4,8,29,219,
|
|
1,36,97,0,176,13,0,95,1,92,3,1,12,1,
|
|
95,1,92,3,2,36,98,0,176,13,0,95,1,92,
|
|
4,1,12,1,95,1,92,4,2,36,100,0,95,1,
|
|
92,3,1,100,69,29,163,1,95,1,92,3,1,122,
|
|
1,122,8,29,151,1,95,1,92,4,1,100,69,29,
|
|
141,1,95,1,92,4,1,122,1,122,8,29,129,1,
|
|
36,101,0,95,1,92,2,1,80,4,36,102,0,95,
|
|
1,92,3,1,92,2,1,80,2,36,103,0,95,1,
|
|
92,4,1,92,2,1,80,3,36,104,0,100,80,5,
|
|
36,105,0,95,4,106,2,43,0,8,28,92,36,106,
|
|
0,176,8,0,95,2,12,1,106,2,67,0,8,28,
|
|
29,176,8,0,95,3,12,1,106,2,67,0,8,28,
|
|
15,36,107,0,95,2,95,3,72,80,5,26,7,1,
|
|
36,108,0,176,8,0,95,2,12,1,106,2,78,0,
|
|
8,29,245,0,176,8,0,95,3,12,1,106,2,78,
|
|
0,8,29,230,0,36,109,0,95,2,95,3,72,80,
|
|
5,26,217,0,36,111,0,95,4,106,2,45,0,8,
|
|
28,43,176,8,0,95,2,12,1,106,2,78,0,8,
|
|
28,29,176,8,0,95,3,12,1,106,2,78,0,8,
|
|
28,15,36,112,0,95,2,95,3,49,80,5,26,164,
|
|
0,36,113,0,95,4,106,2,42,0,8,28,42,176,
|
|
8,0,95,2,12,1,106,2,78,0,8,28,28,176,
|
|
8,0,95,3,12,1,106,2,78,0,8,28,14,36,
|
|
114,0,95,2,95,3,65,80,5,25,111,36,115,0,
|
|
95,4,106,2,47,0,8,28,48,176,8,0,95,2,
|
|
12,1,106,2,78,0,8,28,34,176,8,0,95,3,
|
|
12,1,106,2,78,0,8,28,20,95,3,121,69,28,
|
|
14,36,116,0,95,2,95,3,18,80,5,25,53,36,
|
|
117,0,95,4,106,3,124,124,0,8,28,40,176,8,
|
|
0,95,2,12,1,106,2,67,0,8,28,26,176,8,
|
|
0,95,3,12,1,106,2,67,0,8,28,12,36,118,
|
|
0,95,2,95,3,72,80,5,36,120,0,95,5,100,
|
|
69,28,17,36,121,0,176,0,0,122,95,5,100,100,
|
|
100,20,5,7,36,124,0,95,1,110,7,36,126,0,
|
|
95,1,122,1,92,5,8,28,107,36,127,0,176,13,
|
|
0,95,1,92,3,1,12,1,95,1,92,3,2,36,
|
|
128,0,95,1,92,3,1,100,69,28,70,95,1,92,
|
|
3,1,122,1,122,8,28,59,36,129,0,95,1,92,
|
|
2,1,106,2,45,0,8,28,44,176,8,0,95,1,
|
|
92,3,1,92,2,1,12,1,106,2,78,0,8,28,
|
|
24,36,130,0,176,0,0,122,95,1,92,3,1,92,
|
|
2,1,66,100,100,100,20,5,7,36,133,0,95,1,
|
|
110,7,36,135,0,95,1,122,1,92,3,8,28,97,
|
|
36,136,0,176,8,0,95,1,92,3,1,12,1,106,
|
|
2,65,0,8,28,70,36,137,0,176,14,0,95,1,
|
|
92,3,1,12,1,80,2,36,138,0,122,165,80,6,
|
|
25,26,36,139,0,176,13,0,95,2,95,6,1,12,
|
|
1,95,2,95,6,2,36,138,0,175,6,0,176,15,
|
|
0,95,2,12,1,15,28,224,36,141,0,95,2,95,
|
|
1,92,3,2,36,143,0,95,1,110,7,36,145,0,
|
|
95,1,122,1,92,6,8,29,134,0,36,146,0,176,
|
|
8,0,95,1,92,2,1,12,1,106,2,65,0,8,
|
|
28,88,36,147,0,122,165,80,6,25,66,36,148,0,
|
|
176,13,0,95,1,92,2,1,95,6,1,122,1,12,
|
|
1,95,1,92,2,1,95,6,1,122,2,36,149,0,
|
|
176,13,0,95,1,92,2,1,95,6,1,92,2,1,
|
|
12,1,95,1,92,2,1,95,6,1,92,2,2,36,
|
|
147,0,175,6,0,176,15,0,95,1,92,2,1,12,
|
|
1,15,28,181,36,152,0,176,13,0,95,1,92,3,
|
|
1,12,1,95,1,92,3,2,36,153,0,95,1,110,
|
|
7,36,155,0,95,1,122,1,92,11,8,28,63,36,
|
|
156,0,176,13,0,95,1,92,3,1,12,1,95,1,
|
|
92,3,2,36,157,0,176,13,0,95,1,92,4,1,
|
|
12,1,95,1,92,4,2,36,158,0,176,13,0,95,
|
|
1,92,5,1,12,1,95,1,92,5,2,36,159,0,
|
|
95,1,110,7,36,161,0,95,1,122,1,92,12,8,
|
|
28,9,36,163,0,95,1,110,7,36,167,0,95,1,
|
|
110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLEVALROWEXPR )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,5,3,36,178,0,95,1,100,8,28,8,36,179,
|
|
0,100,110,7,36,183,0,95,1,122,1,122,8,28,
|
|
12,36,184,0,95,1,92,2,1,110,7,36,186,0,
|
|
95,1,122,1,92,10,8,28,8,36,187,0,100,110,
|
|
7,36,189,0,95,1,122,1,92,2,8,29,201,0,
|
|
36,190,0,176,17,0,95,1,92,2,1,12,1,80,
|
|
7,36,192,0,122,165,80,8,25,53,36,193,0,176,
|
|
17,0,176,9,0,95,2,95,8,1,12,1,12,1,
|
|
95,7,8,28,24,95,8,176,15,0,95,3,12,1,
|
|
34,28,12,36,194,0,95,3,95,8,1,110,7,36,
|
|
192,0,175,8,0,176,15,0,95,2,12,1,15,28,
|
|
197,36,198,0,106,2,46,0,95,7,24,28,97,36,
|
|
199,0,176,2,0,95,7,176,3,0,106,2,46,0,
|
|
95,7,12,2,122,72,12,2,80,7,36,200,0,122,
|
|
165,80,8,25,53,36,201,0,176,17,0,176,9,0,
|
|
95,2,95,8,1,12,1,12,1,95,7,8,28,24,
|
|
95,8,176,15,0,95,3,12,1,34,28,12,36,202,
|
|
0,95,3,95,8,1,110,7,36,200,0,175,8,0,
|
|
176,15,0,95,2,12,1,15,28,197,36,206,0,100,
|
|
110,7,36,208,0,95,1,122,1,92,4,8,29,204,
|
|
1,36,209,0,95,1,92,2,1,80,6,36,210,0,
|
|
176,16,0,95,1,92,3,1,95,2,95,3,12,3,
|
|
80,4,36,211,0,176,16,0,95,1,92,4,1,95,
|
|
2,95,3,12,3,80,5,36,212,0,95,6,106,2,
|
|
43,0,8,28,63,36,213,0,176,8,0,95,4,12,
|
|
1,106,2,78,0,8,28,26,176,8,0,95,5,12,
|
|
1,106,2,78,0,8,28,12,36,214,0,95,4,95,
|
|
5,72,110,7,36,216,0,176,18,0,95,4,12,1,
|
|
176,18,0,95,5,12,1,72,110,7,36,218,0,95,
|
|
6,106,2,45,0,8,28,22,36,219,0,176,18,0,
|
|
95,4,12,1,176,18,0,95,5,12,1,49,110,7,
|
|
36,221,0,95,6,106,2,42,0,8,28,22,36,222,
|
|
0,176,18,0,95,4,12,1,176,18,0,95,5,12,
|
|
1,65,110,7,36,224,0,95,6,106,4,65,78,68,
|
|
0,8,28,25,36,225,0,176,19,0,95,4,12,1,
|
|
21,28,10,73,176,19,0,95,5,12,1,110,7,36,
|
|
227,0,95,6,106,3,79,82,0,8,28,25,36,228,
|
|
0,176,19,0,95,4,12,1,21,31,10,73,176,19,
|
|
0,95,5,12,1,110,7,36,230,0,95,6,106,2,
|
|
61,0,8,28,15,36,231,0,176,20,0,95,4,95,
|
|
5,20,2,7,36,233,0,95,6,106,2,60,0,8,
|
|
28,15,36,234,0,176,21,0,95,4,95,5,20,2,
|
|
7,36,236,0,95,6,106,2,62,0,8,28,15,36,
|
|
237,0,176,21,0,95,5,95,4,20,2,7,36,239,
|
|
0,95,6,106,3,60,61,0,8,28,29,36,240,0,
|
|
176,20,0,95,4,95,5,12,2,21,31,12,73,176,
|
|
21,0,95,4,95,5,12,2,110,7,36,242,0,95,
|
|
6,106,3,62,61,0,8,28,29,36,243,0,176,20,
|
|
0,95,4,95,5,12,2,21,31,12,73,176,21,0,
|
|
95,5,95,4,12,2,110,7,36,245,0,95,6,106,
|
|
3,60,62,0,8,31,12,95,6,106,3,33,61,0,
|
|
8,28,17,36,246,0,176,20,0,95,4,95,5,12,
|
|
2,68,110,7,36,248,0,100,110,7,36,250,0,95,
|
|
1,122,1,92,6,8,29,147,0,36,251,0,176,8,
|
|
0,95,1,92,2,1,12,1,106,2,65,0,8,28,
|
|
90,36,252,0,122,165,80,8,25,68,36,253,0,176,
|
|
16,0,95,1,92,2,1,95,8,1,122,1,95,2,
|
|
95,3,12,3,80,4,36,254,0,176,19,0,95,4,
|
|
12,1,28,26,36,255,0,176,16,0,95,1,92,2,
|
|
1,95,8,1,92,2,1,95,2,95,3,20,3,7,
|
|
36,252,0,175,8,0,176,15,0,95,1,92,2,1,
|
|
12,1,15,28,179,36,3,1,95,1,92,3,1,100,
|
|
69,28,20,36,4,1,176,16,0,95,1,92,3,1,
|
|
95,2,95,3,20,3,7,36,6,1,100,110,7,36,
|
|
8,1,95,1,122,1,92,3,8,28,69,36,9,1,
|
|
176,15,0,95,1,92,3,1,12,1,121,15,28,35,
|
|
36,10,1,176,22,0,95,1,92,2,1,176,16,0,
|
|
95,1,92,3,1,122,1,95,2,95,3,12,3,4,
|
|
1,0,20,2,7,36,12,1,176,22,0,95,1,92,
|
|
2,1,4,0,0,20,2,7,36,14,1,95,1,122,
|
|
1,92,5,8,28,86,36,15,1,176,16,0,95,1,
|
|
92,3,1,95,2,95,3,12,3,80,4,36,16,1,
|
|
95,1,92,2,1,106,4,78,79,84,0,8,28,15,
|
|
36,17,1,176,19,0,95,4,12,1,68,110,7,36,
|
|
19,1,95,1,92,2,1,106,2,45,0,8,28,15,
|
|
36,20,1,176,18,0,95,4,12,1,66,110,7,36,
|
|
22,1,95,4,110,7,36,26,1,100,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|
|
HB_FUNC( SQLCOLLECTCOLS )
|
|
{
|
|
static const HB_BYTE pcode[] =
|
|
{
|
|
13,1,2,36,35,1,95,2,100,8,28,10,36,36,
|
|
1,4,0,0,80,2,36,39,1,95,1,100,8,28,
|
|
9,36,40,1,95,2,110,7,36,44,1,95,1,122,
|
|
1,92,2,8,28,38,36,45,1,95,1,92,2,1,
|
|
106,2,42,0,69,29,39,1,36,46,1,176,24,0,
|
|
95,2,176,1,0,95,1,12,1,20,2,26,19,1,
|
|
36,49,1,95,1,122,1,92,4,8,28,35,36,50,
|
|
1,176,23,0,95,1,92,3,1,95,2,20,2,36,
|
|
51,1,176,23,0,95,1,92,4,1,95,2,20,2,
|
|
26,230,0,36,53,1,95,1,122,1,92,5,8,28,
|
|
20,36,54,1,176,23,0,95,1,92,3,1,95,2,
|
|
20,2,26,200,0,36,56,1,95,1,122,1,92,3,
|
|
8,28,71,36,57,1,176,8,0,95,1,92,3,1,
|
|
12,1,106,2,65,0,8,29,167,0,36,58,1,122,
|
|
165,80,3,25,26,36,59,1,176,23,0,95,1,92,
|
|
3,1,95,3,1,95,2,20,2,36,58,1,175,3,
|
|
0,176,15,0,95,1,92,3,1,12,1,15,28,221,
|
|
25,118,36,63,1,95,1,122,1,92,6,8,28,106,
|
|
36,64,1,176,8,0,95,1,92,2,1,12,1,106,
|
|
2,65,0,8,28,71,36,65,1,122,165,80,3,25,
|
|
49,36,66,1,176,23,0,95,1,92,2,1,95,3,
|
|
1,122,1,95,2,20,2,36,67,1,176,23,0,95,
|
|
1,92,2,1,95,3,1,92,2,1,95,2,20,2,
|
|
36,65,1,175,3,0,176,15,0,95,1,92,2,1,
|
|
12,1,15,28,198,36,70,1,176,23,0,95,1,92,
|
|
3,1,95,2,20,2,36,74,1,95,2,110,7
|
|
};
|
|
|
|
hb_vmExecute( pcode, symbols );
|
|
}
|
|
|