7eec5d2672
* contrib/hbcurl/core.c
* contrib/hbcurl/hbcurl.ch
+ added HB_CURLOPT_XFERINFODATA and HB_CURLOPT_XFERINFOFUNCTION
! use CURLOPT_XFERINFO* instead of depreciated CURLOPT_PROGRESS*
to implement HB_CURLOPT_PROGRESSBLOCK
! do not use depreciated CURLOPT_RANDOM_FILE and CURLOPT_EGDSOCKET,
they serve no purpose anymore
+ added macros for new protocols
+ added HB_CURLOPT_PROTOCOLS_STR and HB_CURLOPT_REDIR_PROTOCOLS_STR
! use CURLOPT_PROTOCOLS_STR and CURLOPT_REDIR_PROTOCOLS_STR instead
of depreciated CURLOPT_PROTOCOLS and CURLOPT_REDIR_PROTOCOLS
* emulate CURLOPT_PROTOCOLS and CURLOPT_REDIR_PROTOCOLS using
CURLOPT_PROTOCOLS_STR and CURLOPT_REDIR_PROTOCOLS_STR in new curl
versions
+ added support for HB_CURLOPT_MIMEPOST
! use CURLOPT_MIMEPOST to emulate depreciated in new curl versions
CURLOPT_HTTPPOST
+ added support for HB_CURLOPT_PROXY_SERVICE_NAME
! use CURLOPT_PROXY_SERVICE_NAME to emulate depreciated in new curl
versions CURLOPT_SOCKS5_GSSAPI_SERVICE
+ added HB_CURLINFO_ACTIVESOCKET
! use CURLINFO_ACTIVESOCKET instead of depreciated CURLINFO_LASTSOCKET
+ added HB_CURLINFO_SIZE_UPLOAD_T, HB_CURLINFO_SIZE_DOWNLOAD_T,
HB_CURLINFO_SPEED_DOWNLOAD_T, HB_CURLINFO_SPEED_UPLOAD_T,
HB_CURLINFO_CONTENT_LENGTH_DOWNLOAD_T and
HB_CURLINFO_CONTENT_LENGTH_UPLOAD_T
! use CURLINFO_*_T actions instead of depreciated ones which operate
double as file offset and emulate old actions using new ones in
new curl versions
* contrib/hbssl/evp.c
! Do no use EVP_cleanup() in OpenSSL 1.1.0 and newer.
It no longer has any effect.
* contrib/hbssl/hbssl.h
* set OPENSSL_API_COMPAT to 1.2.0 to pacify OpenSSL 3.0 API.
It hides OpenSSL 3.0 warnings but we should update the code to use
new suggested API.
* contrib/hbwin/olecore.c
! invoke assign methods with DISPATCH_PROPERTYPUTREF instead of
DISPATCH_PROPERTYPUT if assigned value is OLE object. If such
functionality is not implemented by the object (some OLE
implementations do not support it and returns DISP_E_MEMBERNOTFOUND)
then call it again but in previous form with DISPATCH_PROPERTYPUT
* include/hbapirdd.h
* src/rdd/dbcmd.c
! fixed error codes set by DbSetRelations() to be Cl*pper compatible
* src/rdd/dbcmd.c
+ accept symbol items in Select() and DbSelectArea() just like in
( <alias> ) -> <exp>
* include/hbcompdf.h
* include/hbexprb.c
* src/common/funcid.c
+ added compile time optimization for Select() function without parameters
+ added compile time optimization DbSelectArea( <nNum> | <sSym> )
+ added support for hb_PIsByRef( @localVarName ) -> <lPassedByRef>
When the parameter is passed by reference Harbour verifies if it's
existing local variable and change it to its index in parameter list
so effectively it works like hb_IsByRef( @localVarName ) in xHarbour
* contrib/xhb/hbcompat.ch
+ added translations for
hb_PIsByRef( @<localVar> ) <=> hb_IsByRef( @<localVar> )
211 lines
11 KiB
C
211 lines
11 KiB
C
/*
|
|
* Get function identifier
|
|
*
|
|
* Copyright 2010 Przemyslaw Czerpak <druzus / at / priv.onet.pl>
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this program; see the file LICENSE.txt. If not, write to
|
|
* the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
* Boston, MA 02110-1301 USA (or visit https://www.gnu.org/licenses/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#include "hbcomp.h"
|
|
|
|
typedef struct
|
|
{
|
|
const char * szFuncName;
|
|
int iMinLen;
|
|
int flags;
|
|
HB_FUNC_ID funcID;
|
|
} _HB_FUNCID;
|
|
|
|
/* NOTE: THIS TABLE MUST BE SORTED ALPHABETICALLY
|
|
*/
|
|
static _HB_FUNCID s_funcId[] =
|
|
{
|
|
{ "AADD", 0, HB_FN_RESERVED, HB_F_AADD },
|
|
{ "ABS", 0, HB_FN_RESERVED, HB_F_ABS },
|
|
{ "ARRAY", 0, HB_FN_UDF, HB_F_ARRAY },
|
|
{ "ASC", 0, HB_FN_RESERVED, HB_F_ASC },
|
|
{ "AT", 0, HB_FN_RESERVED, HB_F_AT },
|
|
{ "BOF", 0, HB_FN_RESERVED, HB_F_BOF },
|
|
{ "BREAK", 4, HB_FN_RESERVED, HB_F_BREAK },
|
|
{ "CDOW", 0, HB_FN_RESERVED, HB_F_CDOW },
|
|
{ "CHR", 0, HB_FN_RESERVED, HB_F_CHR },
|
|
{ "CMONTH", 4, HB_FN_RESERVED, HB_F_CMONTH },
|
|
{ "COL", 0, HB_FN_RESERVED, HB_F_COL },
|
|
{ "CTOD", 0, HB_FN_RESERVED, HB_F_CTOD },
|
|
{ "DATE", 0, HB_FN_RESERVED, HB_F_DATE },
|
|
{ "DAY", 0, HB_FN_RESERVED, HB_F_DAY },
|
|
{ "DBSELECTAREA", 0, HB_FN_RESERVED, HB_F_DBSELECTAREA },
|
|
{ "DELETED", 4, HB_FN_RESERVED, HB_F_DELETED },
|
|
{ "DEVPOS", 4, HB_FN_RESERVED, HB_F_DEVPOS },
|
|
{ "DOW", 0, HB_FN_RESERVED, HB_F_DOW },
|
|
{ "DTOC", 0, HB_FN_RESERVED, HB_F_DTOC },
|
|
{ "DTOS", 0, HB_FN_RESERVED, HB_F_DTOS },
|
|
{ "EMPTY", 4, HB_FN_RESERVED, HB_F_EMPTY },
|
|
{ "EOF", 0, HB_FN_RESERVED, HB_F_EOF },
|
|
{ "EVAL", 0, HB_FN_UDF, HB_F_EVAL },
|
|
{ "EXP", 0, HB_FN_RESERVED, HB_F_EXP },
|
|
{ "FCOUNT", 4, HB_FN_RESERVED, HB_F_FCOUNT },
|
|
{ "FIELDNAME", 4, HB_FN_RESERVED, HB_F_FIELDNAME },
|
|
{ "FILE", 0, HB_FN_UDF, HB_F_FILE },
|
|
{ "FLOCK", 4, HB_FN_RESERVED, HB_F_FLOCK },
|
|
{ "FOUND", 4, HB_FN_RESERVED, HB_F_FOUND },
|
|
{ "HB_ARRAYTOPARAMS", 0, HB_FN_UDF, HB_F_ARRAYTOPARAMS },
|
|
{ "HB_BCHAR", 0, HB_FN_UDF, HB_F_BCHAR },
|
|
{ "HB_BCODE", 0, HB_FN_UDF, HB_F_BCODE },
|
|
{ "HB_BITAND", 0, HB_FN_UDF, HB_F_BITAND },
|
|
{ "HB_BITNOT", 0, HB_FN_UDF, HB_F_BITNOT },
|
|
{ "HB_BITOR", 0, HB_FN_UDF, HB_F_BITOR },
|
|
{ "HB_BITRESET", 0, HB_FN_UDF, HB_F_BITRESET },
|
|
{ "HB_BITSET", 0, HB_FN_UDF, HB_F_BITSET },
|
|
{ "HB_BITSHIFT", 0, HB_FN_UDF, HB_F_BITSHIFT },
|
|
{ "HB_BITTEST", 0, HB_FN_UDF, HB_F_BITTEST },
|
|
{ "HB_BITXOR", 0, HB_FN_UDF, HB_F_BITXOR },
|
|
{ "HB_I18N_GETTEXT", 0, HB_FN_UDF, HB_F_I18N_GETTEXT },
|
|
{ "HB_I18N_GETTEXT_NOOP", 0, HB_FN_UDF, HB_F_I18N_GETTEXT_NOOP },
|
|
{ "HB_I18N_GETTEXT_STRICT", 0, HB_FN_UDF, HB_F_I18N_GETTEXT_STRICT },
|
|
{ "HB_I18N_NGETTEXT", 0, HB_FN_UDF, HB_F_I18N_NGETTEXT },
|
|
{ "HB_I18N_NGETTEXT_NOOP", 0, HB_FN_UDF, HB_F_I18N_NGETTEXT_NOOP },
|
|
{ "HB_I18N_NGETTEXT_STRICT", 0, HB_FN_UDF, HB_F_I18N_NGETTEXT_STRICT },
|
|
{ "HB_PISBYREF", 0, HB_FN_UDF, HB_F_PISBYREF },
|
|
{ "HB_STOD", 0, HB_FN_UDF, HB_F_STOD },
|
|
{ "HB_STOT", 0, HB_FN_UDF, HB_F_STOT },
|
|
{ "INKEY", 4, HB_FN_RESERVED, HB_F_INKEY },
|
|
{ "INT", 0, HB_FN_RESERVED, HB_F_INT },
|
|
{ "LASTREC", 4, HB_FN_RESERVED, HB_F_LASTREC },
|
|
{ "LEFT", 0, HB_FN_RESERVED, HB_F_LEFT },
|
|
{ "LEN", 0, HB_FN_RESERVED, HB_F_LEN },
|
|
{ "LOCK", 0, HB_FN_RESERVED, HB_F_LOCK },
|
|
{ "LOG", 0, HB_FN_RESERVED, HB_F_LOG },
|
|
{ "LOWER", 4, HB_FN_RESERVED, HB_F_LOWER },
|
|
{ "LTRIM", 4, HB_FN_RESERVED, HB_F_LTRIM },
|
|
{ "MAX", 0, HB_FN_RESERVED, HB_F_MAX },
|
|
{ "MIN", 0, HB_FN_RESERVED, HB_F_MIN },
|
|
{ "MONTH", 4, HB_FN_RESERVED, HB_F_MONTH },
|
|
{ "PCOL", 0, HB_FN_RESERVED, HB_F_PCOL },
|
|
{ "PCOUNT", 4, HB_FN_RESERVED, HB_F_PCOUNT },
|
|
{ "PROW", 0, HB_FN_RESERVED, HB_F_PROW },
|
|
{ "QSELF", 4, HB_FN_RESERVED, HB_F_QSELF },
|
|
{ "RECCOUNT", 4, HB_FN_RESERVED, HB_F_RECCOUNT },
|
|
{ "RECNO", 4, HB_FN_RESERVED, HB_F_RECNO },
|
|
{ "REPLICATE", 4, HB_FN_RESERVED, HB_F_REPLICATE },
|
|
{ "RLOCK", 4, HB_FN_RESERVED, HB_F_RLOCK },
|
|
{ "ROUND", 4, HB_FN_RESERVED, HB_F_ROUND },
|
|
{ "ROW", 0, HB_FN_RESERVED, HB_F_ROW },
|
|
{ "RTRIM", 4, HB_FN_RESERVED, HB_F_RTRIM },
|
|
{ "SECONDS", 4, HB_FN_RESERVED, HB_F_SECONDS },
|
|
{ "SELECT", 4, HB_FN_RESERVED, HB_F_SELECT },
|
|
{ "SETPOS", 4, HB_FN_RESERVED, HB_F_SETPOS },
|
|
{ "SETPOSBS", 4, HB_FN_RESERVED, HB_F_SETPOSBS },
|
|
{ "SPACE", 4, HB_FN_RESERVED, HB_F_SPACE },
|
|
{ "SQRT", 0, HB_FN_RESERVED, HB_F_SQRT },
|
|
{ "STOD", 0, HB_FN_UDF, HB_F_STOD },
|
|
{ "STR", 0, HB_FN_RESERVED, HB_F_STR },
|
|
{ "SUBSTR", 4, HB_FN_RESERVED, HB_F_SUBSTR },
|
|
{ "TIME", 0, HB_FN_RESERVED, HB_F_TIME },
|
|
{ "TRANSFORM", 4, HB_FN_RESERVED, HB_F_TRANSFORM },
|
|
{ "TRIM", 0, HB_FN_RESERVED, HB_F_TRIM },
|
|
{ "TYPE", 0, HB_FN_RESERVED, HB_F_TYPE },
|
|
{ "UPPER", 4, HB_FN_RESERVED, HB_F_UPPER },
|
|
{ "VAL", 0, HB_FN_RESERVED, HB_F_VAL },
|
|
{ "VALTYPE", 4, HB_FN_RESERVED, HB_F_VALTYPE },
|
|
{ "WORD", 0, HB_FN_RESERVED, HB_F_WORD },
|
|
{ "YEAR", 0, HB_FN_RESERVED, HB_F_YEAR },
|
|
{ "_GET_", 0, HB_FN_UDF, HB_F__GET_ }
|
|
};
|
|
|
|
const char * hb_compGetFuncID( const char * szFuncName, HB_FUNC_ID * pFunID, int * piFlags )
|
|
{
|
|
unsigned int uiFirst = 0, uiLast = HB_SIZEOFARRAY( s_funcId ) - 1, uiMiddle;
|
|
int i;
|
|
|
|
do
|
|
{
|
|
uiMiddle = ( uiFirst + uiLast ) >> 1;
|
|
i = strcmp( szFuncName, s_funcId[ uiMiddle ].szFuncName );
|
|
if( i <= 0 )
|
|
uiLast = uiMiddle;
|
|
else
|
|
uiFirst = uiMiddle + 1;
|
|
}
|
|
while( uiFirst < uiLast );
|
|
|
|
if( uiFirst != uiMiddle )
|
|
i = strcmp( szFuncName, s_funcId[ uiFirst ].szFuncName );
|
|
|
|
if( i < 0 && s_funcId[ uiFirst ].iMinLen )
|
|
{
|
|
int iLen = ( int ) strlen( szFuncName );
|
|
|
|
if( iLen >= s_funcId[ uiFirst ].iMinLen )
|
|
i = strncmp( szFuncName, s_funcId[ uiFirst ].szFuncName, iLen );
|
|
}
|
|
|
|
if( i == 0 )
|
|
{
|
|
*piFlags = s_funcId[ uiFirst ].flags;
|
|
*pFunID = s_funcId[ uiFirst ].funcID;
|
|
return s_funcId[ uiFirst ].szFuncName;
|
|
}
|
|
|
|
*piFlags = HB_FN_UDF;
|
|
*pFunID = HB_F_UDF;
|
|
|
|
/* hack for HB_I18N_GETTEXT_[NOOP_|STRICT_]* functions */
|
|
if( strncmp( szFuncName, "HB_I18N_", 8 ) == 0 )
|
|
{
|
|
const char * szName = szFuncName + 8;
|
|
i = *szName == 'N' ? 1 : 0;
|
|
szName += i;
|
|
if( strncmp( szName, "GETTEXT_", 8 ) == 0 )
|
|
{
|
|
szName += 8;
|
|
if( strncmp( szName, "STRICT_", 7 ) == 0 )
|
|
*pFunID = i ? HB_F_I18N_NGETTEXT_STRICT : HB_F_I18N_GETTEXT_STRICT;
|
|
else if( strncmp( szName, "NOOP_", 5 ) == 0 )
|
|
*pFunID = i ? HB_F_I18N_NGETTEXT_NOOP : HB_F_I18N_GETTEXT_NOOP;
|
|
else
|
|
*pFunID = i ? HB_F_I18N_NGETTEXT : HB_F_I18N_GETTEXT;
|
|
}
|
|
}
|
|
|
|
return szFuncName;
|
|
}
|