1
0
Fork 0
libreoffice/sw/qa/core/fields/fields.cxx
Daniel Baumann 8e63e14cf6
Adding upstream version 4:25.2.3.
Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
2025-06-22 16:20:04 +02:00

484 lines
22 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/.
*/
#include <com/sun/star/text/XParagraphCursor.hpp>
#include <reffld.hxx>
#include <com/sun/star/beans/PropertyValue.hpp>
#include <com/sun/star/beans/XPropertySet.hpp>
#include <com/sun/star/container/XIndexAccess.hpp>
#include <com/sun/star/text/ControlCharacter.hpp>
#include <com/sun/star/text/ReferenceFieldPart.hpp>
#include <com/sun/star/text/ReferenceFieldSource.hpp>
#include <com/sun/star/text/XFootnote.hpp>
#include <com/sun/star/text/XFootnotesSupplier.hpp>
#include <com/sun/star/text/XSimpleText.hpp>
#include <com/sun/star/text/XTextField.hpp>
#include <com/sun/star/text/XTextRange.hpp>
#include <com/sun/star/text/XPageCursor.hpp>
#include <com/sun/star/beans/XPropertySetInfo.hpp>
#include <com/sun/star/style/XStyleFamiliesSupplier.hpp>
#include <com/sun/star/text/XText.hpp>
#include <com/sun/star/container/XNameContainer.hpp>
#include <com/sun/star/text/XTextCursor.hpp>
#include <com/sun/star/uno/Any.h>
#include <com/sun/star/uno/Reference.h>
#include <com/sun/star/uno/Sequence.h>
#include <cppunit/TestAssert.h>
#include <cppunit/extensions/HelperMacros.h>
#include <rtl/ustring.hxx>
#include <sal/types.h>
#include <swmodeltestbase.hxx>
#include <com/sun/star/text/XTextDocument.hpp>
#include <com/sun/star/text/XTextFieldsSupplier.hpp>
#include <comphelper/propertyvalue.hxx>
#include <authfld.hxx>
#include <docsh.hxx>
#include <rootfrm.hxx>
#include <wrtsh.hxx>
namespace
{
/// Covers sw/source/core/fields/ fixes.
class Test : public SwModelTestBase
{
public:
Test()
: SwModelTestBase(u"/sw/qa/core/fields/data/"_ustr)
{
}
};
CPPUNIT_TEST_FIXTURE(Test, testAuthorityTooltip)
{
// Create a document with a bibliography reference in it.
createSwDoc();
uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xField(
xFactory->createInstance(u"com.sun.star.text.TextField.Bibliography"_ustr), uno::UNO_QUERY);
uno::Sequence<beans::PropertyValue> aFields = {
comphelper::makePropertyValue(u"Identifier"_ustr, u"ARJ00"_ustr),
comphelper::makePropertyValue(u"Author"_ustr, u"Ar, J"_ustr),
comphelper::makePropertyValue(u"Title"_ustr, u"mytitle"_ustr),
comphelper::makePropertyValue(u"Year"_ustr, u"2020"_ustr),
};
xField->setPropertyValue(u"Fields"_ustr, uno::Any(aFields));
uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xTextDocument->getText();
uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
uno::Reference<text::XTextContent> xContent(xField, uno::UNO_QUERY);
xText->insertTextContent(xCursor, xContent, /*bAbsorb=*/false);
// Get the tooltip of the field.
SwWrtShell* pWrtShell = getSwDocShell()->GetWrtShell();
pWrtShell->Left(SwCursorSkipMode::Chars, /*bSelect=*/false, 1, /*bBasicCall=*/false);
SwPaM* pCursor = pWrtShell->GetCursor();
auto pField = dynamic_cast<SwAuthorityField*>(
SwCursorShell::GetFieldAtCursor(pCursor, /*bIncludeInputFieldAtStart=*/true));
CPPUNIT_ASSERT(pField);
const SwRootFrame* pLayout = pWrtShell->GetLayout();
OUString aTooltip = pField->GetAuthority(pLayout);
// Without the accompanying fix in place, generating this tooltip text was not possible without
// first inserting an empty bibliography table into the document.
CPPUNIT_ASSERT_EQUAL(u"ARJ00: Ar, J, mytitle, 2020"_ustr, aTooltip);
}
CPPUNIT_TEST_FIXTURE(Test, testTdf143424)
{
createSwDoc("tdf143424.odt");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// SwModify::Add() enumerates in invalid (mostly reverse) order, not like in document
// Field: Chapter Format: Chapter name
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(u"Another title"_ustr, xField->getPresentation(false));
// Field: Chapter Format: Chapter number and name
xField.set(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(u"Chapter 2 - Another title"_ustr, xField->getPresentation(false));
// Field: Chapter Format: Chapter number
xField.set(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(u"Chapter 2 -"_ustr, xField->getPresentation(false));
// Field: Chapter Format: Chapter number without separator
xField.set(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(u"2"_ustr, xField->getPresentation(false));
}
CPPUNIT_TEST_FIXTURE(Test, testChapterFieldsFollowedBy)
{
createSwDoc("chapter_field_followedby.odt");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// SwModify::Add() enumerates in invalid (mostly reverse) order, not like in document
std::vector<OUString> aFieldValues = {
u"Followed by tab"_ustr, // #1
u"I.I.I.I"_ustr, // #16
u">I.I.I.I< Followed by newline"_ustr, // #15 Linefeed is replaced by space
u">I.I.I.I<"_ustr, // #14
u"Followed by newline"_ustr, // #13
u"I.I.I"_ustr, // #12
u">I.I.I<Followed by nothing"_ustr, // #11 Nothing between text & outline
u">I.I.I<"_ustr, // #10
u"Followed by nothing"_ustr, // #9
u"I.I"_ustr, // #8
u">I.I< Followed by space"_ustr, // #7 Space as is
u">I.I<"_ustr, // #6
u"Followed by space"_ustr, // #5
u"I"_ustr, // #4
u">I< Followed by tab"_ustr, // #3 Here is a tab, but replaced by space in field
u">I<"_ustr, // #2
};
for (const auto& sValue : aFieldValues)
{
CPPUNIT_ASSERT(xFields->hasMoreElements());
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(sValue, xField->getPresentation(false));
}
}
CPPUNIT_TEST_FIXTURE(Test, testTdf86790)
{
createSwDoc("tdf86790.docx");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
std::vector<std::pair<OUString, OUString>> aFieldValues = {
{ " Heading 1", "1" }, // #1
{ " foobar", "22.2" }, // #5
{ " foobar", "4" }, // #4
{ " Heading 2", "1.1" }, // #3
{ " Heading 2", "1.1" }, // #2
};
for (const auto& sValue : aFieldValues)
{
CPPUNIT_ASSERT(xFields->hasMoreElements());
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
}
CPPUNIT_ASSERT(!xFields->hasMoreElements());
}
void InsertParagraphBreak(const uno::Reference<text::XTextCursor>& xCursor)
{
uno::Reference<text::XText> xText = xCursor->getText();
xText->insertControlCharacter(xCursor, text::ControlCharacter::PARAGRAPH_BREAK, false);
}
void InsertHeading(const uno::Reference<text::XTextCursor>& xCursor, const OUString& content)
{
uno::Reference<beans::XPropertySet> xCursorPropertySet(xCursor, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xCursor->getText();
xCursorPropertySet->setPropertyValue(u"ParaStyleName"_ustr, uno::Any(u"Heading 1"_ustr));
xText->insertString(xCursor, content, false);
InsertParagraphBreak(xCursor);
}
/// If there is referenced text both above and below, STYLEREF searches up
CPPUNIT_TEST_FIXTURE(Test, testStyleRefSearchUp)
{
// Arrange
// Create a document with headings both above and below a cursor
createSwDoc();
uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xTextDocument->getText();
uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
InsertHeading(xCursor, u"Heading far above field"_ustr);
InsertHeading(xCursor, u"Heading above field"_ustr);
InsertParagraphBreak(xCursor);
InsertHeading(xCursor, u"Heading below field"_ustr);
InsertHeading(xCursor, u"Heading far below field"_ustr);
uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
xParagraphCursor->gotoPreviousParagraph(false); // Blank space
// Act
// Insert a STYLEREF field which looks for "Heading 1"s
uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XTextField> xField(
xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));
xField->attach(xCursor);
// Assert
// Make sure the field has the right text
CPPUNIT_ASSERT_EQUAL(u"Heading above field"_ustr, xField->getPresentation(false));
}
/// If there is referenced text only below, STYLEREF searches down
CPPUNIT_TEST_FIXTURE(Test, testStyleRefSearchDown)
{
// Arrange
// Create a document with headings below a cursor
createSwDoc();
uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xTextDocument->getText();
uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
InsertParagraphBreak(xCursor);
InsertHeading(xCursor, u"Heading below field"_ustr);
InsertHeading(xCursor, u"Heading far below field"_ustr);
uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
xParagraphCursor->gotoPreviousParagraph(false); // Blank space
// Act
// Insert a STYLEREF field which looks for "Heading 1"s
uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XTextField> xField(
xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));
xField->attach(xCursor);
// Assert
// Make sure the field has the right text
CPPUNIT_ASSERT_EQUAL(u"Heading below field"_ustr, xField->getPresentation(false));
}
/// STYLEREFs in marginals (headers or footers) should search in the page they are on first, regardless if there is anything above them
CPPUNIT_TEST_FIXTURE(Test, testMarginalStyleRef)
{
// Arrange
// Create a document with 2 headings
createSwDoc();
uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xTextDocument->getText();
uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
InsertHeading(xCursor, u"Top heading on page"_ustr);
InsertHeading(xCursor, u"Bottom heading on page"_ustr);
// Act
// Insert a STYLEREF field which looks for "Heading 1"s into the footer
uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XTextField> xField(
xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);
uno::Reference<style::XStyleFamiliesSupplier> xStyleFamiliesSupplier(mxComponent,
uno::UNO_QUERY);
uno::Reference<container::XNameContainer> xParagraphStylesContainer(
xStyleFamiliesSupplier->getStyleFamilies()->getByName(u"PageStyles"_ustr), uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xPagePropertySet(
xParagraphStylesContainer->getByName(u"Standard"_ustr), uno::UNO_QUERY);
xPagePropertySet->setPropertyValue(u"FooterIsOn"_ustr, uno::Any(true));
uno::Reference<text::XText> xFooterText(xPagePropertySet->getPropertyValue(u"FooterText"_ustr),
uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));
uno::Reference<text::XTextRange> xFooterCursor = xFooterText->createTextCursor();
xField->attach(xFooterCursor);
// Assert
// Make sure the field has the right text
CPPUNIT_ASSERT_EQUAL(u"Top heading on page"_ustr, xField->getPresentation(false));
}
/// STYLEREFs in footnotes should search from the point of the reference mark
CPPUNIT_TEST_FIXTURE(Test, testFootnoteStyleRef)
{
// Arrange
// Create a document with headings both above and below a cursor
createSwDoc();
uno::Reference<text::XTextDocument> xTextDocument(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XText> xText = xTextDocument->getText();
uno::Reference<text::XTextCursor> xCursor = xText->createTextCursor();
InsertHeading(xCursor, u"Heading far above reference mark"_ustr);
InsertHeading(xCursor, u"Heading above reference mark"_ustr);
InsertParagraphBreak(xCursor);
InsertHeading(xCursor, u"Heading below reference mark"_ustr);
InsertHeading(xCursor, u"Heading far below reference mark"_ustr);
uno::Reference<text::XParagraphCursor> xParagraphCursor(xCursor, uno::UNO_QUERY);
xParagraphCursor->gotoPreviousParagraph(false); // Heading far below...
xParagraphCursor->gotoPreviousParagraph(false); // Heading below...
xParagraphCursor->gotoPreviousParagraph(false); // Blank space
// Act
// Insert a STYLEREF field which looks for "Heading 1"s into a footnote
uno::Reference<lang::XMultiServiceFactory> xFactory(mxComponent, uno::UNO_QUERY);
uno::Reference<text::XFootnote> xFootnote(
xFactory->createInstance(u"com.sun.star.text.Footnote"_ustr), uno::UNO_QUERY);
xFootnote->setLabel(u"Style reference mark"_ustr);
xText->insertTextContent(xCursor, xFootnote, false);
uno::Reference<text::XTextField> xField(
xFactory->createInstance(u"com.sun.star.text.TextField.GetReference"_ustr), uno::UNO_QUERY);
uno::Reference<beans::XPropertySet> xFieldPropertySet(xField, uno::UNO_QUERY);
xFieldPropertySet->setPropertyValue(u"ReferenceFieldSource"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldSource::STYLE)));
xFieldPropertySet->setPropertyValue(u"ReferenceFieldPart"_ustr,
uno::Any(sal_Int16(text::ReferenceFieldPart::TEXT)));
xFieldPropertySet->setPropertyValue(u"SourceName"_ustr, uno::Any(u"Heading 1"_ustr));
uno::Reference<text::XSimpleText> xFootnoteText(xFootnote, uno::UNO_QUERY);
uno::Reference<text::XTextRange> xFootnoteCursor = xFootnoteText->createTextCursor();
xField->attach(xFootnoteCursor);
// Assert
// Make sure the field has the right text
CPPUNIT_ASSERT_EQUAL(u"Heading above reference mark"_ustr, xField->getPresentation(false));
}
/// STYLEREFs with the REFFLDFLAG_HIDE_NON_NUMERICAL flag should hide all characters that are not numerical or delimiters
CPPUNIT_TEST_FIXTURE(Test, testNumericalStyleRef)
{
createSwDoc("suppress-non-numerical.docx");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
std::vector<std::pair<OUString, OUString>> aFieldValues = {
{ " Heading 1", "3" }, // #1
{ " Heading 2", ".2\\@123^&~|a....." }, // #4
{ " Heading 2", ".2\\|a....." }, // #3
{ " Heading 1", "Chapter 3.!" }, // #2
};
for (const auto& sValue : aFieldValues)
{
CPPUNIT_ASSERT(xFields->hasMoreElements());
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
}
CPPUNIT_ASSERT(!xFields->hasMoreElements());
}
/// We should be able to import these flags from OOXML documents
/// (Note: in Word, STYLEREF 'search bottom up' flag does nothing unless it's in a marginal, we place no such limitation but
/// this docx only has such stylerefs to avoid confusion)
CPPUNIT_TEST_FIXTURE(Test, testOOXMLStyleRefFlags)
{
createSwDoc("styleref-flags.docx");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
std::vector<std::pair<OUString, OUString>> aFieldValues = {
{ " Heading 2", "2.1" }, // #1
{ " Heading 1", "3" }, // #5
{ " Heading 1", "A top level heading at the top of the page" }, // #4
{ " Heading 1", "The last top level heading" }, // #3
{ " Heading 2", "Heading 2.1" }, // #2
};
for (const auto& sValue : aFieldValues)
{
CPPUNIT_ASSERT(xFields->hasMoreElements());
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
}
CPPUNIT_ASSERT(!xFields->hasMoreElements());
}
/// We should be able to import these flags from OOXML documents
/// (Note: in Word, STYLEREF 'search bottom up' flag does nothing unless it's in a marginal, we place no such limitation but
/// this docx only has such stylerefs to avoid confusion)
CPPUNIT_TEST_FIXTURE(Test, testODFStyleRef)
{
// if createSwDoc is used then calcLayout is called and the field values are different
loadFromFile(u"styleref.odt");
uno::Reference<text::XTextFieldsSupplier> xTextFieldsSupplier(mxComponent, uno::UNO_QUERY);
uno::Reference<container::XEnumerationAccess> xFieldsAccess(
xTextFieldsSupplier->getTextFields());
uno::Reference<container::XEnumeration> xFields(xFieldsAccess->createEnumeration());
// Similarly to testChapterFieldsFollowedBy, the fields are enumerated with #1 first and everything else in reverse order
std::vector<std::pair<OUString, OUString>> aFieldValues = {
{ " Heading 1", "1:" }, // #1
{ " Heading 2", "In footnotes" }, // #10
{ " Heading 2", "In document text" }, // #9
{ " Heading 1", "STYLEREF in different locations" }, // #8
{ " Heading 1", "2:" }, // #7
{ " Heading 1", "With STYLEREF, many things are possible" }, // #6
{ " Heading 1", "1:" }, // #5
{ " Heading 1", "STYLEREF in different locations" }, // #4
{ " Heading 1", "2:" }, // #3
{ " Heading 1", "With STYLEREF, many things are possible" }, // #2
};
for (const auto& sValue : aFieldValues)
{
CPPUNIT_ASSERT(xFields->hasMoreElements());
uno::Reference<text::XTextField> xField(xFields->nextElement(), uno::UNO_QUERY);
CPPUNIT_ASSERT_EQUAL(sValue.first, xField->getPresentation(true));
CPPUNIT_ASSERT_EQUAL(sValue.second, xField->getPresentation(false));
}
CPPUNIT_ASSERT(!xFields->hasMoreElements());
}
}
CPPUNIT_PLUGIN_IMPLEMENT();
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */