mir/libreoffice
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a9dcd87448499e3d23f4b50c23a5ad6ee1641527
libreoffice/connectivity/source/parse/sqlnode.cxx

1137 lines
46 KiB
C++
Raw Normal View History

initial import
2000-09-18 15:18:56 +00:00
/*************************************************************************
*
* $RCSfile: sqlnode.cxx,v $
*
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
* $Revision: 1.31 $
initial import
2000-09-18 15:18:56 +00:00
*
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
* last change: $Author: oj $ $Date: 2002-09-27 11:10:32 $
initial import
2000-09-18 15:18:56 +00:00
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
*
* - GNU Lesser General Public License Version 2.1
* - Sun Industry Standards Source License Version 1.1
*
* Sun Microsystems Inc., October, 2000
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2000 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library 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
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
*
* Sun Industry Standards Source License Version 1.1
* =================================================
* The contents of this file are subject to the Sun Industry Standards
* Source License Version 1.1 (the "License"); You may not use this file
* except in compliance with the License. You may obtain a copy of the
* License at http://www.openoffice.org/license.html.
*
* Software provided under this License is provided on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
* See the License for the specific provisions governing your rights and
* obligations concerning the Software.
*
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
*
* Copyright: 2000 by Sun Microsystems, Inc.
*
* All Rights Reserved.
*
* Contributor(s): _______________________________________
*
*
************************************************************************/
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
initial import
2000-09-18 15:18:56 +00:00
#ifndef _CONNECTIVITY_SQLNODE_HXX
#include <connectivity/sqlnode.hxx>
#endif
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
#ifndef _CONNECTIVITY_SQLINTERNALNODE_HXX
#include <internalnode.hxx>
#endif
#define YYBISON 1
#i3114# change to YACCTARGET
2002-03-06 12:25:45 +00:00
#include <sqlbison.hxx>
initial import
2000-09-18 15:18:56 +00:00
#ifndef _CONNECTIVITY_SQLPARSE_HXX
#include <connectivity/sqlparse.hxx>
#endif
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
initial import
2000-09-18 15:18:56 +00:00
#ifndef _COM_SUN_STAR_LANG_LOCALE_HPP_
#include <com/sun/star/lang/Locale.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATTER_HPP_
#include <com/sun/star/util/XNumberFormatter.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATTYPES_HPP_
#include <com/sun/star/util/XNumberFormatTypes.hpp>
#endif
#ifndef _COM_SUN_STAR_BEANS_XPROPERTYSET_HPP_
#include <com/sun/star/beans/XPropertySet.hpp>
#endif
#ifndef _COM_SUN_STAR_SDBC_XDATABASEMETADATA_HPP_
#include <com/sun/star/sdbc/XDatabaseMetaData.hpp>
#endif
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
#ifndef _COM_SUN_STAR_SDBC_DATATYPE_HPP_
#include <com/sun/star/sdbc/DataType.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATTER_HPP_
#include <com/sun/star/util/XNumberFormatter.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATSSUPPLIER_HPP_
#include <com/sun/star/util/XNumberFormatsSupplier.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATS_HPP_
#include <com/sun/star/util/XNumberFormats.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_NUMBERFORMAT_HPP_
#include <com/sun/star/util/NumberFormat.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_XNUMBERFORMATTYPES_HPP_
#include <com/sun/star/util/XNumberFormatTypes.hpp>
#endif
#ifndef _COM_SUN_STAR_LANG_LOCALE_HPP_
#include <com/sun/star/lang/Locale.hpp>
#endif
#ifndef _COM_SUN_STAR_I18N_KPARSETYPE_HPP_
#include <com/sun/star/i18n/KParseType.hpp>
#endif
#ifndef _COM_SUN_STAR_I18N_KPARSETOKENS_HPP_
#include <com/sun/star/i18n/KParseTokens.hpp>
#endif
initial import
2000-09-18 15:18:56 +00:00
remove tools from dbtools
2000-10-19 10:47:14 +00:00
#ifndef _DBHELPER_DBCONVERSION_HXX_
#include "connectivity/dbconversion.hxx"
#endif
#ifndef _COM_SUN_STAR_UTIL_DATETIME_HPP_
#include <com/sun/star/util/DateTime.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_TIME_HPP_
#include <com/sun/star/util/Time.hpp>
#endif
#ifndef _COM_SUN_STAR_UTIL_DATE_HPP_
#include <com/sun/star/util/Date.hpp>
#endif
#86528# disable exception in some files
2001-05-23 08:18:28 +00:00
#ifndef CONNECTIVITY_CONNECTION_HXX
#include "TConnection.hxx"
#endif
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
#ifndef _CONNECTIVITY_SQLSCAN_HXX
#include "sqlscan.hxx"
#endif
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
#ifndef _COMPHELPER_NUMBERS_HXX_
#include <comphelper/numbers.hxx>
#endif
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
remove tools from dbtools
2000-10-19 10:47:14 +00:00
initial import
2000-09-18 15:18:56 +00:00
using namespace ::com::sun::star::sdbc;
using namespace ::com::sun::star::util;
using namespace ::com::sun::star::beans;
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
using namespace ::com::sun::star::sdbc;
initial import
2000-09-18 15:18:56 +00:00
using namespace ::com::sun::star::uno;
using namespace ::com::sun::star::lang;
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
using namespace ::com::sun::star::i18n;
initial import
2000-09-18 15:18:56 +00:00
using namespace ::osl;
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
using namespace ::connectivity;
using namespace ::dbtools;
using namespace ::comphelper;
initial import
2000-09-18 15:18:56 +00:00
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
extern int SQLyyparse (void);
remove tools from dbtools
2000-10-19 10:47:14 +00:00
extern ::rtl::OUString ConvertLikeToken(const OSQLParseNode* pTokenNode, const OSQLParseNode* pEscapeNode, sal_Bool bInternational);
initial import
2000-09-18 15:18:56 +00:00
//------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
OSQLParseNode::SQLParseNodeParameter::SQLParseNodeParameter(const ::rtl::OUString& _rIdentifierQuote, const ::rtl::OUString& _rCatalogSep,
const Reference< XNumberFormatter > & _xFormatter, const Reference< XPropertySet > & _xField, const ::com::sun::star::lang::Locale& _rLocale,
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
const IParseContext* _pContext, sal_Bool _bIntl, sal_Bool _bQuote, sal_Char _cDecSep,
initial import
2000-09-18 15:18:56 +00:00
sal_Bool _bPredicate)
:aIdentifierQuote(_rIdentifierQuote)
,aCatalogSeparator(_rCatalogSep)
remove tools from dbtools
2000-10-19 10:47:14 +00:00
,rLocale(_rLocale)
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
,m_pContext(_pContext ? _pContext : &OSQLParser::s_aDefaultContext)
initial import
2000-09-18 15:18:56 +00:00
,bInternational(_bIntl)
,bQuote(_bQuote)
,cDecSep(_cDecSep)
,xField(_xField)
,xFormatter(_xFormatter)
,bPredicate(_bPredicate)
{
}
#86528# disable exception in some files
2001-05-23 08:18:28 +00:00
::rtl::OUString SetQuotation(const ::rtl::OUString& rValue, const ::rtl::OUString& rQuot, const ::rtl::OUString& rQuotToReplace);
initial import
2000-09-18 15:18:56 +00:00
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString OSQLParseNode::convertDateString(const SQLParseNodeParameter& rParam, const ::rtl::OUString& rString) const
initial import
2000-09-18 15:18:56 +00:00
{
#92613# unbound evaluationrow fixed
2001-10-01 10:24:29 +00:00
Date aDate = DBTypeConversion::toDate(rString);
remove tools from dbtools
2000-10-19 10:47:14 +00:00
Reference< XNumberFormatsSupplier > xSupplier(rParam.xFormatter->getNumberFormatsSupplier());
Reference< XNumberFormatTypes > xTypes(xSupplier->getNumberFormats(), UNO_QUERY);
initial import
2000-09-18 15:18:56 +00:00
remove tools from dbtools
2000-10-19 10:47:14 +00:00
double fDate = DBTypeConversion::toDouble(aDate,DBTypeConversion::getNULLDate(xSupplier));
sal_Int32 nKey = xTypes->getStandardIndex(rParam.rLocale) + 36; // XXX hack
initial import
2000-09-18 15:18:56 +00:00
return rParam.xFormatter->convertNumberToString(nKey, fDate);
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString OSQLParseNode::convertDateTimeString(const SQLParseNodeParameter& rParam, const ::rtl::OUString& rString) const
initial import
2000-09-18 15:18:56 +00:00
{
#92613# unbound evaluationrow fixed
2001-10-01 10:24:29 +00:00
DateTime aDate = DBTypeConversion::toDateTime(rString);
initial import
2000-09-18 15:18:56 +00:00
Reference< XNumberFormatsSupplier > xSupplier(rParam.xFormatter->getNumberFormatsSupplier());
Reference< XNumberFormatTypes > xTypes(xSupplier->getNumberFormats(), UNO_QUERY);
remove tools from dbtools
2000-10-19 10:47:14 +00:00
double fDateTime = DBTypeConversion::toDouble(aDate,DBTypeConversion::getNULLDate(xSupplier));
sal_Int32 nKey = xTypes->getStandardIndex(rParam.rLocale) + 51; // XXX hack
initial import
2000-09-18 15:18:56 +00:00
return rParam.xFormatter->convertNumberToString(nKey, fDateTime);
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString OSQLParseNode::convertTimeString(const SQLParseNodeParameter& rParam, const ::rtl::OUString& rString) const
initial import
2000-09-18 15:18:56 +00:00
{
#92613# unbound evaluationrow fixed
2001-10-01 10:24:29 +00:00
Time aTime = DBTypeConversion::toTime(rString);
initial import
2000-09-18 15:18:56 +00:00
Reference< XNumberFormatsSupplier > xSupplier(rParam.xFormatter->getNumberFormatsSupplier());
Reference< XNumberFormatTypes > xTypes(xSupplier->getNumberFormats(), UNO_QUERY);
remove tools from dbtools
2000-10-19 10:47:14 +00:00
double fTime = DBTypeConversion::toDouble(aTime);
sal_Int32 nKey = xTypes->getStandardIndex(rParam.rLocale) + 41; // XXX hack
initial import
2000-09-18 15:18:56 +00:00
return rParam.xFormatter->convertNumberToString(nKey, fTime);
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::parseNodeToStr(::rtl::OUString& rString,
initial import
2000-09-18 15:18:56 +00:00
const Reference< XDatabaseMetaData > & xMeta,
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
const IParseContext* pContext,
initial import
2000-09-18 15:18:56 +00:00
sal_Bool _bIntl,
sal_Bool _bQuote) const
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
parseNodeToStr(
rString, xMeta, Reference< XNumberFormatter >(), Reference< XPropertySet >(),
pContext ? pContext->getPreferredLocale() : OParseContext::getDefaultLocale(),
pContext, _bIntl, _bQuote, '.', sal_False);
initial import
2000-09-18 15:18:56 +00:00
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::parseNodeToPredicateStr(::rtl::OUString& rString,
initial import
2000-09-18 15:18:56 +00:00
const Reference< XDatabaseMetaData > & xMeta,
const Reference< XNumberFormatter > & xFormatter,
remove tools from dbtools
2000-10-19 10:47:14 +00:00
const ::com::sun::star::lang::Locale& rIntl,
sal_Char _cDec,
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
const IParseContext* pContext ) const
initial import
2000-09-18 15:18:56 +00:00
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
OSL_ENSHURE replaced by OSL_ENSURE
2001-03-21 12:52:43 +00:00
OSL_ENSURE(xFormatter.is(), "OSQLParseNode::parseNodeToPredicateStr:: no formatter!");
initial import
2000-09-18 15:18:56 +00:00
if (xFormatter.is())
remove tools from dbtools
2000-10-19 10:47:14 +00:00
parseNodeToStr(rString, xMeta, xFormatter, Reference< XPropertySet >(), rIntl, pContext, sal_True, sal_True, _cDec, sal_True);
initial import
2000-09-18 15:18:56 +00:00
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::parseNodeToPredicateStr(::rtl::OUString& rString,
initial import
2000-09-18 15:18:56 +00:00
const Reference< XDatabaseMetaData > & xMeta,
const Reference< XNumberFormatter > & xFormatter,
const Reference< XPropertySet > & _xField,
remove tools from dbtools
2000-10-19 10:47:14 +00:00
const ::com::sun::star::lang::Locale& rIntl,
sal_Char _cDec,
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
const IParseContext* pContext ) const
initial import
2000-09-18 15:18:56 +00:00
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
OSL_ENSHURE replaced by OSL_ENSURE
2001-03-21 12:52:43 +00:00
OSL_ENSURE(xFormatter.is(), "OSQLParseNode::parseNodeToPredicateStr:: no formatter!");
initial import
2000-09-18 15:18:56 +00:00
if (xFormatter.is())
remove tools from dbtools
2000-10-19 10:47:14 +00:00
parseNodeToStr(rString, xMeta, xFormatter, _xField, rIntl, pContext, sal_True, sal_True, _cDec, sal_True);
initial import
2000-09-18 15:18:56 +00:00
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::parseNodeToStr(::rtl::OUString& rString,
initial import
2000-09-18 15:18:56 +00:00
const Reference< XDatabaseMetaData > & xMeta,
const Reference< XNumberFormatter > & xFormatter,
const Reference< XPropertySet > & _xField,
remove tools from dbtools
2000-10-19 10:47:14 +00:00
const ::com::sun::star::lang::Locale& rIntl,
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
const IParseContext* pContext,
initial import
2000-09-18 15:18:56 +00:00
sal_Bool _bIntl,
sal_Bool _bQuote,
remove tools from dbtools
2000-10-19 10:47:14 +00:00
sal_Char _cDecSep,
initial import
2000-09-18 15:18:56 +00:00
sal_Bool bPredicate) const
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
OSL_ENSHURE replaced by OSL_ENSURE
2001-03-21 12:52:43 +00:00
OSL_ENSURE(xMeta.is(), "OSQLParseNode::parseNodeToStr:: no meta data!");
initial import
2000-09-18 15:18:56 +00:00
if (xMeta.is())
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString aIdentifierQuote(xMeta->getIdentifierQuoteString());
::rtl::OUString aCatalogSeparator(xMeta->getCatalogSeparator());
initial import
2000-09-18 15:18:56 +00:00
OSQLParseNode::parseNodeToStr(rString,
SQLParseNodeParameter(aIdentifierQuote, aCatalogSeparator, xFormatter, _xField, rIntl, pContext, _bIntl, _bQuote, _cDecSep, bPredicate));
}
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::parseNodeToStr(::rtl::OUString& rString, const SQLParseNodeParameter& rParam) const
initial import
2000-09-18 15:18:56 +00:00
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
initial import
2000-09-18 15:18:56 +00:00
if (!isToken())
{
// einmal auswerten wieviel Subtrees dieser Knoten besitzt
sal_uInt32 nCount = count();
// parameter erhalten sonderbehandlung
if (SQL_ISRULE(this,parameter))
{
remove tools from dbtools
2000-10-19 10:47:14 +00:00
if(rString.getLength())
rString += ::rtl::OUString::createFromAscii(" ");
initial import
2000-09-18 15:18:56 +00:00
if (nCount == 1) // ?
m_aChilds[0]->parseNodeToStr(rString, rParam);
else if (nCount == 2) // :Name
{
m_aChilds[0]->parseNodeToStr(rString, rParam);
rString += m_aChilds[1]->m_aNodeValue;
} // [Name]
else
{
m_aChilds[0]->parseNodeToStr(rString, rParam);
rString += m_aChilds[1]->m_aNodeValue;
rString += m_aChilds[2]->m_aNodeValue;
}
}
else if(SQL_ISRULE(this,table_ref) &&
check state
2001-01-30 15:04:46 +00:00
(nCount == 4|| (nCount == 6 && SQL_ISPUNCTUATION(m_aChilds[0],"("))))
initial import
2000-09-18 15:18:56 +00:00
tableRangeNodeToStr(rString, rParam);
// je nachdem ob international angegeben wird oder nicht wird like anders behandelt
// interanational: *, ? sind Platzhalter
// sonst SQL92 konform: %, _
else if (SQL_ISRULE(this,like_predicate))
likeNodeToStr(rString, rParam);
else if (SQL_ISRULE(this,general_set_fct) || SQL_ISRULE(this,set_fct_spec) ||
SQL_ISRULE(this,position_exp) || SQL_ISRULE(this,extract_exp) ||
SQL_ISRULE(this,length_exp) || SQL_ISRULE(this,char_value_fct))
{
if (!addDateValue(rString, rParam))
{
// Funktionsname nicht quoten
SQLParseNodeParameter aNewParam(rParam);
aNewParam.bQuote = sal_False;
m_aChilds[0]->parseNodeToStr(rString, aNewParam);
#92339# type corrected from LTRIM function
2001-09-27 08:47:43 +00:00
aNewParam.bQuote = rParam.bQuote;
aNewParam.bPredicate = sal_False; // disable [ ] around names
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString aStringPara;
initial import
2000-09-18 15:18:56 +00:00
for (sal_uInt32 i=1; i<nCount; i++)
{
const OSQLParseNode * pSubTree = m_aChilds[i];
if (pSubTree)
{
#92339# type corrected from LTRIM function
2001-09-27 08:47:43 +00:00
pSubTree->parseNodeToStr(aStringPara, aNewParam);
initial import
2000-09-18 15:18:56 +00:00
// bei den CommaListen zwischen alle Subtrees Commas setzen
if ((m_eNodeType == SQL_NODE_COMMALISTRULE) && (i < (nCount - 1)))
remove tools from dbtools
2000-10-19 10:47:14 +00:00
aStringPara += ::rtl::OUString::createFromAscii(",");
initial import
2000-09-18 15:18:56 +00:00
}
}
remove tools from dbtools
2000-10-19 10:47:14 +00:00
aStringPara.trim();
initial import
2000-09-18 15:18:56 +00:00
rString += aStringPara;
}
}
else
{
some changes for ref vector and some typedefs
2001-05-02 11:57:37 +00:00
for (OSQLParseNodes::const_iterator i = m_aChilds.begin();
initial import
2000-09-18 15:18:56 +00:00
i != m_aChilds.end();)
{
const OSQLParseNode* pSubTree = *i;
if (pSubTree)
{
SQLParseNodeParameter aNewParam(rParam);
// don't replace the field for subqueries
if (rParam.xField.is() && SQL_ISRULE(pSubTree,subquery))
aNewParam.xField = NULL;
#92339# type corrected from LTRIM function
2001-09-27 08:47:43 +00:00
// if there is a field given we don't display the fieldname, if there is any
initial import
2000-09-18 15:18:56 +00:00
if (rParam.xField.is() && SQL_ISRULE(pSubTree,column_ref))
{
sal_Bool bFilter = sal_False;
// retrieve the fields name
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString aFieldName;
initial import
2000-09-18 15:18:56 +00:00
try
{
#i1948# for parameter columns, use a correct realname
2001-10-22 13:51:15 +00:00
sal_Int32 nNamePropertyId = PROPERTY_ID_NAME;
if ( rParam.xField->getPropertySetInfo()->hasPropertyByName( OMetaConnection::getPropMap().getNameByIndex( PROPERTY_ID_REALNAME ) ) )
nNamePropertyId = PROPERTY_ID_REALNAME;
rParam.xField->getPropertyValue( OMetaConnection::getPropMap().getNameByIndex( nNamePropertyId ) ) >>= aFieldName;
initial import
2000-09-18 15:18:56 +00:00
}
#84710# set realname for parameter too
2001-03-13 07:24:04 +00:00
catch ( Exception& )
initial import
2000-09-18 15:18:56 +00:00
{
}
#92339# type corrected from LTRIM function
2001-09-27 08:47:43 +00:00
if(pSubTree->count())
{
const OSQLParseNode* pCol = pSubTree->m_aChilds[pSubTree->count()-1];
#i1948# for parameter columns, use a correct realname
2001-10-22 13:51:15 +00:00
if ( ( SQL_ISRULE(pCol,column_val)
&& pCol->getChild(0)->getTokenValue().equalsIgnoreAsciiCase(aFieldName)
)
|| pCol->getTokenValue().equalsIgnoreAsciiCase(aFieldName)
)
#92339# type corrected from LTRIM function
2001-09-27 08:47:43 +00:00
bFilter = sal_True;
}
initial import
2000-09-18 15:18:56 +00:00
// ok we found the field, if the following node is the
// comparision operator '=' we filter it as well
if (bFilter)
{
if (SQL_ISRULE(this, comparison_predicate))
{
++i;
if(i != m_aChilds.end())
{
pSubTree = *i;
if (pSubTree && pSubTree->getNodeType() == SQL_NODE_EQUAL)
i++;
}
}
else
i++;
}
else
{
pSubTree->parseNodeToStr(rString, aNewParam);
i++;
// bei den CommaListen zwischen alle Subtrees Commas setzen
if ((m_eNodeType == SQL_NODE_COMMALISTRULE) && (i != m_aChilds.end()))
remove tools from dbtools
2000-10-19 10:47:14 +00:00
rString += ::rtl::OUString::createFromAscii(",");
initial import
2000-09-18 15:18:56 +00:00
}
}
else
{
pSubTree->parseNodeToStr(rString, aNewParam);
i++;
// bei den CommaListen zwischen alle Subtrees Commas setzen
if ((m_eNodeType == SQL_NODE_COMMALISTRULE) && (i != m_aChilds.end()))
{
if (SQL_ISRULE(this,value_exp_commalist) && rParam.bPredicate)
remove tools from dbtools
2000-10-19 10:47:14 +00:00
rString += ::rtl::OUString::createFromAscii(";");
initial import
2000-09-18 15:18:56 +00:00
else
remove tools from dbtools
2000-10-19 10:47:14 +00:00
rString += ::rtl::OUString::createFromAscii(",");
initial import
2000-09-18 15:18:56 +00:00
}
}
}
}
}
}
else
{
#86528# disable exception in some files
2001-05-23 08:18:28 +00:00
parseLeaf(rString,rParam);
initial import
2000-09-18 15:18:56 +00:00
}
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::tableRangeNodeToStr(::rtl::OUString& rString, const SQLParseNodeParameter& rParam) const
initial import
2000-09-18 15:18:56 +00:00
{
sal_uInt32 nCount(count());
remove tools from dbtools
2000-10-19 10:47:14 +00:00
rString += ::rtl::OUString::createFromAscii(" ");
initial import
2000-09-18 15:18:56 +00:00
SQLParseNodeParameter aNewParam(rParam);
quote tablealias as well
2001-02-01 12:27:28 +00:00
// aNewParam.bQuote = sal_False;
initial import
2000-09-18 15:18:56 +00:00
if (nCount == 4)
{
m_aChilds[0]->parseNodeToStr(rString, rParam);
m_aChilds[1]->parseNodeToStr(rString, rParam);
m_aChilds[2]->parseNodeToStr(rString, aNewParam);
m_aChilds[3]->parseNodeToStr(rString, rParam);
}
else if(nCount == 6 && SQL_ISPUNCTUATION(m_aChilds[0],"("))
{
m_aChilds[0]->parseNodeToStr(rString, rParam);
m_aChilds[1]->parseNodeToStr(rString, rParam);
m_aChilds[2]->parseNodeToStr(rString, rParam);
m_aChilds[3]->parseNodeToStr(rString, rParam);
m_aChilds[4]->parseNodeToStr(rString, aNewParam);
m_aChilds[5]->parseNodeToStr(rString, rParam);
}
}
//-----------------------------------------------------------------------------
remove tools from dbtools
2000-10-19 10:47:14 +00:00
void OSQLParseNode::likeNodeToStr(::rtl::OUString& rString, const SQLParseNodeParameter& rParam) const
initial import
2000-09-18 15:18:56 +00:00
{
OSL_ENSHURE replaced by OSL_ENSURE
2001-03-21 12:52:43 +00:00
OSL_ENSURE(count() >= 4,"count != 5: Prepare for GPF");
initial import
2000-09-18 15:18:56 +00:00
const OSQLParseNode* pEscNode = NULL;
const OSQLParseNode* pParaNode = NULL;
SQLParseNodeParameter aNewParam(rParam);
aNewParam.bQuote = sal_True;
// if there is a field given we don't display the fieldname, if there are any
sal_Bool bAddName = sal_True;
if (rParam.xField.is())
{
// retrieve the fields name
remove tools from dbtools
2000-10-19 10:47:14 +00:00
::rtl::OUString aFieldName;
initial import
2000-09-18 15:18:56 +00:00
try
{
// retrieve the fields name
rtl::OUString aString;
#86528# disable exception in some files
2001-05-23 08:18:28 +00:00
rParam.xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME)) >>= aString;
initial import
2000-09-18 15:18:56 +00:00
aFieldName = aString.getStr();
}
change catch
2000-11-13 06:14:23 +00:00
catch ( Exception& )
initial import
2000-09-18 15:18:56 +00:00
{
OSL_ENSHURE replaced by OSL_ENSURE
2001-03-21 12:52:43 +00:00
OSL_ENSURE(0,"OSQLParseNode::likeNodeToStr Exception occured!");
initial import
2000-09-18 15:18:56 +00:00
}
const OSQLParseNode* pCol = m_aChilds[0]->getChild(m_aChilds[0]->count()-1);
rtl string api changes
2001-05-11 16:51:47 +00:00
if ((SQL_ISRULE(pCol,column_val) && pCol->getChild(0)->getTokenValue().equalsIgnoreAsciiCase(aFieldName)) ||
pCol->getTokenValue().equalsIgnoreAsciiCase(aFieldName) )
initial import
2000-09-18 15:18:56 +00:00
bAddName = sal_False;
}
if (bAddName)
m_aChilds[0]->parseNodeToStr(rString, aNewParam);
m_aChilds[1]->parseNodeToStr(rString, aNewParam);
make some corrections
2000-11-09 07:48:25 +00:00
if(count() == 5)
m_aChilds[2]->parseNodeToStr(rString, aNewParam);
initial import
2000-09-18 15:18:56 +00:00
header moved
2000-09-29 14:13:06 +00:00
sal_Int32 nCurentPos = m_aChilds.size()-2;
pParaNode = m_aChilds[nCurentPos];
pEscNode = m_aChilds[nCurentPos+1];
initial import
2000-09-18 15:18:56 +00:00
#88223# ConvertLikeToken called
2001-06-28 05:30:23 +00:00
if (pParaNode->isToken())
initial import
2000-09-18 15:18:56 +00:00
{
#88223# ConvertLikeToken called
2001-06-28 05:30:23 +00:00
::rtl::OUString aStr = ConvertLikeToken(pParaNode, pEscNode, rParam.bInternational);
remove tools from dbtools
2000-10-19 10:47:14 +00:00
rString += ::rtl::OUString::createFromAscii(" ");
rString += SetQuotation(aStr,::rtl::OUString::createFromAscii("\'"),::rtl::OUString::createFromAscii("\'\'"));
initial import
2000-09-18 15:18:56 +00:00
}
else
pParaNode->parseNodeToStr(rString, aNewParam);
pEscNode->parseNodeToStr(rString, aNewParam);
}
parser changed for table names
2001-01-09 12:11:07 +00:00
// -----------------------------------------------------------------------------
sal_Bool OSQLParseNode::getTableComponents(const OSQLParseNode* _pTableNode,
::com::sun::star::uno::Any &_rCatalog,
::rtl::OUString &_rSchema,
::rtl::OUString &_rTable)
{
OSL_ENSURE(_pTableNode,"Wrong use of getTableComponents! _pTableNode is not allowed to be null!");
if(_pTableNode)
{
const OSQLParseNode* pTableNode = _pTableNode;
// clear the parameter given
_rCatalog = Any();
_rSchema = _rTable = ::rtl::OUString();
// see rule catalog_name: in sqlbison.y
if (SQL_ISRULE(pTableNode,catalog_name))
{
OSL_ENSURE(pTableNode->getChild(0) && pTableNode->getChild(0)->isToken(),"Invalid parsenode!");
_rCatalog <<= pTableNode->getChild(0)->getTokenValue();
pTableNode = pTableNode->getChild(2);
}
// check if we have schema_name rule
if(SQL_ISRULE(pTableNode,schema_name))
{
_rSchema = pTableNode->getChild(0)->getTokenValue();
pTableNode = pTableNode->getChild(2);
}
// check if we have table_name rule
if(SQL_ISRULE(pTableNode,table_name))
{
_rTable = pTableNode->getChild(0)->getTokenValue();
}
else
{
OSL_ENSURE(0,"Error in parse tree!");
}
}
return _rTable.getLength() != 0;
}
// -----------------------------------------------------------------------------
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
sal_Int16 OSQLParser::buildComparsionRule(OSQLParseNode*& pAppend,OSQLParseNode* pLiteral,OSQLParseNode*& pCompare)
{
sal_Int16 nErg = 0;
if (m_xField.is())
{
sal_Int32 nType = 0;
try
{
Any aValue;
{
aValue = m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_TYPE));
aValue >>= nType;
}
}
catch( Exception& )
{
return nErg;
}
if (pLiteral->isRule() && !SQL_ISRULE(pLiteral,value_exp))
{
switch(nType)
{
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
if(!SQL_ISRULE(pLiteral,char_value_exp) && !buildStringNodes(pLiteral))
break;
default:
nErg = buildNode(pAppend,pLiteral,pCompare);
}
}
else
{
switch(pLiteral->getNodeType())
{
case SQL_NODE_STRING:
switch(nType)
{
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
nErg = buildNode(pAppend,pLiteral,pCompare);
break;
case DataType::DATE:
case DataType::TIME:
case DataType::TIMESTAMP:
if (m_xFormatter.is())
{
try
{
// do we have a date
double fValue = m_xFormatter->convertStringToNumber(m_nFormatKey, pLiteral->getTokenValue().getStr());
nErg = buildNode_Date(fValue, nType, pAppend,pLiteral,pCompare);
}
catch( Exception& )
{
try
{
Reference< ::com::sun::star::util::XNumberFormatsSupplier > xFormatSup = m_xFormatter->getNumberFormatsSupplier();
Reference< ::com::sun::star::util::XNumberFormatTypes > xFormatTypes(xFormatSup->getNumberFormats(),UNO_QUERY);
if (xFormatTypes.is())
{
double fValue = m_xFormatter->convertStringToNumber(
xFormatTypes->getStandardFormat(::com::sun::star::util::NumberFormat::DATE, *m_pLocale),
pLiteral->getTokenValue().getStr());
nErg = buildNode_Date(fValue, nType, pAppend,pLiteral,pCompare);
}
else
{
nErg = -1;
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_DATE_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
}
catch( Exception& )
{
nErg = -1;
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_DATE_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
}
}
else
nErg = buildNode(pAppend,pLiteral,pCompare);
break;
default:
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
break;
case SQL_NODE_ACCESS_DATE:
switch(nType)
{
case DataType::DATE:
case DataType::TIME:
case DataType::TIMESTAMP:
if (m_xFormatter.is())
{
try
{
// do we have a date
double fValue = m_xFormatter->convertStringToNumber(m_nFormatKey, pLiteral->getTokenValue().getStr());
nErg = buildNode_Date(fValue, nType, pAppend,pLiteral,pCompare);
}
catch( Exception& )
{
try
{
Reference< ::com::sun::star::util::XNumberFormatsSupplier > xFormatSup = m_xFormatter->getNumberFormatsSupplier();
Reference< ::com::sun::star::util::XNumberFormatTypes > xFormatTypes(xFormatSup->getNumberFormats(),UNO_QUERY);
if (xFormatTypes.is())
{
double fValue = m_xFormatter->convertStringToNumber(
xFormatTypes->getStandardFormat(::com::sun::star::util::NumberFormat::DATE, *m_pLocale),
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
pLiteral->getTokenValue().getStr());
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
nErg = buildNode_Date(fValue, nType, pAppend,pLiteral,pCompare);
}
else
{
nErg = -1;
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_DATE_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
}
catch( Exception& )
{
nErg = -1;
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_DATE_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
}
}
else
{
nErg = -1;
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_DATE_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
break;
default:
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
break;
case SQL_NODE_INTNUM:
switch(nType)
{
case DataType::BIT:
case DataType::DECIMAL:
case DataType::NUMERIC:
case DataType::TINYINT:
case DataType::SMALLINT:
case DataType::INTEGER:
case DataType::BIGINT:
#100839# float not in switch stmt
2002-07-01 06:06:44 +00:00
case DataType::FLOAT:
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
case DataType::REAL:
case DataType::DOUBLE:
// kill thousand seperators if any
if (s_xLocaleData->getLocaleItem(*m_pLocale).decimalSeparator.toChar() == ',' )
{
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace('.', sal_Unicode());
// and replace decimal
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace(',', '.');
}
else
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace(',', sal_Unicode());
nErg = buildNode(pAppend,pLiteral,pCompare);
break;
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
nErg = buildNode_STR_NUM(pAppend,pLiteral,pCompare);
break;
default:
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_INT_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
break;
case SQL_NODE_APPROXNUM:
switch(nType)
{
case DataType::DECIMAL:
case DataType::NUMERIC:
#100839# float not in switch stmt
2002-07-01 06:06:44 +00:00
case DataType::FLOAT:
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
case DataType::REAL:
case DataType::DOUBLE:
if (inPredicateCheck())
{
// kill thousand seperators if any
if (s_xLocaleData->getLocaleItem(*m_pLocale).decimalSeparator.toChar() == ',' )
{
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace('.', sal_Unicode());
// and replace decimal
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace(',', '.');
}
else
pLiteral->m_aNodeValue = pLiteral->m_aNodeValue.replace(',', sal_Unicode());
}
nErg = buildNode(pAppend,pLiteral,pCompare);
break;
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
nErg = buildNode_STR_NUM(pAppend,pLiteral,pCompare);
break;
case DataType::INTEGER:
default:
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_INVALID_REAL_COMPARE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
break;
}
}
if (!nErg)
--nErg;
}
if (!pCompare->getParent()) // I have no parent so I was not used and I must die :-)
delete pCompare;
return nErg;
}
// -----------------------------------------------------------------------------
sal_Int16 OSQLParser::buildLikeRule(OSQLParseNode*& pAppend, OSQLParseNode*& pLiteral, const OSQLParseNode* pEscape)
{
sal_Int16 nErg = 0;
sal_Int32 nType = 0;
if (!m_xField.is())
return nErg;
try
{
Any aValue;
{
aValue = m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_TYPE));
aValue >>= nType;
}
}
catch( Exception& )
{
return nErg;
}
switch (nType)
{
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
if(pLiteral->isRule())
{
pAppend->append(pLiteral);
nErg = 1;
}
else
{
switch(pLiteral->getNodeType())
{
case SQL_NODE_STRING:
pLiteral->m_aNodeValue = ConvertLikeToken(pLiteral, pEscape, sal_False);
pAppend->append(pLiteral);
nErg = 1;
break;
case SQL_NODE_APPROXNUM:
if (m_xFormatter.is() && m_nFormatKey)
{
sal_Int16 nScale = 0;
try
{
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
Any aValue = getNumberFormatProperty( m_xFormatter, m_nFormatKey, ::rtl::OUString::createFromAscii("Decimals") );
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
aValue >>= nScale;
}
catch( Exception& )
{
}
pAppend->append(new OSQLInternalNode(stringToDouble(pLiteral->getTokenValue(),nScale),SQL_NODE_STRING));
}
else
pAppend->append(new OSQLInternalNode(pLiteral->getTokenValue(),SQL_NODE_STRING));
delete pLiteral;
nErg = 1;
break;
default:
{
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_VALUE_NO_LIKE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
m_sErrorMessage = m_sErrorMessage.replaceAt(m_sErrorMessage.indexOf(::rtl::OUString::createFromAscii("#1")),2,pLiteral->getTokenValue());
}
}
}
break;
default:
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_FIELD_NO_LIKE);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
return nErg;
}
// -----------------------------------------------------------------------------
sal_Int16 OSQLParser::buildNode_STR_NUM(OSQLParseNode*& pAppend,OSQLParseNode*& pLiteral,OSQLParseNode*& pCompare)
{
static ::rtl::OUString aEmptyString;
OSQLParseNode* pColumnRef = new OSQLInternalNode(aEmptyString, SQL_NODE_RULE,OSQLParser::RuleID(OSQLParseNode::column_ref));
pColumnRef->append(new OSQLInternalNode(m_sFieldName,SQL_NODE_NAME));
OSQLParseNode* pComp = new OSQLInternalNode(aEmptyString, SQL_NODE_RULE,OSQLParser::RuleID(OSQLParseNode::comparison_predicate));
pComp->append(pColumnRef);
pComp->append(pCompare);
if (m_nFormatKey)
{
sal_Int16 nScale = 0;
::rtl::OUString aDec;
try
{
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
Any aValue = getNumberFormatProperty( m_xFormatter, m_nFormatKey, ::rtl::OUString::createFromAscii("Decimals") );
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
aValue >>= nScale;
}
catch( Exception& )
{
}
pComp->append(new OSQLInternalNode(stringToDouble(pLiteral->getTokenValue(),nScale),SQL_NODE_STRING));
}
else
pComp->append(new OSQLInternalNode(pLiteral->getTokenValue(),SQL_NODE_STRING));
pAppend->append(pComp);
delete pLiteral;
pLiteral = NULL;
return 1;
}
// -----------------------------------------------------------------------------
::rtl::OUString OSQLParser::stringToDouble(const ::rtl::OUString& _rValue,sal_Int16 _nScale)
{
::rtl::OUString aValue;
if(!m_xCharClass.is())
m_xCharClass = Reference<XCharacterClassification>(m_xServiceFactory->createInstance(::rtl::OUString::createFromAscii("com.sun.star.i18n.CharacterClassification")),UNO_QUERY);
if(m_xCharClass.is() && s_xLocaleData.is())
{
try
{
ParseResult aResult = m_xCharClass->parsePredefinedToken(KParseType::ANY_NUMBER,_rValue,0,*m_pLocale,0,::rtl::OUString(),KParseType::ANY_NUMBER,::rtl::OUString());
if((aResult.TokenType & KParseType::IDENTNAME) && aResult.EndPos == _rValue.getLength())
{
aValue = ::rtl::OUString::valueOf(aResult.Value);
sal_Int32 nPos = aValue.lastIndexOf(::rtl::OUString::createFromAscii("."));
if((nPos+_nScale) < aValue.getLength())
aValue = aValue.replaceAt(nPos+_nScale,aValue.getLength()-nPos-_nScale,::rtl::OUString());
aValue = aValue.replaceAt(aValue.lastIndexOf(::rtl::OUString::createFromAscii(".")),1,s_xLocaleData->getLocaleItem(*m_pLocale).decimalSeparator);
return aValue;
}
}
catch(Exception&)
{
}
}
return aValue;
}
#87935# parameter corrected for predicate tree
2001-07-25 05:14:12 +00:00
// -----------------------------------------------------------------------------
::osl::Mutex& OSQLParser::getMutex()
{
static ::osl::Mutex aMutex;
return aMutex;
}
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
extern void setParser(OSQLParser*);
//-----------------------------------------------------------------------------
OSQLParseNode* OSQLParser::predicateTree(::rtl::OUString& rErrorMessage, const ::rtl::OUString& rStatement,
const Reference< ::com::sun::star::util::XNumberFormatter > & xFormatter,
const Reference< XPropertySet > & xField)
{
// mutex for parsing
static ::osl::Mutex aMutex;
// Guard the parsing
#87935# parameter corrected for predicate tree
2001-07-25 05:14:12 +00:00
::osl::MutexGuard aGuard(getMutex());
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
// must be reset
setParser(this);
// reset the parser
if (!m_pLocale)
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
{
Locale aPreferredLocale( m_pContext->getPreferredLocale( ) );
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
// this temporary is due to an MSVC compiler bug
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
m_pLocale = new Locale( aPreferredLocale );
}
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
m_xField = xField;
m_xFormatter = xFormatter;
if (m_xField.is())
{
sal_Int32 nType=0;
try
{
// get the field name
rtl::OUString aString;
// retrieve the fields name
// #75243# use the RealName of the column if there is any otherwise the name which could be the alias
// of the field
if (m_xField->getPropertySetInfo()->hasPropertyByName(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_REALNAME)))
m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_REALNAME)) >>= aString;
else
m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME)) >>= aString;
m_sFieldName = aString;
// get the field format key
if (m_xField->getPropertySetInfo()->hasPropertyByName(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_FORMATKEY)))
m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_FORMATKEY)) >>= m_nFormatKey;
else
m_nFormatKey = 0;
// get the field type
m_xField->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_TYPE)) >>= nType;
}
catch ( Exception& )
{
OSL_ASSERT(0);
}
if (m_nFormatKey && m_xFormatter.is())
{
#98181# outsourced getNumberFormatProperty to comphelper
2002-04-09 13:39:42 +00:00
Any aValue = getNumberFormatProperty( m_xFormatter, m_nFormatKey, OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_LOCALE) );
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
OSL_ENSURE(aValue.getValueType() == ::getCppuType((const ::com::sun::star::lang::Locale*)0), "OSQLParser::PredicateTree : invalid language property !");
if (aValue.getValueType() == ::getCppuType((const ::com::sun::star::lang::Locale*)0))
aValue >>= *m_pLocale;
}
else
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
*m_pLocale = m_pContext->getPreferredLocale();
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
switch (nType)
{
case DataType::DATE:
case DataType::TIME:
case DataType::TIMESTAMP:
s_pScanner->SetRule(s_pScanner->GetDATERule());
break;
case DataType::CHAR:
case DataType::VARCHAR:
case DataType::LONGVARCHAR:
s_pScanner->SetRule(s_pScanner->GetSTRINGRule());
break;
default:
if (m_pLocale && s_xLocaleData->getLocaleItem(*m_pLocale).decimalSeparator.toChar() == ',')
s_pScanner->SetRule(s_pScanner->GetGERRule());
else
s_pScanner->SetRule(s_pScanner->GetENGRule());
}
}
else
s_pScanner->SetRule(s_pScanner->GetSQLRule());
s_pScanner->prepareScan(rStatement, m_pContext, sal_True);
SQLyylval.pParseNode = NULL;
// SQLyypvt = NULL;
m_pParseTree = NULL;
m_sErrorMessage= ::rtl::OUString();
// ... und den Parser anwerfen ...
if (SQLyyparse() != 0)
{
m_sFieldName= ::rtl::OUString();
m_xField = NULL;
m_xFormatter = NULL;
m_nFormatKey = 0;
if (!m_sErrorMessage.getLength())
m_sErrorMessage = s_pScanner->getErrorMessage();
if (!m_sErrorMessage.getLength())
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
m_sErrorMessage = m_pContext->getErrorMessage(IParseContext::ERROR_GENERAL);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
rErrorMessage = m_sErrorMessage;
// clear the garbage collector
while (!s_pGarbageCollector->empty())
{
OSQLParseNode* pNode = *s_pGarbageCollector->begin();
while (pNode->getParent())
pNode = pNode->getParent();
delete pNode;
}
return NULL;
}
else
{
s_pGarbageCollector->clear();
m_sFieldName= ::rtl::OUString();
m_xField = NULL;
m_xFormatter = NULL;
m_nFormatKey = 0;
// Das Ergebnis liefern (den Root Parse Node):
// Stattdessen setzt die Parse-Routine jetzt den Member pParseTree
// - einfach diesen zurueckliefern:
OSL_ENSURE(m_pParseTree != NULL,"OSQLParser: Parser hat keinen ParseTree geliefert");
return m_pParseTree;
}
}
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
//=============================================================================
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
//-----------------------------------------------------------------------------
#97230# new interface for ParseContext
2002-09-27 10:26:33 +00:00
OSQLParser::OSQLParser(const ::com::sun::star::uno::Reference< ::com::sun::star::lang::XMultiServiceFactory >& _xServiceFactory,const IParseContext* _pContext)
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
:m_pContext(_pContext)
,m_pParseTree(NULL)
,m_pLocale(NULL)
,m_nFormatKey(0)
,m_xServiceFactory(_xServiceFactory)
{
setParser(this);
#ifdef SQLYYDEBUG
#ifdef SQLYYDEBUG_ON
SQLyydebug = 1;
#endif
#endif
#87935# parameter corrected for predicate tree
2001-07-25 05:14:12 +00:00
::osl::MutexGuard aGuard(getMutex());
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
// do we have to initialize the data
if (s_nRefCount == 0)
{
s_pScanner = new OSQLScanner();
s_pScanner->setScanner();
s_pGarbageCollector = new OSQLParseNodes();
if(!s_xLocaleData.is())
s_xLocaleData = Reference<XLocaleData>(m_xServiceFactory->createInstance(::rtl::OUString::createFromAscii("com.sun.star.i18n.LocaleData")),UNO_QUERY);
// auf 0 zuruecksetzen
#90015# code corrcetions for some speedup's
2001-08-24 05:19:41 +00:00
memset(OSQLParser::s_nRuleIDs,0,sizeof(OSQLParser::s_nRuleIDs[0]) * (OSQLParseNode::rule_count+1));
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
}
++s_nRefCount;
if (m_pContext == NULL)
// take the default context
m_pContext = &s_aDefaultContext;
}
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
// -----------------------------------------------------------------------------
#93812# new flag for parametername substitution
2001-10-29 09:23:34 +00:00
void OSQLParseNode::substituteParameterNames(OSQLParseNode* _pNode)
{
sal_Int32 nCount = _pNode->count();
for(sal_Int32 i=0;i < nCount;++i)
{
OSQLParseNode* pChildNode = _pNode->getChild(i);
if(SQL_ISRULE(pChildNode,parameter) && pChildNode->count() > 1)
{
OSQLParseNode* pNewNode = new OSQLParseNode(::rtl::OUString::createFromAscii("?") ,SQL_NODE_PUNCTUATION,0);
delete pChildNode->replace(pChildNode->getChild(0),pNewNode);
sal_Int32 nChildCount = pChildNode->count();
for(sal_Int32 j=1;j < nChildCount;++j)
delete pChildNode->removeAt(1);
}
else
substituteParameterNames(pChildNode);
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
#93812# new flag for parametername substitution
2001-10-29 09:23:34 +00:00
}
}
#98181# +OParseContext::getPreferredLocale/::setDefaultLocale : use the new get method if no locale, but a context is supplied
2002-04-08 15:26:02 +00:00
#93812# new flag for parametername substitution
2001-10-29 09:23:34 +00:00
// -----------------------------------------------------------------------------
#86839# flush scanner buffer
2001-05-25 12:11:19 +00:00
parser changed for table names
2001-01-09 12:11:07 +00:00
initial import
2000-09-18 15:18:56 +00:00
Reference in New Issue Copy Permalink