1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44
 45
 46
 47
 48
 49
 50
 51
 52
 53
 54
 55
 56
 57
 58
 59
 60
 61
 62
 63
 64
 65
 66
 67
 68
 69
 70
 71
 72
 73
 74
 75
 76
 77
 78
 79
 80
 81
 82
 83
 84
 85
 86
 87
 88
 89
 90
 91
 92
 93
 94
 95
 96
 97
 98
 99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
/* -*- 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 "native_share.h"

#include "rtl/bootstrap.hxx"
#include "com/sun/star/uno/XComponentContext.hpp"
#include "cppuhelper/bootstrap.hxx"
#include <memory>
#include <stdio.h>
#define WIN32_LEAN_AND_MEAN
#include <windows.h>
#include <delayimp.h>

#define INSTALL_PATH L"Software\\LibreOffice\\UNO\\InstallPath"
#define UNO_PATH L"UNO_PATH"

namespace {

/* Gets the installation path from the Windows Registry for the specified
   registry key.

   @param hroot       open handle to predefined root registry key
   @param subKeyName  name of the subkey to open

   @return the installation path or nullptr, if no installation was found or
           if an error occurred
*/
WCHAR* getPathFromRegistryKey( HKEY hroot, LPCWSTR subKeyName )
{
    // open the specified registry key
    HKEY hkey;
    if ( RegOpenKeyExW( hroot, subKeyName, 0, KEY_READ, &hkey ) != ERROR_SUCCESS )
        return nullptr;

    struct CloseKeyGuard {
        HKEY m_hkey;
        ~CloseKeyGuard() { RegCloseKey( m_hkey ); }
    } aCloseKeyGuard{hkey};<--- Variable 'aCloseKeyGuard' is assigned a value that is never used.

    // find the type and size of the default value
    DWORD type;
    DWORD size;
    if ( RegQueryValueExW( hkey, nullptr, nullptr, &type, nullptr, &size ) != ERROR_SUCCESS )
        return nullptr;

    // get memory to hold the default value
    std::unique_ptr<WCHAR[]> data(new WCHAR[size]);

    // read the default value
    if ( RegQueryValueExW( hkey, nullptr, nullptr, &type, reinterpret_cast<LPBYTE>(data.get()), &size ) != ERROR_SUCCESS )
        return nullptr;

    return data.release();
}

/* Returns the path to the program folder of the brand layer,
   for example C:/Program Files/LibreOffice/program
   This path is either obtained from the environment variable UNO_PATH
   or the registry item "Software\\LibreOffice\\UNO\\InstallPath"
   either in HKEY_CURRENT_USER or HKEY_LOCAL_MACHINE
   The return value must be freed with delete[]
*/
WCHAR* getInstallPath()
{
    std::unique_ptr<WCHAR[]> szInstallPath;

    DWORD cChars = GetEnvironmentVariableW(UNO_PATH, nullptr, 0);
    if (cChars > 0)
    {
        szInstallPath.reset(new WCHAR[cChars]);
        cChars = GetEnvironmentVariableW(UNO_PATH, szInstallPath.get(), cChars);
        // If PATH is not set then it is no error
        if (cChars == 0)
            return nullptr;
    }

    if (! szInstallPath)
    {
        szInstallPath.reset(getPathFromRegistryKey( HKEY_CURRENT_USER, INSTALL_PATH ));
        if (! szInstallPath)
        {
            // read the key's default value from HKEY_LOCAL_MACHINE
            szInstallPath.reset(getPathFromRegistryKey( HKEY_LOCAL_MACHINE, INSTALL_PATH ));
        }
    }
    return szInstallPath.release();
}

/* We extend the path to contain the install folder,
   so that components can use osl_loadModule with arguments, such as
   "reg3.dll". That is, the arguments are only the library names.
*/
void extendPath(LPCWSTR szPath)
{
    if (!szPath)
        return;

    std::unique_ptr<WCHAR[]> sEnvPath;
    DWORD cChars = GetEnvironmentVariableW(L"PATH", nullptr, 0);
    if (cChars > 0)
    {
        sEnvPath.reset(new WCHAR[cChars]);
        cChars = GetEnvironmentVariableW(L"PATH", sEnvPath.get(), cChars);
        // If PATH is not set then it is no error
        if (cChars == 0 && GetLastError() != ERROR_ENVVAR_NOT_FOUND)
            return;
    }
    // Prepare the new PATH. Add the directory at the front.
    // Note also adding ';'
    std::unique_ptr<WCHAR[]> sNewPath(new WCHAR[lstrlenW(sEnvPath.get()) + lstrlenW(szPath) + 2]);
    lstrcpyW(sNewPath.get(), szPath);
    if (lstrlenW(sEnvPath.get()))
    {
        lstrcatW(sNewPath.get(), L";");
        lstrcatW(sNewPath.get(), sEnvPath.get());
    }
    SetEnvironmentVariableW(L"PATH", sNewPath.get());
}

