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
|
/* -*- 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 <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <sal/main.h>
#include <osl/diagnose.h>
#include <osl/process.h>
#include <example/XTest.hpp>
#include <com/sun/star/lang/XServiceInfo.hpp>
#include <com/sun/star/lang/XSingleServiceFactory.hpp>
#include <com/sun/star/registry/XImplementationRegistration.hpp>
#include <com/sun/star/lang/XComponent.hpp>
#include <cppuhelper/factory.hxx>
#include <cppuhelper/servicefactory.hxx>
using namespace com::sun::star::uno;
using namespace com::sun::star::registry;
using namespace com::sun::star::lang;
using namespace example;
using namespace cppu;
using ::rtl::OUString;
using ::rtl::OUStringToOString;
OUString getExePath()
{
OUString exe;
OSL_VERIFY(osl_getExecutableFile( &exe.pData) == osl_Process_E_None);
#if defined(WIN32) || defined(WNT)
exe = exe.copy(0, exe.getLength() - 10);
#else
exe = exe.copy(0, exe.getLength() - 6);
#endif
return exe;
}
SAL_IMPLEMENT_MAIN()
{
#ifdef UNX
OUString compName1("libexcomp1.so");
OUString compName2("libexcomp2.so");
#else
OUString compName1("excomp1");
OUString compName2("excomp2");
#endif
OUString exePath( getExePath() );
OUString excompRdb(exePath);
excompRdb += OUString("excomp.rdb");
Reference< XMultiServiceFactory > xSMgr = ::cppu::createRegistryServiceFactory( excompRdb );
OSL_ENSURE( xSMgr.is(), "excomp error 0" );
typelib_TypeDescription* pTypeDesc = NULL;
OUString sType("com.sun.star.text.XTextDocument");
typelib_typedescription_getByName( &pTypeDesc, sType.pData);
// typelib_InterfaceTypeDescription* pInterDesc = (typelib_InterfaceTypeDescription*)pTypeDesc;
Reference< XInterface > xIFace = xSMgr->createInstance(OUString("com.sun.star.registry.ImplementationRegistration"));
Reference< XImplementationRegistration > xImpReg( xIFace, UNO_QUERY);
OSL_ENSURE( xImpReg.is(), "excomp error 1" );
try
{
xImpReg->registerImplementation(OUString("com.sun.star.loader.SharedLibrary"),
compName1,
Reference< XSimpleRegistry >() );
xImpReg->registerImplementation(OUString("com.sun.star.loader.SharedLibrary"),
compName2,
Reference< XSimpleRegistry >() );
}
catch(const CannotRegisterImplementationException& e)
{
OSL_ENSURE( e.Message.getLength(), OUStringToOString(e.Message, RTL_TEXTENCODING_ASCII_US).getStr() );
}
Reference< XTest > xTest1( xSMgr->createInstance(OUString("example.ExampleComponent1")),
UNO_QUERY);
OSL_ENSURE( xTest1.is(), "excomp error 2" );
Reference< XTest > xTest2( xSMgr->createInstance(OUString("example.ExampleComponent2")),
UNO_QUERY);
OSL_ENSURE( xTest2.is(), "excomp error 3" );
OUString m1 = xTest1->getMessage();
OUString m2 = xTest2->getMessage();
fprintf(stdout, "ExampleComponent1, Message = \"%s\"\n", OUStringToOString(m1, RTL_TEXTENCODING_ASCII_US).getStr());
fprintf(stdout, "ExampleComponent2, Message = \"%s\"\n", OUStringToOString(m2, RTL_TEXTENCODING_ASCII_US).getStr());
xImpReg->revokeImplementation(compName1, Reference< XSimpleRegistry >() );
xImpReg->revokeImplementation(compName2, Reference< XSimpleRegistry >() );
Reference< XComponent >( xSMgr, UNO_QUERY )->dispose();
return(0);
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|
