Files
five/_FiveSql2/bin/.hbmk/linux/gcc/TSqlFunc.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

689 lines
24 KiB
C

/*
* Harbour 3.2.0dev (r2510040809)
* GNU C 13.3 (64-bit)
* Generated C source from "src/TSqlFunc.prg"
*/
#include "hbvmpub.h"
#include "hbinit.h"
HB_FUNC( SQLEVALFUNC );
HB_FUNC_EXTERN( SQLISAGGNAME );
HB_FUNC_EXTERN( LEN );
HB_FUNC_EXTERN( UPPER );
HB_FUNC( SQLCOERCESTR );
HB_FUNC( SQLARG );
HB_FUNC_EXTERN( LOWER );
HB_FUNC_EXTERN( ALLTRIM );
HB_FUNC_EXTERN( LTRIM );
HB_FUNC_EXTERN( RTRIM );
HB_FUNC_EXTERN( INT );
HB_FUNC( SQLCOERCENUM );
HB_FUNC_EXTERN( SUBSTR );
HB_FUNC_EXTERN( LEFT );
HB_FUNC_EXTERN( RIGHT );
HB_FUNC_EXTERN( STRTRAN );
HB_FUNC_EXTERN( SPACE );
HB_FUNC_EXTERN( REPLICATE );
HB_FUNC_EXTERN( AT );
HB_FUNC_EXTERN( ABS );
HB_FUNC_EXTERN( ROUND );
HB_FUNC_EXTERN( SQRT );
HB_FUNC_EXTERN( VALTYPE );
HB_FUNC_EXTERN( YEAR );
HB_FUNC_EXTERN( MONTH );
HB_FUNC_EXTERN( DAY );
HB_FUNC_EXTERN( HB_DATETIME );
HB_FUNC_EXTERN( DATE );
HB_FUNC_EXTERN( TIME );
HB_FUNC_EXTERN( DTOS );
HB_FUNC_EXTERN( DTOC );
HB_FUNC_EXTERN( CTOD );
HB_FUNC_EXTERN( STOD );
HB_FUNC_EXTERN( STR );
HB_FUNC_EXTERN( VAL );
HB_FUNC( SQLISTRUE );
HB_FUNC_EXTERN( EMPTY );
HB_FUNC( SQLCMPEQ );
HB_FUNC_EXTERN( STRZERO );
HB_FUNC_EXTERN( PADL );
HB_FUNC_EXTERN( PADR );
HB_FUNC_EXTERN( PADC );
HB_FUNC_EXTERN( HB_HOUR );
HB_FUNC_EXTERN( HB_MINUTE );
HB_FUNC_EXTERN( HB_SEC );
HB_FUNC_EXTERN( HB_TTOC );
HB_FUNC_EXTERN( HB_CTOT );
HB_FUNC( SQLBANKERROUND );
HB_FUNC( SQLCOERCEFORCMP );
HB_FUNC( SQLCMPLT );
HB_FUNC( SQLLIKEMATCH );
HB_FUNC( SQLLIKERECURSE );
HB_FUNC( SQLSETCOLLATION );
HB_FUNC_EXTERN( HB_CDPSELECT );
HB_FUNC( SQLGETCOLLATION );
HB_FUNC_INITSTATICS();
HB_INIT_SYMBOLS_BEGIN( hb_vm_SymbolInit_TSQLFUNC )
{ "SQLEVALFUNC", {HB_FS_PUBLIC | HB_FS_FIRST | HB_FS_LOCAL}, {HB_FUNCNAME( SQLEVALFUNC )}, NULL },
{ "SQLISAGGNAME", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQLISAGGNAME )}, NULL },
{ "LEN", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEN )}, NULL },
{ "UPPER", {HB_FS_PUBLIC}, {HB_FUNCNAME( UPPER )}, NULL },
{ "SQLCOERCESTR", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCOERCESTR )}, NULL },
{ "SQLARG", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLARG )}, NULL },
{ "LOWER", {HB_FS_PUBLIC}, {HB_FUNCNAME( LOWER )}, NULL },
{ "ALLTRIM", {HB_FS_PUBLIC}, {HB_FUNCNAME( ALLTRIM )}, NULL },
{ "LTRIM", {HB_FS_PUBLIC}, {HB_FUNCNAME( LTRIM )}, NULL },
{ "RTRIM", {HB_FS_PUBLIC}, {HB_FUNCNAME( RTRIM )}, NULL },
{ "INT", {HB_FS_PUBLIC}, {HB_FUNCNAME( INT )}, NULL },
{ "SQLCOERCENUM", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCOERCENUM )}, NULL },
{ "SUBSTR", {HB_FS_PUBLIC}, {HB_FUNCNAME( SUBSTR )}, NULL },
{ "LEFT", {HB_FS_PUBLIC}, {HB_FUNCNAME( LEFT )}, NULL },
{ "RIGHT", {HB_FS_PUBLIC}, {HB_FUNCNAME( RIGHT )}, NULL },
{ "STRTRAN", {HB_FS_PUBLIC}, {HB_FUNCNAME( STRTRAN )}, NULL },
{ "SPACE", {HB_FS_PUBLIC}, {HB_FUNCNAME( SPACE )}, NULL },
{ "REPLICATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( REPLICATE )}, NULL },
{ "AT", {HB_FS_PUBLIC}, {HB_FUNCNAME( AT )}, NULL },
{ "ABS", {HB_FS_PUBLIC}, {HB_FUNCNAME( ABS )}, NULL },
{ "ROUND", {HB_FS_PUBLIC}, {HB_FUNCNAME( ROUND )}, NULL },
{ "SQRT", {HB_FS_PUBLIC}, {HB_FUNCNAME( SQRT )}, NULL },
{ "VALTYPE", {HB_FS_PUBLIC}, {HB_FUNCNAME( VALTYPE )}, NULL },
{ "YEAR", {HB_FS_PUBLIC}, {HB_FUNCNAME( YEAR )}, NULL },
{ "MONTH", {HB_FS_PUBLIC}, {HB_FUNCNAME( MONTH )}, NULL },
{ "DAY", {HB_FS_PUBLIC}, {HB_FUNCNAME( DAY )}, NULL },
{ "HB_DATETIME", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_DATETIME )}, NULL },
{ "DATE", {HB_FS_PUBLIC}, {HB_FUNCNAME( DATE )}, NULL },
{ "TIME", {HB_FS_PUBLIC}, {HB_FUNCNAME( TIME )}, NULL },
{ "DTOS", {HB_FS_PUBLIC}, {HB_FUNCNAME( DTOS )}, NULL },
{ "DTOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( DTOC )}, NULL },
{ "CTOD", {HB_FS_PUBLIC}, {HB_FUNCNAME( CTOD )}, NULL },
{ "STOD", {HB_FS_PUBLIC}, {HB_FUNCNAME( STOD )}, NULL },
{ "STR", {HB_FS_PUBLIC}, {HB_FUNCNAME( STR )}, NULL },
{ "VAL", {HB_FS_PUBLIC}, {HB_FUNCNAME( VAL )}, NULL },
{ "SQLISTRUE", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLISTRUE )}, NULL },
{ "EMPTY", {HB_FS_PUBLIC}, {HB_FUNCNAME( EMPTY )}, NULL },
{ "SQLCMPEQ", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCMPEQ )}, NULL },
{ "STRZERO", {HB_FS_PUBLIC}, {HB_FUNCNAME( STRZERO )}, NULL },
{ "PADL", {HB_FS_PUBLIC}, {HB_FUNCNAME( PADL )}, NULL },
{ "PADR", {HB_FS_PUBLIC}, {HB_FUNCNAME( PADR )}, NULL },
{ "PADC", {HB_FS_PUBLIC}, {HB_FUNCNAME( PADC )}, NULL },
{ "HB_HOUR", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_HOUR )}, NULL },
{ "HB_MINUTE", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_MINUTE )}, NULL },
{ "HB_SEC", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_SEC )}, NULL },
{ "HB_TTOC", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_TTOC )}, NULL },
{ "HB_CTOT", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_CTOT )}, NULL },
{ "SQLBANKERROUND", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLBANKERROUND )}, NULL },
{ "SQLCOERCEFORCMP", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCOERCEFORCMP )}, NULL },
{ "SQLCMPLT", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLCMPLT )}, NULL },
{ "SQLLIKEMATCH", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLLIKEMATCH )}, NULL },
{ "SQLLIKERECURSE", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLLIKERECURSE )}, NULL },
{ "SQLSETCOLLATION", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLSETCOLLATION )}, NULL },
{ "HB_CDPSELECT", {HB_FS_PUBLIC}, {HB_FUNCNAME( HB_CDPSELECT )}, NULL },
{ "SQLGETCOLLATION", {HB_FS_PUBLIC | HB_FS_LOCAL}, {HB_FUNCNAME( SQLGETCOLLATION )}, NULL },
{ "(_INITSTATICS00001)", {HB_FS_INITEXIT | HB_FS_LOCAL}, {hb_INITSTATICS}, NULL }
HB_INIT_SYMBOLS_EX_END( hb_vm_SymbolInit_TSQLFUNC, "src/TSqlFunc.prg", 0x0, 0x0003 )
#if defined( HB_PRAGMA_STARTUP )
#pragma startup hb_vm_SymbolInit_TSQLFUNC
#elif defined( HB_DATASEG_STARTUP )
#define HB_DATASEG_BODY HB_DATASEG_FUNC( hb_vm_SymbolInit_TSQLFUNC )
#include "hbiniseg.h"
#endif
HB_FUNC( SQLEVALFUNC )
{
static const HB_BYTE pcode[] =
{
13,7,2,36,22,0,176,1,0,95,1,12,1,28,
31,36,23,0,176,2,0,95,2,12,1,121,15,28,
11,36,24,0,95,2,122,1,110,7,36,26,0,121,
110,7,36,31,0,95,1,106,6,85,80,80,69,82,
0,8,28,24,36,32,0,176,3,0,176,4,0,176,
5,0,95,2,122,12,2,12,1,20,1,7,36,33,
0,95,1,106,6,76,79,87,69,82,0,8,28,24,
36,34,0,176,6,0,176,4,0,176,5,0,95,2,
122,12,2,12,1,20,1,7,36,35,0,95,1,106,
5,84,82,73,77,0,8,31,17,95,1,106,8,65,
76,76,84,82,73,77,0,8,28,24,36,36,0,176,
7,0,176,4,0,176,5,0,95,2,122,12,2,12,
1,20,1,7,36,37,0,95,1,106,6,76,84,82,
73,77,0,8,28,24,36,38,0,176,8,0,176,4,
0,176,5,0,95,2,122,12,2,12,1,20,1,7,
36,39,0,95,1,106,6,82,84,82,73,77,0,8,
28,24,36,40,0,176,9,0,176,4,0,176,5,0,
95,2,122,12,2,12,1,20,1,7,36,41,0,95,
1,106,7,83,85,66,83,84,82,0,8,31,19,95,
1,106,10,83,85,66,83,84,82,73,78,71,0,8,
28,104,36,42,0,176,4,0,176,5,0,95,2,122,
12,2,12,1,80,6,36,43,0,176,10,0,176,11,
0,176,5,0,95,2,92,2,12,2,12,1,12,1,
80,7,36,44,0,176,2,0,95,2,12,1,92,3,
16,28,34,36,45,0,176,12,0,95,6,95,7,176,
10,0,176,11,0,176,5,0,95,2,92,3,12,2,
12,1,12,1,20,3,7,36,47,0,176,12,0,95,
6,95,7,20,2,7,36,48,0,95,1,106,5,76,
69,70,84,0,8,28,43,36,49,0,176,13,0,176,
4,0,176,5,0,95,2,122,12,2,12,1,176,10,
0,176,11,0,176,5,0,95,2,92,2,12,2,12,
1,12,1,20,2,7,36,50,0,95,1,106,6,82,
73,71,72,84,0,8,28,43,36,51,0,176,14,0,
176,4,0,176,5,0,95,2,122,12,2,12,1,176,
10,0,176,11,0,176,5,0,95,2,92,2,12,2,
12,1,12,1,20,2,7,36,52,0,95,1,106,4,
76,69,78,0,8,31,16,95,1,106,7,76,69,78,
71,84,72,0,8,28,29,36,53,0,176,2,0,176,
7,0,176,4,0,176,5,0,95,2,122,12,2,12,
1,12,1,20,1,7,36,54,0,95,1,106,8,82,
69,80,76,65,67,69,0,8,28,52,36,55,0,176,
15,0,176,4,0,176,5,0,95,2,122,12,2,12,
1,176,4,0,176,5,0,95,2,92,2,12,2,12,
1,176,4,0,176,5,0,95,2,92,3,12,2,12,
1,20,3,7,36,56,0,95,1,106,6,83,80,65,
67,69,0,8,28,29,36,57,0,176,16,0,176,10,
0,176,11,0,176,5,0,95,2,122,12,2,12,1,
12,1,20,1,7,36,58,0,95,1,106,10,82,69,
80,76,73,67,65,84,69,0,8,28,43,36,59,0,
176,17,0,176,4,0,176,5,0,95,2,122,12,2,
12,1,176,10,0,176,11,0,176,5,0,95,2,92,
2,12,2,12,1,12,1,20,2,7,36,60,0,95,
1,106,6,83,84,85,70,70,0,8,28,115,36,61,
0,176,4,0,176,5,0,95,2,122,12,2,12,1,
80,6,36,63,0,176,13,0,95,6,176,10,0,176,
11,0,176,5,0,95,2,92,2,12,2,12,1,12,
1,122,49,12,2,176,4,0,176,5,0,95,2,92,
4,12,2,12,1,72,176,12,0,95,6,176,10,0,
176,11,0,176,5,0,95,2,92,2,12,2,12,1,
12,1,176,10,0,176,11,0,176,5,0,95,2,92,
3,12,2,12,1,12,1,72,12,2,72,110,7,36,
64,0,95,1,106,10,67,72,65,82,73,78,68,69,
88,0,8,28,38,36,65,0,176,18,0,176,4,0,
176,5,0,95,2,122,12,2,12,1,176,4,0,176,
5,0,95,2,92,2,12,2,12,1,20,2,7,36,
66,0,95,1,106,7,67,79,78,67,65,84,0,8,
28,59,36,67,0,106,1,0,80,6,36,68,0,122,
165,80,3,25,25,36,69,0,96,6,0,176,4,0,
95,2,95,3,1,12,1,135,36,68,0,175,3,0,
176,2,0,95,2,12,1,15,28,225,36,71,0,95,
6,110,7,36,74,0,95,1,106,4,65,66,83,0,
8,28,24,36,75,0,176,19,0,176,11,0,176,5,
0,95,2,122,12,2,12,1,20,1,7,36,76,0,
95,1,106,6,82,79,85,78,68,0,8,28,43,36,
77,0,176,20,0,176,11,0,176,5,0,95,2,122,
12,2,12,1,176,10,0,176,11,0,176,5,0,95,
2,92,2,12,2,12,1,12,1,20,2,7,36,78,
0,95,1,106,4,73,78,84,0,8,31,15,95,1,
106,6,70,76,79,79,82,0,8,28,24,36,79,0,
176,10,0,176,11,0,176,5,0,95,2,122,12,2,
12,1,20,1,7,36,80,0,95,1,106,8,67,69,
73,76,73,78,71,0,8,31,14,95,1,106,5,67,
69,73,76,0,8,28,65,36,81,0,176,11,0,176,
5,0,95,2,122,12,2,12,1,80,7,36,82,0,
95,7,176,10,0,95,7,12,1,8,28,9,36,83,
0,95,7,110,7,36,85,0,176,10,0,95,7,12,
1,95,7,121,15,28,5,122,25,3,121,72,110,7,
36,86,0,95,1,106,4,77,79,68,0,8,28,57,
36,87,0,176,11,0,176,5,0,95,2,92,2,12,
2,12,1,80,8,36,88,0,95,8,121,69,28,23,
36,89,0,176,11,0,176,5,0,95,2,122,12,2,
12,1,95,8,50,110,7,36,91,0,121,110,7,36,
92,0,95,1,106,6,80,79,87,69,82,0,8,28,
35,36,93,0,176,11,0,176,5,0,95,2,122,12,
2,12,1,176,11,0,176,5,0,95,2,92,2,12,
2,12,1,84,110,7,36,94,0,95,1,106,5,83,
81,82,84,0,8,28,24,36,95,0,176,21,0,176,
11,0,176,5,0,95,2,122,12,2,12,1,20,1,
7,36,96,0,95,1,106,5,83,73,71,78,0,8,
28,45,36,97,0,176,11,0,176,5,0,95,2,122,
12,2,12,1,80,7,36,98,0,95,7,121,15,28,
5,122,25,13,95,7,121,35,28,6,92,255,25,3,
121,110,7,36,101,0,95,1,106,5,89,69,65,82,
0,8,28,49,36,102,0,176,5,0,95,2,122,12,
2,80,4,36,103,0,176,22,0,95,4,12,1,106,
2,68,0,8,28,13,36,104,0,176,23,0,95,4,
20,1,7,36,106,0,121,110,7,36,107,0,95,1,
106,6,77,79,78,84,72,0,8,28,49,36,108,0,
176,5,0,95,2,122,12,2,80,4,36,109,0,176,
22,0,95,4,12,1,106,2,68,0,8,28,13,36,
110,0,176,24,0,95,4,20,1,7,36,112,0,121,
110,7,36,113,0,95,1,106,4,68,65,89,0,8,
28,49,36,114,0,176,5,0,95,2,122,12,2,80,
4,36,115,0,176,22,0,95,4,12,1,106,2,68,
0,8,28,13,36,116,0,176,25,0,95,4,20,1,
7,36,118,0,121,110,7,36,119,0,95,1,106,4,
78,79,87,0,8,28,11,36,120,0,176,26,0,20,
0,7,36,121,0,95,1,106,5,68,65,84,69,0,
8,28,11,36,122,0,176,27,0,20,0,7,36,123,
0,95,1,106,5,84,73,77,69,0,8,28,11,36,
124,0,176,28,0,20,0,7,36,125,0,95,1,106,
5,68,84,79,83,0,8,28,51,36,126,0,176,5,
0,95,2,122,12,2,80,4,36,127,0,176,22,0,
95,4,12,1,106,2,68,0,8,28,13,36,128,0,
176,29,0,95,4,20,1,7,36,130,0,106,1,0,
110,7,36,131,0,95,1,106,5,68,84,79,67,0,
8,28,51,36,132,0,176,5,0,95,2,122,12,2,
80,4,36,133,0,176,22,0,95,4,12,1,106,2,
68,0,8,28,13,36,134,0,176,30,0,95,4,20,
1,7,36,136,0,106,1,0,110,7,36,137,0,95,
1,106,5,67,84,79,68,0,8,28,24,36,138,0,
176,31,0,176,4,0,176,5,0,95,2,122,12,2,
12,1,20,1,7,36,139,0,95,1,106,5,83,84,
79,68,0,8,28,24,36,140,0,176,32,0,176,4,
0,176,5,0,95,2,122,12,2,12,1,20,1,7,
36,143,0,95,1,106,4,83,84,82,0,8,28,85,
36,144,0,176,2,0,95,2,12,1,92,2,16,28,
43,36,145,0,176,33,0,176,11,0,176,5,0,95,
2,122,12,2,12,1,176,10,0,176,11,0,176,5,
0,95,2,92,2,12,2,12,1,12,1,20,2,7,
36,147,0,176,7,0,176,33,0,176,11,0,176,5,
0,95,2,122,12,2,12,1,12,1,20,1,7,36,
148,0,95,1,106,4,86,65,76,0,8,28,24,36,
149,0,176,34,0,176,4,0,176,5,0,95,2,122,
12,2,12,1,20,1,7,36,150,0,95,1,106,5,
67,65,83,84,0,8,28,14,36,151,0,176,5,0,
95,2,122,20,2,7,36,152,0,95,1,106,8,67,
79,78,86,69,82,84,0,8,28,14,36,153,0,176,
5,0,95,2,122,20,2,7,36,156,0,95,1,106,
4,73,73,70,0,8,28,46,36,157,0,176,35,0,
176,5,0,95,2,122,12,2,12,1,28,15,36,158,
0,176,5,0,95,2,92,2,20,2,7,36,160,0,
176,5,0,95,2,92,3,20,2,7,36,161,0,95,
1,106,9,67,79,65,76,69,83,67,69,0,8,28,
89,36,162,0,122,165,80,3,25,64,36,164,0,95,
2,95,3,1,100,69,28,46,176,22,0,95,2,95,
3,1,12,1,106,2,67,0,8,28,19,176,36,0,
176,7,0,95,2,95,3,1,12,1,12,1,31,12,
36,165,0,95,2,95,3,1,110,7,36,162,0,175,
3,0,176,2,0,95,2,12,1,15,28,186,36,168,
0,100,110,7,36,169,0,95,1,106,7,78,85,76,
76,73,70,0,8,28,47,36,170,0,176,37,0,176,
5,0,95,2,122,12,2,176,5,0,95,2,92,2,
12,2,12,2,28,8,36,171,0,100,110,7,36,173,
0,176,5,0,95,2,122,20,2,7,36,176,0,95,
1,106,8,68,65,84,69,65,68,68,0,8,29,69,
1,36,177,0,176,5,0,95,2,92,3,12,2,80,
4,36,178,0,176,10,0,176,11,0,176,5,0,95,
2,92,2,12,2,12,1,12,1,80,7,36,179,0,
176,3,0,176,4,0,176,5,0,95,2,122,12,2,
12,1,12,1,80,6,36,180,0,176,22,0,95,4,
12,1,106,2,68,0,8,29,239,0,36,181,0,95,
6,106,2,68,0,8,31,23,95,6,106,4,68,65,
89,0,8,31,12,95,6,106,3,68,68,0,8,28,
12,36,182,0,95,4,95,7,72,110,7,36,183,0,
95,6,106,2,77,0,8,31,25,95,6,106,6,77,
79,78,84,72,0,8,31,12,95,6,106,3,77,77,
0,8,28,58,36,184,0,176,32,0,176,38,0,176,
23,0,95,4,12,1,92,4,12,2,176,38,0,176,
24,0,95,4,12,1,95,7,72,92,2,12,2,72,
176,38,0,176,25,0,95,4,12,1,92,2,12,2,
72,20,1,7,36,185,0,95,6,106,2,89,0,8,
31,36,95,6,106,5,89,69,65,82,0,8,31,24,
95,6,106,3,89,89,0,8,31,14,95,6,106,5,
89,89,89,89,0,8,28,58,36,186,0,176,32,0,
176,38,0,176,23,0,95,4,12,1,95,7,72,92,
4,12,2,176,38,0,176,24,0,95,4,12,1,92,
2,12,2,72,176,38,0,176,25,0,95,4,12,1,
92,2,12,2,72,20,1,7,36,189,0,95,4,110,
7,36,190,0,95,1,106,9,68,65,84,69,68,73,
70,70,0,8,29,234,0,36,191,0,176,5,0,95,
2,92,2,12,2,80,4,36,192,0,176,5,0,95,
2,92,3,12,2,80,5,36,193,0,176,3,0,176,
4,0,176,5,0,95,2,122,12,2,12,1,12,1,
80,6,36,194,0,176,22,0,95,4,12,1,106,2,
68,0,8,29,159,0,176,22,0,95,5,12,1,106,
2,68,0,8,29,144,0,36,195,0,95,6,106,2,
68,0,8,31,13,95,6,106,4,68,65,89,0,8,
28,12,36,196,0,95,5,95,4,49,110,7,36,197,
0,95,6,106,2,77,0,8,31,15,95,6,106,6,
77,79,78,84,72,0,8,28,41,36,198,0,176,23,
0,95,5,12,1,176,23,0,95,4,12,1,49,92,
12,65,176,24,0,95,5,12,1,176,24,0,95,4,
12,1,49,72,110,7,36,199,0,95,6,106,2,89,
0,8,31,14,95,6,106,5,89,69,65,82,0,8,
28,22,36,200,0,176,23,0,95,5,12,1,176,23,
0,95,4,12,1,49,110,7,36,203,0,121,110,7,
36,204,0,95,1,106,8,69,79,77,79,78,84,72,
0,8,29,137,0,36,205,0,176,5,0,95,2,122,
12,2,80,4,36,206,0,176,2,0,95,2,12,1,
92,2,16,28,23,176,10,0,176,11,0,176,5,0,
95,2,92,2,12,2,12,1,12,1,25,3,121,80,
7,36,207,0,176,22,0,95,4,12,1,106,2,68,
0,8,28,61,36,208,0,176,32,0,176,38,0,176,
23,0,95,4,12,1,92,4,12,2,176,38,0,176,
24,0,95,4,12,1,95,7,72,122,72,92,2,12,
2,72,106,3,48,49,0,72,12,1,122,49,80,4,
36,209,0,95,4,110,7,36,211,0,100,110,7,36,
214,0,95,1,106,6,73,78,83,84,82,0,8,28,
38,36,215,0,176,18,0,176,4,0,176,5,0,95,
2,122,12,2,12,1,176,4,0,176,5,0,95,2,
92,2,12,2,12,1,20,2,7,36,216,0,95,1,
106,8,82,69,86,69,82,83,69,0,8,28,80,36,
217,0,176,4,0,176,5,0,95,2,122,12,2,12,
1,80,6,36,218,0,106,1,0,80,9,36,219,0,
176,2,0,95,6,12,1,165,80,3,25,28,36,220,
0,96,9,0,176,12,0,95,6,95,3,122,12,3,
135,36,219,0,126,3,255,255,95,3,122,35,28,228,
36,222,0,95,9,110,7,36,223,0,95,1,106,5,
80,65,68,76,0,8,28,43,36,224,0,176,39,0,
176,4,0,176,5,0,95,2,122,12,2,12,1,176,
10,0,176,11,0,176,5,0,95,2,92,2,12,2,
12,1,12,1,20,2,7,36,225,0,95,1,106,5,
80,65,68,82,0,8,28,43,36,226,0,176,40,0,
176,4,0,176,5,0,95,2,122,12,2,12,1,176,
10,0,176,11,0,176,5,0,95,2,92,2,12,2,
12,1,12,1,20,2,7,36,227,0,95,1,106,5,
80,65,68,67,0,8,28,43,36,228,0,176,41,0,
176,4,0,176,5,0,95,2,122,12,2,12,1,176,
10,0,176,11,0,176,5,0,95,2,92,2,12,2,
12,1,12,1,20,2,7,36,231,0,95,1,106,10,
73,83,78,85,77,69,82,73,67,0,8,28,96,36,
232,0,176,5,0,95,2,122,12,2,80,4,36,233,
0,176,22,0,95,4,12,1,106,2,78,0,8,28,
8,36,234,0,120,110,7,36,235,0,176,22,0,95,
4,12,1,106,2,67,0,8,28,37,36,236,0,176,
34,0,176,7,0,95,4,12,1,12,1,121,69,21,
31,15,73,176,7,0,95,4,12,1,106,2,48,0,
8,110,7,36,238,0,9,110,7,36,239,0,95,1,
106,7,73,83,68,65,84,69,0,8,28,32,36,240,
0,176,5,0,95,2,122,12,2,80,4,36,241,0,
176,22,0,95,4,12,1,106,2,68,0,8,110,7,
36,242,0,95,1,106,8,73,83,86,65,76,73,68,
0,8,28,17,36,243,0,176,5,0,95,2,122,12,
2,100,69,110,7,36,244,0,95,1,106,7,84,89,
80,69,79,70,0,8,31,14,95,1,106,5,84,89,
80,69,0,8,28,26,36,245,0,176,5,0,95,2,
122,12,2,80,4,36,246,0,176,22,0,95,4,20,
1,7,36,249,0,95,1,106,8,72,66,95,72,79,
85,82,0,8,28,49,36,250,0,176,5,0,95,2,
122,12,2,80,4,36,251,0,176,22,0,95,4,12,
1,106,2,84,0,8,28,13,36,252,0,176,42,0,
95,4,20,1,7,36,254,0,121,110,7,36,255,0,
95,1,106,10,72,66,95,77,73,78,85,84,69,0,
8,28,49,36,0,1,176,5,0,95,2,122,12,2,
80,4,36,1,1,176,22,0,95,4,12,1,106,2,
84,0,8,28,13,36,2,1,176,43,0,95,4,20,
1,7,36,4,1,121,110,7,36,5,1,95,1,106,
10,72,66,95,83,69,67,79,78,68,0,8,28,49,
36,6,1,176,5,0,95,2,122,12,2,80,4,36,
7,1,176,22,0,95,4,12,1,106,2,84,0,8,
28,13,36,8,1,176,44,0,95,4,20,1,7,36,
10,1,121,110,7,36,11,1,95,1,106,12,72,66,
95,68,65,84,69,84,73,77,69,0,8,28,11,36,
12,1,176,26,0,20,0,7,36,13,1,95,1,106,
8,72,66,95,84,84,79,67,0,8,28,51,36,14,
1,176,5,0,95,2,122,12,2,80,4,36,15,1,
176,22,0,95,4,12,1,106,2,84,0,8,28,13,
36,16,1,176,45,0,95,4,20,1,7,36,18,1,
106,1,0,110,7,36,19,1,95,1,106,8,72,66,
95,67,84,79,84,0,8,28,24,36,20,1,176,46,
0,176,4,0,176,5,0,95,2,122,12,2,12,1,
20,1,7,36,21,1,95,1,106,10,84,73,77,69,
83,84,65,77,80,0,8,28,24,36,22,1,176,46,
0,176,4,0,176,5,0,95,2,122,12,2,12,1,
20,1,7,36,25,1,95,1,106,13,82,79,85,78,
68,95,66,65,78,75,69,82,0,8,28,73,36,26,
1,176,11,0,176,5,0,95,2,122,12,2,12,1,
80,7,36,27,1,176,2,0,95,2,12,1,92,2,
16,28,23,176,10,0,176,11,0,176,5,0,95,2,
92,2,12,2,12,1,12,1,25,4,92,2,80,8,
36,28,1,176,47,0,95,7,95,8,20,2,7,36,
31,1,95,1,106,7,70,79,82,77,65,84,0,8,
28,80,36,32,1,176,11,0,176,5,0,95,2,122,
12,2,12,1,80,7,36,33,1,176,2,0,95,2,
12,1,92,2,16,28,23,176,10,0,176,11,0,176,
5,0,95,2,92,2,12,2,12,1,12,1,25,4,
92,2,80,8,36,34,1,176,7,0,176,33,0,95,
7,92,20,95,8,12,3,20,1,7,36,38,1,100,
110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLARG )
{
static const HB_BYTE pcode[] =
{
13,0,2,36,44,1,95,2,176,2,0,95,1,12,
1,34,28,12,36,45,1,95,1,95,2,1,110,7,
36,48,1,100,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLCOERCESTR )
{
static const HB_BYTE pcode[] =
{
13,0,1,36,54,1,95,1,100,8,28,10,36,55,
1,106,1,0,110,7,36,57,1,176,22,0,95,1,
12,1,106,2,67,0,8,28,9,36,58,1,95,1,
110,7,36,60,1,176,22,0,95,1,12,1,106,2,
78,0,8,28,18,36,61,1,176,7,0,176,33,0,
95,1,12,1,20,1,7,36,63,1,176,22,0,95,
1,12,1,106,2,68,0,8,28,13,36,64,1,176,
30,0,95,1,20,1,7,36,66,1,176,22,0,95,
1,12,1,106,2,76,0,8,28,21,36,67,1,95,
1,28,8,106,2,84,0,25,6,106,2,70,0,110,
7,36,70,1,106,1,0,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLCOERCENUM )
{
static const HB_BYTE pcode[] =
{
13,0,1,36,76,1,95,1,100,8,28,8,36,77,
1,121,110,7,36,79,1,176,22,0,95,1,12,1,
106,2,78,0,8,28,9,36,80,1,95,1,110,7,
36,82,1,176,22,0,95,1,12,1,106,2,67,0,
8,28,18,36,83,1,176,34,0,176,7,0,95,1,
12,1,20,1,7,36,85,1,176,22,0,95,1,12,
1,106,2,76,0,8,28,15,36,86,1,95,1,28,
5,122,25,3,121,110,7,36,89,1,121,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLCOERCEFORCMP )
{
static const HB_BYTE pcode[] =
{
13,0,1,36,95,1,95,1,100,8,28,9,36,96,
1,95,1,110,7,36,98,1,176,22,0,95,1,12,
1,106,2,67,0,8,28,18,36,99,1,176,3,0,
176,7,0,95,1,12,1,20,1,7,36,102,1,95,
1,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLISTRUE )
{
static const HB_BYTE pcode[] =
{
13,0,1,36,108,1,95,1,100,8,28,8,36,109,
1,9,110,7,36,111,1,176,22,0,95,1,12,1,
106,2,76,0,8,28,9,36,112,1,95,1,110,7,
36,114,1,176,22,0,95,1,12,1,106,2,78,0,
8,28,11,36,115,1,95,1,121,69,110,7,36,117,
1,176,22,0,95,1,12,1,106,2,67,0,8,28,
15,36,118,1,176,36,0,95,1,12,1,68,110,7,
36,121,1,9,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLCMPEQ )
{
static const HB_BYTE pcode[] =
{
13,0,2,36,127,1,95,1,100,8,31,8,95,2,
100,8,28,19,36,128,1,95,1,100,8,21,28,7,
73,95,2,100,8,110,7,36,130,1,176,22,0,95,
1,12,1,176,22,0,95,2,12,1,8,28,59,36,
131,1,176,22,0,95,1,12,1,106,2,67,0,8,
28,32,36,132,1,176,3,0,176,7,0,95,1,12,
1,12,1,176,3,0,176,7,0,95,2,12,1,12,
1,8,110,7,36,134,1,95,1,95,2,8,110,7,
36,136,1,176,22,0,95,1,12,1,106,2,78,0,
8,28,36,176,22,0,95,2,12,1,106,2,67,0,
8,28,22,36,137,1,95,1,176,34,0,176,7,0,
95,2,12,1,12,1,8,110,7,36,139,1,176,22,
0,95,1,12,1,106,2,67,0,8,28,36,176,22,
0,95,2,12,1,106,2,78,0,8,28,22,36,140,
1,176,34,0,176,7,0,95,1,12,1,12,1,95,
2,8,110,7,36,143,1,9,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLCMPLT )
{
static const HB_BYTE pcode[] =
{
13,0,2,36,149,1,95,1,100,8,31,8,95,2,
100,8,28,8,36,150,1,9,110,7,36,152,1,176,
22,0,95,1,12,1,176,22,0,95,2,12,1,8,
28,59,36,153,1,176,22,0,95,1,12,1,106,2,
67,0,8,28,32,36,154,1,176,3,0,176,7,0,
95,1,12,1,12,1,176,3,0,176,7,0,95,2,
12,1,12,1,35,110,7,36,156,1,95,1,95,2,
35,110,7,36,158,1,176,22,0,95,1,12,1,106,
2,78,0,8,28,36,176,22,0,95,2,12,1,106,
2,67,0,8,28,22,36,159,1,95,1,176,34,0,
176,7,0,95,2,12,1,12,1,35,110,7,36,161,
1,176,22,0,95,1,12,1,106,2,67,0,8,28,
36,176,22,0,95,2,12,1,106,2,78,0,8,28,
22,36,162,1,176,34,0,176,7,0,95,1,12,1,
12,1,95,2,35,110,7,36,165,1,9,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLLIKEMATCH )
{
static const HB_BYTE pcode[] =
{
13,4,3,36,173,1,176,22,0,95,1,12,1,106,
2,67,0,69,31,16,176,22,0,95,2,12,1,106,
2,67,0,69,28,8,36,174,1,9,110,7,36,176,
1,176,3,0,176,7,0,95,1,12,1,12,1,80,
1,36,177,1,176,3,0,176,7,0,95,2,12,1,
12,1,80,2,36,179,1,95,3,100,8,28,10,36,
180,1,106,1,0,80,3,36,182,1,176,22,0,95,
3,12,1,106,2,67,0,8,28,21,36,183,1,176,
3,0,176,7,0,95,3,12,1,12,1,80,3,25,
10,36,185,1,106,1,0,80,3,36,188,1,176,2,
0,95,1,12,1,80,6,36,189,1,176,2,0,95,
2,12,1,80,7,36,190,1,122,80,4,36,191,1,
122,80,5,36,193,1,176,51,0,95,1,95,2,95,
4,95,5,95,6,95,7,95,3,20,7,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLLIKERECURSE )
{
static const HB_BYTE pcode[] =
{
13,2,7,36,201,1,95,4,95,6,34,29,93,1,
36,202,1,176,12,0,95,2,95,4,122,12,3,80,
8,36,205,1,176,36,0,95,7,12,1,31,99,95,
8,95,7,8,28,92,95,4,95,6,35,28,85,36,
206,1,174,4,0,36,207,1,176,12,0,95,2,95,
4,122,12,3,80,8,36,208,1,95,3,95,5,15,
28,8,36,209,1,9,110,7,36,211,1,176,12,0,
95,1,95,3,122,12,3,80,9,36,212,1,95,9,
95,8,69,28,8,36,213,1,9,110,7,36,215,1,
174,3,0,36,216,1,174,4,0,26,124,255,36,220,
1,95,8,106,2,37,0,8,28,107,36,222,1,95,
4,95,6,34,28,27,176,12,0,95,2,95,4,122,
12,3,106,2,37,0,8,28,10,36,223,1,174,4,
0,25,223,36,225,1,95,4,95,6,15,28,8,36,
226,1,120,110,7,36,228,1,95,3,95,5,34,28,
40,36,229,1,176,51,0,95,1,95,2,95,3,95,
4,95,5,95,6,95,7,12,7,28,8,36,230,1,
120,110,7,36,232,1,174,3,0,25,210,36,234,1,
9,110,7,36,237,1,95,8,106,2,95,0,8,28,
33,36,238,1,95,3,95,5,15,28,8,36,239,1,
9,110,7,36,241,1,174,3,0,36,242,1,174,4,
0,26,220,254,36,247,1,95,3,95,5,15,28,8,
36,248,1,9,110,7,36,250,1,176,12,0,95,1,
95,3,122,12,3,80,9,36,251,1,95,9,95,8,
69,28,8,36,252,1,9,110,7,36,254,1,174,3,
0,36,255,1,174,4,0,26,158,254,36,2,2,95,
3,95,5,15,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLBANKERROUND )
{
static const HB_BYTE pcode[] =
{
13,4,2,36,10,2,95,2,100,8,28,9,36,11,
2,92,2,80,2,36,14,2,92,10,95,2,84,80,
3,36,15,2,95,1,95,3,65,80,4,36,16,2,
176,10,0,95,4,12,1,80,5,36,17,2,176,19,
0,95,4,95,5,49,12,1,80,6,36,19,2,176,
19,0,95,6,101,0,0,0,0,0,0,224,63,10,
1,49,12,1,101,72,175,188,154,242,215,122,62,10,
7,15,28,15,36,20,2,176,20,0,95,1,95,2,
20,2,7,36,23,2,95,5,92,2,50,121,8,28,
12,36,24,2,95,5,95,3,18,110,7,36,27,2,
95,1,121,16,28,14,36,28,2,95,5,122,72,95,
3,18,110,7,36,31,2,95,5,122,49,95,3,18,
110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLSETCOLLATION )
{
static const HB_BYTE pcode[] =
{
13,0,1,116,55,0,36,37,2,176,3,0,176,7,
0,95,1,12,1,12,1,82,1,0,36,38,2,103,
1,0,106,7,78,79,67,65,83,69,0,69,28,23,
176,36,0,103,1,0,12,1,31,13,36,39,2,176,
53,0,103,1,0,20,1,36,42,2,100,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC( SQLGETCOLLATION )
{
static const HB_BYTE pcode[] =
{
116,55,0,36,45,2,103,1,0,110,7
};
hb_vmExecute( pcode, symbols );
}
HB_FUNC_INITSTATICS()
{
static const HB_BYTE pcode[] =
{
117,55,0,1,0,116,55,0,106,1,0,82,1,0,
7
};
hb_vmExecute( pcode, symbols );
}