/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
*/
#include <hsqldb/HView.hxx>
#include <hsqldb/HTools.hxx>
#include <propertyids.hxx>
#include <connectivity/dbtools.hxx>
#include <com/sun/star/lang/WrappedTargetException.hpp>
#include <com/sun/star/lang/DisposedException.hpp>
#include <com/sun/star/sdbc/XRow.hpp>
#include <com/sun/star/sdbc/SQLException.hpp>
#include <cppuhelper/exc_hlp.hxx>
#include <comphelper/diagnose_ex.hxx>
#include <unotools/sharedunocomponent.hxx>
namespace connectivity::hsqldb
{
using ::com::sun::star::uno::Reference;
using ::com::sun::star::uno::UNO_QUERY_THROW;
using ::com::sun::star::uno::Exception;
using ::com::sun::star::uno::RuntimeException;
using ::com::sun::star::uno::Any;
using ::com::sun::star::sdbc::SQLException;
using ::com::sun::star::sdbc::XConnection;
using ::com::sun::star::lang::WrappedTargetException;
using ::com::sun::star::sdbc::XResultSet;
using ::com::sun::star::sdbc::XStatement;
using ::com::sun::star::lang::DisposedException;
using ::com::sun::star::sdbc::XRow;
HView::HView(
const Reference< XConnection >& _rxConnection,
bool _bCaseSensitive,
const OUString& _rSchemaName,
const OUString& _rName )
:HView_Base( _bCaseSensitive, _rName, _rxConnection->getMetaData(), OUString(), _rSche
maName, OUString() )
,m_xConnection( _rxConnection )
{
}
HView::~HView()
{
}
IMPLEMENT_FORWARD_XINTERFACE2( HView, HView_Base, HView_IBASE )
IMPLEMENT_FORWARD_XTYPEPROVIDER2( HView, HView_Base, HView_IBASE )
void SAL_CALL HView::alterCommand( const OUString& _rNewCommand )
{
// not really atomic ... as long as we do not have something like
// ALTER VIEW <name> TO <command>
// in HSQL, we need to do it this way ...
//
// I can imagine scenarios where this fails, e.g. when dropping the view
// succeeds, re-creating it fails, some other thread alters a table which
// the view was based on, and then we try to restore the view with the
// original command, which then fails, too.
//
// However, there's not much chance to prevent this kind of errors without
// backend support.
OUString sQualifiedName( ::dbtools::composeTableName(
m_xMetaData, m_CatalogName, m_SchemaName, m_Name, true, ::dbtools::EComposeRule::InDataManipulation ) );
::utl::SharedUNOComponent< XStatement > xStatement; xStatement.set( m_xConnection->createStatement(), UNO_QUERY_THROW );
// create a statement which can be used to re-create the original view, in case
// dropping it succeeds, but creating it with a new statement fails
OUString sRestoreCommand =
"CREATE VIEW " +
sQualifiedName +
" AS " +
impl_getCommand_throwSQLException();
bool bDropSucceeded( false );
try
{
// drop the existing view
OUString aCommand ="DROP VIEW " + sQualifiedName;
xStatement->execute( aCommand );
bDropSucceeded = true;
// create a new one with the same name
aCommand = "CREATE VIEW " + sQualifiedName + " AS " + _rNewCommand;
xStatement->execute( aCommand );
}
catch( const SQLException& )
{
if ( bDropSucceeded )
// drop succeeded, but creation failed -> re-create the view with the original
// statement
xStatement->execute( sRestoreCommand );
throw;
}
catch( const RuntimeException& )
{
if ( bDropSucceeded )
xStatement->execute( sRestoreCommand );
throw;
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION("connectivity.hsqldb");
if ( bDropSucceeded )
xStatement->execute( sRestoreCommand );
}
}
void SAL_CALL HView::getFastPropertyValue( Any& _rValue, sal_Int32 _nHandle ) const
{
if ( _nHandle == PROPERTY_ID_COMMAND )
{
// retrieve the very current command, don't rely on the base classes cached value
// (which we initialized empty, anyway)
_rValue <<= impl_getCommand_wrapSQLException();
return;
}
HView_Base::getFastPropertyValue( _rValue, _nHandle );
}
OUString HView::impl_getCommand() const
{
OUStringBuffer aCommand(
"SELECT VIEW_DEFINITION FROM INFORMATION_SCHEMA.SYSTEM_VIEWS " );
HTools::appendTableFilterCrit( aCommand, m_CatalogName, m_SchemaName, m_Name, false );
::utl::SharedUNOComponent< XStatement > xStatement; xStatement.set( m_xConnection->createStatement(), UNO_QUERY_THROW );
Reference< XResultSet > xResult( xStatement->executeQuery( aCommand.makeStringAndClear() ), css::uno::UNO_SET_THROW );
if ( !xResult->next() )
{
// hmm. There is no view the name as we know it. Can only mean some other instance
// dropped this view meanwhile...
throw DisposedException();
}
Reference< XRow > xRow( xResult, UNO_QUERY_THROW );
return xRow->getString( 1 );
}
OUString HView::impl_getCommand_wrapSQLException() const
{
OUString sCommand;
try
{
sCommand = impl_getCommand();
}
catch( const RuntimeException& )
{
throw;
}
catch( const SQLException& e )
{
throw WrappedTargetException( e.Message, static_cast< XAlterView* >( const_cast< HView* >( this ) ), ::cppu::getCaughtException() );
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION("connectivity.hsqldb");
}
return sCommand;
}
OUString HView::impl_getCommand_throwSQLException() const
{
OUString sCommand;
try
{
sCommand = impl_getCommand();
}
catch( const RuntimeException& )
{
throw;
}
catch( const SQLException& )
{
throw;
}
catch( const Exception& )
{
DBG_UNHANDLED_EXCEPTION("connectivity.hsqldb");
}
return sCommand;
}
} // namespace connectivity::hsqldb
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