HMODULE loadFromPath(LPCSTR sLibName)
{
    if (!sLibName)
        return nullptr;

    // Convert the ansi file name to wchar_t*
    int size = MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, sLibName, -1, nullptr, 0);
    if (size == 0)
        return nullptr;
    std::unique_ptr<WCHAR[]> wsLibName(new WCHAR[size]);
    if (!MultiByteToWideChar(CP_ACP, MB_PRECOMPOSED, sLibName, -1, wsLibName.get(), size))
        return nullptr;

    std::unique_ptr<WCHAR[]> szPath(getInstallPath());
    if (!szPath)
        return nullptr;

    extendPath(szPath.get());

    std::unique_ptr<WCHAR[]> szFullPath(new WCHAR[lstrlenW(wsLibName.get()) + lstrlenW(szPath.get()) + 2]);
    lstrcpyW(szFullPath.get(), szPath.get());
    lstrcatW(szFullPath.get(), L"\\");
    lstrcatW(szFullPath.get(), wsLibName.get());
    HMODULE handle = LoadLibraryW(szFullPath.get());
    return handle;
}

/* Hook for delayed loading of libraries which this library is linked with.
   This is a failure hook. That is, it is only called when the loading of
   a library failed. It will be called when loading of cppuhelper failed.
   Because we extend the PATH to the install folder while this function is
   executed (see extendPath), all other libraries are found.
*/
extern "C" FARPROC WINAPI delayLoadHook(
    unsigned int   dliNotify,
    PDelayLoadInfo pdli
    )
{
    if (dliNotify == dliFailLoadLib)
    {
        HANDLE h = loadFromPath(pdli->szDll);
        return reinterpret_cast<FARPROC>(h);
    }
    return nullptr;
}
}

ExternC
const PfnDliHook __pfnDliFailureHook2 = delayLoadHook;

using namespace ::com::sun::star;
using namespace ::com::sun::star::uno;

namespace uno
{
namespace util
{

/** Bootstrapping native UNO.

    Bootstrapping requires the existence of many libraries which are contained
    in an URE installation. To find and load these libraries the Windows
    registry keys HKEY_CURRENT_USER\Software\LibreOffice\Layer\URE\1
    and HKEY_LOCAL_MACHINE\Software\LibreOffice\Layer\URE\1 are examined.
    These contain a named value UREINSTALLLOCATION which holds a path to the URE
    installation folder.
*/
public ref class Bootstrap sealed<--- The code 'class Bootstrap sealed {' is not handled. You can use -I or --include to add handling of this code.
{
    inline Bootstrap() {}

public:

    /** Bootstraps the initial component context from a native UNO installation.

        @see cppuhelper/bootstrap.hxx:defaultBootstrap_InitialComponentContext()
    */
    static ::unoidl::com::sun::star::uno::XComponentContext ^
        defaultBootstrap_InitialComponentContext();

    /** Bootstraps the initial component context from a native UNO installation.

        @param ini_file
               a file URL of an ini file, e.g. uno.ini/unorc. (The ini file must
               reside next to the cppuhelper library)
        @param bootstrap_parameters
               bootstrap parameters (maybe null)

        @see cppuhelper/bootstrap.hxx:defaultBootstrap_InitialComponentContext()
    */
    static ::unoidl::com::sun::star::uno::XComponentContext ^
        defaultBootstrap_InitialComponentContext(
            ::System::String ^ ini_file,
            ::System::Collections::IDictionaryEnumerator ^
              bootstrap_parameters );

    /** Bootstraps the initial component context from a native UNO installation.

    @see cppuhelper/bootstrap.hxx:bootstrap()
     */
    static ::unoidl::com::sun::star::uno::XComponentContext ^
    bootstrap();
};


::unoidl::com::sun::star::uno::XComponentContext ^
Bootstrap::defaultBootstrap_InitialComponentContext(
    ::System::String ^ ini_file,
    ::System::Collections::IDictionaryEnumerator ^ bootstrap_parameters )
{
    if (nullptr != bootstrap_parameters)
    {
        bootstrap_parameters->Reset();
        while (bootstrap_parameters->MoveNext())
        {
            OUString key(
                String_to_ustring( safe_cast< ::System::String ^ >(
                                       bootstrap_parameters->Key ) ) );
            OUString value(
                String_to_ustring( safe_cast< ::System::String ^ >(
                                       bootstrap_parameters->Value ) ) );

            ::rtl::Bootstrap::set( key, value );
        }
    }

    // bootstrap native uno
    Reference< XComponentContext > xContext;
    if (nullptr == ini_file)
    {
        xContext = ::cppu::defaultBootstrap_InitialComponentContext();
    }
    else
    {
        xContext = ::cppu::defaultBootstrap_InitialComponentContext(
            String_to_ustring( safe_cast< ::System::String ^ >( ini_file ) ) );
    }

    return safe_cast< ::unoidl::com::sun::star::uno::XComponentContext ^ >(
        to_cli( xContext ) );
}


::unoidl::com::sun::star::uno::XComponentContext ^
Bootstrap::defaultBootstrap_InitialComponentContext()
{
    return defaultBootstrap_InitialComponentContext( nullptr, nullptr );
}

::unoidl::com::sun::star::uno::XComponentContext ^ Bootstrap::bootstrap()
{
    Reference<XComponentContext> xContext = ::cppu::bootstrap();
    return safe_cast< ::unoidl::com::sun::star::uno::XComponentContext ^ >(
        to_cli( xContext ) );

}

}
}

/* vim:set shiftwidth=4 softtabstop=4 expandtab: */