summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--include/systools/win32/retry_if_failed.hxx42
-rw-r--r--sal/CppunitTest_sal_retry_if_failed.mk16
-rw-r--r--sal/Module_sal.mk1
-rw-r--r--sal/qa/systools/test_retry_if_failed.cxx72
-rw-r--r--vcl/win/dtrans/MtaOleClipb.cxx9
5 files changed, 137 insertions, 3 deletions
diff --git a/include/systools/win32/retry_if_failed.hxx b/include/systools/win32/retry_if_failed.hxx
new file mode 100644
index 000000000000..59608f542f1e
--- /dev/null
+++ b/include/systools/win32/retry_if_failed.hxx
@@ -0,0 +1,42 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */
+/*
+ * 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/.
+ */
+
+#pragma once
+
+#include <type_traits>
+#include <systools/win32/uwinapi.h>
+
+#pragma comment(lib, "Kernel32.lib") // for Sleep
+
+namespace sal::systools
+{
+// Some system calls (e.g., clipboard access functions) may fail first time, because the resource
+// may only be accessed by one process at a time. This function allows to retry failed call up to
+// specified number of times with a specified timeout (in ms), until the call succeeds or the limit
+// of attempts is exceeded.
+// Usage:
+// HRESULT hr = sal::systools::RetryIfFailed(10, 100, []{ return OleFlushClipboard(); });
+template <typename Func>
+std::enable_if_t<std::is_same_v<std::invoke_result_t<Func>, HRESULT>, HRESULT>
+RetryIfFailed(unsigned times, unsigned msTimeout, Func func)
+{
+ HRESULT hr = E_FAIL;
+ for (unsigned i = 0; i < times; ++i)
+ {
+ hr = func();
+ if (SUCCEEDED(hr))
+ break;
+ if (i < times - 1)
+ Sleep(msTimeout);
+ }
+ return hr;
+}
+}
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab cinoptions=b1,g0,N-s cinkeys+=0=break: */
diff --git a/sal/CppunitTest_sal_retry_if_failed.mk b/sal/CppunitTest_sal_retry_if_failed.mk
new file mode 100644
index 000000000000..6e131afb50dc
--- /dev/null
+++ b/sal/CppunitTest_sal_retry_if_failed.mk
@@ -0,0 +1,16 @@
+# -*- Mode: makefile-gmake; tab-width: 4; indent-tabs-mode: t; fill-column: 100 -*-
+#
+# 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/.
+#
+
+$(eval $(call gb_CppunitTest_CppunitTest,sal_retry_if_failed))
+
+$(eval $(call gb_CppunitTest_add_exception_objects,sal_retry_if_failed,\
+ sal/qa/systools/test_retry_if_failed \
+))
+
+# vim: set noet sw=4 ts=4:
diff --git a/sal/Module_sal.mk b/sal/Module_sal.mk
index 7611bc950f07..1a190037f05b 100644
--- a/sal/Module_sal.mk
+++ b/sal/Module_sal.mk
@@ -26,6 +26,7 @@ $(eval $(call gb_Module_add_targets,sal,\
$(eval $(call gb_Module_add_check_targets,sal,\
$(if $(filter TRUE,$(DISABLE_DYNLOADING)),,CppunitTest_Module_DLL) \
$(if $(filter WNT,$(OS)),CppunitTest_sal_comtools) \
+ $(if $(filter WNT,$(OS)),CppunitTest_sal_retry_if_failed) \
CppunitTest_sal_osl_security \
CppunitTest_sal_osl \
CppunitTest_sal_rtl \
diff --git a/sal/qa/systools/test_retry_if_failed.cxx b/sal/qa/systools/test_retry_if_failed.cxx
new file mode 100644
index 000000000000..845cba83092d
--- /dev/null
+++ b/sal/qa/systools/test_retry_if_failed.cxx
@@ -0,0 +1,72 @@
+/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */
+/*
+ * 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 <cppunit/extensions/HelperMacros.h>
+#include <cppunit/plugin/TestPlugIn.h>
+#include <systools/win32/retry_if_failed.hxx>
+
+namespace test_systools
+{
+class test_retry_if_failed : public CppUnit::TestFixture
+{
+public:
+ void test_success()
+ {
+ const DWORD nTicksBefore = GetTickCount();
+ HRESULT hr = sal::systools::RetryIfFailed(10, 100, Tester(5));
+ const DWORD nTicksAfter = GetTickCount();
+ const DWORD nTicksElapsed = nTicksAfter > nTicksBefore ? nTicksAfter - nTicksBefore
+ : std::numeric_limits<DWORD>::max()
+ - nTicksBefore + nTicksAfter;
+ CPPUNIT_ASSERT(SUCCEEDED(hr));
+ CPPUNIT_ASSERT(nTicksElapsed >= 400); // 5 attempts, 4 sleeps by 100 ms
+ }
+
+ void test_failure()
+ {
+ const DWORD nTicksBefore = GetTickCount();
+ HRESULT hr = sal::systools::RetryIfFailed(10, 100, Tester(15));
+ const DWORD nTicksAfter = GetTickCount();
+ const DWORD nTicksElapsed = nTicksAfter > nTicksBefore ? nTicksAfter - nTicksBefore
+ : std::numeric_limits<DWORD>::max()
+ - nTicksBefore + nTicksAfter;
+ CPPUNIT_ASSERT(FAILED(hr));
+ CPPUNIT_ASSERT(nTicksElapsed >= 900); // 10 attempts, 9 sleeps by 100 ms
+ }
+
+ CPPUNIT_TEST_SUITE(test_retry_if_failed);
+ CPPUNIT_TEST(test_success);
+ CPPUNIT_TEST(test_failure);
+ CPPUNIT_TEST_SUITE_END();
+
+private:
+ struct Tester
+ {
+ Tester(unsigned triesBeforeSuccess)
+ : m_nTriesBeforeSuccess(triesBeforeSuccess)
+ {
+ }
+
+ HRESULT operator()()
+ {
+ return ++m_nTriesAttempted >= m_nTriesBeforeSuccess ? S_OK : E_FAIL;
+ }
+
+ unsigned m_nTriesBeforeSuccess;
+ unsigned m_nTriesAttempted = 0;
+ };
+};
+
+CPPUNIT_TEST_SUITE_REGISTRATION(test_systools::test_retry_if_failed);
+
+} // namespace test_systools
+
+CPPUNIT_PLUGIN_IMPLEMENT();
+
+/* vim:set shiftwidth=4 softtabstop=4 expandtab cinoptions=b1,g0,N-s cinkeys+=0=break: */
diff --git a/vcl/win/dtrans/MtaOleClipb.cxx b/vcl/win/dtrans/MtaOleClipb.cxx
index 3898bdc30dfb..00fbf4143386 100644
--- a/vcl/win/dtrans/MtaOleClipb.cxx
+++ b/vcl/win/dtrans/MtaOleClipb.cxx
@@ -44,6 +44,7 @@
#include <process.h>
#include <systools/win32/comtools.hxx>
+#include <systools/win32/retry_if_failed.hxx>
#include <comphelper/windowserrorstring.hxx>
@@ -465,7 +466,8 @@ bool CMtaOleClipboard::onRegisterClipViewer( LPFNC_CLIPVIEWER_CALLBACK_t pfncCli
HRESULT CMtaOleClipboard::onSetClipboard( IDataObject* pIDataObject )
{
- return OleSetClipboard( pIDataObject );
+ return sal::systools::RetryIfFailed(10, 100,
+ [pIDataObject] { return OleSetClipboard(pIDataObject); });
}
HRESULT CMtaOleClipboard::onGetClipboard( LPSTREAM* ppStream )
@@ -475,7 +477,8 @@ HRESULT CMtaOleClipboard::onGetClipboard( LPSTREAM* ppStream )
IDataObjectPtr pIDataObject;
// forward the request to the OleClipboard
- HRESULT hr = OleGetClipboard( &pIDataObject );
+ HRESULT hr
+ = sal::systools::RetryIfFailed(10, 100, [p = &pIDataObject] { return OleGetClipboard(p); });
if ( SUCCEEDED( hr ) )
{
hr = MarshalIDataObjectInStream(pIDataObject.get(), ppStream);
@@ -488,7 +491,7 @@ HRESULT CMtaOleClipboard::onGetClipboard( LPSTREAM* ppStream )
HRESULT CMtaOleClipboard::onFlushClipboard( )
{
- return OleFlushClipboard();
+ return sal::systools::RetryIfFailed(10, 100, [] { return OleFlushClipboard(); });
}
// handle clipboard update event