diff options
author | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:51:28 +0000 |
---|---|---|
committer | Daniel Baumann <daniel.baumann@progress-linux.org> | 2024-04-27 16:51:28 +0000 |
commit | 940b4d1848e8c70ab7642901a68594e8016caffc (patch) | |
tree | eb72f344ee6c3d9b80a7ecc079ea79e9fba8676d /sw/source/ui/vba/vbatemplate.cxx | |
parent | Initial commit. (diff) | |
download | libreoffice-upstream.tar.xz libreoffice-upstream.zip |
Adding upstream version 1:7.0.4.upstream/1%7.0.4upstream
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
Diffstat (limited to 'sw/source/ui/vba/vbatemplate.cxx')
-rw-r--r-- | sw/source/ui/vba/vbatemplate.cxx | 128 |
1 files changed, 128 insertions, 0 deletions
diff --git a/sw/source/ui/vba/vbatemplate.cxx b/sw/source/ui/vba/vbatemplate.cxx new file mode 100644 index 000000000..58059da51 --- /dev/null +++ b/sw/source/ui/vba/vbatemplate.cxx @@ -0,0 +1,128 @@ +/* -*- 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 "vbatemplate.hxx" +#include "vbaautotextentry.hxx" +#include <com/sun/star/text/AutoTextContainer.hpp> +#include <comphelper/processfactory.hxx> +#include <tools/urlobj.hxx> +#include <rtl/character.hxx> +#include <osl/file.hxx> + +using namespace ::ooo::vba; +using namespace ::com::sun::star; + +static OUString lcl_CheckGroupName( const OUString& rGroupName ) +{ + OUStringBuffer sRet; + //group name should contain only A-Z and a-z and spaces + for( sal_Int32 i = 0; i < rGroupName.getLength(); i++ ) + { + sal_Unicode cChar = rGroupName[i]; + if (rtl::isAsciiAlphanumeric(cChar) || + cChar == '_' || cChar == 0x20) + { + sRet.append(cChar); + } + } + sRet.strip(' '); + return sRet.makeStringAndClear(); +} + +SwVbaTemplate::SwVbaTemplate( const uno::Reference< ooo::vba::XHelperInterface >& rParent, const uno::Reference< uno::XComponentContext >& rContext, const OUString& rFullUrl ) + : SwVbaTemplate_BASE( rParent, rContext ), msFullUrl( rFullUrl ) +{ +} + +SwVbaTemplate::~SwVbaTemplate() +{ +} + +OUString +SwVbaTemplate::getName() +{ + OUString sName; + if( !msFullUrl.isEmpty() ) + { + INetURLObject aURL( msFullUrl ); + ::osl::File::getSystemPathFromFileURL( aURL.GetLastName(), sName ); + } + return sName; +} + +OUString +SwVbaTemplate::getPath() +{ + OUString sPath; + if( !msFullUrl.isEmpty() ) + { + INetURLObject aURL( msFullUrl ); + OUString sURL( aURL.GetMainURL( INetURLObject::DecodeMechanism::ToIUri ) ); + sURL = sURL.copy( 0, sURL.getLength() - aURL.GetLastName().getLength() - 1 ); + ::osl::File::getSystemPathFromFileURL( sURL, sPath ); + } + return sPath; +} + +uno::Any SAL_CALL +SwVbaTemplate::AutoTextEntries( const uno::Any& index ) +{ + uno::Reference< uno::XComponentContext > xContext = comphelper::getProcessComponentContext(); + uno::Reference< text::XAutoTextContainer2 > xAutoTextContainer = text::AutoTextContainer::create( xContext ); + + // the default template is "Normal.dot" in Word. + OUString sGroup("Normal"); + OUString sName = getName(); + sal_Int32 nIndex = sName.lastIndexOf( '.' ); + if( nIndex > 0 ) + { + sGroup = sName.copy( 0, sName.lastIndexOf( '.' ) ); + } + OUString sNewGroup = lcl_CheckGroupName( sGroup ); + + uno::Reference< container::XIndexAccess > xGroup; + if( !xAutoTextContainer->hasByName( sNewGroup ) ) + { + throw uno::RuntimeException("Auto Text Entry doesn't exist" ); + } + + xGroup.set( xAutoTextContainer->getByName( sNewGroup ), uno::UNO_QUERY_THROW ); + + uno::Reference< XCollection > xCol( new SwVbaAutoTextEntries( this, mxContext, xGroup ) ); + if( index.hasValue() ) + return xCol->Item( index, uno::Any() ); + return uno::makeAny( xCol ); +} + +OUString +SwVbaTemplate::getServiceImplName() +{ + return "SwVbaTemplate"; +} + +uno::Sequence< OUString > +SwVbaTemplate::getServiceNames() +{ + static uno::Sequence< OUString > const aServiceNames + { + "ooo.vba.word.Template" + }; + return aServiceNames; +} + +/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ |