Files
libreoffice/sw/source/ui/vba/vbarange.cxx
Thomas Arnhold ba0a57702c remove OUString wrap for string literals
For some functions and all kinds of Exceptions.

CannotConvertException
CloseVetoException
DisposedException
EmptyUndoStackException
ErrorCodeIOException
Exception
GridInvalidDataException
GridInvalidModelException
IOException
IllegalAccessException
IllegalArgumentException
IllegalTypeException
IndexOutOfBoundsException
NoMasterException
NoSuchElementException
NoSupportException
PropertyVetoException
RuntimeException
SAXException
ScannerException
StorageWrappedTargetException
UnsupportedFlavorException
VetoException
WrappedTargetException
ZipIOException
throwGenericSQLException
throwIllegallArgumentException

createInstance
createInstanceWithContext
forName
getByName
getPackageManager
getPropertyValue
getUnpackedValueOrDefault
getValueByName
hasPropertyByName
openKey
setName
setPropertyValue
supportsService

bash command:

for i in `cat list`; do git grep "$i\s*(\s*OUString(\s*\"" -- '*.[hc]xx'
	| cut -d ':' -f1 | sort -u
	| xargs sed -i
		-e "s/\(\<$i\s*(\)\s*OUString(\s*\(\"[^\")\\]*\"\)\s*)\s*/\1\2/g"
		-e "s/\($i.*\)\"+ /\1\" + /g";
done

Change-Id: Iaf8e641b0abf28c082906014f87a183517630535
Reviewed-on: https://gerrit.libreoffice.org/4624
Tested-by: LibreOffice gerrit bot <gerrit@libreoffice.org>
Reviewed-by: Thomas Arnhold <thomas@arnhold.org>
Tested-by: Thomas Arnhold <thomas@arnhold.org>
2013-06-29 21:52:54 +00:00

429 lines
17 KiB
C++

