/************************************************************************* * * $RCSfile: BIndexes.cxx,v $ * * $Revision: 1.11 $ * * last change: $Author: oj $ $Date: 2001-05-14 11:41:57 $ * * 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): _______________________________________ * * ************************************************************************/ #ifndef _CONNECTIVITY_ADABAS_INDEXES_HXX_ #include "adabas/BIndexes.hxx" #endif #ifndef _CONNECTIVITY_ADABAS_INDEX_HXX_ #include "adabas/BIndex.hxx" #endif #ifndef _CONNECTIVITY_ADABAS_TABLE_HXX_ #include "adabas/BTable.hxx" #endif #ifndef _CONNECTIVITY_SDBCX_INDEX_HXX_ #include "connectivity/sdbcx/VIndex.hxx" #endif #ifndef _COM_SUN_STAR_SDBC_XROW_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBC_XRESULTSET_HPP_ #include #endif #ifndef _COM_SUN_STAR_SDBC_INDEXTYPE_HPP_ #include #endif #ifndef _COMPHELPER_TYPES_HXX_ #include #endif using namespace connectivity::adabas; using namespace ::com::sun::star::uno; using namespace ::com::sun::star::beans; using namespace ::com::sun::star::sdbcx; using namespace ::com::sun::star::sdbc; using namespace ::com::sun::star::container; using namespace ::com::sun::star::lang; typedef connectivity::sdbcx::OCollection OCollection_TYPE; Reference< XNamed > OIndexes::createObject(const ::rtl::OUString& _rName) { ::rtl::OUString aName,aQualifier; sal_Int32 nLen = _rName.indexOf('.'); if(nLen != -1) { aQualifier = _rName.copy(0,nLen); aName = _rName.copy(nLen+1); } else aName = _rName; Reference< XResultSet > xResult = m_pTable->getConnection()->getMetaData()->getIndexInfo(Any(), m_pTable->getSchema(),m_pTable->getTableName(),sal_False,sal_False); Reference< XNamed > xRet = NULL; if(xResult.is()) { Reference< XRow > xRow(xResult,UNO_QUERY); while(xResult->next()) { if(xRow->getString(6) == aName && (!aQualifier.getLength() || xRow->getString(5) == aQualifier )) { OAdabasIndex* pRet = new OAdabasIndex(m_pTable,aName,aQualifier,!xRow->getBoolean(4), aName == ::rtl::OUString::createFromAscii("SYSPRIMARYKEYINDEX"), xRow->getShort(7) == IndexType::CLUSTERED); xRet = pRet; break; } } } return xRet; } // ------------------------------------------------------------------------- void OIndexes::impl_refresh() throw(RuntimeException) { m_pTable->refreshIndexes(); } // ------------------------------------------------------------------------- Reference< XPropertySet > OIndexes::createEmptyObject() { return new OAdabasIndex(m_pTable); } // ------------------------------------------------------------------------- // XAppend void SAL_CALL OIndexes::appendByDescriptor( const Reference< XPropertySet >& descriptor ) throw(SQLException, ElementExistException, RuntimeException) { ::osl::MutexGuard aGuard(m_rMutex); ::rtl::OUString aName = getString(descriptor->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME))); ObjectMap::iterator aIter = m_aNameMap.find(aName); if( aIter != m_aNameMap.end()) throw ElementExistException(aName,*this); if(!m_pTable->isNew()) { ::rtl::OUString aSql = ::rtl::OUString::createFromAscii("CREATE "); ::rtl::OUString aQuote = m_pTable->getConnection()->getMetaData()->getIdentifierQuoteString( ); ::rtl::OUString aDot = ::rtl::OUString::createFromAscii("."); if(getBOOL(descriptor->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_ISUNIQUE)))) aSql = aSql + ::rtl::OUString::createFromAscii("UNIQUE "); aSql = aSql + ::rtl::OUString::createFromAscii("INDEX "); if(aName.getLength()) { aSql = aSql + aQuote + aName + aQuote + ::rtl::OUString::createFromAscii(" ON ") + aQuote + m_pTable->getSchema() + aQuote + aDot + aQuote + m_pTable->getTableName() + aQuote + ::rtl::OUString::createFromAscii(" ( "); Reference xColumnSup(descriptor,UNO_QUERY); Reference xColumns(xColumnSup->getColumns(),UNO_QUERY); Reference< XPropertySet > xColProp; for(sal_Int32 i=0;igetCount();++i) { xColumns->getByIndex(i) >>= xColProp; aSql = aSql + aQuote + getString(xColProp->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME))) + aQuote; aSql = aSql + (getBOOL(xColProp->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_ISASCENDING))) ? ::rtl::OUString::createFromAscii(" ASC") : ::rtl::OUString::createFromAscii(" DESC")) + ::rtl::OUString::createFromAscii(","); } aSql = aSql.replaceAt(aSql.getLength()-1,1,::rtl::OUString::createFromAscii(")")); } else { aSql = aSql + aQuote + m_pTable->getSchema() + aQuote + aDot + aQuote + m_pTable->getTableName() + aQuote; Reference xColumnSup(descriptor,UNO_QUERY); Reference xColumns(xColumnSup->getColumns(),UNO_QUERY); Reference< XPropertySet > xColProp; if(xColumns->getCount() != 1) throw SQLException(); xColumns->getByIndex(0) >>= xColProp; aSql = aSql + aDot + aQuote + getString(xColProp->getPropertyValue(OMetaConnection::getPropMap().getNameByIndex(PROPERTY_ID_NAME))) + aQuote; } Reference< XStatement > xStmt = m_pTable->getConnection()->createStatement( ); xStmt->execute(aSql); } OCollection_TYPE::appendByDescriptor(descriptor); } // ------------------------------------------------------------------------- // XDrop void SAL_CALL OIndexes::dropByName( const ::rtl::OUString& elementName ) throw(SQLException, NoSuchElementException, RuntimeException) { ::osl::MutexGuard aGuard(m_rMutex); ObjectMap::iterator aIter = m_aNameMap.find(elementName); if( aIter == m_aNameMap.end()) throw NoSuchElementException(elementName,*this); if(!m_pTable->isNew()) { ::rtl::OUString aName,aSchema; sal_Int32 nLen = elementName.indexOf('.'); aSchema = elementName.copy(0,nLen); aName = elementName.copy(nLen+1); ::rtl::OUString aSql = ::rtl::OUString::createFromAscii("DROP INDEX "); ::rtl::OUString aQuote = m_pTable->getConnection()->getMetaData()->getIdentifierQuoteString( ); ::rtl::OUString aDot = ::rtl::OUString::createFromAscii("."); if (aSchema.getLength()) (((aSql += aQuote) += aSchema) += aQuote) += aDot; (((aSql += aQuote) += aName) += aQuote) += ::rtl::OUString::createFromAscii(" ON "); (((aSql += aQuote) += m_pTable->getSchema()) += aQuote) += aDot; ((aSql += aQuote) += m_pTable->getTableName()) += aQuote; Reference< XStatement > xStmt = m_pTable->getConnection()->createStatement( ); xStmt->execute(aSql); ::comphelper::disposeComponent(xStmt); } OCollection_TYPE::dropByName(elementName); } // ------------------------------------------------------------------------- void SAL_CALL OIndexes::dropByIndex( sal_Int32 index ) throw(SQLException, IndexOutOfBoundsException, RuntimeException) { ::osl::MutexGuard aGuard(m_rMutex); if (index < 0 || index >= getCount()) throw IndexOutOfBoundsException(::rtl::OUString::valueOf(index),*this); dropByName(m_aElements[index]->first); } // -------------------------------------------------------------------------