/* -*- 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 "vbarange.hxx"
#include <vbahelper/vbahelper.hxx>
#include <tools/diagnose_ex.h>
#include "vbarangehelper.hxx"
#include <ooo/vba/word/WdBreakType.hpp>
#include <com/sun/star/style/BreakType.hpp>
#include <com/sun/star/text/ControlCharacter.hpp>
#include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
#include <com/sun/star/text/XTextRangeCompare.hpp>
#include <com/sun/star/text/XWordCursor.hpp>
#include <com/sun/star/text/XParagraphCursor.hpp>
#include <ooo/vba/word/WdUnits.hpp>
#include <ooo/vba/word/WdMovementType.hpp>
#include "vbaparagraphformat.hxx"
#include "vbastyle.hxx"
#include "vbafont.hxx"
#include "vbapalette.hxx"
#include "vbapagesetup.hxx"
#include "vbalistformat.hxx"
#include "vbarevisions.hxx"
#include "vbabookmarks.hxx"
#include "vbasections.hxx"
#include "vbafield.hxx"
using namespace ::ooo::vba;
using namespace ::com::sun::star;
SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ), mxTextDocument( rTextDocument ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument )
{
uno::Reference< text::XTextRange > xEnd;
initialize( rStart, xEnd );
}
SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ), mxTextDocument( rTextDocument ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument )
{
initialize( rStart, rEnd );
}
SwVbaRange::SwVbaRange( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const uno::Reference< text::XTextDocument >& rTextDocument, const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd, const uno::Reference< text::XText >& rText, sal_Bool _bMaySpanEndOfDocument ) throw (uno::RuntimeException) : SwVbaRange_BASE( rParent, rContext ),mxTextDocument( rTextDocument ), mxText( rText ), mbMaySpanEndOfDocument( _bMaySpanEndOfDocument )
{
initialize( rStart, rEnd );
}
SwVbaRange::~SwVbaRange()
{
}
void SwVbaRange::initialize( const uno::Reference< text::XTextRange >& rStart, const uno::Reference< text::XTextRange >& rEnd ) throw (uno::RuntimeException)
{
if( !mxText.is() )
{
mxText = mxTextDocument->getText();
}
mxTextCursor = SwVbaRangeHelper::initCursor( rStart, mxText );
if( !mxTextCursor.is() )
throw uno::RuntimeException("Fails to create text cursor", uno::Reference< uno::XInterface >() );
mxTextCursor->collapseToStart();
if( rEnd.is() )
mxTextCursor->gotoRange( rEnd, sal_True );
else
mxTextCursor->gotoEnd( sal_True );
}
uno::Reference< text::XTextRange > SAL_CALL
SwVbaRange::getXTextRange() throw (uno::RuntimeException)
{
uno::Reference< text::XTextRange > xTextRange( mxTextCursor, uno::UNO_QUERY_THROW );
return xTextRange;
}
/**
* The complexity in this method is because we need to workaround
* an issue that the last paragraph in a document does not have a trailing CRLF.
* @return
*/
OUString SAL_CALL
SwVbaRange::getText() throw ( uno::RuntimeException )
{
OUString aText = mxTextCursor->getString();
sal_Int32 nLen = aText.getLength();
// FIXME: should add a line separator if the range includes the last paragraph
if( nLen == 0 )
{
if( mxTextCursor->isCollapsed() )
{
mxTextCursor->goRight( 1, sal_True );
aText = mxTextCursor->getString();
mxTextCursor->collapseToStart();
}
else
{
uno::Reference< text::XTextRange > xStart = mxTextCursor->getStart();
uno::Reference< text::XTextRange > xEnd = mxTextCursor->getEnd();
mxTextCursor->collapseToEnd();
mxTextCursor->goRight( 1, sal_True );
mxTextCursor->gotoRange( xStart, sal_False );
mxTextCursor->gotoRange( xEnd, sal_True );
}
}
return aText;
}
void SAL_CALL
SwVbaRange::setText( const OUString& rText ) throw ( uno::RuntimeException )
{
// Emulate the MSWord behavior, Don't delete the bookmark
// which contains no text string in current inserting position,
OUString sName;
uno::Reference< text::XTextRange > xRange( mxTextCursor, uno::UNO_QUERY_THROW );
try
{
uno::Reference< text::XTextContent > xBookmark = SwVbaRangeHelper::findBookmarkByPosition( mxTextDocument, xRange->getStart() );
if( xBookmark.is() )
{
uno::Reference< container::XNamed > xNamed( xBookmark, uno::UNO_QUERY_THROW );
sName = xNamed->getName();
}
}
catch (const uno::Exception&)
{
// do nothing
}
if( rText.indexOf( '\n' ) != -1 )
{
mxTextCursor->setString( OUString() );
// process CR in strings
SwVbaRangeHelper::insertString( xRange, mxText, rText, sal_True );
}
else
{
mxTextCursor->setString( rText );
}
// insert the bookmark if the bookmark is deleted during setting text string
if( !sName.isEmpty() )
{
uno::Reference< text::XBookmarksSupplier > xBookmarksSupplier( mxTextDocument, uno::UNO_QUERY_THROW );
uno::Reference< container::XNameAccess > xNameAccess( xBookmarksSupplier->getBookmarks(), uno::UNO_QUERY_THROW );
if( !xNameAccess->hasByName( sName ) )
{
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
SwVbaBookmarks::addBookmarkByName( xModel, sName, xRange->getStart() );
}
}
}
// FIXME: test is not pass
void SAL_CALL SwVbaRange::InsertBreak( const uno::Any& _breakType ) throw (uno::RuntimeException)
{
// default type is wdPageBreak;
sal_Int32 nBreakType = word::WdBreakType::wdPageBreak;
if( _breakType.hasValue() )
_breakType >>= nBreakType;
style::BreakType eBreakType = style::BreakType_NONE;
switch( nBreakType )
{
case word::WdBreakType::wdPageBreak:
eBreakType = style::BreakType_PAGE_BEFORE;
break;
case word::WdBreakType::wdColumnBreak:
eBreakType = style::BreakType_COLUMN_AFTER;
break;
case word::WdBreakType::wdLineBreak:
case word::WdBreakType::wdLineBreakClearLeft:
case word::WdBreakType::wdLineBreakClearRight:
case word::WdBreakType::wdSectionBreakContinuous:
case word::WdBreakType::wdSectionBreakEvenPage:
case word::WdBreakType::wdSectionBreakNextPage:
case word::WdBreakType::wdSectionBreakOddPage:
case word::WdBreakType::wdTextWrappingBreak:
DebugHelper::exception( SbERR_NOT_IMPLEMENTED, OUString() );
break;
default:
DebugHelper::exception( SbERR_BAD_PARAMETER, OUString() );
}
if( eBreakType != style::BreakType_NONE )
{
if( !mxTextCursor->isCollapsed() )
{
mxTextCursor->setString( OUString() );
mxTextCursor->collapseToStart();
}
uno::Reference< beans::XPropertySet > xProp( mxTextCursor, uno::UNO_QUERY_THROW );
xProp->setPropertyValue("BreakType", uno::makeAny( eBreakType ) );
}
}
void SAL_CALL
SwVbaRange::Select() throw ( uno::RuntimeException )
{
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
uno::Reference< text::XTextViewCursor > xTextViewCursor = word::getXTextViewCursor( xModel );
xTextViewCursor->gotoRange( mxTextCursor->getStart(), sal_False );
xTextViewCursor->gotoRange( mxTextCursor->getEnd(), sal_True );
}
void SAL_CALL
SwVbaRange::InsertParagraph() throw ( uno::RuntimeException )
{
mxTextCursor->setString( OUString("") );
InsertParagraphBefore();
}
void SAL_CALL
SwVbaRange::InsertParagraphBefore() throw ( uno::RuntimeException )
{
uno::Reference< text::XTextRange > xTextRange = mxTextCursor->getStart();
mxText->insertControlCharacter( xTextRange, text::ControlCharacter::PARAGRAPH_BREAK, sal_True );
mxTextCursor->gotoRange( xTextRange, sal_True );
}
void SAL_CALL
SwVbaRange::InsertParagraphAfter() throw ( uno::RuntimeException )
{
uno::Reference< text::XTextRange > xTextRange = mxTextCursor->getEnd();
mxText->insertControlCharacter( xTextRange, text::ControlCharacter::PARAGRAPH_BREAK, sal_True );
}
uno::Reference< word::XParagraphFormat > SAL_CALL
SwVbaRange::getParagraphFormat() throw ( uno::RuntimeException )
{
uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW );
return uno::Reference< word::XParagraphFormat >( new SwVbaParagraphFormat( this, mxContext, mxTextDocument, xParaProps ) );
}
void SAL_CALL
SwVbaRange::setParagraphFormat( const uno::Reference< word::XParagraphFormat >& /*rParagraphFormat*/ ) throw ( uno::RuntimeException )
{
throw uno::RuntimeException("Not implemented", uno::Reference< uno::XInterface >() );
}
void SwVbaRange::GetStyleInfo(OUString& aStyleName, OUString& aStyleType ) throw ( uno::RuntimeException )
{
uno::Reference< beans::XPropertySet > xProp( mxTextCursor, uno::UNO_QUERY_THROW );
if( ( xProp->getPropertyValue("CharStyleName") >>= aStyleName ) && !aStyleName.isEmpty() )
{
aStyleType = OUString("CharacterStyles");
}
else if( ( xProp->getPropertyValue("ParaStyleName") >>= aStyleName ) && !aStyleName.isEmpty() )
{
aStyleType = OUString("ParagraphStyles");
}
if( aStyleType.isEmpty() )
{
DebugHelper::exception( SbERR_INTERNAL_ERROR, OUString() );
}
}
uno::Any SAL_CALL
SwVbaRange::getStyle() throw ( uno::RuntimeException )
{
OUString aStyleName;
OUString aStyleType;
GetStyleInfo( aStyleName, aStyleType );
uno::Reference< style::XStyleFamiliesSupplier > xStyleSupplier( mxTextDocument, uno::UNO_QUERY_THROW);
uno::Reference< container::XNameAccess > xStylesAccess( xStyleSupplier->getStyleFamilies()->getByName( aStyleType ), uno::UNO_QUERY_THROW );
uno::Reference< beans::XPropertySet > xStyleProps( xStylesAccess->getByName( aStyleName ), uno::UNO_QUERY_THROW );
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
return uno::makeAny( uno::Reference< word::XStyle >( new SwVbaStyle( this, mxContext, xModel, xStyleProps ) ) );
}
void SAL_CALL
SwVbaRange::setStyle( const uno::Any& rStyle ) throw ( uno::RuntimeException )
{
uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW );
SwVbaStyle::setStyle( xParaProps, rStyle );
}
uno::Reference< word::XFont > SAL_CALL
SwVbaRange::getFont() throw ( uno::RuntimeException )
{
VbaPalette aColors;
return new SwVbaFont( mxParent, mxContext, aColors.getPalette(), uno::Reference< beans::XPropertySet >( getXTextRange(), uno::UNO_QUERY_THROW ) );
}
uno::Reference< word::XListFormat > SAL_CALL
SwVbaRange::getListFormat() throw ( uno::RuntimeException )
{
return uno::Reference< word::XListFormat >( new SwVbaListFormat( this, mxContext, getXTextRange() ) );
}
::sal_Int32 SAL_CALL SwVbaRange::getLanguageID() throw (uno::RuntimeException)
{
uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW );
return SwVbaStyle::getLanguageID( xParaProps );
}
void SAL_CALL SwVbaRange::setLanguageID( ::sal_Int32 _languageid ) throw (uno::RuntimeException)
{
uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW );
SwVbaStyle::setLanguageID( xParaProps, _languageid );
}
uno::Any SAL_CALL
SwVbaRange::PageSetup( ) throw (uno::RuntimeException)
{
uno::Reference< beans::XPropertySet > xParaProps( mxTextCursor, uno::UNO_QUERY_THROW );
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
OUString aPageStyleName;
xParaProps->getPropertyValue("PageStyleName") >>= aPageStyleName;
uno::Reference< style::XStyleFamiliesSupplier > xSytleFamSupp( xModel, uno::UNO_QUERY_THROW );
uno::Reference< container::XNameAccess > xSytleFamNames( xSytleFamSupp->getStyleFamilies(), uno::UNO_QUERY_THROW );
uno::Reference< container::XNameAccess > xPageStyles( xSytleFamNames->getByName("PageStyles"), uno::UNO_QUERY_THROW );
uno::Reference< beans::XPropertySet > xPageProps( xPageStyles->getByName( aPageStyleName ), uno::UNO_QUERY_THROW );
return uno::makeAny( uno::Reference< word::XPageSetup >( new SwVbaPageSetup( this, mxContext, xModel, xPageProps ) ) );
}
::sal_Int32 SAL_CALL SwVbaRange::getStart() throw (uno::RuntimeException)
{
uno::Reference< text::XText > xText = mxTextDocument->getText();
return SwVbaRangeHelper::getPosition( xText, mxTextCursor->getStart() );
}
void SAL_CALL SwVbaRange::setStart( ::sal_Int32 _start ) throw (uno::RuntimeException)
{
uno::Reference< text::XText > xText = mxTextDocument->getText();
uno::Reference< text::XTextRange > xStart = SwVbaRangeHelper::getRangeByPosition( xText, _start );
uno::Reference< text::XTextRange > xEnd = mxTextCursor->getEnd();
mxTextCursor->gotoRange( xStart, sal_False );
mxTextCursor->gotoRange( xEnd, sal_True );
}
::sal_Int32 SAL_CALL SwVbaRange::getEnd() throw (uno::RuntimeException)
{
uno::Reference< text::XText > xText = mxTextDocument->getText();
return SwVbaRangeHelper::getPosition( xText, mxTextCursor->getEnd() );
}
void SAL_CALL SwVbaRange::setEnd( ::sal_Int32 _end ) throw (uno::RuntimeException)
{
uno::Reference< text::XText > xText = mxTextDocument->getText();
uno::Reference< text::XTextRange > xEnd = SwVbaRangeHelper::getRangeByPosition( xText, _end );
mxTextCursor->collapseToStart();
mxTextCursor->gotoRange( xEnd, sal_True );
}
::sal_Bool SAL_CALL SwVbaRange::InRange( const uno::Reference< ::ooo::vba::word::XRange >& Range ) throw (uno::RuntimeException)
{
SwVbaRange* pRange = dynamic_cast< SwVbaRange* >( Range.get() );
if( !pRange )
throw uno::RuntimeException();
uno::Reference< text::XTextRange > xTextRange = pRange->getXTextRange();
uno::Reference< text::XTextRangeCompare > xTRC( mxTextCursor->getText(), uno::UNO_QUERY_THROW );
if( xTRC->compareRegionStarts( xTextRange, getXTextRange() ) >= 0 && xTRC->compareRegionEnds( xTextRange, getXTextRange() ) <= 0 )
return sal_True;
return sal_False;
}
uno::Any SAL_CALL
SwVbaRange::Revisions( const uno::Any& index ) throw (uno::RuntimeException)
{
uno::Reference< text::XTextRange > xTextRange = getXTextRange();
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xCol( new SwVbaRevisions( mxParent, mxContext, xModel, xTextRange ) );
if ( index.hasValue() )
return xCol->Item( index, uno::Any() );
return uno::makeAny( xCol );
}
uno::Any SAL_CALL
SwVbaRange::Sections( const uno::Any& index ) throw (uno::RuntimeException)
{
uno::Reference< text::XTextRange > xTextRange = getXTextRange();
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xCol( new SwVbaSections( mxParent, mxContext, xModel, xTextRange ) );
if ( index.hasValue() )
return xCol->Item( index, uno::Any() );
return uno::makeAny( xCol );
}
uno::Any SAL_CALL
SwVbaRange::Fields( const uno::Any& index ) throw (uno::RuntimeException)
{
//FIXME: should be get the field in current range
uno::Reference< frame::XModel > xModel( mxTextDocument, uno::UNO_QUERY_THROW );
uno::Reference< XCollection > xCol( new SwVbaFields( mxParent, mxContext, xModel ) );
if ( index.hasValue() )
return xCol->Item( index, uno::Any() );
return uno::makeAny( xCol );
}
OUString
SwVbaRange::getServiceImplName()
{
return OUString("SwVbaRange");
}
uno::Sequence< OUString >
SwVbaRange::getServiceNames()
{
static uno::Sequence< OUString > aServiceNames;
if ( aServiceNames.getLength() == 0 )
{
aServiceNames.realloc( 1 );
aServiceNames[ 0 ] = OUString("ooo.vba.word.Range" );
}
return aServiceNames;
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */