summaryrefslogtreecommitdiff
path: root/extensions/test
diff options
context:
space:
mode:
Diffstat (limited to 'extensions/test')
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.cpp101
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.def9
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.dsp325
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.idl257
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.rc164
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.sln31
-rw-r--r--extensions/test/ole/AxTestComponents/AxTestComponents.vcproj819
-rw-r--r--extensions/test/ole/AxTestComponents/Basic.cpp1366
-rw-r--r--extensions/test/ole/AxTestComponents/Basic.h270
-rw-r--r--extensions/test/ole/AxTestComponents/Basic.rgs50
-rw-r--r--extensions/test/ole/AxTestComponents/Foo.cpp49
-rw-r--r--extensions/test/ole/AxTestComponents/Foo.h66
-rw-r--r--extensions/test/ole/AxTestComponents/StdAfx.cpp35
-rw-r--r--extensions/test/ole/AxTestComponents/StdAfx.h59
-rw-r--r--extensions/test/ole/AxTestComponents/readme.txt4
-rw-r--r--extensions/test/ole/AxTestComponents/resource.h47
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas8
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp33
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw1
-rw-r--r--extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt4
-rw-r--r--extensions/test/ole/DCOM/dcom_test/Module1.bas38
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbp37
-rw-r--r--extensions/test/ole/DCOM/dcom_test/dcom_test.vbw1
-rw-r--r--extensions/test/ole/DCOM/dcom_test/readme.txt5
-rw-r--r--extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc186
-rw-r--r--extensions/test/ole/DCOM/scriptComponents/readme.txt13
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp74
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.def9
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.idl39
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.rc136
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.sln32
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EventListener.vcproj927
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp21
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.h38
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs26
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp15
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/StdAfx.h30
-rw-r--r--extensions/test/ole/EventListenerSample/EventListener/resource.h20
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas9
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls78
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.dllbin24576 -> 0 bytes
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbp38
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw2
-rw-r--r--extensions/test/ole/EventListenerSample/VBEventListener/readme.txt7
-rw-r--r--extensions/test/ole/EventListenerSample/events.htm98
-rw-r--r--extensions/test/ole/EventListenerSample/readme.txt20
-rw-r--r--extensions/test/ole/JScriptNewStyle.htm1054
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.cpp82
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.def9
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.dsp265
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.h36
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.odl82
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.rc145
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.sln25
-rw-r--r--extensions/test/ole/MfcControl/MfcControl.vcproj581
-rw-r--r--extensions/test/ole/MfcControl/MfcControlCtl.cpp347
-rw-r--r--extensions/test/ole/MfcControl/MfcControlCtl.h99
-rw-r--r--extensions/test/ole/MfcControl/MfcControlCtl.pngbin204 -> 0 bytes
-rw-r--r--extensions/test/ole/MfcControl/MfcControlPpg.cpp79
-rw-r--r--extensions/test/ole/MfcControl/MfcControlPpg.h49
-rw-r--r--extensions/test/ole/MfcControl/Resource.h23
-rw-r--r--extensions/test/ole/MfcControl/StdAfx.cpp8
-rw-r--r--extensions/test/ole/MfcControl/StdAfx.h33
-rw-r--r--extensions/test/ole/OleClient/OleClient.ini5
-rw-r--r--extensions/test/ole/OleClient/axhost.cxx58
-rw-r--r--extensions/test/ole/OleClient/axhost.hxx62
-rw-r--r--extensions/test/ole/OleClient/clientTest.cxx1319
-rw-r--r--extensions/test/ole/OleClient/funcs.cxx358
-rw-r--r--extensions/test/ole/OleClient/makefile.mk72
-rw-r--r--extensions/test/ole/OleClient/readme.txt10
-rw-r--r--extensions/test/ole/OleConverterVar1/convTest.cxx660
-rw-r--r--extensions/test/ole/OleConverterVar1/makefile.mk66
-rw-r--r--extensions/test/ole/OleConverterVar1/readme.txt10
-rw-r--r--extensions/test/ole/OleConverterVar1/smartarray.h236
-rw-r--r--extensions/test/ole/OleTest.htm1063
-rw-r--r--extensions/test/ole/ScriptTest.html1555
-rw-r--r--extensions/test/ole/StarBasic_OleClient/oleclient.bas609
-rw-r--r--extensions/test/ole/StarBasic_OleClient/readme.txt10
-rw-r--r--extensions/test/ole/VisualBasic/AssemblyInfo.vb33
-rw-r--r--extensions/test/ole/VisualBasic/Module1.vb853
-rw-r--r--extensions/test/ole/VisualBasic/Project1.sln20
-rw-r--r--extensions/test/ole/VisualBasic/Project1.vbproj90
-rw-r--r--extensions/test/ole/VisualBasic/readme.txt18
-rw-r--r--extensions/test/ole/callUnoToJava.htm538
-rw-r--r--extensions/test/ole/cpnt/cpnt.cxx1973
-rw-r--r--extensions/test/ole/cpnt/exports.dxp2
-rw-r--r--extensions/test/ole/cpnt/makefile.mk84
-rw-r--r--extensions/test/ole/cpnt/readme.txt21
-rw-r--r--extensions/test/ole/cppToUno/makefile.mk65
-rw-r--r--extensions/test/ole/cppToUno/readme.txt9
-rw-r--r--extensions/test/ole/cppToUno/testcppuno.cxx222
-rw-r--r--extensions/test/ole/cpptest/cpptest.cxx116
-rw-r--r--extensions/test/ole/cpptest/makefile.mk64
-rw-r--r--extensions/test/ole/cpptest/readme.txt6
-rw-r--r--extensions/test/ole/idl/oletest.idl308
-rw-r--r--extensions/test/ole/unloading/makefile.mk70
-rw-r--r--extensions/test/ole/unloading/readme.txt6
-rw-r--r--extensions/test/ole/unloading/unloadTest.cxx216
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/StdAfx.cpp37
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/StdAfx.h58
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/Test.cpp249
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/Test.dsp114
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/Test.sln19
-rw-r--r--extensions/test/ole/unoTocomCalls/Test/Test.vcproj247
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Basic.rgs27
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/BasicTest.rgs27
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.cpp514
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.h138
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.rgs27
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.cpp82
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.h67
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.rgs27
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.cpp41
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.h59
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.cpp103
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.def10
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.dsp337
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.idl151
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.rc163
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.sln31
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.vcproj816
-rw-r--r--extensions/test/ole/unoTocomCalls/XCallback_Impl/resource.h48
-rw-r--r--extensions/test/ole/unoTocomCalls/readme.txt9
-rw-r--r--extensions/test/pgp/TestPGP.java146
-rw-r--r--extensions/test/pgp/makefile.mk71
-rw-r--r--extensions/test/pgp/readme.txt33
-rw-r--r--extensions/test/stm/datatest.cxx1071
-rw-r--r--extensions/test/stm/exports.dxp2
-rw-r--r--extensions/test/stm/makefile.mk61
-rw-r--r--extensions/test/stm/marktest.cxx658
-rw-r--r--extensions/test/stm/pipetest.cxx448
-rw-r--r--extensions/test/stm/testfactreg.cxx171
-rw-r--r--extensions/test/stm/testfactreg.hxx113
133 files changed, 0 insertions, 25496 deletions
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.cpp b/extensions/test/ole/AxTestComponents/AxTestComponents.cpp
deleted file mode 100644
index c8b8c7568..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.cpp
+++ /dev/null
@@ -1,101 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-
-// Note: Proxy/Stub Information
-// To build a separate proxy/stub DLL,
-// run nmake -f AxTestComponentsps.mk in the project directory.
-
-#include "stdafx.h"
-#include "resource.h"
-#include <initguid.h>
-
-#include "Basic.h"
-#include "Foo.h"
-
-
-CComModule _Module;
-
-BEGIN_OBJECT_MAP(ObjectMap)
-OBJECT_ENTRY(CLSID_Basic, CBasic)
-OBJECT_ENTRY(CLSID_Foo, CFoo)
-END_OBJECT_MAP()
-
-/////////////////////////////////////////////////////////////////////////////
-// DLL Entry Point
-
-extern "C"
-BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
-{
- if (dwReason == DLL_PROCESS_ATTACH)
- {
- _Module.Init(ObjectMap, hInstance, &LIBID_AXTESTCOMPONENTSLib);
- DisableThreadLibraryCalls(hInstance);
- }
- else if (dwReason == DLL_PROCESS_DETACH)
- _Module.Term();
- return TRUE; // ok
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Used to determine whether the DLL can be unloaded by OLE
-
-STDAPI DllCanUnloadNow(void)
-{
- return (_Module.GetLockCount()==0) ? S_OK : S_FALSE;
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Returns a class factory to create an object of the requested type
-
-STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
-{
- return _Module.GetClassObject(rclsid, riid, ppv);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllRegisterServer - Adds entries to the system registry
-
-STDAPI DllRegisterServer(void)
-{
- // registers object, typelib and all interfaces in typelib
- return _Module.RegisterServer(TRUE);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllUnregisterServer - Removes entries from the system registry
-
-STDAPI DllUnregisterServer(void)
-{
- return _Module.UnregisterServer(TRUE);
-}
-
-
-//VT_I4 size_t V_ERROR VARIANT VARIANT_FALSE CComVariant FADF_EMBEDDED
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.def b/extensions/test/ole/AxTestComponents/AxTestComponents.def
deleted file mode 100644
index 5d8c019ad..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.def
+++ /dev/null
@@ -1,9 +0,0 @@
-; AxTestComponents.def : Declares the module parameters.
-
-LIBRARY "AxTestComponents.DLL"
-
-EXPORTS
- DllCanUnloadNow PRIVATE
- DllGetClassObject PRIVATE
- DllRegisterServer PRIVATE
- DllUnregisterServer PRIVATE
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.dsp b/extensions/test/ole/AxTestComponents/AxTestComponents.dsp
deleted file mode 100644
index 43fbbe53d..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.dsp
+++ /dev/null
@@ -1,325 +0,0 @@
-# Microsoft Developer Studio Project File - Name="AxTestComponents" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
-
-CFG=AxTestComponents - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "AxTestComponents.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "AxTestComponents.mak" CFG="AxTestComponents - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "AxTestComponents - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "AxTestComponents - Win32 Unicode Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "AxTestComponents - Win32 Release MinSize" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "AxTestComponents - Win32 Release MinDependency" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "AxTestComponents - Win32 Unicode Release MinSize" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "AxTestComponents - Win32 Unicode Release MinDependency" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-MTL=midl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "AxTestComponents - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /FR /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\Debug
-TargetPath=.\Debug\AxTestComponents.dll
-InputPath=.\Debug\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "AxTestComponents - Win32 Unicode Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "DebugU"
-# PROP BASE Intermediate_Dir "DebugU"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "DebugU"
-# PROP Intermediate_Dir "DebugU"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\DebugU
-TargetPath=.\DebugU\AxTestComponents.dll
-InputPath=.\DebugU\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "AxTestComponents - Win32 Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinSize"
-# PROP BASE Intermediate_Dir "ReleaseMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinSize"
-# PROP Intermediate_Dir "ReleaseMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinSize
-TargetPath=.\ReleaseMinSize\AxTestComponents.dll
-InputPath=.\ReleaseMinSize\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "AxTestComponents - Win32 Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinDependency"
-# PROP Intermediate_Dir "ReleaseMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinDependency
-TargetPath=.\ReleaseMinDependency\AxTestComponents.dll
-InputPath=.\ReleaseMinDependency\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "AxTestComponents - Win32 Unicode Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinSize"
-# PROP BASE Intermediate_Dir "ReleaseUMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinSize"
-# PROP Intermediate_Dir "ReleaseUMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinSize
-TargetPath=.\ReleaseUMinSize\AxTestComponents.dll
-InputPath=.\ReleaseUMinSize\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "AxTestComponents - Win32 Unicode Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseUMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinDependency"
-# PROP Intermediate_Dir "ReleaseUMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinDependency
-TargetPath=.\ReleaseUMinDependency\AxTestComponents.dll
-InputPath=.\ReleaseUMinDependency\AxTestComponents.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ENDIF
-
-# Begin Target
-
-# Name "AxTestComponents - Win32 Debug"
-# Name "AxTestComponents - Win32 Unicode Debug"
-# Name "AxTestComponents - Win32 Release MinSize"
-# Name "AxTestComponents - Win32 Release MinDependency"
-# Name "AxTestComponents - Win32 Unicode Release MinSize"
-# Name "AxTestComponents - Win32 Unicode Release MinDependency"
-# Begin Group "Source Files"
-
-# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
-# Begin Source File
-
-SOURCE=.\AxTestComponents.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\AxTestComponents.def
-# End Source File
-# Begin Source File
-
-SOURCE=.\AxTestComponents.idl
-# ADD MTL /tlb ".\AxTestComponents.tlb" /h "AxTestComponents.h" /iid "AxTestComponents_i.c" /Oicf
-# End Source File
-# Begin Source File
-
-SOURCE=.\AxTestComponents.rc
-# End Source File
-# Begin Source File
-
-SOURCE=.\Basic.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.cpp
-# ADD CPP /Yc"stdafx.h"
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter "h;hpp;hxx;hm;inl"
-# Begin Source File
-
-SOURCE=.\Basic.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\Resource.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.h
-# End Source File
-# End Group
-# Begin Group "Resource Files"
-
-# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
-# Begin Source File
-
-SOURCE=.\Basic.rgs
-# End Source File
-# End Group
-# End Target
-# End Project
-
-
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.idl b/extensions/test/ole/AxTestComponents/AxTestComponents.idl
deleted file mode 100644
index ad8cca5d2..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.idl
+++ /dev/null
@@ -1,257 +0,0 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// AxTestComponents.idl : IDL source for AxTestComponents.dll
-//
-
-// This file will be processed by the MIDL tool to
-// produce the type library (AxTestComponents.tlb) and marshalling code.
-// next id 86
-import "oaidl.idl";
-import "ocidl.idl";
- [
- object,
- uuid(BFE10EBD-8584-11D4-8335-005004526AB4),
- dual,
- helpstring("IBasic Interface"),
- pointer_default(unique)
- ]
- interface IBasic : IDispatch
- {
- [id(82), helpstring("method inBool")] HRESULT inBool([in]VARIANT_BOOL val);
- [id(1), helpstring("method inByte")] HRESULT inByte([in] unsigned char val);
- [id(2), helpstring("method inShort")] HRESULT inShort([in] short val);
- [id(3), helpstring("method inLong")] HRESULT inLong([in] long val);
- [id(4), helpstring("method inString")] HRESULT inString([in] BSTR val);
- [id(5), helpstring("method inFloat")] HRESULT inFloat([in] float val);
- [id(6), helpstring("method inDouble")] HRESULT inDouble([in] double val);
- [id(7), helpstring("method inVariant")] HRESULT inVariant([in] VARIANT val);
- [id(8), helpstring("method inArray")] HRESULT inArray([in] SAFEARRAY(VARIANT) val);
- [id(9), helpstring("method inObject")] HRESULT inObject([in] IDispatch* val);
- [id(83), helpstring("method inoutBool")] HRESULT inoutBool([in,out]VARIANT_BOOL* val);
- [id(12), helpstring("method inoutByte")] HRESULT inoutByte([in,out] unsigned char* val);
- [id(13), helpstring("method inoutShort")] HRESULT inoutShort([in,out] short* val);
- [id(14), helpstring("method inoutLong")] HRESULT inoutLong([in,out] long * val);
- [id(15), helpstring("method inoutString")] HRESULT inoutString([in, out] BSTR* val);
- [id(16), helpstring("method inoutFloat")] HRESULT inoutFloat([in,out] float * val);
- [id(17), helpstring("method inoutDouble")] HRESULT inoutDouble([in,out] double * val);
- [id(18), helpstring("method inoutVariant")] HRESULT inoutVariant([in,out] VARIANT * val);
- [id(19), helpstring("method inoutArray")] HRESULT inoutArray([in,out] SAFEARRAY(VARIANT) * val);
- [id(20), helpstring("method inoutObject")] HRESULT inoutObject([in,out] IDispatch** val);
- [id(84), helpstring("method outBool")] HRESULT outBool([out] VARIANT_BOOL* val);
- [id(23), helpstring("method outByte")] HRESULT outByte([out] unsigned char* val);
- [id(24), helpstring("method outShort")] HRESULT outShort([out] short* val);
- [id(25), helpstring("method outLong")] HRESULT outLong([out] long* val);
- [id(26), helpstring("method outString")] HRESULT outString([out] BSTR* val);
- [id(27), helpstring("method outFloat")] HRESULT outFloat([out] float* val);
- [id(28), helpstring("method outDouble")] HRESULT outDouble([out] double* val);
- [id(29), helpstring("method outVariant")] HRESULT outVariant([out] VARIANT* val);
- [id(30), helpstring("method outArray")] HRESULT outArray([out] SAFEARRAY(VARIANT) * val);
- [id(31), helpstring("method outObject")] HRESULT outObject([out] IDispatch** val);
- [propget, id(85), helpstring("property prpBool")] HRESULT prpBool([out, retval] VARIANT_BOOL *pVal);
- [propput, id(85), helpstring("property prpBool")] HRESULT prpBool([in] VARIANT_BOOL newVal);
- [propget, id(34), helpstring("property prpByte")] HRESULT prpByte([out, retval] unsigned char *pVal);
- [propput, id(34), helpstring("property prpByte")] HRESULT prpByte([in] unsigned char newVal);
- [propget, id(35), helpstring("property prpShort")] HRESULT prpShort([out, retval] short *pVal);
- [propput, id(35), helpstring("property prpShort")] HRESULT prpShort([in] short newVal);
- [propget, id(36), helpstring("property prpLong")] HRESULT prpLong([out, retval] long *pVal);
- [propput, id(36), helpstring("property prpLong")] HRESULT prpLong([in] long newVal);
- [propget, id(37), helpstring("property prpString")] HRESULT prpString([out, retval] BSTR *pVal);
- [propput, id(37), helpstring("property prpString")] HRESULT prpString([in] BSTR newVal);
- [propget, id(38), helpstring("property prpFloat")] HRESULT prpFloat([out, retval] float *pVal);
- [propput, id(38), helpstring("property prpFloat")] HRESULT prpFloat([in] float newVal);
- [propget, id(39), helpstring("property prpDouble")] HRESULT prpDouble([out, retval] double *pVal);
- [propput, id(39), helpstring("property prpDouble")] HRESULT prpDouble([in] double newVal);
- [propget, id(40), helpstring("property prpVariant")] HRESULT prpVariant([out, retval] VARIANT *pVal);
- [propput, id(40), helpstring("property prpVariant")] HRESULT prpVariant([in] VARIANT newVal);
- [propget, id(41), helpstring("property prpArray")] HRESULT prpArray([out, retval]SAFEARRAY(VARIANT) *pVal);
- [propput, id(41), helpstring("property prpArray")] HRESULT prpArray([in] SAFEARRAY(VARIANT) newVal);
- [propget, id(42), helpstring("property prpObject")] HRESULT prpObject([out, retval] IDispatch* *pVal);
- [propput, id(42), helpstring("property prpObject")] HRESULT prpObject([in] IDispatch* newVal);
- [id(43), helpstring("method mixed1")] HRESULT mixed1(
- [in, out] unsigned char* aChar,
- [in, out] float *aFloat,
- [in,out] VARIANT* inoutVar);
- [id(44), helpstring("method inSequenceLong")] HRESULT inSequenceLong([in] SAFEARRAY(long) ar);
- [id(45), helpstring("method inSequenceByte")] HRESULT inSequenceByte([in] SAFEARRAY(byte) ar);
- [id(46), helpstring("method inSequenceShort")] HRESULT inSequenceShort([in] SAFEARRAY(short) ar);
- [id(47), helpstring("method inSequenceString")] HRESULT inSequenceString([in] SAFEARRAY( BSTR) ar);
- [id(48), helpstring("method inSequenceFloat")] HRESULT inSequenceFloat([in] SAFEARRAY(float) ar);
- [id(49), helpstring("method inSequenceDouble")] HRESULT inSequenceDouble([in] SAFEARRAY(double) ar);
- [id(50), helpstring("method inSequenceObject")] HRESULT inSequenceObject([in] SAFEARRAY(IDispatch*) ar);
- [id(51), helpstring("method outSequenceByte")] HRESULT outSequenceByte([out] SAFEARRAY(unsigned char)* val);
- [id(52), helpstring("method outSequenceShort")] HRESULT outSequenceShort([out] SAFEARRAY(short)* val);
- [id(53), helpstring("method outSequenceLong")] HRESULT outSequenceLong([out] SAFEARRAY(long )*val);
- [id(54), helpstring("method outSequenceString")] HRESULT outSequenceString([out] SAFEARRAY(BSTR)* val);
- [id(55), helpstring("method outSequenceFloat")] HRESULT outSequenceFloat([out] SAFEARRAY(float)* val);
- [id(56), helpstring("method outSequenceDouble")] HRESULT outSequenceDouble([out] SAFEARRAY(double)* val);
- [id(57), helpstring("method outSequenceObject")] HRESULT outSequenceObject([out] SAFEARRAY(IDispatch*)* val);
- [id(58), helpstring("method inoutSequenceByte")] HRESULT inoutSequenceByte([in,out] SAFEARRAY(unsigned char)* val);
- [id(59), helpstring("method inoutSequenceShort")] HRESULT inoutSequenceShort([in,out] SAFEARRAY(short)* val);
- [id(60), helpstring("method inoutSequenceLong")] HRESULT inoutSequenceLong([in,out] SAFEARRAY( long)*val);
- [id(61), helpstring("method inoutSequenceString")] HRESULT inoutSequenceString([in,out] SAFEARRAY(BSTR)* val);
- [id(62), helpstring("method inoutSequenceFloat")] HRESULT inoutSequenceFloat([in,out] SAFEARRAY(float)* val);
- [id(63), helpstring("method inoutSequenceDouble")] HRESULT inoutSequenceDouble([in,out] SAFEARRAY(double)* val);
- [id(64), helpstring("method inoutSequenceObject")] HRESULT inoutSequenceObject([in,out] SAFEARRAY(IDispatch*)* val);
- [id(65), helpstring("method inMulDimArrayLong")] HRESULT inMulDimArrayLong([in] SAFEARRAY(long) val );
- [id(66), helpstring("method inMulDimArrayVariant")] HRESULT inMulDimArrayVariant([in] SAFEARRAY(VARIANT) val);
- [id(67), helpstring("method inMulDimArrayLong2")] HRESULT inMulDimArrayLong2([in] SAFEARRAY(long) val);
- [id(68), helpstring("method inMulDimArrayVariant2")] HRESULT inMulDimArrayVariant2([in] SAFEARRAY(VARIANT) val);
- [id(69), helpstring("method inMulDimArrayByte")] HRESULT inMulDimArrayByte([in] SAFEARRAY(unsigned char) val);
- [id(70), helpstring("method inMulDimArrayByte2")] HRESULT inMulDimArrayByte2([in] SAFEARRAY(unsigned char) val);
- [id(71), helpstring("method outMore")] HRESULT outMore([out]long* val1, [out]long* val2);
-
- [id(72), helpstring("method optional1")]
- HRESULT optional1([in] long val1, [in, optional] VARIANT* val2);
- [id(73), helpstring("method optional2")]
- HRESULT optional2([out] long* val1, [out, optional] VARIANT* val2);
- [id(74), helpstring("method optional3")]
- HRESULT optional3([in, optional] VARIANT* val1, [in, optional] VARIANT* val2);
- [id(75), helpstring("method optional4")]
- HRESULT optional4([in, out, optional] VARIANT* val1, [in, out, optional] VARIANT* val2);
- [id(76), helpstring("method optional5")]
- HRESULT optional5([out, optional] VARIANT* val1, [out, optional] VARIANT* val2);
- //midl creates for val4 a BSTR "4" as default value in the TLB. The midl complains
- //but the error message seems to be not for this case.
- //in defaultvalue2 val4 has an VT_I4 in the TLB. This must be a bug!
- [id(77), helpstring("method defaultvalue1")]
- HRESULT defaultvalue1([in, defaultvalue(1)] long val1,
- [in, defaultvalue(2)] double* val2,
- // [in, defaultvalue(3)] VARIANT val3, //ok
- [in, defaultvalue(4)] VARIANT* val4);
-
- // bug im midl: when val3 and val4 are pointers then the generated header cretates
- // for all params default values:
- //HRESULT STDMETHODCALLTYPE defaultvalue2(
- // /* [defaultvalue][in] */ long *val1 = 10,
- // /* [defaultvalue][in] */ double *val2 = 3.14,
- // /* [defaultvalue][in] */ VARIANT *val3 = 10,
- // /* [defaultvalue][in] */ VARIANT *val4 = 100) = 0;
- // And that does not compile.
- //Therefore we must not include the midl generated header, instead use
- // #import to create the interface header
- [id(78), helpstring("method defaultvalue2")]
- HRESULT defaultvalue2([in, out, defaultvalue(1)]long* val1,
- [in, out, defaultvalue(2)] double* val2,
- // [in, out, defaultvalue(3)] VARIANT *val3,
- [in, out, defaultvalue(4)] VARIANT *val4);
-
- [id(79), helpstring("method varargfunc1"),vararg]
- HRESULT varargfunc1([in] long val1, [in] SAFEARRAY(VARIANT) val2);
- [id(80), helpstring("method varargfunc2")]
- HRESULT varargfunc2([out] long* val1, [out] SAFEARRAY(VARIANT)* val2);
-
-
- [id(86), helpstring("method inSequenceByteDim2")] HRESULT inSequenceByteDim2([in] SAFEARRAY(byte) val);
- [id(87), helpstring("method inCurrency")] HRESULT inCurrency([in] CY val);
- [id(88), helpstring("method outCurrency")] HRESULT outCurrency([out] CY* val);
- [id(89), helpstring("method inoutCurrency")] HRESULT inoutCurrency([in,out] CY* val);
- [id(90), helpstring("method inDate")] HRESULT inDate([in] DATE val);
- [id(91), helpstring("method outDate")] HRESULT outDate([out] DATE* val);
- [id(92), helpstring("method inoutDate")] HRESULT inoutDate([in,out] DATE* val);
- [propget, id(93), helpstring("property prpCY")] HRESULT prpCurrency([out, retval] CY* pVal);
- [propput, id(93), helpstring("property prpCY")] HRESULT prpCurrency([in] CY newVal);
- [propget, id(94), helpstring("property prpDate")] HRESULT prpDate([out, retval] DATE* pVal);
- [propput, id(94), helpstring("property prpDate")] HRESULT prpDate([in] DATE newVal);
- [id(95), helpstring("method inDecimal")] HRESULT inDecimal([in] DECIMAL val);
- [id(96), helpstring("method outDecimal")] HRESULT outDecimal([out] DECIMAL* val);
- [id(97), helpstring("method inoutDecimal")] HRESULT inoutDecimal([in,out] DECIMAL* val);
- [propget, id(98), helpstring("property prpDecimal")] HRESULT prpDecimal([out, retval] DECIMAL* pVal);
- [propput, id(98), helpstring("property prpDecimal")] HRESULT prpDecimal([in] DECIMAL newVal);
- [id(99), helpstring("method inSCode")] HRESULT inSCode([in] SCODE val);
- [id(100), helpstring("method outScode")] HRESULT outScode([out] SCODE* val);
- [id(101), helpstring("method inoutSCode")] HRESULT inoutSCode([in,out] SCODE* val);
- [propget, id(102), helpstring("property prpSCode")] HRESULT prpSCode([out, retval] SCODE* pVal);
- [propput, id(102), helpstring("property prpSCode")] HRESULT prpSCode([in] SCODE newVal);
- [id(103), helpstring("method inrefLong")] HRESULT inrefLong([in] LONG* val);
- [id(104), helpstring("method inrefVARIANT")] HRESULT inrefVariant([in] VARIANT* val);
- [id(105), helpstring("method inrefDecimal")] HRESULT inrefDecimal(DECIMAL* val);
- [propget, id(106), helpstring("property prpRefLong")] HRESULT prpRefLong([out, retval] long* pVal);
- [propputref, id(106), helpstring("property prpRefLong")] HRESULT prpRefLong([in] long* newVal);
- [propget, id(107), helpstring("property prprefVariant")] HRESULT prprefVariant([out, retval] VARIANT* pVal);
- [propputref, id(107), helpstring("property prprefVariant")] HRESULT prprefVariant([in] VARIANT* newVal);
- [propget, id(108), helpstring("property prprefDecimal")] HRESULT prprefDecimal([out, retval] DECIMAL* pVal);
- [propputref, id(108), helpstring("property prprefDecimal")] HRESULT prprefDecimal([in] DECIMAL* newVal);
- [id(109), helpstring("method optional6")] HRESULT optional6([in,optional] VARIANT* val1,
- [in,optional] VARIANT * val2, [in,optional] VARIANT* val3, [in,optional] VARIANT* val4);
- [id(110), helpstring("method optional7")] HRESULT optional7([out,optional] VARIANT* val1,
- [out,optional] VARIANT * val2, [out,optional] VARIANT* val3, [out,optional] VARIANT* val4);
-
- [propget, id(111), helpstring("property prpMultiArg1")] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [out, optional, retval] VARIANT* pVal);
- [propput, id(111), helpstring("property prpMultiArg1")] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [in] VARIANT* newVal);
- [propget, id(112), helpstring("property prpMultiArg2")] HRESULT prpMultiArg2([in] VARIANT val1, [out, retval] VARIANT* pVal);
- [propput, id(112), helpstring("property prpMultiArg2")] HRESULT prpMultiArg2([in] VARIANT val1, [in] VARIANT newVal);
- [id(113), helpstring("method prpMultiArg2GetValues")] HRESULT prpMultiArg2GetValues([out] VARIANT* val1, [out] VARIANT* valProperty);
- [propget, id(114), helpstring("property prpMultiArg3")] HRESULT prpMultiArg3([in,out] LONG* val1, [out, retval] LONG* pVal);
- [propput, id(114), helpstring("property prpMultiArg3")] HRESULT prpMultiArg3([in,out] LONG* val1, [in] LONG newVal);
- [id(115), helpstring("method inUnknown")] HRESULT inUnknown([in] IUnknown* val);
- [id(116), helpstring("method outUnknown")] HRESULT outUnknown([out] IUnknown** val);
- [id(117), helpstring("method inoutUnknown")] HRESULT inoutUnknown([in,out] IUnknown** val);
- [propget, id(118), helpstring("property prpUnknown")] HRESULT prpUnknown([out, retval] IUnknown** pVal);
- [propput, id(118), helpstring("property prpUnknown")] HRESULT prpUnknown([in] IUnknown* newVal);
-};
-
-[
- object,
- uuid(96E6105A-A436-48b3-BFE7-C9302D927CCF),
- dual,
- helpstring("IFoo Interface"),
- pointer_default(unique)
-]
-interface IFoo : IUnknown
-{
- HRESULT Foo([in] IUnknown* val);
-};
-
-[
- uuid(BFE10EB1-8584-11D4-8335-005004526AB4),
- version(1.0),
- helpstring("AxTestComponents 1.0 Type Library")
-]
-library AXTESTCOMPONENTSLib
-{
- importlib("stdole32.tlb");
- importlib("stdole2.tlb");
-
- [
- uuid(BFE10EBE-8584-11D4-8335-005004526AB4),
- helpstring("Basic Class")
- ]
- coclass Basic
- {
- [default] interface IBasic;
- };
-
- [
- uuid(14DE9D5D-EB9D-4091-8E1B-A1B1672D8C1D),
- helpstring("Foo Class")
- ]
- coclass Foo
- {
- [default] interface IFoo;
- };
-
-};
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.rc b/extensions/test/ole/AxTestComponents/AxTestComponents.rc
deleted file mode 100644
index b2b3c96ba..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.rc
+++ /dev/null
@@ -1,164 +0,0 @@
-/*************************************************************************
-*
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
-**************************************************************************/
-
-//Microsoft Developer Studio generated resource script.
-//
-#include "resource.h"
-
-#define APSTUDIO_READONLY_SYMBOLS
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 2 resource.
-//
-#include "winres.h"
-
-/////////////////////////////////////////////////////////////////////////////
-#undef APSTUDIO_READONLY_SYMBOLS
-
-/////////////////////////////////////////////////////////////////////////////
-// German (Germany) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_DEU)
-#ifdef _WIN32
-LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
-#pragma code_page(1252)
-#endif //_WIN32
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// REGISTRY
-//
-
-IDR_BASIC REGISTRY DISCARDABLE "Basic.rgs"
-IDR_FOO REGISTRY DISCARDABLE "Basic.rgs"
-#endif // German (Germany) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-/////////////////////////////////////////////////////////////////////////////
-// English (U.S.) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
-#ifdef _WIN32
-LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
-#pragma code_page(1252)
-#endif //_WIN32
-
-#ifdef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// TEXTINCLUDE
-//
-
-1 TEXTINCLUDE DISCARDABLE
-BEGIN
- "resource.h\0"
-END
-
-2 TEXTINCLUDE DISCARDABLE
-BEGIN
- "#include ""winres.h""\r\n"
- "\0"
-END
-
-3 TEXTINCLUDE DISCARDABLE
-BEGIN
- "1 TYPELIB ""AxTestComponents.tlb""\r\n"
- "\0"
-END
-
-#endif // APSTUDIO_INVOKED
-
-
-#ifndef _MAC
-/////////////////////////////////////////////////////////////////////////////
-//
-// Version
-//
-
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION 1,0,0,1
- PRODUCTVERSION 1,0,0,1
- FILEFLAGSMASK 0x3fL
-#ifdef _DEBUG
- FILEFLAGS 0x1L
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS 0x4L
- FILETYPE 0x2L
- FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904B0"
- BEGIN
- VALUE "CompanyName", "\0"
- VALUE "FileDescription", "AxTestComponents Module\0"
- VALUE "FileVersion", "1, 0, 0, 1\0"
- VALUE "InternalName", "AxTestComponents\0"
- VALUE "LegalCopyright", "Copyright 2000\0"
- VALUE "OriginalFilename", "AxTestComponents.DLL\0"
- VALUE "ProductName", "AxTestComponents Module\0"
- VALUE "ProductVersion", "1, 0, 0, 1\0"
- VALUE "OLESelfRegister", "\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
-END
-
-#endif // !_MAC
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// String Table
-//
-
-STRINGTABLE DISCARDABLE
-BEGIN
- IDS_PROJNAME "AxTestComponents"
-END
-
-#endif // English (U.S.) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-
-#ifndef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 3 resource.
-//
-1 TYPELIB "AxTestComponents.tlb"
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // not APSTUDIO_INVOKED
-
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.sln b/extensions/test/ole/AxTestComponents/AxTestComponents.sln
deleted file mode 100644
index eadaa373e..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.sln
+++ /dev/null
@@ -1,31 +0,0 @@
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "AxTestComponents", "AxTestComponents.vcproj", "{CF6DC513-B04E-420A-A0F9-6D1F4046D098}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Win32 = Debug|Win32
- Release MinDependency|Win32 = Release MinDependency|Win32
- Release MinSize|Win32 = Release MinSize|Win32
- Unicode Debug|Win32 = Unicode Debug|Win32
- Unicode Release MinDependency|Win32 = Unicode Release MinDependency|Win32
- Unicode Release MinSize|Win32 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Debug|Win32.ActiveCfg = Debug|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Debug|Win32.Build.0 = Debug|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Release MinDependency|Win32.ActiveCfg = Release MinDependency|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Release MinDependency|Win32.Build.0 = Release MinDependency|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Release MinSize|Win32.ActiveCfg = Release MinSize|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Release MinSize|Win32.Build.0 = Release MinSize|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Debug|Win32.ActiveCfg = Unicode Debug|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Debug|Win32.Build.0 = Unicode Debug|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Release MinDependency|Win32.ActiveCfg = Unicode Release MinDependency|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Release MinDependency|Win32.Build.0 = Unicode Release MinDependency|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Release MinSize|Win32.ActiveCfg = Unicode Release MinSize|Win32
- {CF6DC513-B04E-420A-A0F9-6D1F4046D098}.Unicode Release MinSize|Win32.Build.0 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/AxTestComponents/AxTestComponents.vcproj b/extensions/test/ole/AxTestComponents/AxTestComponents.vcproj
deleted file mode 100644
index 078daba3d..000000000
--- a/extensions/test/ole/AxTestComponents/AxTestComponents.vcproj
+++ /dev/null
@@ -1,819 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
- ProjectType="Visual C++"
- Version="9,00"
- Name="AxTestComponents"
- ProjectGUID="{CF6DC513-B04E-420A-A0F9-6D1F4046D098}"
- RootNamespace="AxTestComponents"
- Keyword="AtlProj"
- TargetFrameworkVersion="131072"
- >
- <Platforms>
- <Platform
- Name="Win32"
- />
- </Platforms>
- <ToolFiles>
- </ToolFiles>
- <Configurations>
- <Configuration
- Name="Unicode Release MinDependency|Win32"
- OutputDirectory=".\ReleaseUMinDependency"
- IntermediateDirectory=".\ReleaseUMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinDependency/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinDependency/AxTestComponents.pch"
- AssemblerListingLocation=".\ReleaseUMinDependency/"
- ObjectFile=".\ReleaseUMinDependency/"
- ProgramDataBaseFileName=".\ReleaseUMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseUMinDependency/AxTestComponents.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- ProgramDatabaseFile=".\ReleaseUMinDependency/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinDependency/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinSize|Win32"
- OutputDirectory=".\ReleaseMinSize"
- IntermediateDirectory=".\ReleaseMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinSize/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinSize/AxTestComponents.pch"
- AssemblerListingLocation=".\ReleaseMinSize/"
- ObjectFile=".\ReleaseMinSize/"
- ProgramDataBaseFileName=".\ReleaseMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseMinSize/AxTestComponents.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- ProgramDatabaseFile=".\ReleaseMinSize/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinSize/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Release MinSize|Win32"
- OutputDirectory=".\ReleaseUMinSize"
- IntermediateDirectory=".\ReleaseUMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinSize/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinSize/AxTestComponents.pch"
- AssemblerListingLocation=".\ReleaseUMinSize/"
- ObjectFile=".\ReleaseUMinSize/"
- ProgramDataBaseFileName=".\ReleaseUMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseUMinSize/AxTestComponents.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- ProgramDatabaseFile=".\ReleaseUMinSize/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinSize/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinDependency|Win32"
- OutputDirectory=".\ReleaseMinDependency"
- IntermediateDirectory=".\ReleaseMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinDependency/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinDependency/AxTestComponents.pch"
- AssemblerListingLocation=".\ReleaseMinDependency/"
- ObjectFile=".\ReleaseMinDependency/"
- ProgramDataBaseFileName=".\ReleaseMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseMinDependency/AxTestComponents.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- ProgramDatabaseFile=".\ReleaseMinDependency/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinDependency/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Debug|Win32"
- OutputDirectory=".\Debug"
- IntermediateDirectory=".\Debug"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\Debug/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- AdditionalOptions="/D_CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Debug/AxTestComponents.pch"
- AssemblerListingLocation=".\Debug/"
- ObjectFile=".\Debug/"
- ProgramDataBaseFileName=".\Debug/"
- BrowseInformation="1"
- WarningLevel="3"
- SuppressStartupBanner="false"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\Debug/AxTestComponents.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\Debug/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\Debug/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Debug|Win32"
- OutputDirectory=".\DebugU"
- IntermediateDirectory=".\DebugU"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC71.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\DebugU/AxTestComponents.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\DebugU/AxTestComponents.pch"
- AssemblerListingLocation=".\DebugU/"
- ObjectFile=".\DebugU/"
- ProgramDataBaseFileName=".\DebugU/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\DebugU/AxTestComponents.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\AxTestComponents.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\DebugU/AxTestComponents.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\DebugU/AxTestComponents.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- </Configurations>
- <References>
- </References>
- <Files>
- <Filter
- Name="Source Files"
- Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
- >
- <File
- RelativePath=".\AxTestComponents.cpp"
- >
- </File>
- <File
- RelativePath=".\AxTestComponents.def"
- >
- </File>
- <File
- RelativePath=".\AxTestComponents.idl"
- >
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\AxTestComponents.tlb"
- HeaderFileName="AxTestComponents.h"
- InterfaceIdentifierFileName="AxTestComponents_i.c"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\AxTestComponents.rc"
- >
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\Basic.cpp"
- >
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- AdditionalOptions=" /Ob0"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath="Foo.cpp"
- >
- </File>
- <File
- RelativePath=".\StdAfx.cpp"
- >
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- </File>
- </Filter>
- <Filter
- Name="Header Files"
- Filter="h;hpp;hxx;hm;inl"
- >
- <File
- RelativePath=".\Basic.h"
- >
- </File>
- <File
- RelativePath="Foo.h"
- >
- </File>
- <File
- RelativePath=".\Resource.h"
- >
- </File>
- <File
- RelativePath=".\StdAfx.h"
- >
- </File>
- </Filter>
- <Filter
- Name="Resource Files"
- Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
- >
- <File
- RelativePath=".\Basic.rgs"
- >
- </File>
- </Filter>
- </Files>
- <Globals>
- </Globals>
-</VisualStudioProject>
diff --git a/extensions/test/ole/AxTestComponents/Basic.cpp b/extensions/test/ole/AxTestComponents/Basic.cpp
deleted file mode 100644
index fab6e68f5..000000000
--- a/extensions/test/ole/AxTestComponents/Basic.cpp
+++ /dev/null
@@ -1,1366 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#include "stdafx.h"
-#include "Basic.h"
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CBasic
-CBasic::CBasic(): m_cPrpByte(0),m_nPrpShort(0),m_lPrpLong(0),m_fPrpFloat(0), m_dPrpDouble(0),m_PrpArray(0),
-m_safearray(NULL), m_bool(VARIANT_FALSE),
-m_arByte(0), m_arShort(0), m_arLong(0), m_arString(0), m_arVariant(0), m_arFloat(0),
-m_arDouble(0), m_arObject(0), m_arByteDim2(0), m_date(0.), m_scode(0)
-
-{
- memset(&m_cy, 0, sizeof(CY));
- memset(&m_decimal, 0, sizeof(DECIMAL));
-}
-
-CBasic::~CBasic()
-{
- SafeArrayDestroy(m_safearray);
- SafeArrayDestroy(m_arByte);
- SafeArrayDestroy(m_arShort);
- SafeArrayDestroy(m_arLong);
- SafeArrayDestroy(m_arString);
- SafeArrayDestroy(m_arVariant);
- SafeArrayDestroy(m_arFloat);
- SafeArrayDestroy(m_arDouble);
- SafeArrayDestroy(m_arObject);
- SafeArrayDestroy(m_arByteDim2);
-
-}
-STDMETHODIMP CBasic::inBool(VARIANT_BOOL val)
-{
- m_bool = val;
- return S_OK;
-}
-STDMETHODIMP CBasic::inByte(unsigned char val)
-{
- m_byte = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inShort(short val)
-{
- m_short = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inLong(long val)
-{
- m_long = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inString(BSTR val)
-{
- m_bstr = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inFloat(float val)
-{
- m_float = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inDouble(double val)
-{
- m_double = val;
-
- CComVariant varDest;
- CComVariant varSource(val);
- HRESULT hr = VariantChangeType(&varDest, &varSource, 0, VT_BSTR);
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inVariant(VARIANT val)
-{
- m_var1 = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inArray(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_safearray)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, &m_safearray)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inObject(IDispatch *val)
-{
- m_obj = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutBool(VARIANT_BOOL* val)
-{
- VARIANT_BOOL aBool = *val;
- *val = m_bool;
- m_bool = aBool;
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::inoutByte(unsigned char* val)
-{
- unsigned char aByte = *val;
- *val = m_byte;
- m_byte = aByte;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutShort(short *val)
-{
- short aShort = *val;
- *val = m_short;
- m_short = aShort;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutLong(long *val)
-{
- long aLong = *val;
- *val = m_long;
- m_long = aLong;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutString(BSTR *val)
-{
- CComBSTR aStr = *val;
- HRESULT hr = S_OK;
- if (FAILED( hr = m_bstr.CopyTo(val)))
- return hr;
- m_bstr = aStr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutFloat(float *val)
-{
- float aFloat = *val;
- *val = m_float;
- m_float = aFloat;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutDouble(double *val)
-{
- double aDouble = *val;
- *val = m_double;
- m_double = aDouble;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutVariant(VARIANT *val)
-{
- CComVariant aVar = *val;
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy(val, &m_var1)))
- return hr;
- m_var1 = aVar;
- return S_OK;
-}
-
-/* The array contains VARIANT according to IDL.
- If the VARIANTs contain strings then we append "out" to each string.
-*/
-STDMETHODIMP CBasic::inoutArray(LPSAFEARRAY *val)
-{
- SAFEARRAY* aAr = NULL;
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayCopy(*val, &aAr)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_safearray, val)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(aAr, & m_safearray)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutObject(IDispatch **val)
-{
- CComPtr<IDispatch> disp = *val;
- if (*val)
- (*val)->Release();
- *val = m_obj;
- if (*val)
- (*val)->AddRef();
- m_obj = disp;
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::outBool(VARIANT_BOOL* val)
-{
- *val = m_bool;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outByte(unsigned char *val)
-{
- *val= m_byte;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outShort(short *val)
-{
- *val= m_short;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outLong(long *val)
-{
- *val= m_long;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outString(BSTR *val)
-{
- *val= SysAllocString(m_bstr);
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outFloat(float *val)
-{
- *val= m_float;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outDouble(double *val)
-{
- *val= m_double;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outVariant(VARIANT *val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy(val, &m_var1)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outArray(LPSAFEARRAY *val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayCopy(m_safearray, val)))
- return false;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outObject(IDispatch* *val)
-{
- *val = m_obj;
- if (m_obj)
- (*val)->AddRef();
-
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::get_prpBool(VARIANT_BOOL* pVal)
-{
- if (!pVal) return E_POINTER;
- *pVal = m_bool;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpBool(VARIANT_BOOL val)
-{
- m_bool = val;
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::get_prpByte(unsigned char *pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_cPrpByte;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpByte(unsigned char newVal)
-{
- m_cPrpByte= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpShort(short *pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_nPrpShort;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpShort(short newVal)
-{
- m_nPrpShort= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpLong(long *pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_lPrpLong;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpLong(long newVal)
-{
- m_lPrpLong= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpString(BSTR *pVal)
-{
- if( !pVal)
- return E_POINTER;
- m_bstrPrpString.CopyTo( pVal );
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpString(BSTR newVal)
-{
- m_bstrPrpString= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpFloat(float *pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_fPrpFloat;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpFloat(float newVal)
-{
- m_fPrpFloat= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpDouble(double *pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_dPrpDouble;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpDouble(double newVal)
-{
- m_dPrpDouble= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpVariant(VARIANT *pVal)
-{
- if( !pVal)
- return E_POINTER;
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy( pVal, &m_PropVariant)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::put_prpVariant(VARIANT newVal)
-{
- m_PropVariant= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpArray(LPSAFEARRAY *pVal)
-{
- if( !pVal)
- return E_POINTER;
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayCopy( m_PrpArray, pVal)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::put_prpArray(LPSAFEARRAY newVal)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy( m_PrpArray)))
- return hr;
- if (FAILED(hr = SafeArrayCopy( newVal, &m_PrpArray)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::get_prpObject(IDispatch **pVal)
-{
- if( !pVal)
- return E_POINTER;
- *pVal= m_PrpObject;
- if( *pVal != NULL)
- (*pVal)->AddRef();
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpObject(IDispatch *newVal)
-{
- m_PrpObject= newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::mixed1(
- /* [out][in] */ unsigned char *aChar,
- /* [out][in] */ float *aFloat,
- /* [out][in] */ VARIANT *aVar)
-
-{
- HRESULT hr= S_OK;
- inoutByte(aChar);
- inoutFloat(aFloat);
- inoutVariant(aVar);
- return hr;
-}
-
-
-
-
-// VT_UI1
-
-STDMETHODIMP CBasic::inSequenceLong(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arLong)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arLong)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceByte( LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arByte)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arByte)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceShort(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arShort)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arShort)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceString(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arString)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arString)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceFloat(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arFloat)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arFloat)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceDouble(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arDouble)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arDouble)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceObject(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arObject)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arObject)))
- return hr;
- return hr;
-}
-
-void CBasic::printArray( LPSAFEARRAY val, BSTR message, VARTYPE type)
-{
-
- HRESULT hr= S_OK;
- USES_CONVERSION;
- long lbound=0;
- long ubound= 0;
- hr= SafeArrayGetLBound( val, 1, &lbound);
- hr= SafeArrayGetUBound( val, 1, &ubound);
- long length= ubound - lbound +1;
-
- CComVariant varElement;
- char buf[1024];
- sprintf( buf,"%s", W2A(message));
-
- for( long i= 0; i < length ; i++)
- {
- char tmp[1024];
- long data=0;
- CComVariant var;
- switch( type)
- {
- case VT_UI1:
- case VT_I2:
- case VT_I4:
- case VT_ERROR:
- hr= SafeArrayGetElement( val, &i, (void*)&data);
- sprintf( tmp, "%d \n", *(long*)&data);
- break;
- case VT_BSTR:
- hr= SafeArrayGetElement( val, &i, (void*)&data);
- sprintf( tmp, "%S \n", (BSTR)data);
- break;
- case VT_VARIANT:
- hr= SafeArrayGetElement( val, &i, &var);
- sprintf( tmp, "%x \n", var.byref);
- break;
- case VT_R4:
- hr= SafeArrayGetElement( val, &i, (void*)&data);
- sprintf( tmp, "%f \n", *(float*) &data);
- break;
- case VT_R8: ;
- hr= SafeArrayGetElement( val, &i, (void*)&data);
- sprintf( tmp, "%f \n", *(double*) &data);
- break;
- case VT_DISPATCH:
- // we assume the objects are instances of this component and have the
- // property prpString set.
- hr= SafeArrayGetElement( val, &i, (void*)&data);
- IDispatch* pdisp= ( IDispatch*) data;
- CComDispatchDriver driver( pdisp);
- CComVariant var;
- if( pdisp)
- {
- driver.GetPropertyByName(L"prpString", &var);
- sprintf( tmp, "%x : %S \n", *(long*)&data, var.bstrVal);
- }
- else
- sprintf( tmp, "%x\n", *(long*)&data);
- }
-
- strcat( buf, tmp);
- }
- MessageBox( NULL, _T(A2T(buf)), _T("AxTestComponents.Basic"), MB_OK);
-
-}
-// V_ERROR OLECHAR VARIANT VT_UI1
-
-STDMETHODIMP CBasic::outSequenceByte(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arByte, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceShort(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arShort, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceLong(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arLong, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceString(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arString, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceFloat(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arFloat, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceDouble(LPSAFEARRAY* val)
-{
- HRESULT hr= S_OK;
- hr = SafeArrayCopy(m_arDouble, val);
- return hr;
-}
-
-STDMETHODIMP CBasic::outSequenceObject(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- hr = SafeArrayCopy(m_arObject, val);
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutSequenceByte(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arByte, val)))
- return hr;
- m_arByte = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceShort(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arShort, val)))
- return hr;
- m_arShort = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceLong(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arLong, val)))
- return hr;
- m_arLong = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceString(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arString, val)))
- return hr;
- m_arString = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceFloat(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arFloat, val)))
- return hr;
- m_arFloat = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceDouble(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arDouble, val)))
- return hr;
- m_arDouble = arTemp;
- return hr;
-}
-
-STDMETHODIMP CBasic::inoutSequenceObject(LPSAFEARRAY* val)
-{
- HRESULT hr = S_OK;
- SAFEARRAY *arTemp = NULL;
- if (FAILED(hr = SafeArrayCopy(*val, &arTemp)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(m_arObject, val)))
- return hr;
- m_arObject = arTemp;
- return hr;
-}
-
-// 2-dimensional Array
-STDMETHODIMP CBasic::inMulDimArrayLong(LPSAFEARRAY val)
-{
- printMulArray( val, VT_I4);
- return S_OK;
-}
-// 2-dimensional Array
-STDMETHODIMP CBasic::inMulDimArrayVariant(LPSAFEARRAY val)
-{
- printMulArray( val, VT_VARIANT);
- return S_OK;
-}
-// 3-dimensional Array
-STDMETHODIMP CBasic::inMulDimArrayLong2(LPSAFEARRAY val)
-{
- printMulArray( val, VT_I4);
- return S_OK;
-}
-// 3-dimensional Array
-STDMETHODIMP CBasic::inMulDimArrayVariant2(LPSAFEARRAY val)
-{
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::inMulDimArrayByte(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arByteDim2)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arByteDim2)))
- return hr;
- return hr;
-}
-// 3-dimensionales array
-STDMETHODIMP CBasic::inMulDimArrayByte2(LPSAFEARRAY val)
-{
-
- // TODO: Add your implementation code here
- //printMulArray( val, VT_UI1);
- return S_OK;
-}
-
-// supports 2 and 3 dimensionals SAFEARRAY with elements of long or VARIANT
-void CBasic::printMulArray( SAFEARRAY* val, VARTYPE type)
-{
- HRESULT hr= S_OK;
- UINT dims= SafeArrayGetDim( val);
- long lbound1;
- long ubound1;
- long lbound2;
- long ubound2;
- long lbound3;
- long ubound3;
- long length1;
- long length2;
- long length3;
-
- char buff[4096];
- buff[0]=0;
-
- if( dims == 2)
- {
- hr= SafeArrayGetLBound( val, 1, &lbound1);
- hr= SafeArrayGetUBound( val, 1, &ubound1);
- length1= ubound1 - lbound1 +1;
-
- hr= SafeArrayGetLBound( val, 2, &lbound2);
- hr= SafeArrayGetUBound( val, 2, &ubound2);
- length2= ubound2 - lbound2 + 1;
- char tmpBuf[1024];
- tmpBuf[0]=0;
- long index[2];
- for( long i= 0; i< length2; i++)
- {
- for( long j= 0; j<length1; j++)
- {
- index[0]= j;
- index[1]= i;
- long longVal;
- CComVariant var;
- switch( type)
- {
- case VT_I4:
- hr= SafeArrayGetElement( val, index, &longVal);
- sprintf( tmpBuf, "(%d,%d): %d\n", index[1], index[0], longVal);
- break;
- case VT_UI1:
- hr= SafeArrayGetElement( val, index, &longVal);
- sprintf( tmpBuf, "(%d,%d): %d\n", index[1], index[0], (unsigned char)longVal);
- break;
- case VT_VARIANT:
- hr= SafeArrayGetElement( val, index, &var );
- sprintf( tmpBuf, "(%d,%d): %d (vartype %d)\n", index[1], index[0], var.byref, var.vt);
- break;
- }
- strcat( buff,tmpBuf);
- }
-
- }
-
-
- }
- else if( dims == 3 )
- {
- hr= SafeArrayGetLBound( val, 1, &lbound1);
- hr= SafeArrayGetUBound( val, 1, &ubound1);
- length1= ubound1 - lbound1 +1;
-
- hr= SafeArrayGetLBound( val, 2, &lbound2);
- hr= SafeArrayGetUBound( val, 2, &ubound2);
- length2= ubound2 - lbound2 + 1;
-
- hr= SafeArrayGetLBound( val, 3, &lbound3);
- hr= SafeArrayGetUBound( val, 3, &ubound3);
- length3= ubound3 - lbound3 +1;
- char tmpBuf[1024];
- tmpBuf[0]=0;
- long index[3];
- for( long i= 0; i< length3; i++)
- {
- for( long j= 0; j<length2; j++)
- {
- for( long k= 0; k<length1; k++)
- {
- index[0]= k;
- index[1]= j;
- index[2]= i;
- long longVal;
- CComVariant var;
- switch( type)
- {
- case VT_I4:
- hr= SafeArrayGetElement( val, index, &longVal);
- sprintf( tmpBuf, "(%d,%d,%d): %d\n", index[2], index[1], index[0], longVal);
- break;
- case VT_UI1:
- hr= SafeArrayGetElement( val, index, &longVal);
- sprintf( tmpBuf, "(%d,%d,%d): %d\n", index[2], index[1], index[0], (unsigned char)longVal);
- break;
-
- case VT_VARIANT:
- hr= SafeArrayGetElement( val, index, &var );
- sprintf( tmpBuf, "(%d,%d,%d): %d (vartype %d)\n", index[2], index[1], index[0], var.byref, var.vt);
- break;
- }
- strcat( buff,tmpBuf);
- }
- }
-
- }
-
- }
-
- MessageBox( NULL, A2T( buff), _T("AxTestControl.Basic"), MB_OK);
-
-
-}
-
-
-
-
-STDMETHODIMP CBasic::outMore(long* val1, long* val2)
-{
- // TODO: Add your implementation code here
- *val1= 111;
- *val2= 112;
- return S_OK;
-}
-// If an optional parameter was not provided then the respective member will
-// not be set
-STDMETHODIMP CBasic::optional1(/*[in]*/ long val1, /*[in, optional]*/ VARIANT* val2)
-{
- m_long = val1;
- if (val2->vt != VT_ERROR)
- m_var1 = *val2;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::optional2(/*[out]*/ long* val1,/*[out, optional]*/ VARIANT* val2)
-{
- HRESULT hr = S_OK;
- *val1 = m_long;
-
- if (val2->vt != VT_ERROR)
- hr = VariantCopy(val2, & m_var1);
- return hr;
-}
-
-STDMETHODIMP CBasic::optional3(/*[in, optional]*/ VARIANT* val1,/*[in, optional]*/ VARIANT* val2)
-{
- //if (val1->vt != VT_ERROR)
- m_var1 = *val1;
-
- //if (val2->vt != VT_ERROR)
- m_var2 = *val2;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::optional4(/*[in, out, optional]*/ VARIANT* val1,
- /*[in, out, optional]*/ VARIANT* val2)
-{
- HRESULT hr = S_OK;
- //return the previously set in values
- if (val1->vt != VT_ERROR)
- {
- CComVariant var1(*val1);
- if (FAILED(hr = VariantCopy(val1, & m_var1)))
- return hr;
- m_var1 = var1;
- }
- if (val2->vt != VT_ERROR)
- {
- CComVariant var2(*val2);
- if (FAILED(hr = VariantCopy(val2, & m_var2)))
- return hr;
- m_var2 = var2;
- }
- return hr;
-}
-
-STDMETHODIMP CBasic::optional5(/*[out, optional]*/ VARIANT* val1,
- /*[out, optional]*/ VARIANT* val2)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy(val1, &m_var1)))
- return hr;
- if (FAILED(hr = VariantCopy(val2, &m_var2)))
- return hr;
- return hr;
-}
-
-STDMETHODIMP CBasic::defaultvalue1(/*[in, defaultvalue(10)]*/ long val1,
- /*[in, defaultvalue(3.14)]*/ double* val2,
- // /*[in, defaultvalue(10)]*/ VARIANT val3,
- /*[in, defaultvalue(100)]*/ VARIANT* val4)
-{
- m_long = val1;
- m_double = *val2;
-// m_var1 = val3;
- m_var2 = *val4;
- return S_OK;
-}
-STDMETHODIMP CBasic::defaultvalue2(/*[in, out, defaultvalue(10)]*/ long* val1,
- /*[in, out, defaultvalue(3.14)]*/ double* val2,
- // /*[in, out, defaultvalue(10)]*/ VARIANT* val3,
- /*[in, out, defaultvalue(100)]*/ VARIANT* val4)
-{
- HRESULT hr = S_OK;
- long aLong = *val1;
- double aDouble = *val2;
-// CComVariant var1(*val3);
- CComVariant var2(*val4);
- *val1 = m_long;
- *val2 = m_double;
- //if (FAILED(hr = VariantCopy(val3, &m_var1)))
- // return hr;
- if (FAILED(hr = VariantCopy(val4, &m_var2)))
- return hr;
- m_long = aLong;
- m_double = aDouble;
-// m_var1 = var1;
- m_var2 = var2;
- return hr;
-}
-/* val2 contains the variable argument list. If no such arguments are supplied
- then the safearray is invalid. SafeArrayCopy then returns E_INVALIDARG
-*/
-STDMETHODIMP CBasic::varargfunc1(/*[in]*/ long val1,/*[in]*/ LPSAFEARRAY val2)
-{
- m_long = val1;
-
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_safearray)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val2, & m_safearray)))
- {
- if (hr != E_INVALIDARG)
- return hr;
- }
- return S_OK;
-}
-
-STDMETHODIMP CBasic::varargfunc2(/*[out]*/ long* val1, /*[out]*/ SAFEARRAY ** val2)
-{
- *val1 = m_long;
- HRESULT hr = SafeArrayCopy(m_safearray, val2);
- return hr;
-}
-
-STDMETHODIMP CBasic::inSequenceByteDim2(LPSAFEARRAY val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = SafeArrayDestroy(m_arByteDim2)))
- return hr;
- if (FAILED(hr = SafeArrayCopy(val, & m_arByteDim2)))
- return hr;
- return hr;
-}
-
-
-STDMETHODIMP CBasic::inCurrency(CY val)
-{
- m_cy = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outCurrency(CY* val)
-{
- *val = m_cy;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutCurrency(CY* val)
-{
- CY tmp = *val;
- *val = m_cy;
- m_cy = tmp;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inDate(DATE val)
-{
- m_date = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outDate(DATE* val)
-{
- *val = m_date;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutDate(DATE* val)
-{
- DATE tmp = *val;
- *val = m_date;
- m_date = tmp;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpCurrency(CY* pVal)
-{
- *pVal = m_cy;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpCurrency(CY newVal)
-{
- m_cy = newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpDate(DATE* pVal)
-{
- *pVal = m_date;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpDate(DATE newVal)
-{
- m_date = newVal;
- return S_OK;
-}
-
-//VT_I4 DECIMAL_NEG //tagVARIANT DISPATCH_PROPERTYPUT
-STDMETHODIMP CBasic::inDecimal(DECIMAL val)
-{
- m_decimal = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outDecimal(DECIMAL* val)
-{
- * val = m_decimal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutDecimal(DECIMAL* val)
-{
- DECIMAL tmp;
- tmp = * val;
- * val = m_decimal;
- m_decimal = tmp;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpDecimal(DECIMAL* pVal)
-{
- * pVal = m_decimal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpDecimal(DECIMAL newVal)
-{
- m_decimal = newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inSCode(SCODE val)
-{
- m_scode = val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outScode(SCODE* val)
-{
- * val = m_scode;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutSCode(SCODE* val)
-{
- SCODE tmp = *val;
- * val = m_scode;
- m_scode = tmp;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpSCode(SCODE* pVal)
-{
- * pVal = m_scode;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpSCode(SCODE newVal)
-{
- m_scode = newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inrefLong(LONG* val)
-{
- m_long = * val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inrefVariant(VARIANT* val)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy( & m_var1, val)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inrefDecimal(DECIMAL* val)
-{
- m_decimal = * val;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpRefLong(long* pVal)
-{
- *pVal = m_long;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::putref_prpRefLong(long* newVal)
-{
- m_long = * newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prprefVariant(VARIANT* pVal)
-{
- HRESULT hr = S_OK;
- hr = VariantCopy(pVal, & m_var1);
- return hr;
-}
-
-STDMETHODIMP CBasic::putref_prprefVariant(VARIANT* newVal)
-{
- m_var1 = * newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prprefDecimal(DECIMAL* pVal)
-{
- * pVal = m_decimal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::putref_prprefDecimal(DECIMAL* newVal)
-{
- m_decimal = *newVal;
- return S_OK;
-}
-
-
-STDMETHODIMP CBasic::optional6(VARIANT* val1, VARIANT* val2, VARIANT* val3, VARIANT* val4)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = m_var1.Copy(val1)))
- return hr;
- if (FAILED(hr = m_var2.Copy(val2)))
- return hr;
- if (FAILED(hr = m_var3.Copy(val3)))
- return hr;
- if (FAILED(hr = m_var4.Copy(val4)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::optional7(VARIANT* val1, VARIANT* val2, VARIANT* val3, VARIANT* val4)
-{
- HRESULT hr = S_OK;
- if (FAILED(hr = VariantCopy(val1, & m_var1)))
- return hr;
- if (FAILED(hr = VariantCopy(val2, & m_var2)))
- return hr;
- if (FAILED(hr = VariantCopy(val3, & m_var3)))
- return hr;
- if (FAILED(hr = VariantCopy(val4, & m_var4)))
- return hr;
-
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpMultiArg1(VARIANT* val1, VARIANT* val2, VARIANT* pVal)
-{
- HRESULT hr = S_OK;
- CComVariant tmp1(*val1);
- CComVariant tmp2(*val2);
-
- if (FAILED(hr = VariantCopy(val1, & m_var1)))
- return hr;
- if (FAILED(hr = VariantCopy(val2, & m_var2)))
- return hr;
- m_var1 = tmp1;
- m_var2 = tmp2;
- if (FAILED(hr = VariantCopy(pVal, & m_var3)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpMultiArg1(VARIANT* val1, VARIANT* val2, VARIANT* newVal)
-{
- HRESULT hr = S_OK;
- CComVariant tmp1( * val1);
- CComVariant tmp2( * val2);
-
- if (FAILED(hr = VariantCopy(val1, & m_var1)))
- return hr;
- if (FAILED(hr = VariantCopy(val2, & m_var2)))
- return hr;
- m_var1 = tmp1;
- m_var2 = tmp2;
-
- m_var3 = *newVal;
- return S_OK;
-}
-
-// tagVARIANT DISPATCH_PROPERTYPUT DISPID_PROPERTYPUT VARIANTARG LOCALE_USER_DEFAULT
-
-STDMETHODIMP CBasic::get_prpMultiArg2(VARIANT val1, VARIANT* pVal)
-{
- HRESULT hr = S_OK;
- m_var1 = val1;
-
- if (FAILED(hr = VariantCopy(pVal, & m_var2)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpMultiArg2(VARIANT val1, VARIANT newVal)
-{
- m_var1 = val1;
- m_var2 = newVal;
- return S_OK;
-}
-
-// returns the values set by prpMultiArg2
-STDMETHODIMP CBasic::prpMultiArg2GetValues(VARIANT* val1, VARIANT* valProperty)
-{
- HRESULT hr = S_OK;
- if (FAILED(VariantCopy(val1, & m_var1)))
- return hr;
- if (FAILED(VariantCopy(valProperty, & m_var2)))
- return hr;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpMultiArg3(LONG* val1, LONG* pVal)
-{
- long aLong = *val1;
- *val1 = m_long;
- m_long = aLong;
-
- * pVal = m_long2;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpMultiArg3(LONG* val1, LONG newVal)
-{
- long aLong = *val1;
- *val1 = m_long;
- m_long = aLong;
-
- m_long2 = newVal;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inUnknown(IUnknown* val)
-{
- m_unknown = val;
-
- return S_OK;
-}
-
-STDMETHODIMP CBasic::outUnknown(IUnknown** val)
-{
- m_unknown.CopyTo(val);
- return S_OK;
-}
-
-STDMETHODIMP CBasic::inoutUnknown(IUnknown** val)
-{
- CComPtr<IUnknown> tmp = *val;
- m_unknown.CopyTo(val);
- m_unknown = tmp;
- return S_OK;
-}
-
-STDMETHODIMP CBasic::get_prpUnknown(IUnknown** pVal)
-{
- m_prpUnknown.CopyTo(pVal);
- return S_OK;
-}
-
-STDMETHODIMP CBasic::put_prpUnknown(IUnknown* newVal)
-{
- m_prpUnknown = newVal;
- return S_OK;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/Basic.h b/extensions/test/ole/AxTestComponents/Basic.h
deleted file mode 100644
index eb67ce8bb..000000000
--- a/extensions/test/ole/AxTestComponents/Basic.h
+++ /dev/null
@@ -1,270 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Basic.h : Declaration of the CBasic
-
-#ifndef __BASIC_H_
-#define __BASIC_H_
-
-#include "resource.h" // main symbols
-#import "AxTestComponents.tlb" no_namespace no_implementation raw_interfaces_only named_guids
-
-/////////////////////////////////////////////////////////////////////////////
-// CBasic
-class ATL_NO_VTABLE CBasic :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CBasic, &CLSID_Basic>,
- public IDispatchImpl<IBasic, &IID_IBasic, &LIBID_AXTESTCOMPONENTSLib>
- {
-public:
- CBasic();
- ~CBasic();
-
- DECLARE_REGISTRY_RESOURCEID(IDR_BASIC)
-
- DECLARE_PROTECT_FINAL_CONSTRUCT()
-
- BEGIN_COM_MAP(CBasic)
- COM_INTERFACE_ENTRY(IBasic)
- COM_INTERFACE_ENTRY(IDispatch)
- END_COM_MAP()
-
- // IBasic
-public:
- STDMETHOD(outMore)(/*[out]*/long* val1, /*[out]*/long* val2);
- STDMETHOD(inMulDimArrayByte2)(LPSAFEARRAY val);
- STDMETHOD(inMulDimArrayByte)(LPSAFEARRAY val);
- STDMETHOD(inMulDimArrayVariant2)(LPSAFEARRAY val);
- STDMETHOD(inMulDimArrayLong2)(LPSAFEARRAY val);
- STDMETHOD(inMulDimArrayVariant)(LPSAFEARRAY val);
- STDMETHOD(inMulDimArrayLong)( LPSAFEARRAY val);
- STDMETHOD(inoutSequenceObject)(LPSAFEARRAY* val);
- STDMETHOD(inoutSequenceDouble)(LPSAFEARRAY * val);
- STDMETHOD(inoutSequenceFloat)(LPSAFEARRAY * val);
- STDMETHOD(inoutSequenceString)(LPSAFEARRAY* val);
- STDMETHOD(inoutSequenceLong)(LPSAFEARRAY * val);
- STDMETHOD(inoutSequenceShort)(LPSAFEARRAY * val);
- STDMETHOD(inoutSequenceByte)(LPSAFEARRAY * val);
- STDMETHOD(outSequenceObject)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceDouble)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceFloat)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceString)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceLong)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceShort)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(outSequenceByte)(/*[out]*/ LPSAFEARRAY* val);
- STDMETHOD(inSequenceObject)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceDouble)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceFloat)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceString)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceShort)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceByte)(LPSAFEARRAY ar);
- STDMETHOD(inSequenceLong)(LPSAFEARRAY ar);
- STDMETHOD(mixed1)(
- /* [out][in] */ unsigned char *aChar,
- /* [out][in] */ float *aFloat,
- /* [out][in] */ VARIANT *aVar);
- STDMETHOD(get_prpObject)(/*[out, retval]*/ IDispatch* *pVal);
- STDMETHOD(put_prpObject)(/*[in]*/ IDispatch* newVal);
- STDMETHOD(get_prpArray)(/*[out, retval]*/ LPSAFEARRAY *pVal);
- STDMETHOD(put_prpArray)(/*[in]*/ LPSAFEARRAY newVal);
- STDMETHOD(get_prpVariant)(/*[out, retval]*/ VARIANT *pVal);
- STDMETHOD(put_prpVariant)(/*[in]*/ VARIANT newVal);
- STDMETHOD(get_prpDouble)(/*[out, retval]*/ double *pVal);
- STDMETHOD(put_prpDouble)(/*[in]*/ double newVal);
- STDMETHOD(get_prpFloat)(/*[out, retval]*/ float *pVal);
- STDMETHOD(put_prpFloat)(/*[in]*/ float newVal);
- STDMETHOD(get_prpString)(/*[out, retval]*/ BSTR *pVal);
- STDMETHOD(put_prpString)(/*[in]*/ BSTR newVal);
- STDMETHOD(get_prpLong)(/*[out, retval]*/ long *pVal);
- STDMETHOD(put_prpLong)(/*[in]*/ long newVal);
- STDMETHOD(get_prpShort)(/*[out, retval]*/ short *pVal);
- STDMETHOD(put_prpShort)(/*[in]*/ short newVal);
- STDMETHOD(get_prpByte)(/*[out, retval]*/ unsigned char *pVal);
- STDMETHOD(put_prpByte)(/*[in]*/ unsigned char newVal);
- STDMETHOD(get_prpBool)(/*[out, retval]*/ VARIANT_BOOL *pVal);
- STDMETHOD(put_prpBool)(/*[in]*/ VARIANT_BOOL newVal);
-
- STDMETHOD(outObject)(/*[out]*/ IDispatch* *val);
- STDMETHOD(outArray)(/*[out]*/ LPSAFEARRAY * val);
- STDMETHOD(outVariant)(/*[out]*/ VARIANT* val);
- STDMETHOD(outDouble)(/*[out]*/ double* val);
- STDMETHOD(outFloat)(/*[out]*/ float* val);
- STDMETHOD(outString)(/*[out]*/ BSTR* val);
- STDMETHOD(outLong)(/*[out]*/ long* val);
- STDMETHOD(outShort)(/*[out]*/ short* val);
- STDMETHOD(outByte)(/*[out]*/ unsigned char* val);
- STDMETHOD(outBool)(/*[out]*/ VARIANT_BOOL* val);
-
- STDMETHOD(inoutObject)(/*[in,out]*/ IDispatch* *val);
- STDMETHOD(inoutArray)(/*[in,out]*/ LPSAFEARRAY * val);
- STDMETHOD(inoutVariant)(/*[in,out]*/ VARIANT * val);
- STDMETHOD(inoutDouble)(/*[in,out]*/ double * val);
- STDMETHOD(inoutFloat)(/*[in,out]*/ float * val);
- STDMETHOD(inoutString)(/*[in, out]*/ BSTR* val);
- STDMETHOD(inoutLong)(/*[in,out]*/ long * val);
- STDMETHOD(inoutShort)(/*[in,out]*/ short* val);
- STDMETHOD(inoutByte)(/*[in,out]*/ unsigned char* val);
- STDMETHOD(inoutBool)(/*[in,out]*/ VARIANT_BOOL* val);
-
-
- STDMETHOD(inObject)(/*[in]*/ IDispatch* val);
- STDMETHOD(inArray)(/*[in]*/ LPSAFEARRAY val);
- STDMETHOD(inVariant)(/*[in]*/ VARIANT val);
- STDMETHOD(inDouble)(/*[in]*/ double val);
- STDMETHOD(inFloat)(/*[in]*/ float val);
- STDMETHOD(inString)(/*[in]*/ BSTR val);
- STDMETHOD(inLong)(/*[in]*/ long val);
- STDMETHOD(inShort)(/*[in]*/ short val);
- STDMETHOD(inByte)(/*[in]*/ unsigned char val);
- STDMETHOD(inBool)(/*[in]*/ VARIANT_BOOL val);
-
-
- STDMETHOD(optional1)(/*[in]*/ long val1, /*[in, optional]*/ VARIANT* val2);
- STDMETHOD(optional2)(/*[out]*/ long* val1,/*[out, optional]*/ VARIANT* val2);
- STDMETHOD(optional3)(/*[in, optional]*/ VARIANT* val1,/*[in, optional]*/ VARIANT* val2);
- STDMETHOD(optional4)(/*[in, out, optional]*/ VARIANT* val1,/*[in, out, optional]*/ VARIANT* val2);
- STDMETHOD(optional5)(/*[out, optional]*/ VARIANT* val1,/*[out, optional]*/ VARIANT* val2);
-
-
- STDMETHOD(defaultvalue1)(/*[in, defaultvalue(10)]*/ long val1,
- /*[in, defaultvalue(3.14)]*/ double* val2,
- // /*[in, defaultvalue(10)]*/ VARIANT val3,
- /*[in, defaultvalue(100)]*/ VARIANT* val4);
-
- STDMETHOD(defaultvalue2)(/*[in, out, defaultvalue(10)]*/ long* val1,
- /*[in, out, defaultvalue(3.14)]*/ double* val2,
- // /*[in, out, defaultvalue(10)]*/ VARIANT* val3,
- /*[in, out, defaultvalue(100)]*/ VARIANT* val4);
-
- STDMETHOD(varargfunc1)(/*[in]*/ long val1,/*[in]*/ LPSAFEARRAY val2);
-
- STDMETHOD(varargfunc2)(/*[out]*/ long* val1, /*[out]*/ SAFEARRAY ** val2);
-
-
- // members for property implementations
- unsigned char m_cPrpByte;
- short m_nPrpShort;
- long m_lPrpLong;
- float m_fPrpFloat;
- double m_dPrpDouble;
- CComPtr<IDispatch> m_PrpObject;
- CComPtr<IUnknown> m_prpUnknown;
-
- CComBSTR m_bstrPrpString;
- CComVariant m_PropVariant;
- LPSAFEARRAY m_PrpArray;
-protected:
- VARIANT_BOOL m_bool;
- unsigned char m_byte;
- short m_short;
- long m_long;
- long m_long2;
- float m_float;
- double m_double;
- CComVariant m_var1;
- CComVariant m_var2;
- CComVariant m_var3;
- CComVariant m_var4;
- CComBSTR m_bstr;
- CY m_cy;
- DATE m_date;
- DECIMAL m_decimal;
- SCODE m_scode;
- SAFEARRAY * m_safearray;
- CComPtr<IDispatch> m_obj;
- CComPtr<IUnknown> m_unknown;
-
- SAFEARRAY * m_arByte;
- SAFEARRAY * m_arShort;
- SAFEARRAY * m_arLong;
- SAFEARRAY * m_arString;
- SAFEARRAY * m_arVariant;
- SAFEARRAY * m_arFloat;
- SAFEARRAY * m_arDouble;
- SAFEARRAY * m_arObject;
- SAFEARRAY * m_arByteDim2;
-
- static void printArray(LPSAFEARRAY val, BSTR message, VARTYPE type);
- static void printMulArray(LPSAFEARRAY val, VARTYPE type);
-
-
-public:
- STDMETHOD(inSequenceByteDim2)(LPSAFEARRAY val);
- STDMETHOD(inCurrency)(CY val);
- STDMETHOD(outCurrency)(CY* val);
- STDMETHOD(inoutCurrency)(CY* val);
- STDMETHOD(inDate)(DATE val);
- STDMETHOD(outDate)(DATE* val);
- STDMETHOD(inoutDate)(DATE* val);
- STDMETHOD(get_prpCurrency)(CY* pVal);
- STDMETHOD(put_prpCurrency)(CY newVal);
- STDMETHOD(get_prpDate)(DATE* pVal);
- STDMETHOD(put_prpDate)(DATE newVal);
- STDMETHOD(inDecimal)(DECIMAL val);
- STDMETHOD(outDecimal)(DECIMAL* val);
- STDMETHOD(inoutDecimal)(DECIMAL* val);
- STDMETHOD(get_prpDecimal)(DECIMAL* pVal);
- STDMETHOD(put_prpDecimal)(DECIMAL newVal);
- STDMETHOD(inSCode)(SCODE val);
- STDMETHOD(outScode)(SCODE* val);
- STDMETHOD(inoutSCode)(SCODE* val);
- STDMETHOD(get_prpSCode)(SCODE* pVal);
- STDMETHOD(put_prpSCode)(SCODE newVal);
- STDMETHOD(inrefLong)(LONG* val);
- STDMETHOD(inrefVariant)(VARIANT* val);
- STDMETHOD(inrefDecimal)(DECIMAL* val);
- STDMETHOD(get_prpRefLong)(long* pVal);
- STDMETHOD(putref_prpRefLong)(long* newVal);
- STDMETHOD(get_prprefVariant)(VARIANT* pVal);
- STDMETHOD(putref_prprefVariant)(VARIANT* newVal);
- STDMETHOD(get_prprefDecimal)(DECIMAL* pVal);
- STDMETHOD(putref_prprefDecimal)(DECIMAL* newVal);
- STDMETHOD(optional6)(VARIANT* val1, VARIANT* val2, VARIANT* val3, VARIANT* val4);
- STDMETHOD(optional7)(VARIANT* val1, VARIANT* val2, VARIANT* val3, VARIANT* val4);
-
- STDMETHOD(get_prpMultiArg1)(VARIANT* val1, VARIANT* val2, VARIANT* pVal);
- //STDMETHOD(get_prpMultiArg1)(VARIANT* val1, VARIANT* pVal);
- STDMETHOD(put_prpMultiArg1)(VARIANT* val1, VARIANT* val2, VARIANT* newVal);
- //STDMETHOD(put_prpMultiArg1)(VARIANT* val1, VARIANT* newVal);
- STDMETHOD(get_prpMultiArg2)(VARIANT val1, VARIANT* pVal);
- STDMETHOD(put_prpMultiArg2)(VARIANT val1, VARIANT newVal);
- STDMETHOD(prpMultiArg2GetValues)(VARIANT* val1, VARIANT* valProperty);
- STDMETHOD(get_prpMultiArg3)(LONG* val1, LONG* pVal);
- STDMETHOD(put_prpMultiArg3)(LONG* val1, LONG newVal);
-
- // IFoo Methods
-public:
- STDMETHOD(inUnknown)(IUnknown* val);
- STDMETHOD(outUnknown)(IUnknown** val);
- STDMETHOD(inoutUnknown)(IUnknown** val);
- STDMETHOD(get_prpUnknown)(IUnknown** pVal);
- STDMETHOD(put_prpUnknown)(IUnknown* newVal);
-};
-
-#endif //__BASIC_H_
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/Basic.rgs b/extensions/test/ole/AxTestComponents/Basic.rgs
deleted file mode 100644
index 67fa86008..000000000
--- a/extensions/test/ole/AxTestComponents/Basic.rgs
+++ /dev/null
@@ -1,50 +0,0 @@
-HKCR
-{
- AxTestComponents.Basic.1 = s 'Basic Class'
- {
- CLSID = s '{BFE10EBE-8584-11D4-8335-005004526AB4}'
- }
- AxTestComponents.Basic = s 'Basic Class'
- {
- CLSID = s '{BFE10EBE-8584-11D4-8335-005004526AB4}'
- CurVer = s 'AxTestComponents.Basic.1'
- }
- NoRemove CLSID
- {
- ForceRemove {BFE10EBE-8584-11D4-8335-005004526AB4} = s 'Basic Class'
- {
- ProgID = s 'AxTestComponents.Basic.1'
- VersionIndependentProgID = s 'AxTestComponents.Basic'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{BFE10EB1-8584-11D4-8335-005004526AB4}'
- }
- }
- AxTestComponents.Foo.1 = s 'Foo Class'
- {
- CLSID = s '{14DE9D5D-EB9D-4091-8E1B-A1B1672D8C1D}'
- }
- AxTestComponents.Foo = s 'Foo Class'
- {
- CLSID = s '{14DE9D5D-EB9D-4091-8E1B-A1B1672D8C1D}'
- CurVer = s 'AxTestComponents.Foo.1'
- }
- NoRemove CLSID
- {
- ForceRemove {14DE9D5D-EB9D-4091-8E1B-A1B1672D8C1D} = s 'Foo Class'
- {
- ProgID = s 'AxTestComponents.Foo.1'
- VersionIndependentProgID = s 'AxTestComponents.Foo'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{BFE10EB1-8584-11D4-8335-005004526AB4}'
- }
- }
-
-}
diff --git a/extensions/test/ole/AxTestComponents/Foo.cpp b/extensions/test/ole/AxTestComponents/Foo.cpp
deleted file mode 100644
index 6eacea772..000000000
--- a/extensions/test/ole/AxTestComponents/Foo.cpp
+++ /dev/null
@@ -1,49 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#include "stdafx.h"
-#include "Foo.h"
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CBasic
-CFoo::CFoo()
-{
-}
-
-CFoo::~CFoo()
-{
-
-}
-
-STDMETHODIMP CFoo::Foo(IUnknown *pVal)
-{
- return S_OK;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/Foo.h b/extensions/test/ole/AxTestComponents/Foo.h
deleted file mode 100644
index a4024ea01..000000000
--- a/extensions/test/ole/AxTestComponents/Foo.h
+++ /dev/null
@@ -1,66 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Basic.h : Declaration of the CBasic
-
-#ifndef __Foo_H_
-#define __Foo_H_
-
-#include "resource.h" // main symbols
-#import "AxTestComponents.tlb" no_namespace no_implementation raw_interfaces_only named_guids
-
-/////////////////////////////////////////////////////////////////////////////
-// CBasic
-class ATL_NO_VTABLE CFoo :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CFoo, &CLSID_Foo>,
- public IFoo
-
-// public IDispatchImpl<IFoo, &__uuidof(IFoo), &LIBID_AXTESTCOMPONENTSLib, /* wMajor = */ 1, /* wMinor = */ 0>
-{
-public:
- CFoo();
- ~CFoo();
-
- DECLARE_REGISTRY_RESOURCEID(IDR_BASIC)
-
- DECLARE_PROTECT_FINAL_CONSTRUCT()
-
- BEGIN_COM_MAP(CFoo)
- COM_INTERFACE_ENTRY(IFoo)
- END_COM_MAP()
-
-
-STDMETHOD(Foo)(IUnknown* val);
-
- // IFoo Methods
-public:
-};
-
-#endif //__BASIC_H_
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/StdAfx.cpp b/extensions/test/ole/AxTestComponents/StdAfx.cpp
deleted file mode 100644
index d881698b2..000000000
--- a/extensions/test/ole/AxTestComponents/StdAfx.cpp
+++ /dev/null
@@ -1,35 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#include "stdafx.h"
-
-#ifdef _ATL_STATIC_REGISTRY
-#include <statreg.h>
-#endif
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/StdAfx.h b/extensions/test/ole/AxTestComponents/StdAfx.h
deleted file mode 100644
index a46eeeb61..000000000
--- a/extensions/test/ole/AxTestComponents/StdAfx.h
+++ /dev/null
@@ -1,59 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently,
-// but are changed infrequently
-
-#if !defined(AFX_STDAFX_H__BFE10EB4_8584_11D4_8335_005004526AB4__INCLUDED_)
-#define AFX_STDAFX_H__BFE10EB4_8584_11D4_8335_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#define STRICT
-#ifndef _WIN32_WINNT
-#define _WIN32_WINNT 0x0400
-#endif
-#define _ATL_APARTMENT_THREADED
-
-#include <atlbase.h>
-//You may derive a class from CComModule and use it if you want to override
-//something, but do not change the name of _Module
-extern CComModule _Module;
-#include <atlcom.h>
-#include <stdio.h>
-#include <tchar.h>
-#include <string.h>
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__BFE10EB4_8584_11D4_8335_005004526AB4__INCLUDED)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/AxTestComponents/readme.txt b/extensions/test/ole/AxTestComponents/readme.txt
deleted file mode 100644
index 363a0ed33..000000000
--- a/extensions/test/ole/AxTestComponents/readme.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-
-The component does not use the AxTestComponent.h created by the midl
-compiler. Instead #import is used. This is because of a bug when
-using attribute "defaultvalue" in idl. \ No newline at end of file
diff --git a/extensions/test/ole/AxTestComponents/resource.h b/extensions/test/ole/AxTestComponents/resource.h
deleted file mode 100644
index b92618918..000000000
--- a/extensions/test/ole/AxTestComponents/resource.h
+++ /dev/null
@@ -1,47 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-//{{NO_DEPENDENCIES}}
-// Microsoft Developer Studio generated include file.
-// Used by AxTestComponents.rc
-//
-#define IDS_PROJNAME 100
-#define IDR_BASIC 101
-//#define IDR_FOO 501
-
-// Next default values for new objects
-//
-#ifdef APSTUDIO_INVOKED
-#ifndef APSTUDIO_READONLY_SYMBOLS
-#define _APS_NEXT_RESOURCE_VALUE 201
-#define _APS_NEXT_COMMAND_VALUE 32768
-#define _APS_NEXT_CONTROL_VALUE 201
-#define _APS_NEXT_SYMED_VALUE 102
-#endif
-#endif
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas b/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas
deleted file mode 100644
index e9bb197ed..000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/Module1.bas
+++ /dev/null
@@ -1,8 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-Sub main()
- Dim obj As Object
- Set obj = CreateObject("dcomtest.writerdemo.wsc")
- obj.run
-End Sub
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp
deleted file mode 100644
index ca477cff6..000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbp
+++ /dev/null
@@ -1,33 +0,0 @@
-Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
-Module=Module1; Module1.bas
-Startup="Sub Main"
-HelpFile=""
-Command32=""
-Name="client_writerdemo"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw b/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw
deleted file mode 100644
index 067d7529e..000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/client_writerdemo.vbw
+++ /dev/null
@@ -1 +0,0 @@
-Module1 = 108, 108, 685, 544,
diff --git a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt b/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt
deleted file mode 100644
index 1d5a63492..000000000
--- a/extensions/test/ole/DCOM/Clients/WriterDemo/readme.txt
+++ /dev/null
@@ -1,4 +0,0 @@
-Visual Basic client that instantiates a Windows Script Component
-,dcomtest.writerdemo.wsc. That component is located in
-extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc. Don't forget to
-register that component (right-click,select register).
diff --git a/extensions/test/ole/DCOM/dcom_test/Module1.bas b/extensions/test/ole/DCOM/dcom_test/Module1.bas
deleted file mode 100644
index c41c3a073..000000000
--- a/extensions/test/ole/DCOM/dcom_test/Module1.bas
+++ /dev/null
@@ -1,38 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-Sub main()
-
-MsgBox "hallo"
-
-'The service manager is always the starting point
-'If there is no office running then an office is started up
-Dim objServiceManager As Object
-Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
-
-'Create the CoreReflection service that is later used to create structs
-Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-
-'Create the Desktop
-Set objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
-
-'Open a new empty writer document
-
-Set objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-'get a type description class for Size
-Set propClass = objCoreReflection.forName("com.sun.star.beans.PropertyValue")
-
-Dim prop
-propClass.CreateObject prop
-prop.Name = "Hidden"
-prop.Value = True
-
-'create the actual object
-Dim args(0)
-Set args(0) = prop
-
-Dim args2()
-'Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
-Set objDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args2)
-
-End Sub
diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp
deleted file mode 100644
index 5b896434f..000000000
--- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbp
+++ /dev/null
@@ -1,37 +0,0 @@
-Type=Exe
-Reference=*\G{00020430-0000-0000-C000-000000000046}#2.0#0#C:\WINNT\System32\stdole2.tlb#OLE Automation
-Module=Module1; ..\..\..\..\..\..\Projects\VBasic\dcom_test\Module1.bas
-Startup="Sub Main"
-HelpFile=""
-Title="dcom_test"
-ExeName32="dcom_test.exe"
-Path32="..\..\..\..\..\..\Projects\VBasic\dcom_test"
-Command32=""
-Name="dcom_test"
-HelpContextID="0"
-CompatibleMode="0"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=0
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-DebugStartupOption=0
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw b/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw
deleted file mode 100644
index dfe34e0d1..000000000
--- a/extensions/test/ole/DCOM/dcom_test/dcom_test.vbw
+++ /dev/null
@@ -1 +0,0 @@
-Module1 = 1, 1, 849, 604, Z
diff --git a/extensions/test/ole/DCOM/dcom_test/readme.txt b/extensions/test/ole/DCOM/dcom_test/readme.txt
deleted file mode 100644
index 215d6f409..000000000
--- a/extensions/test/ole/DCOM/dcom_test/readme.txt
+++ /dev/null
@@ -1,5 +0,0 @@
-The program creates the com.sun.star.Servicemanager on a remote machine:
-
-Set objServiceManager = CreateObject("com.sun.star.ServiceManager", "\\jl-1036")
-
-creates a document and writes in it. \ No newline at end of file
diff --git a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc b/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc
deleted file mode 100644
index bb3317793..000000000
--- a/extensions/test/ole/DCOM/scriptComponents/WriterDemo.wsc
+++ /dev/null
@@ -1,186 +0,0 @@
-<?xml version="1.0"?>
-<component>
-
-<?component error="true" debug="true"?>
-
-<registration
- description="writerdemo script component"
- progid="dcomtest.writerdemo.WSC"
- version="1.00"
- classid="{90c5ca1a-5e38-4c6d-9634-b0c740c569ad}"
- remotable="true"
->
-</registration>
-
-<public>
- <method name="run">
- </method>
-</public>
-
-<script language="JScript">
-<![CDATA[
-
-var description = new jscripttest;
-
-function jscripttest()
-{
-
- this.run = run;
-}
-
-function run()
-{
-//The service manager is always the starting point
-//If there is no office running then an office is started up
-
-var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager","\\jl-1036");
-
-//Create the CoreReflection service that is later used to create structs
-var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
-
-//Create the Desktop
-var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop");
-
-//Open a new empty writer document
-var objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection");
-
-//get a type description class for Size
-//var propClass = objCoreReflection.forName( "com.sun.star.beans.PropertyValue" );
-
-//var propParam= new Array();
-//propClass.createObject(propParam);
-//var prop= propParam[0];
-//prop.Name= "Hidden";
-//prop.Value= true;
-
-//create the actual object
-var args= new Array();
-var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args);
-
-//Create a text object
-var objText= objDocument.getText();
-
-//Create a cursor object
-var objCursor= objText.createTextCursor();
-
-//Inserting some Text
-objText.insertString( objCursor, "The first line in the newly created text document.\n", false);
-
-//Inserting a second line
-objText.insertString( objCursor, "Now we're in the second line", false);
-
-//Create instance of a text table with 4 columns and 4 rows
-var objTable= objDocument.createInstance( "com.sun.star.text.TextTable");
-objTable.initialize( 4, 4);
-
-//Insert the table
-objText.insertTextContent( objCursor, objTable, false);
-
-//Get first row
-var objRows= objTable.getRows();
-var objRow= objRows.getByIndex( 0);
-
-//Set the table background color
-objTable.setPropertyValue( "BackTransparent", false);
-objTable.setPropertyValue( "BackColor", 13421823);
-
-//Set a different background color for the first row
-objRow.setPropertyValue( "BackTransparent", false);
-objRow.setPropertyValue( "BackColor", 6710932);
-
-//Fill the first table row
-insertIntoCell( "A1","FirstColumn", objTable);
-insertIntoCell( "B1","SecondColumn", objTable);
-insertIntoCell( "C1","ThirdColumn", objTable);
-insertIntoCell( "D1","SUM", objTable);
-
-
-objTable.getCellByName("A2").setValue( 22.5);
-objTable.getCellByName("B2").setValue( 5615.3);
-objTable.getCellByName("C2").setValue( -2315.7);
-objTable.getCellByName("D2").setFormula("sum <A2:C2>");
-
-objTable.getCellByName("A3").setValue( 21.5);
-objTable.getCellByName("B3").setValue( 615.3);
-objTable.getCellByName("C3").setValue( -315.7);
-objTable.getCellByName("D3").setFormula( "sum <A3:C3>");
-
-objTable.getCellByName("A4").setValue( 121.5);
-objTable.getCellByName("B4").setValue( -615.3);
-objTable.getCellByName("C4").setValue( 415.7);
-objTable.getCellByName("D4").setFormula( "sum <A4:C4>");
-
-//Change the CharColor and add a Shadow
-objCursor.setPropertyValue( "CharColor", 255);
-objCursor.setPropertyValue( "CharShadowed", true);
-
-//Create a paragraph break
-//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
-objText.insertControlCharacter( objCursor, 0 , false);
-
-//Inserting colored Text.
-objText.insertString( objCursor, " This is a colored Text - blue with shadow\n", false);
-
-//Create a paragraph break ( ControlCharacter::PARAGRAPH_BREAK).
-objText.insertControlCharacter( objCursor, 0, false );
-
-//Create a TextFrame.
-var objTextFrame= objDocument.createInstance("com.sun.star.text.TextFrame");
-
-//Create a Size struct.
-var objSize= createStruct("com.sun.star.awt.Size");
-objSize.Width= 15000;
-objSize.Height= 400;
-objTextFrame.setSize( objSize);
-
-//TextContentAnchorType.AS_CHARACTER = 1
-objTextFrame.setPropertyValue( "AnchorType", 1);
-
-//insert the frame
-objText.insertTextContent( objCursor, objTextFrame, false);
-
-//Get the text object of the frame
-var objFrameText= objTextFrame.getText();
-
-//Create a cursor object
-var objFrameTextCursor= objFrameText.createTextCursor();
-
-//Inserting some Text
-objFrameText.insertString( objFrameTextCursor, "The first line in the newly created text frame.",
- false);
-objFrameText.insertString(objFrameTextCursor,
- "With this second line the height of the frame raises.", false );
-
-//Create a paragraph break
-//The second argument is a com::sun::star::text::ControlCharacter::PARAGRAPH_BREAK constant
-objFrameText.insertControlCharacter( objCursor, 0 , false);
-
-//Change the CharColor and add a Shadow
-objCursor.setPropertyValue( "CharColor", 65536);
-objCursor.setPropertyValue( "CharShadowed", false);
-
-//Insert another string
-objText.insertString( objCursor, " That's all for now !!", false );
-
-function insertIntoCell( strCellName, strText, objTable)
-{
- var objCellText= objTable.getCellByName( strCellName);
- var objCellCursor= objCellText.createTextCursor();
- objCellCursor.setPropertyValue( "CharColor",16777215);
- objCellText.insertString( objCellCursor, strText, false);
-}
-function createStruct( strTypeName)
-{
- var classSize= objCoreReflection.forName( strTypeName);
- var aStruct= new Array();
- classSize.createObject( aStruct);
- return aStruct[0];
-}
-
-
-}
-
-]]>
-</script>
-
-</component>
diff --git a/extensions/test/ole/DCOM/scriptComponents/readme.txt b/extensions/test/ole/DCOM/scriptComponents/readme.txt
deleted file mode 100644
index 81dff56b4..000000000
--- a/extensions/test/ole/DCOM/scriptComponents/readme.txt
+++ /dev/null
@@ -1,13 +0,0 @@
-WriterDemo.wsc
-=================================================================================
-Register the component by right-clicking on the file in the file explorer and select
-register.
-The component registered as being remotable.That is, it has got an AppID entry (with
-a DllSurrogate subkey).That enables us to use dcomcnfg.exe in order to set AccessPermissions,etc.
-which is necessary because of the use of the JScript Array object. The automation
-bridge will query for IDispatchEx,which is a call from server to client.Hence the server
-needs the proper right within the client.
-
-The component implements a run function, which runs the demo example that is written
-in JScript.
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp
deleted file mode 100644
index 9512ec4c2..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.cpp
+++ /dev/null
@@ -1,74 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// EventListener.cpp : Implementation of DLL Exports.
-
-
-// Note: Proxy/Stub Information
-// To build a separate proxy/stub DLL,
-// run nmake -f EventListenerps.mk in the project directory.
-
-#include "stdafx.h"
-#include "resource.h"
-#include <initguid.h>
-#include "EventListener.h"
-
-#include "EventListener_i.c"
-#include "EvtListener.h"
-
-
-CComModule _Module;
-
-BEGIN_OBJECT_MAP(ObjectMap)
-OBJECT_ENTRY(CLSID_EvtListener, CEvtListener)
-END_OBJECT_MAP()
-
-/////////////////////////////////////////////////////////////////////////////
-// DLL Entry Point
-
-extern "C"
-BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
-{
- if (dwReason == DLL_PROCESS_ATTACH)
- {
- _Module.Init(ObjectMap, hInstance, &LIBID_EVENTLISTENERLib);
- DisableThreadLibraryCalls(hInstance);
- }
- else if (dwReason == DLL_PROCESS_DETACH)
- _Module.Term();
- return TRUE; // ok
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Used to determine whether the DLL can be unloaded by OLE
-
-STDAPI DllCanUnloadNow(void)
-{
- return (_Module.GetLockCount()==0) ? S_OK : S_FALSE;
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Returns a class factory to create an object of the requested type
-
-STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
-{
- return _Module.GetClassObject(rclsid, riid, ppv);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllRegisterServer - Adds entries to the system registry
-
-STDAPI DllRegisterServer(void)
-{
- // registers object, typelib and all interfaces in typelib
- return _Module.RegisterServer(TRUE);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllUnregisterServer - Removes entries from the system registry
-
-STDAPI DllUnregisterServer(void)
-{
- return _Module.UnregisterServer(TRUE);
-}
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.def b/extensions/test/ole/EventListenerSample/EventListener/EventListener.def
deleted file mode 100644
index 9d88a68f7..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.def
+++ /dev/null
@@ -1,9 +0,0 @@
-; EventListener.def : Declares the module parameters.
-
-LIBRARY "EventListener.DLL"
-
-EXPORTS
- DllCanUnloadNow PRIVATE
- DllGetClassObject PRIVATE
- DllRegisterServer PRIVATE
- DllUnregisterServer PRIVATE
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl b/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl
deleted file mode 100644
index 6272173a2..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.idl
+++ /dev/null
@@ -1,39 +0,0 @@
-// EventListener.idl : IDL source for EventListener.dll
-//
-
-// This file will be processed by the MIDL tool to
-// produce the type library (EventListener.tlb) and marshalling code.
-
-import "oaidl.idl";
-import "ocidl.idl";
- [
- object,
- uuid(86653399-24C6-4C2B-9E8A-564175250CB2),
- dual,
- helpstring("IEvtListener-Schnittstelle"),
- pointer_default(unique)
- ]
- interface IEvtListener : IDispatch
- {
- [id(1), helpstring("Methode disposing")] HRESULT disposing([in] IDispatch* source);
- };
-
-[
- uuid(E3E61535-3262-45E6-BFD9-EE8AED051BD1),
- version(1.0),
- helpstring("EventListener 1.0 Type Library")
-]
-library EVENTLISTENERLib
-{
- importlib("stdole32.tlb");
- importlib("stdole2.tlb");
-
- [
- uuid(830E0743-87C1-4C99-A77A-5FBA0C2EBD9A),
- helpstring("EvtListener Class")
- ]
- coclass EvtListener
- {
- [default] interface IEvtListener;
- };
-};
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc b/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc
deleted file mode 100644
index 90f0c7bd2..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.rc
+++ /dev/null
@@ -1,136 +0,0 @@
-//Microsoft Developer Studio generated resource script.
-//
-#include "resource.h"
-
-#define APSTUDIO_READONLY_SYMBOLS
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 2 resource.
-//
-#include "winres.h"
-
-/////////////////////////////////////////////////////////////////////////////
-#undef APSTUDIO_READONLY_SYMBOLS
-
-/////////////////////////////////////////////////////////////////////////////
-// Deutsch (Deutschland) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_DEU)
-#ifdef _WIN32
-LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
-#pragma code_page(1252)
-#endif //_WIN32
-
-#ifdef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// TEXTINCLUDE
-//
-
-1 TEXTINCLUDE DISCARDABLE
-BEGIN
- "resource.h\0"
-END
-
-2 TEXTINCLUDE DISCARDABLE
-BEGIN
- "#include ""winres.h""\r\n"
- "\0"
-END
-
-3 TEXTINCLUDE DISCARDABLE
-BEGIN
- "1 TYPELIB ""EventListener.tlb""\r\n"
- "\0"
-END
-
-#endif // APSTUDIO_INVOKED
-
-
-#ifndef _MAC
-/////////////////////////////////////////////////////////////////////////////
-//
-// Version
-//
-
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION 1,0,0,1
- PRODUCTVERSION 1,0,0,1
- FILEFLAGSMASK 0x3fL
-#ifdef _DEBUG
- FILEFLAGS 0x1L
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS 0x4L
- FILETYPE 0x2L
- FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904B0"
- BEGIN
- VALUE "CompanyName", "\0"
- VALUE "FileDescription", "EventListener Module\0"
- VALUE "FileVersion", "1, 0, 0, 1\0"
- VALUE "InternalName", "EventListener\0"
- VALUE "LegalCopyright", "Copyright 2001\0"
- VALUE "OriginalFilename", "EventListener.DLL\0"
- VALUE "ProductName", "EventListener Module\0"
- VALUE "ProductVersion", "1, 0, 0, 1\0"
- VALUE "OLESelfRegister", "\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
-END
-
-#endif // !_MAC
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// String Table
-//
-
-STRINGTABLE DISCARDABLE
-BEGIN
- IDS_PROJNAME "EventListener"
-END
-
-#endif // Deutsch (Deutschland) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Englisch (USA) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
-#ifdef _WIN32
-LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
-#pragma code_page(1252)
-#endif //_WIN32
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// REGISTRY
-//
-
-IDR_EVTLISTENER REGISTRY DISCARDABLE "EvtListener.rgs"
-#endif // Englisch (USA) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-
-#ifndef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 3 resource.
-//
-1 TYPELIB "EventListener.tlb"
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // not APSTUDIO_INVOKED
-
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.sln b/extensions/test/ole/EventListenerSample/EventListener/EventListener.sln
deleted file mode 100644
index 8420bb492..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.sln
+++ /dev/null
@@ -1,32 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "EventListener", "EventListener.vcproj", "{055137B6-A402-4913-AC11-9A096E866F5B}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Win32 = Debug|Win32
- Release MinDependency|Win32 = Release MinDependency|Win32
- Release MinSize|Win32 = Release MinSize|Win32
- Unicode Debug|Win32 = Unicode Debug|Win32
- Unicode Release MinDependency|Win32 = Unicode Release MinDependency|Win32
- Unicode Release MinSize|Win32 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {055137B6-A402-4913-AC11-9A096E866F5B}.Debug|Win32.ActiveCfg = Debug|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Debug|Win32.Build.0 = Debug|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Release MinDependency|Win32.ActiveCfg = Release MinDependency|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Release MinDependency|Win32.Build.0 = Release MinDependency|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Release MinSize|Win32.ActiveCfg = Release MinSize|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Release MinSize|Win32.Build.0 = Release MinSize|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Debug|Win32.ActiveCfg = Unicode Debug|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Debug|Win32.Build.0 = Unicode Debug|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Release MinDependency|Win32.ActiveCfg = Unicode Release MinDependency|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Release MinDependency|Win32.Build.0 = Unicode Release MinDependency|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Release MinSize|Win32.ActiveCfg = Unicode Release MinSize|Win32
- {055137B6-A402-4913-AC11-9A096E866F5B}.Unicode Release MinSize|Win32.Build.0 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EventListener.vcproj b/extensions/test/ole/EventListenerSample/EventListener/EventListener.vcproj
deleted file mode 100644
index e8aef5532..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EventListener.vcproj
+++ /dev/null
@@ -1,927 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
- ProjectType="Visual C++"
- Version="9,00"
- Name="EventListener"
- ProjectGUID="{055137B6-A402-4913-AC11-9A096E866F5B}"
- RootNamespace="EventListener"
- Keyword="AtlProj"
- TargetFrameworkVersion="0"
- >
- <Platforms>
- <Platform
- Name="Win32"
- />
- </Platforms>
- <ToolFiles>
- </ToolFiles>
- <Configurations>
- <Configuration
- Name="Unicode Release MinSize|Win32"
- OutputDirectory=".\ReleaseUMinSize"
- IntermediateDirectory=".\ReleaseUMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="true"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinSize/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="1"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinSize/EventListener.pch"
- AssemblerListingLocation=".\ReleaseUMinSize/"
- ObjectFile=".\ReleaseUMinSize/"
- ProgramDataBaseFileName=".\ReleaseUMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\ReleaseUMinSize/EventListener.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- ProgramDatabaseFile=".\ReleaseUMinSize/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinSize/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\ReleaseUMinSize/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Debug|Win32"
- OutputDirectory=".\DebugU"
- IntermediateDirectory=".\DebugU"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\DebugU/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- MinimalRebuild="true"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\DebugU/EventListener.pch"
- AssemblerListingLocation=".\DebugU/"
- ObjectFile=".\DebugU/"
- ProgramDataBaseFileName=".\DebugU/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\DebugU/EventListener.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\DebugU/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\DebugU/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\DebugU/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinDependency|Win32"
- OutputDirectory=".\ReleaseMinDependency"
- IntermediateDirectory=".\ReleaseMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="true"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinDependency/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="1"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinDependency/EventListener.pch"
- AssemblerListingLocation=".\ReleaseMinDependency/"
- ObjectFile=".\ReleaseMinDependency/"
- ProgramDataBaseFileName=".\ReleaseMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\ReleaseMinDependency/EventListener.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- ProgramDatabaseFile=".\ReleaseMinDependency/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinDependency/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\ReleaseMinDependency/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinSize|Win32"
- OutputDirectory=".\ReleaseMinSize"
- IntermediateDirectory=".\ReleaseMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="true"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinSize/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="1"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinSize/EventListener.pch"
- AssemblerListingLocation=".\ReleaseMinSize/"
- ObjectFile=".\ReleaseMinSize/"
- ProgramDataBaseFileName=".\ReleaseMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\ReleaseMinSize/EventListener.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- ProgramDatabaseFile=".\ReleaseMinSize/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinSize/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\ReleaseMinSize/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Debug|Win32"
- OutputDirectory=".\Debug"
- IntermediateDirectory=".\Debug"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\Debug/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- MinimalRebuild="true"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Debug/EventListener.pch"
- AssemblerListingLocation=".\Debug/"
- ObjectFile=".\Debug/"
- ProgramDataBaseFileName=".\Debug/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\Debug/EventListener.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\Debug/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\Debug/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\Debug/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Release MinDependency|Win32"
- OutputDirectory=".\ReleaseUMinDependency"
- IntermediateDirectory=".\ReleaseUMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC60.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="true"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinDependency/EventListener.tlb"
- HeaderFileName=""
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="1"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinDependency/EventListener.pch"
- AssemblerListingLocation=".\ReleaseUMinDependency/"
- ObjectFile=".\ReleaseUMinDependency/"
- ProgramDataBaseFileName=".\ReleaseUMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1031"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- OutputFile=".\ReleaseUMinDependency/EventListener.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\EventListener.def"
- ProgramDatabaseFile=".\ReleaseUMinDependency/EventListener.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinDependency/EventListener.lib"
- TargetMachine="1"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- SuppressStartupBanner="true"
- OutputFile=".\ReleaseUMinDependency/EventListener.bsc"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- </Configurations>
- <References>
- </References>
- <Files>
- <Filter
- Name="Source Files"
- Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
- >
- <File
- RelativePath="EventListener.cpp"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath="EventListener.def"
- >
- </File>
- <File
- RelativePath="EventListener.idl"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\EventListener.tlb"
- HeaderFileName="EventListener.h"
- InterfaceIdentifierFileName="EventListener_i.c"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath="EventListener.rc"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions=""
- AdditionalIncludeDirectories="$(OUTDIR)"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath="EvtListener.cpp"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath="StdAfx.cpp"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions=""
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- PreprocessorDefinitions="_ATL_MIN_CRT"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- </File>
- </Filter>
- <Filter
- Name="Header Files"
- Filter="h;hpp;hxx;hm;inl"
- >
- <File
- RelativePath="EvtListener.h"
- >
- </File>
- <File
- RelativePath="Resource.h"
- >
- </File>
- <File
- RelativePath="StdAfx.h"
- >
- </File>
- </Filter>
- <Filter
- Name="Resource Files"
- Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
- >
- <File
- RelativePath="EvtListener.rgs"
- >
- </File>
- </Filter>
- </Files>
- <Globals>
- </Globals>
-</VisualStudioProject>
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
deleted file mode 100644
index 1605b0982..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.cpp
+++ /dev/null
@@ -1,21 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// EvtListener.cpp : Implementierung von CEvtListener
-#include "stdafx.h"
-#include "EventListener.h"
-#include "EvtListener.h"
-
-/////////////////////////////////////////////////////////////////////////////
-// CEvtListener
-
-STDMETHODIMP CEvtListener::disposing( IDispatch* source)
-{
- ::MessageBox(NULL,_T("XEventListener::disposing"),
- _T("EventListener.EvtListener component"), MB_OK);
- return S_OK;
-}
-
-CEvtListener::~CEvtListener()
-{
-
-}
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
deleted file mode 100644
index 2bc0a6a9a..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.h
+++ /dev/null
@@ -1,38 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// EvtListener.h : Deklaration von CEvtListener
-
-#ifndef __EVTLISTENER_H_
-#define __EVTLISTENER_H_
-
-#include "resource.h" // Hauptsymbole
-
-/////////////////////////////////////////////////////////////////////////////
-// CEvtListener
-class ATL_NO_VTABLE CEvtListener :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CEvtListener, &CLSID_EvtListener>,
- public IDispatchImpl<IEvtListener, &IID_IEvtListener, &LIBID_EVENTLISTENERLib>
-{
-public:
- CEvtListener()
- {
- }
- ~CEvtListener();
-
-DECLARE_REGISTRY_RESOURCEID(IDR_EVTLISTENER)
-
-DECLARE_PROTECT_FINAL_CONSTRUCT()
-
-BEGIN_COM_MAP(CEvtListener)
- COM_INTERFACE_ENTRY(IEvtListener)
- COM_INTERFACE_ENTRY(IDispatch)
-END_COM_MAP()
-
-// IEvtListener
-public:
- STDMETHOD(disposing)(IDispatch* source);
-};
-
-#endif //__EVTLISTENER_H_
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs b/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs
deleted file mode 100644
index e0aa9bbb7..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/EvtListener.rgs
+++ /dev/null
@@ -1,26 +0,0 @@
-HKCR
-{
- EventListener.EvtListener.1 = s 'EvtListener Class'
- {
- CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}'
- }
- EventListener.EvtListener = s 'EvtListener Class'
- {
- CLSID = s '{830E0743-87C1-4C99-A77A-5FBA0C2EBD9A}'
- CurVer = s 'EventListener.EvtListener.1'
- }
- NoRemove CLSID
- {
- ForceRemove {830E0743-87C1-4C99-A77A-5FBA0C2EBD9A} = s 'EvtListener Class'
- {
- ProgID = s 'EventListener.EvtListener.1'
- VersionIndependentProgID = s 'EventListener.EvtListener'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{E3E61535-3262-45E6-BFD9-EE8AED051BD1}'
- }
- }
-}
diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp
deleted file mode 100644
index c25536a52..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.cpp
+++ /dev/null
@@ -1,15 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// stdafx.cpp : source file that includes just the standard includes
-// stdafx.pch will be the pre-compiled header
-// stdafx.obj will contain the pre-compiled type information
-
-#include "stdafx.h"
-
-#ifdef _ATL_STATIC_REGISTRY
-#include <statreg.h>
-#include <statreg.cpp>
-#endif
-
-#include <atlimpl.cpp>
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h b/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h
deleted file mode 100644
index def66faf1..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/StdAfx.h
+++ /dev/null
@@ -1,30 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently,
-// but are changed infrequently
-
-#if !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_)
-#define AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#define STRICT
-#ifndef _WIN32_WINNT
-#define _WIN32_WINNT 0x0400
-#endif
-#define _ATL_APARTMENT_THREADED
-
-#include <atlbase.h>
-//You may derive a class from CComModule and use it if you want to override
-//something, but do not change the name of _Module
-extern CComModule _Module;
-#include <atlcom.h>
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__E275407A_804A_477E_9A28_F5CA84E711C3__INCLUDED)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/EventListener/resource.h b/extensions/test/ole/EventListenerSample/EventListener/resource.h
deleted file mode 100644
index 70bf51a6f..000000000
--- a/extensions/test/ole/EventListenerSample/EventListener/resource.h
+++ /dev/null
@@ -1,20 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-//{{NO_DEPENDENCIES}}
-// Microsoft Developer Studio generated include file.
-// Used by EventListener.rc
-//
-#define IDS_PROJNAME 100
-#define IDR_EVTLISTENER 101
-
-// Next default values for new objects
-//
-#ifdef APSTUDIO_INVOKED
-#ifndef APSTUDIO_READONLY_SYMBOLS
-#define _APS_NEXT_RESOURCE_VALUE 201
-#define _APS_NEXT_COMMAND_VALUE 32768
-#define _APS_NEXT_CONTROL_VALUE 201
-#define _APS_NEXT_SYMED_VALUE 102
-#endif
-#endif
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas b/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas
deleted file mode 100644
index aafd265a0..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/Module1.bas
+++ /dev/null
@@ -1,9 +0,0 @@
-Attribute VB_Name = "Module1"
-Option Explicit
-
-
-Sub Main()
-
-End Sub
-
-
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls b/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
deleted file mode 100644
index 4c36785b5..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBEventListener.cls
+++ /dev/null
@@ -1,78 +0,0 @@
-'*************************************************************************
-'
-' DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-'
-' Copyright 2000, 2010 Oracle and/or its affiliates.
-'
-' OpenOffice.org - a multi-platform office productivity suite
-'
-' This file is part of OpenOffice.org.
-'
-' OpenOffice.org is free software: you can redistribute it and/or modify
-' it under the terms of the GNU Lesser General Public License version 3
-' only, as published by the Free Software Foundation.
-'
-' OpenOffice.org is distributed in the hope that it will be useful,
-' but WITHOUT ANY WARRANTY; without even the implied warranty of
-' MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-' GNU Lesser General Public License version 3 for more details
-' (a copy is included in the LICENSE file that accompanied this code).
-'
-' You should have received a copy of the GNU Lesser General Public License
-' version 3 along with OpenOffice.org. If not, see
-' <http://www.openoffice.org/license.html>
-' for a copy of the LGPLv3 License.
-'
-'*************************************************************************
-
-VERSION 1.0 CLASS
-BEGIN
- MultiUse = -1 'True
- Persistable = 0 'NotPersistable
- DataBindingBehavior = 0 'vbNone
- DataSourceBehavior = 0 'vbNone
- MTSTransactionMode = 0 'NotAnMTSObject
-END
-Attribute VB_Name = "VBEventListener"
-Attribute VB_GlobalNameSpace = False
-Attribute VB_Creatable = True
-Attribute VB_PredeclaredId = False
-Attribute VB_Exposed = True
-Option Explicit
-Private interfaces(0) As String
-Private bDisposingCalled As Boolean
-Private bQuiet As Boolean
-
-Public Property Get Bridge_ImplementedInterfaces() As Variant
- Bridge_ImplementedInterfaces = interfaces
-End Property
-
-Private Sub Class_Initialize()
-interfaces(0) = "com.sun.star.lang.XEventListener"
-bDisposingCalled = False
-bQuiet = False
-End Sub
-
-Private Sub Class_Terminate()
- On Error Resume Next
- Debug.Print "Terminate VBEventListener"
-End Sub
-
-Public Sub disposing(ByVal source As Object)
- If bQuiet = False Then
- MsgBox "disposing called"
- End If
- bDisposingCalled = True
-End Sub
-
-Public Sub setQuiet(quiet As Boolean)
- bQuiet = quiet
-End Sub
-
-Public Sub resetDisposing()
- bDisposingCalled = False
-End Sub
-
-Public Function disposingCalled()
- disposingCalled = bDisposingCalled
-End Function
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.dll b/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.dll
deleted file mode 100644
index 5ac90de39..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.dll
+++ /dev/null
Binary files differ
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbp b/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbp
deleted file mode 100644
index f89b866be..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbp
+++ /dev/null
@@ -1,38 +0,0 @@
-Type=OleDll
-Class=VBEventListener; VBEventListener.cls
-Module=Module1; Module1.bas
-Startup="Sub Main"
-HelpFile=""
-ExeName32="VBasicEventListener.dll"
-Command32=""
-Name="VBasicEventListener"
-HelpContextID="0"
-Description="Implementation of UNO XEventListener"
-CompatibleMode="1"
-CompatibleEXE32="VBasicEventListener.dll"
-MajorVer=1
-MinorVer=0
-RevisionVer=0
-AutoIncrementVer=0
-ServerSupportFiles=0
-VersionCompanyName="StarOffice"
-CompilationType=0
-OptimizationType=0
-FavorPentiumPro(tm)=0
-CodeViewDebugInfo=0
-NoAliasing=0
-BoundsCheck=0
-OverflowCheck=0
-FlPointCheck=0
-FDIVCheck=0
-UnroundedFP=0
-StartMode=1
-Unattended=0
-Retained=0
-ThreadPerObject=0
-MaxNumberOfThreads=1
-ThreadingModel=1
-DebugStartupOption=0
-
-[MS Transaction Server]
-AutoRefresh=1
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw b/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw
deleted file mode 100644
index cf737ac40..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/VBasicEventListener.vbw
+++ /dev/null
@@ -1,2 +0,0 @@
-VBEventListener = 132, 132, 732, 748,
-Module1 = 64, 33, 849, 530,
diff --git a/extensions/test/ole/EventListenerSample/VBEventListener/readme.txt b/extensions/test/ole/EventListenerSample/VBEventListener/readme.txt
deleted file mode 100644
index 1daace267..000000000
--- a/extensions/test/ole/EventListenerSample/VBEventListener/readme.txt
+++ /dev/null
@@ -1,7 +0,0 @@
-VBasicEventListener.dll is an ActiveX component written with VisualBasic. The
-component registers on the system with a particular ID. When the library is build
-this ID is generated, unless a previously build library exists. Then the ID of that
-library is used. In order to use always the same ID, the library must be as binary in
-the cvs.
-
-The library can be used under the licences noted in VBEventListener.cls. \ No newline at end of file
diff --git a/extensions/test/ole/EventListenerSample/events.htm b/extensions/test/ole/EventListenerSample/events.htm
deleted file mode 100644
index 973a21528..000000000
--- a/extensions/test/ole/EventListenerSample/events.htm
+++ /dev/null
@@ -1,98 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-function Main( id)
-{
-var objServiceManager= new ActiveXObject("com.sun.star.ServiceManager");
-
-var objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop");
-
-var args= new Array();
-
-var objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args);
-
-var listener;
-if( id == 0)
- listener= new XEventListener_Impl();
-else if(id == 1)
- listener= new ActiveXObject("EventListener.EvtListener");
-objDocument.addEventListener( listener);
-}
-
-
-function XEventListener_Impl()
-{
- this._environment= "JScript";
- this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener");
-
- //XEventListener
- this.disposing= XEventListener_disposing;
-}
-
-function XEventListener_disposing( source)
-{
- alert("JScript Event Listener \n The document was closed");
-}
-</script>
-
-<script language="VBScript">
-SUB MainVB( id)
-Set objServiceManager= CreateObject("com.sun.star.ServiceManager")
-
-Set objCoreReflection= objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
-
-Set objDesktop= objServiceManager.createInstance("com.sun.star.frame.Desktop")
-
-'Open a new empty writer document
-Dim args()
-Set objDocument= objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
-
-Dim eventListener
-select case id
- case 0
- Set eventListener= CreateObject("EventListener.EvtListener")
- case 1
- Set eventListener= CreateObject("VBasicEventListener.VBEventListener")
-end select
-
-objDocument.addEventListener eventlistener
-END SUB
-
-</script>
-<p>
-The script on this page creates a new StarOffice document and connects an event listener
-to it. When the document is closed then the XEventListener::disposing method is called on the
-listener object. How the listener is set up depends on the button being clicked.
-</p>
-<p>
-The button will run JScript code that and adds an JScript event listener to the document.
-The listener is also implemented in JScript an is on this page..
-</p>
-<button onclick='Main(0)'>JScript go</Button>
-<p>
-
-The button runs JScript code that creates the ActiveX component EventListener.EvtListener that
-is written in C++ and housed in a dll. Then the event listener is added to the document.
-</p>
-<button onclick='Main( 1)'>JScript go</Button>
-<p>
-The button runs VBScript code that creates the components EventListener.EvtListener and adds it
-to the document.
-</p>
-<button onclick='MainVB(0)'>VBScript</Button>
-<p>
-Runs VBScript code that creates VBasicEventListener.VBEventListener ActiveX component which was
-written with VB
-</p>
-<button onclick='MainVB(1)'>VBScript</Button>
-
-</body>
-</html>
-
-
diff --git a/extensions/test/ole/EventListenerSample/readme.txt b/extensions/test/ole/EventListenerSample/readme.txt
deleted file mode 100644
index 6485571ec..000000000
--- a/extensions/test/ole/EventListenerSample/readme.txt
+++ /dev/null
@@ -1,20 +0,0 @@
-EventListener
-========================================
-
-The folder EventListener contains an MSDEV project that builds a dll that
-contains the EventListener.EvtListener ActiveX component. The component
-implements the XEventListener interface according to the rules of the
-OleBridge. The component will be used from the HTML page events.htm.
-
-
-VBEventListener:
-========================================
-
-Contains a Visual Basic project that builds an ActiveX component that implements
-com.sun.star.lang.XEventListener. Its ProgId is
-VBasicEventListener.VBEventListener The dll should also be checked in. VB needs
-its TLB, so it uses the same CLSIDs on the next build. The component will create
-a message box when its disposing function has been called.
-
-The project also contains a client that builds a Project1.exe (in the same
-folder) that creates VBEventListener and adds it to a StarOffice document
diff --git a/extensions/test/ole/JScriptNewStyle.htm b/extensions/test/ole/JScriptNewStyle.htm
deleted file mode 100644
index 016119d19..000000000
--- a/extensions/test/ole/JScriptNewStyle.htm
+++ /dev/null
@@ -1,1054 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-function callOleTest( id)
-{
- var factory= new ActiveXObject("com.sun.star.ServiceManager");
- var oletest= factory.createInstance("oletest.OleTest");
-// alert(oletest);
-
- var arr= new Array( 1, 2, 3, 4, 0);
- var arrDouble= new Array( 1.2345, 12.345, 123,45, 1234.5, 12345);
- var arrBool= new Array( 1, 0, 2, 0, 3);
- var arrChar= new Array( '1', 'A', "1", "A", ' ', 55, 56);
- var arrString= new Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza");
- var arrAny= new Array( 100, 100.1235,"hallo");
- var arrSeq= new Array( arr, arr, arr);
- var arrSeq2= new Array( arrSeq, arrSeq, arrSeq)
-
-// var ob= new Object();
-// ob.value= "A JScript object";
-// var arrObject= new Array( ob, ob, ob);
-
-
- var arrout1= new Array();
- var arrout2= new Array();
- var arrout3= new Array();
-
- var ret, i;
- var sfarray, sfarray1, sfarray2, sfarray3;
- var value= oletest._GetValueObject();
- var outValue= oletest._GetValueObject();
- outValue.InitOutParam();
- var outValue2= oletest._GetValueObject();
- outValue2.InitOutParam();
- var outValue3= oletest._GetValueObject();
- outValue3.InitOutParam();
-
- var inoutValue= oletest._GetValueObject();
-// inoutValue.InitInOutParam();
-
- switch( id)
- {
- // Array in-params
- case 1:
- value.Set("[]byte", arr)
- ret= oletest.methodByte( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() + "<br>");
- document.writeln( "Returns a Sequence&lt BYTE &gt <br>" + sfarray.toArray()) ; break;
-
- case 2:
- value.Set("[]double", arrDouble)
- ret= oletest.methodDouble( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrDouble.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt double &gt <br>" + sfarray.toArray()) ; break;
-
- case 3:
- value.Set("[]boolean", arrBool)
- ret= oletest.methodBool( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrBool.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt BOOL &gt <br>" + sfarray.toArray()) ; break;
-
- case 4:
- value.Set("[]short", arr)
- ret= oletest.methodShort( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt SHORT &gt <br>" + sfarray.toArray()) ; break;
-
- case 5:
- value.Set("[]unsigned short", arr)
- ret= oletest.methodUShort( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt unsigned SHORT &gt <br>" + sfarray.toArray()) ; break;
-
- case 6:
- value.Set("[]long", arr)
- ret= oletest.methodLong( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt LONG &gt <br>" + sfarray.toArray()) ; break;
-
- case 7:
- value.Set("[]unsigned long", arr)
- ret= oletest.methodULong( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt unsigned LONG &gt <br>" + sfarray.toArray()) ; break;
-
- case 8:
- value.Set("[]char", arrChar)
- ret= oletest.methodChar( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrChar.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt wchar_t &gt <br>" + sfarray.toArray()) ; break;
-
- case 9:
- value.Set("[]string", arrString)
- ret= oletest.methodString( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrString.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt UString &gt <br>" + sfarray.toArray()) ; break;
-
- case 10:
- value.Set("[]any", arrAny)
- ret= oletest.methodAny( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrAny.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt UsrAny &gt <br>" + sfarray.toArray() ) ; break;
-
- case 11:
- var allArray= new Array();
- for(var i= 0; i <3; i++)
- {
- var value1= oletest._GetValueObject();
- value1.Set("[]long", arr);
- allArray[i]= value1;
- }
-
- value.Set("[][]long", allArray);
-
- ret= oletest.methodSequence( value);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrSeq.toString() +"<br>");
- document.writeln("Returns a Sequence&lt Sequence &lt long &gt&gt <br>") ;
- var arr1= new Array();
- arr1= sfarray.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- var arr2= new Array();
- arr2= sfarray2.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
-
- case 12:
- var array1= new Array();
- for(var i= 0; i <3; i++)
- {
- var array2 = new Array();
- for( var j= 0; j < 3; j++)
- {
- var value2= oletest._GetValueObject();
- value2.Set("[]long", arr);
- array2[j]= value2;
- }
-
- var value1= oletest._GetValueObject();
- value1.Set("[][]long", array2)
- array1[i]= value1;
- }
- var valueAll= oletest._GetValueObject();
- valueAll.Set("[][][]long",array1);
-
- ret= oletest.methodSequence2( valueAll);
- document.writeln( "Param: " + arrSeq2.toString() +"<br>");
- sfarray1= new VBArray( ret);
- arr1= sfarray1.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- arr2= sfarray2.toArray();
-
- for ( j=0; j < arr2.length; j++)
- {
- sfarray3= new VBArray( arr2[j]);
- arr3= sfarray3.toArray();
- document.write( i+ " ");
- document.writeln(j + ": "+ arr3.toString() + "<br>" );
- }
-
- }
- break;
-
- case 13:
-
- var ar= new Array();
- for( i=0; i< 3; i++)
- {
- var ob= new Object();
- var valueObject= oletest._GetValueObject();
- ob.value= "A JScript object!";
- valueObject.Set("com.sun.star.uno.XInterface", ob);
-// valueObject.Set("long", 5);
- ar[i]= valueObject;
- }
- value.Set("[]com.sun.star.uno.XInterface", ar);
-// value.Set("[]long", ar);
-
- ret = oletest.methodXInterface( value);
- sfarray= new VBArray( ret);
- var arRet= sfarray.toArray();
-
- document.writeln( "Params : Array containing objects ")
- for( index in ar)
- {
- document.writeln( "object " + index + ": " + ar[index].Get().value +" ");
- }
- document.writeln( "<br>" ) ;
- document.writeln("Return: <br>");
- for( index in arRet)
- {
- document.writeln( "object " + index + ": " + arRet[index].value + " ");
- }
- break;
-
-
-
-
- // Properties: setting and getting values
- case 200:
- value.Set("[]byte", arr)
- oletest.AttrByte = value;
- ret= oletest.AttrByte;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrByte: " + arr.toString() + "<p>");
- document.writeln("Getting AttrByte: " + sfarray.toArray()); break;
-
- case 201:
- value.Set("[]double", arrDouble)
- oletest.AttrDouble= value;
- ret= oletest.AttrDouble;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrDouble: " + arrDouble.toString() + "<p>");
- document.writeln("Getting AttrDouble: " + sfarray.toArray()); break;
-
- case 202:
- value.Set("[]boolean", arrBool)
- oletest.AttrBool= value;
- ret= oletest.AttrBool;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrBool: " + arrBool.toString() + "<p>");
- document.writeln("Getting AttrBool: " + sfarray.toArray()); break;
-
- case 203:
- value.Set("[]short", arr)
- oletest.AttrShort= value;
- ret= oletest.AttrShort;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrShort: " + arr.toString() + "<p>");
- document.writeln("Getting AttrShort: " + sfarray.toArray()); break;
-
- case 204:
- value.Set("[]unsigned short", arr)
- oletest.AttrUShort= value;
- ret= oletest.AttrUShort;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrUShort: " + arr.toString() + "<p>");
- document.writeln("Getting AttrUShort: " + sfarray.toArray()); break;
-
- case 205:
- value.Set("[]long", arr)
- oletest.AttrLong= value;
- ret= oletest.AttrLong;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrLong: " + arr.toString() + "<p>");
- document.writeln("Getting AttrLong: " + sfarray.toArray()); break;
-
- case 206:
- value.Set("[]unsigned long", arr)
- oletest.AttrULong= value;
- ret= oletest.AttrULong;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrULong: " + arr.toString() + "<p>");
- document.writeln("Getting AttrULong: " + sfarray.toArray()); break;
-
- case 207:
- value.Set("[]char", arrChar)
- oletest.AttrChar= value;
- ret= oletest.AttrChar;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrChar: " + arrChar.toString() + "<p>");
- document.writeln("Getting AttrChar: " + sfarray.toArray()); break;
-
- case 208:
- value.Set("[]string", arrString)
- oletest.AttrString= value;
- ret= oletest.AttrString;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrString: " + arrString.toString() + "<p>");
- document.writeln("Getting AttrString: " + sfarray.toArray()); break;
-
- case 209:
- value.Set("[]any", arrAny)
- oletest.AttrAny= value;
- ret= oletest.AttrAny;
- sfarray= new VBArray( ret);
- document.writeln("Setting AttrAny: " + arrAny.toString() + "<p>");
- document.writeln("Getting AttrAny: " + sfarray.toArray()); break;
-
- case 210:
- var allArray= new Array();
- for(var i= 0; i <3; i++)
- {
- var value1= oletest._GetValueObject();
- value1.Set("[]long", arr);
- allArray[i]= value1;
- }
-
- value.Set("[][]long", allArray);
-
- oletest.AttrSequence= value;
- ret= oletest.AttrSequence;
- sfarray= new VBArray( ret);
-
- document.writeln( "Param: " + arrSeq.toString() +"<br>");
- document.writeln("Returns a Sequence&lt Sequence &lt long &gt&gt <br>") ;
- var arr1= new Array();
- arr1= sfarray.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- var arr2= new Array();
- arr2= sfarray2.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
-
- case 211:
- var array1= new Array();
- for(var i= 0; i <3; i++)
- {
- var array2 = new Array();
- for( var j= 0; j < 3; j++)
- {
- var value2= oletest._GetValueObject();
- value2.Set("[]long", arr);
- array2[j]= value2;
- }
-
- var value1= oletest._GetValueObject();
- value1.Set("[][]long", array2)
- array1[i]= value1;
- }
- var valueAll= oletest._GetValueObject();
- valueAll.Set("[][][]long",array1);
-
- oletest.AttrSequence2= valueAll;
- ret= oletest.AttrSequence2;
- sfarray1= new VBArray( ret);
- arr1= sfarray1.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- arr2= sfarray2.toArray();
-
- for ( j=0; j < arr2.length; j++)
- {
- sfarray3= new VBArray( arr2[j]);
- arr3= sfarray3.toArray();
- document.write( i+ " ");
- document.writeln(j + ": "+ arr3.toString() + "<br>" );
- }
-
- }
- break;
-
- case 212:
- var ar= new Array();
- for( i=0; i< 3; i++)
- {
- var ob= new Object();
- var valueObject= oletest._GetValueObject();
- ob.value= "A JScript object!";
- valueObject.Set("com.sun.star.uno.XInterface", ob);
- ar[i]= valueObject;
- }
- value.Set("[]com.sun.star.uno.XInterface", ar);
-
- oletest.AttrXInterface= value;
- ret= oletest.AttrXInterface;
- sfarray= new VBArray( ret);
- var arRet= sfarray.toArray();
-
- document.writeln( "Params : Array containing objects ")
- for( index in ar)
- {
- document.writeln( "object " + index + ": " + ar[index].Get().value +" ");
- }
- document.writeln( "<br>" ) ;
- document.writeln("Return: <br>");
- for( index in arRet)
- {
- document.writeln( "object " + index + ": " + arRet[index].value + " ");
- }
-
- break;
-
- // Out-parameter ------------------------------------------------------------
- case (2000):
-
- oletest.testout_methodByte( outValue );
- alert("byte: " + outValue.Get() ); break;
- case (2001):
- oletest.testout_methodDouble( outValue );
- alert( "double: " + outValue.Get() ); break;
- case (2002):
- oletest.testout_methodBool( outValue );
- alert( "boolean: " + outValue.Get() ); break;
- case (2003):
- oletest.testout_methodShort( outValue );
- alert( "short: " + outValue.Get() ); break;
- case (2004):
- oletest.testout_methodUShort( outValue );
- alert( "unsigned short: " + outValue.Get() ); break;
- case (2005):
- oletest.testout_methodLong( outValue );
- alert( "long: " + outValue.Get() ); break;
- case (2006):
- oletest.testout_methodULong( outValue );
- alert( "unsigned long: " + outValue.Get() ); break;
- case (2007):
- oletest.testout_methodChar( outValue );
- alert( "char: " + outValue.Get() ); break;
- case (2008):
- oletest.testout_methodString( outValue );
- alert( "string: " + outValue.Get()); break;
- case (2009):
- oletest.testout_methodAny( outValue );
- alert( "any: " + outValue.Get() ); break;
- case (2010):
- oletest.testout_methodSequence( outValue );
- var sfarray= new VBArray( outValue.Get());
- arr= sfarray.toArray();
- document.writeln("use the browser's back arrow to go to the previous page <p>");
- document.writeln( arr.toString());
- break;
- case (2011):
- oletest.testout_methodSequence2( outValue );
- var sfarray= new VBArray( outValue.Get());
- arr= sfarray.toArray();
- var i;
- for( i=0; i < arr.length; i++)
- {
- var sfarray= new VBArray( arr[i]);
- var arr2= new Array();
- arr2= sfarray.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
- case (2012):
- oletest.testout_methodMulParams1( outValue, outValue2 );
- document.writeln( "int : " + outValue.Get() + " int :" + outValue2.Get()); break;
- case (2013):
- oletest.testout_methodMulParams2( outValue, outValue2, outValue3 );
- document.writeln( "int: " + outValue.Get() + " int: " + outValue2.Get() + " string: " + outValue3.Get() ); break;
- case (2014):
- oletest.testout_methodMulParams3( "hallo", outValue );
- document.writeln( "string: " + outValue.Get() ); break;
- case (2015):
- oletest.testout_methodXInterface( outValue );
- var out= outValue.Get();
- document.writeln( "string: " + out.AttrAny2); break;
-
- // INOUT - Parameter -------------------------------------------------------------------------------
- // The in value has to be placed on index 0 of the passed in array
- case (500):
- inoutValue.InitInOutParam("byte", 100);
- oletest.testinout_methodByte( inoutValue );
- alert("byte: " + inoutValue.Get() ); break;
- case (501):
- inoutValue.InitInOutParam("double", 3.14);
- oletest.testinout_methodDouble( inoutValue );
- alert( "double: " + inoutValue.Get() ); break;
- case (502):
- inoutValue.InitInOutParam("boolean", false);
- oletest.testinout_methodBool( inoutValue );
- alert( "boolean: " + inoutValue.Get() ); break;
- case (503):
- inoutValue.InitInOutParam( "short", 200);
- oletest.testinout_methodShort( inoutValue );
- alert( "short: " + inoutValue.Get() ); break;
- case (504):
- inoutValue.InitInOutParam("unsigned short", 300);
- oletest.testinout_methodUShort( inoutValue );
- alert( "unsigned short: " + inoutValue.Get() ); break;
- case (505):
- inoutValue.InitInOutParam("long", 400);
- oletest.testinout_methodLong( inoutValue );
- alert( "long: " + inoutValue.Get() ); break;
- case (506):
- inoutValue.InitInOutParam( "unsigned long", 500);
- oletest.testinout_methodULong( inoutValue );
- alert( "unsigned long: " + inoutValue.Get() ); break;
- case (507):
- inoutValue.InitInOutParam( "char", "A");
- oletest.testinout_methodChar( inoutValue );
- alert( "char: " + inoutValue.Get() ); break;
- case (508):
- inoutValue.InitInOutParam("string", "I am a string");
- oletest.testinout_methodString( inoutValue );
- alert( "string: " + inoutValue.Get() ); break;
- case (509):
- inoutValue.InitInOutParam("[]long", arr);
- oletest.testinout_methodAny( inoutValue ); // the method simply returns the argument
- sfarray= new VBArray( inoutValue.Get());
- arr= sfarray.toArray();
- alert( "any: " + arr.toString() ); break;
- case (510):
- inoutValue.InitInOutParam("[]long", arr);
- oletest.testinout_methodSequence( inoutValue );
- var sfarray= new VBArray( inoutValue.Get());
- arr= sfarray.toArray();
- document.writeln("use the browser's back arrow to go to the previous page <p>");
- document.writeln( arr.toString());
- break;
- case (511):
- inoutValue.InitInOutParam( "[][]long", arrSeq);
- oletest.testinout_methodSequence2( inoutValue );
- var sfarray= new VBArray( inoutValue.Get());
- arr= sfarray.toArray();
- var i;
- for( i=0; i < arr.length; i++)
- {
- var sfarray= new VBArray( arr[i]);
- var arr2= new Array();
- arr2= sfarray.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
- case 512:
- var ob= new Object();
- ob.value= "this is a string";
- inoutValue.InitInOutParam( "com.sun.star.script.XInvocation", ob);
- oletest.testinout_methodXInterface( inoutValue);
- document.write("Out value: " + inoutValue.Get().value );
- break;
-
-
-
-
-
- // Test ANY
- // Methods
- case 1000:
- i= 100;
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1001:
- i= 3.14;
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1002:
- i= "Hallo"
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1003:
- i= arr;
- ret= oletest.methodAnyTest1( i);
- sfarray= new VBArray( ret);
- document.writeln( "in: " + i + " ret: " + sfarray.toArray());
- break;
- case 1004:
- var obj= new Object();
- obj[1]= "This is index 0";
- ret= oletest.methodAnyTest1( obj);
- document.writeln( "in: " + obj + " ret: " + ret);
- break;
-
-
- // Test ANY property
- case 1010:
- i= 100;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1011:
- i= 3.14;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1012:
- i= "Hallo"
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1013:
- i= arr;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- sfarray= new VBArray( ret);
- document.writeln( "set: " + i + " get: " + sfarray.toArray());
- break;
- case 1014:
- var obj= new Object();
- obj[1]= "This is index 0";
- oletest.AttrAny2= obj;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + obj + " get: " + ret);
- break;
-
-
- case 2100:
- alert("2100");
- var ret= oletest.retMethodByte();
- var sfarray= VBArray( ret);
- document.writeln( sfarray.toArray() );
- break;
-
-
-// case 5000:
-// oletest.other_methodAnyIn("hallo");
-
-
-
- }
-
-}
-
-function funcOut( out)
-{
- out["du"]= 0xffff;
-}
-
-</script>
-
-<script language="VBScript">
-
-sub callBasic(id)
-
- Dim factory
- Set factory= GetObject("", "com.sun.star.ServiceManager")
-
- Set oletest= factory.createInstance("oletest.OleTest")
-
-
- arrInt= Array(1,2,3,4,5)
- arrInt2= Array( -1, -2, 127, 128, 0)
- arrDouble= Array(1.1, 2.2, 3.3, 4.4, 5.5)
- arrBool= Array(0,1,0,2,0)
- arrLong= Array( &Hff, &Hffff, &Hffffff, &Hffffffff)
- arrString= Array("Chicken Wings", "Cheeseburger", "Hamburger")
- arrChar= Array("a",65, "M")
- arrAny= Array("Mickey", 3.14, 100, "A")
-
- Dim arrDim2Int(1,1)
- For i= 0 To 1
- For j= 0 To 1
- arrDim2Int(i,j) = i*2 + j
- Next
- Next
-
- Dim arrDim3Int(1,1,1)
- For i= 0 To 1
- For j= 0 To 1
- For k=0 To 1
- arrDim3Int(i,j,k) = i*2 + j*2 + k
- Next
- Next
- Next
-
-
- set outValue= factory.Bridge_GetValueObject()
- outValue.InitOutParam
- set value= factory.Bridge_GetValueObject()
- select case id
- case 0
- value.Set "[]byte", arrInt
- ret= oletest.methodByte(value)
- document.writeln "<br> return value: "
- printArray ret
- case 1
- document.writeln "param: "
- printArray arrDouble
- ret= oletest.methodDouble(arrDouble)
- document.writeln "<br> return value: "
- printArray ret
- case 2
- document.writeln "param: "
- printArray arrBool
- ret= oletest.methodBool(arrBool)
- document.writeln "<br> return value: "
- printArray ret
- case 3
- document.writeln "param: "
- printArray arrInt2
- ret= oletest.methodShort(arrInt2)
- document.writeln "<br> return value: "
- printArray ret
- case 4
- document.writeln "param: "
- printArray arrInt
- ret= oletest.methodUShort(arrInt)
- document.writeln "<br> return value: "
- printArray ret
- case 5
- document.writeln "param: "
- printArray arrLong
- ret= oletest.methodLong(arrLong)
- document.writeln "<br> return value: "
- printArray ret
- case 6
- document.writeln "param: "
- printArray arrInt
- ret= oletest.methodULong(arrInt)
- document.writeln "<br> return value: "
- printArray ret
- case 7
- document.writeln "param: "
- printArray arrString
- ret= oletest.methodString(arrString)
- document.writeln "<br> return value: "
- printArray ret
- case 8
- document.writeln "param: "
- printArray arrChar
- ret= oletest.methodChar(arrChar)
- document.writeln "<br> return value: "
- printArray ret
- case 9
- document.writeln "param: "
- printArray arrAny
- ret= oletest.methodAny(arrAny)
- document.writeln "<br> return value: "
- printArray ret
- case 10
- document.writeln "param: "
- printArray2 arrDim2Int
- ret= oletest.methodSequence(arrDim2Int)
- document.writeln "<br> return value: "
- for each val in ret
- document.write "<br> array: "
- for each val2 in val
- document.write val2
- next
- next
-
- // In Out Parameter --------------------------------------------------
- case 100
- a= 100
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodByte a
- document.write a
- case 101
- a= 1.11
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodDouble a
- document.write a
- case 102
- a= 5
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodBool a
- document.write a
- case 103
- a= -10
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodShort a
- document.write a
- case 104
- a= 128
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodUShort a
- document.write a
- case 105
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodLong a
- document.write a
- case 106
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodULong a
- document.write a
- case 107
- a= "ein test string"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodString a
- document.write a
- case 108
- a= "W"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodChar a
- document.write a
- case 109
- a= "Ein String im Any"
- document.write "param: "& CStr( a) & "<br>"
- oletest.other_methodAnyIn a
- document.write a
-// Attributes -----------------------------------------------------------------
- case 200
- document.write "set: "
- printArray arrInt
- oletest.AttrByte= arrInt
- b= oletest.AttrByte
- call printArrayEx( "<br> get: ", "<br>", b)
- case 201
- document.write "set: "
- printArray arrDouble
- oletest.AttrDouble= arrDouble
- b= oletest.AttrDouble
- call printArrayEx( "<br> get: ", "<br>", b)
- case 202
- document.write "set: "
- printArray arrBool :
- oletest.AttrBool= arrBool
- b= oletest.AttrBool
- call printArrayEx( "<br> get: ", "<br>", b)
- case 203
- document.write "set: "
- printArray arrInt2 :
- oletest.AttrShort= arrInt2
- b= oletest.AttrShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 204
- document.write "set: "
- printArray arrInt
- oletest.AttrUShort= arrInt
- b= oletest.AttrUShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 205
- document.write "set: "
- printArray arrInt2
- oletest.AttrLong= arrInt2
- b= oletest.AttrLong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 206
- document.write "set: "
- printArray arrInt
- oletest.AttrULong= arrInt
- b= oletest.AttrULong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 207
- document.write "set: "
- printArray arrString
- oletest.AttrString= arrString
- b= oletest.AttrString
- call printArrayEx( "<br> get: ", "<br>", b)
- case 208
- document.write "set: "
- printArray arrChar
- oletest.AttrChar= arrChar
- b= oletest.AttrChar
- call printArrayEx( "<br> get: ", "<br>", b)
- case 209
- document.write "set: "
- printArray arrAny
- oletest.AttrAny= arrAny
- b= oletest.AttrAny
- call printArrayEx( "<br> get: ", "<br>", b)
-
- case 210
- document.write "set: <br>"
- printArray2 arrDim2Int :
- oletest.AttrSequence= arrDim2Int
- ret= oletest.AttrSequence
- document.write "get: "
- for each val in ret
- document.write "<br> array: "
- for each val2 in val
- document.write val2
- next
- next
-
-// out params
- case 300
- oletest.testout_methodByte( outValue )
- alert("byte: " & outValue.Get() )
-
-
- end select
-end sub
-sub printArray( arr)
- document.write "array: "
- For Each val In arr
- document.write CStr(val) & " "
- Next
-end sub
-
-// print a 2 dimensional Array
-
-sub printArray2( arr)
- elements1= UBound( arr, 1) - LBound( arr, 1) +1
- elements2= UBound( arr, 2) - LBound( arr, 2) +1
-
- For i=0 To elements1 -1
- document.write( "array " & CStr( i) & ": " )
- For j=0 To elements2 -1
- document.write CStr( arr(i,j))
- Next
- document.write( "<br>")
- Next
-end sub
-
-sub printArrayEx( pre, post, array)
- document.write pre
- printArray array
- document.write post
-end sub
-</script>
-
-<div id=out> </div>
-
-<!-- Insert HTML here -->
-
-<h2> JScript with _GetValueObject </h2>
-Tests Array/Sequence conversion.<br>
-All methods receive a Sequence as Parameter. The element type of the Sequence is written on the buttons.
-<br>
-<button onclick='callOleTest( 1)'>byte</Button>
-<button onclick='callOleTest( 2)'>double</Button>
-<button onclick='callOleTest( 3)'>boolean</Button>
-<button onclick='callOleTest( 4)'>short</Button>
-<button onclick='callOleTest( 5)'>unsigned short</Button>
-<button onclick='callOleTest( 6)'>long</Button>
-<button onclick='callOleTest( 7)'>unsigned long</Button>
-<button onclick='callOleTest( 8)'>char</Button>
-<button onclick='callOleTest( 10)'>any</Button>
-<button onclick='callOleTest( 11)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 12)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 13)'>XInterface</Button>
-<p>
-
-
-Out Parameter <br>
-<button onclick='callOleTest( 2000)'>byte </Button>
-<button onclick='callOleTest( 2001)'>double</Button>
-<button onclick='callOleTest( 2002)'>boolean</Button>
-<button onclick='callOleTest( 2003)'>short</Button>
-<button onclick='callOleTest( 2004)'>unsigned short</Button>
-<button onclick='callOleTest( 2005)'>long</Button>
-<button onclick='callOleTest( 2006)'>unsigned long</Button>
-<button onclick='callOleTest( 2007)'>char</Button>
-<button onclick='callOleTest( 2008)'>string</Button>
-<button onclick='callOleTest( 2009)'>any</Button>
-<button onclick='callOleTest( 2010)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 2011)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 2012)'>2 out </Button>
-<button onclick='callOleTest( 2013)'>3 out </Button>
-<button onclick='callOleTest( 2014)'>1 in & 1 out </Button>
-<button onclick='callOleTest( 2015)'>XInterface </Button>
-
-<p>
-In Out Parameter <br>
-<button onclick='callOleTest( 500)'>byte </Button>
-<button onclick='callOleTest( 501)'>double</Button>
-<button onclick='callOleTest( 502)'>boolean</Button>
-<button onclick='callOleTest( 503)'>short</Button>
-<button onclick='callOleTest( 504)'>unsigned short</Button>
-<button onclick='callOleTest( 505)'>long</Button>
-<button onclick='callOleTest( 506)'>unsigned long</Button>
-<button onclick='callOleTest( 507)'>char</Button>
-<button onclick='callOleTest( 508)'>string</Button>
-<button onclick='callOleTest( 509)'>any</Button>
-<button onclick='callOleTest( 510)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 511)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 512)'>XInterface </Button>
-<p>
-
-Tests Array/Sequence conversion with Attributes. All params are of type Sequence and
- the element type of the Sequence is written on the buttons. <br>
-<button onclick='callOleTest( 200)'>byte </Button>
-<button onclick='callOleTest( 201)'>double</Button>
-<button onclick='callOleTest( 202)'>boolean</Button>
-<button onclick='callOleTest( 203)'>short</Button>
-<button onclick='callOleTest( 204)'>unsigned short</Button>
-<button onclick='callOleTest( 205)'>long</Button>
-<button onclick='callOleTest( 206)'>unsigned long</Button>
-<button onclick='callOleTest( 207)'>char</Button>
-<button onclick='callOleTest( 208)'>string</Button>
-<button onclick='callOleTest( 209)'>any</Button>
-<button onclick='callOleTest( 210)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 211)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 212)'>XInterface </Button>
-<p>
-
-<!--
-Test of Any parameter in a method. Any contains:<br>
-<button onclick='callOleTest( 1000)'>integer </Button>
-<button onclick='callOleTest( 1001)'>double </Button>
-<button onclick='callOleTest( 1002)'>string</Button>
-<button onclick='callOleTest( 1003)'>array</Button>
-<button onclick='callOleTest( 1004)'>object</Button>
-<p>
-Test of Any parameter in a property. Any contains:<br>
-<button onclick='callOleTest( 1010)'>integer </Button>
-<button onclick='callOleTest( 1011)'>double </Button>
-<button onclick='callOleTest( 1012)'>string</Button>
-<button onclick='callOleTest( 1013)'>array</Button>
-<button onclick='callOleTest( 1014)'>object</Button>
-<p>
-<p>
--->
-
-<h2> Visual Basic Tests </h2>
-Test array /Sequence conversion and return value<br>
-Template: <b> Sequence &lt type &gt method( Sequence&lt type &gt ) </b>
-<p>
-
-
-<button onclick='callBasic(0)'>byte</button>
-<!--
-<button onclick='callBasic(1)'>double</button>
-<button onclick='callBasic(2)'>boolean</button>
-<button onclick='callBasic(3)'>short</button>
-<button onclick='callBasic(4)'>u short</button>
-<button onclick='callBasic(5)'>long</button>
-<button onclick='callBasic(6)'>u long</button>
-<button onclick='callBasic(7)'>string</button>
-<button onclick='callBasic(8)'>char</button>
-<button onclick='callBasic(9)'>any</button> <br>
-<button onclick='callBasic(10)'>Seq &lt int &gt</button>
--->
-<p>
-
-
-Out parameter <br>
-Template: <b> void method( Sequence &lt type &gt ) </b> <br>
-<button onclick='callBasic(300)'>byte</button>
-<!--
-<button onclick='callBasic(101)'>double</button>
-<button onclick='callBasic(102)'>boolean</button>
-<button onclick='callBasic(103)'>short</button>
-<button onclick='callBasic(104)'>u short</button>
-<button onclick='callBasic(105)'>long</button>
-<button onclick='callBasic(106)'>u long</button>
-<button onclick='callBasic(107)'>string</button>
-<button onclick='callBasic(108)'>char</button>
-<button onclick='callBasic(109)'>any</button> <br>
--->
-<p>
-<!--
-Tests Array/Sequence conversion with <b>Attributes</b>. All params are of type Sequence and
- the element type of the Sequence is written on the buttons. <br>
-<button onclick='callBasic( 200)'>byte </Button>
-<button onclick='callBasic( 201)'>double</Button>
-<button onclick='callBasic( 202)'>boolean</Button>
-<button onclick='callBasic( 203)'>short</Button>
-<button onclick='callBasic( 204)'>unsigned short</Button>
-<button onclick='callBasic( 205)'>long</Button>
-<button onclick='callBasic( 206)'>unsigned long</Button>
-<button onclick='callBasic( 207)'>string</Button>
-<button onclick='callBasic( 208)'>char</Button>
-<button onclick='callBasic( 209)'>any</Button>
-<button onclick='callBasic( 210)'>sequence&ltlong&gt </Button>
--->
-
-
-
diff --git a/extensions/test/ole/MfcControl/MfcControl.cpp b/extensions/test/ole/MfcControl/MfcControl.cpp
deleted file mode 100644
index 355476237..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.cpp
+++ /dev/null
@@ -1,82 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// MfcControl.cpp : Implementation of CMfcControlApp and DLL registration.
-
-#include "stdafx.h"
-#include "MfcControl.h"
-
-#ifdef _DEBUG
-#define new DEBUG_NEW
-#undef THIS_FILE
-static char THIS_FILE[] = __FILE__;
-#endif
-
-
-CMfcControlApp NEAR theApp;
-
-const GUID CDECL BASED_CODE _tlid =
- { 0xac221fb3, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
-const WORD _wVerMajor = 1;
-const WORD _wVerMinor = 0;
-
-
-////////////////////////////////////////////////////////////////////////////
-// CMfcControlApp::InitInstance - DLL initialization
-
-BOOL CMfcControlApp::InitInstance()
-{
- BOOL bInit = COleControlModule::InitInstance();
-
- if (bInit)
- {
- // TODO: Add your own module initialization code here.
- }
-
- return bInit;
-}
-
-
-////////////////////////////////////////////////////////////////////////////
-// CMfcControlApp::ExitInstance - DLL termination
-
-int CMfcControlApp::ExitInstance()
-{
- // TODO: Add your own module termination code here.
-
- return COleControlModule::ExitInstance();
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// DllRegisterServer - Adds entries to the system registry
-
-STDAPI DllRegisterServer(void)
-{
- AFX_MANAGE_STATE(_afxModuleAddrThis);
-
- if (!AfxOleRegisterTypeLib(AfxGetInstanceHandle(), _tlid))
- return ResultFromScode(SELFREG_E_TYPELIB);
-
- if (!COleObjectFactoryEx::UpdateRegistryAll(TRUE))
- return ResultFromScode(SELFREG_E_CLASS);
-
- return NOERROR;
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// DllUnregisterServer - Removes entries from the system registry
-
-STDAPI DllUnregisterServer(void)
-{
- AFX_MANAGE_STATE(_afxModuleAddrThis);
-
- if (!AfxOleUnregisterTypeLib(_tlid, _wVerMajor, _wVerMinor))
- return ResultFromScode(SELFREG_E_TYPELIB);
-
- if (!COleObjectFactoryEx::UpdateRegistryAll(FALSE))
- return ResultFromScode(SELFREG_E_CLASS);
-
- return NOERROR;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/MfcControl.def b/extensions/test/ole/MfcControl/MfcControl.def
deleted file mode 100644
index 8c164a7b5..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.def
+++ /dev/null
@@ -1,9 +0,0 @@
-; MfcControl.def : Declares the module parameters.
-
-LIBRARY "MFCCONTROL.OCX"
-
-EXPORTS
- DllCanUnloadNow PRIVATE
- DllGetClassObject PRIVATE
- DllRegisterServer PRIVATE
- DllUnregisterServer PRIVATE
diff --git a/extensions/test/ole/MfcControl/MfcControl.dsp b/extensions/test/ole/MfcControl/MfcControl.dsp
deleted file mode 100644
index f327a9893..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.dsp
+++ /dev/null
@@ -1,265 +0,0 @@
-# Microsoft Developer Studio Project File - Name="MfcControl" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
-
-CFG=MfcControl - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "MfcControl.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "MfcControl.mak" CFG="MfcControl - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "MfcControl - Win32 Release" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "MfcControl - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "MfcControl - Win32 Unicode Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "MfcControl - Win32 Unicode Release" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-MTL=midl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "MfcControl - Win32 Release"
-
-# PROP BASE Use_MFC 2
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Ext "ocx"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 2
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "Release"
-# PROP Intermediate_Dir "Release"
-# PROP Target_Ext "ocx"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /c
-# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
-# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
-# ADD BASE RSC /l 0x409 /d "NDEBUG" /d "_AFXDLL"
-# ADD RSC /l 0x409 /d "NDEBUG" /d "_AFXDLL"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Registering ActiveX Control...
-OutDir=.\Release
-TargetPath=.\Release\MfcControl.ocx
-InputPath=.\Release\MfcControl.ocx
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "MfcControl - Win32 Debug"
-
-# PROP BASE Use_MFC 2
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Ext "ocx"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 2
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Ext "ocx"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MDd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_MBCS" /D "_USRDLL" /FR /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
-# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
-# ADD BASE RSC /l 0x409 /d "_DEBUG" /d "_AFXDLL"
-# ADD RSC /l 0x409 /d "_DEBUG" /d "_AFXDLL"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Registering ActiveX Control...
-OutDir=.\Debug
-TargetPath=.\Debug\MfcControl.ocx
-InputPath=.\Debug\MfcControl.ocx
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "MfcControl - Win32 Unicode Debug"
-
-# PROP BASE Use_MFC 2
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "DebugU"
-# PROP BASE Intermediate_Dir "DebugU"
-# PROP BASE Target_Ext "ocx"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 2
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "DebugU"
-# PROP Intermediate_Dir "DebugU"
-# PROP Target_Ext "ocx"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MDd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MDd /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE MTL /nologo /D "_DEBUG" /mktyplib203 /win32
-# ADD MTL /nologo /D "_DEBUG" /mktyplib203 /win32
-# ADD BASE RSC /l 0x409 /d "_DEBUG" /d "_AFXDLL"
-# ADD RSC /l 0x409 /d "_DEBUG" /d "_AFXDLL"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Registering ActiveX Control...
-OutDir=.\DebugU
-TargetPath=.\DebugU\MfcControl.ocx
-InputPath=.\DebugU\MfcControl.ocx
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "MfcControl - Win32 Unicode Release"
-
-# PROP BASE Use_MFC 2
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseU"
-# PROP BASE Intermediate_Dir "ReleaseU"
-# PROP BASE Target_Ext "ocx"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 2
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseU"
-# PROP Intermediate_Dir "ReleaseU"
-# PROP Target_Ext "ocx"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MD /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_WINDLL" /D "_AFXDLL" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /c
-# ADD BASE MTL /nologo /D "NDEBUG" /mktyplib203 /win32
-# ADD MTL /nologo /D "NDEBUG" /mktyplib203 /win32
-# ADD BASE RSC /l 0x409 /d "NDEBUG" /d "_AFXDLL"
-# ADD RSC /l 0x409 /d "NDEBUG" /d "_AFXDLL"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Registering ActiveX Control...
-OutDir=.\ReleaseU
-TargetPath=.\ReleaseU\MfcControl.ocx
-InputPath=.\ReleaseU\MfcControl.ocx
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ENDIF
-
-# Begin Target
-
-# Name "MfcControl - Win32 Release"
-# Name "MfcControl - Win32 Debug"
-# Name "MfcControl - Win32 Unicode Debug"
-# Name "MfcControl - Win32 Unicode Release"
-# Begin Group "Source Files"
-
-# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
-# Begin Source File
-
-SOURCE=.\MfcControl.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControl.def
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControl.odl
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControl.rc
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControlCtl.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControlPpg.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.cpp
-# ADD CPP /Yc"stdafx.h"
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter "h;hpp;hxx;hm;inl"
-# Begin Source File
-
-SOURCE=.\MfcControl.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControlCtl.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\MfcControlPpg.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\Resource.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.h
-# End Source File
-# End Group
-# Begin Group "Resource Files"
-
-# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
-# Begin Source File
-
-SOURCE=.\MfcControlCtl.bmp
-# End Source File
-# End Group
-# Begin Source File
-
-SOURCE=.\ReadMe.txt
-# End Source File
-# End Target
-# End Project
-
diff --git a/extensions/test/ole/MfcControl/MfcControl.h b/extensions/test/ole/MfcControl/MfcControl.h
deleted file mode 100644
index 6c6a190b5..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.h
+++ /dev/null
@@ -1,36 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-#if !defined(AFX_MFCCONTROL_H__AC221FBC_A0D8_11D4_833B_005004526AB4__INCLUDED_)
-#define AFX_MFCCONTROL_H__AC221FBC_A0D8_11D4_833B_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-// MfcControl.h : main header file for MFCCONTROL.DLL
-
-#if !defined( __AFXCTL_H__ )
- #error include 'afxctl.h' before including this file
-#endif
-
-#include "resource.h" // main symbols
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlApp : See MfcControl.cpp for implementation.
-
-class CMfcControlApp : public COleControlModule
-{
-public:
- BOOL InitInstance();
- int ExitInstance();
-};
-
-extern const GUID CDECL _tlid;
-extern const WORD _wVerMajor;
-extern const WORD _wVerMinor;
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_MFCCONTROL_H__AC221FBC_A0D8_11D4_833B_005004526AB4__INCLUDED)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/MfcControl.odl b/extensions/test/ole/MfcControl/MfcControl.odl
deleted file mode 100644
index f00ebe518..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.odl
+++ /dev/null
@@ -1,82 +0,0 @@
-// MfcControl.odl : type library source for ActiveX Control project.
-
-// This file will be processed by the Make Type Library (mktyplib) tool to
-// produce the type library (MfcControl.tlb) that will become a resource in
-// MfcControl.ocx.
-
-#include <olectl.h>
-#include <idispids.h>
-
-[ uuid(AC221FB3-A0D8-11D4-833B-005004526AB4), version(1.0),
- helpfile("MfcControl.hlp"),
- helpstring("MfcControl ActiveX Control module"),
- control ]
-library MFCCONTROLLib
-{
- importlib(STDOLE_TLB);
- importlib(STDTYPE_TLB);
-
- // Primary dispatch interface for CMfcControlCtrl
-
- [ uuid(AC221FB4-A0D8-11D4-833B-005004526AB4),
- helpstring("Dispatch interface for MfcControl Control"), hidden ]
- dispinterface _DMfcControl
- {
- properties:
- // NOTE - ClassWizard will maintain property information here.
- // Use extreme caution when editing this section.
- //{{AFX_ODL_PROP(CMfcControlCtrl)
- //}}AFX_ODL_PROP
-
- methods:
- // NOTE - ClassWizard will maintain method information here.
- // Use extreme caution when editing this section.
- //{{AFX_ODL_METHOD(CMfcControlCtrl)
- [id(1)] short inShort(short val);
- [id(2)] long inLong(long val);
- [id(3)] BSTR inString(BSTR* val);
- [id(4)] float inFloat(float val);
- [id(5)] double inDouble(double val);
- [id(6)] VARIANT inVariant(VARIANT val);
- [id(7)] IDispatch* inObject(IDispatch* val);
- [id(8)] void outShort([out] short* val);
- [id(9)] void outLong([out] long* val);
- [id(10)] void outString([out] BSTR* val);
- [id(11)] void outFloat([out] float* val);
- [id(12)] void outDouble([out] double* val);
- [id(13)] void outVariant([out] VARIANT* val);
- [id(14)] void outObject([out] IDispatch** val);
- //}}AFX_ODL_METHOD
- };
-
- // Event dispatch interface for CMfcControlCtrl
-
- [ uuid(AC221FB5-A0D8-11D4-833B-005004526AB4),
- helpstring("Event interface for MfcControl Control") ]
- dispinterface _DMfcControlEvents
- {
- properties:
- // Event interface has no properties
-
- methods:
- // NOTE - ClassWizard will maintain event information here.
- // Use extreme caution when editing this section.
- //{{AFX_ODL_EVENT(CMfcControlCtrl)
- //}}AFX_ODL_EVENT
- };
-
- // Class information for CMfcControlCtrl
-
- [ uuid(AC221FB6-A0D8-11D4-833B-005004526AB4),
- helpstring("MfcControl Control"), control ]
- coclass MfcControl
- {
- [default] dispinterface _DMfcControl;
- [default, source] dispinterface _DMfcControlEvents;
- };
-
-
- //{{AFX_APPEND_ODL}}
- //}}AFX_APPEND_ODL}}
-};
-//VT_I2
diff --git a/extensions/test/ole/MfcControl/MfcControl.rc b/extensions/test/ole/MfcControl/MfcControl.rc
deleted file mode 100644
index e052b9f26..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.rc
+++ /dev/null
@@ -1,145 +0,0 @@
-//Microsoft Visual C++ generated resource script.
-//
-#include "resource.h"
-
-#define APSTUDIO_READONLY_SYMBOLS
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 2 resource.
-//
-#include "afxres.h"
-
-/////////////////////////////////////////////////////////////////////////////
-#undef APSTUDIO_READONLY_SYMBOLS
-
-#ifdef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// TEXTINCLUDE
-//
-
-1 TEXTINCLUDE DISCARDABLE
-BEGIN
- "resource.h\0"
-END
-
-2 TEXTINCLUDE DISCARDABLE
-BEGIN
- "#include ""afxres.h""\r\n"
- "\0"
-END
-
-3 TEXTINCLUDE DISCARDABLE
-BEGIN
- "1 TYPELIB ""MfcControl.tlb""\r\n"
- "\0"
-END
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // APSTUDIO_INVOKED
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// Version
-//
-
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION 1,0,0,1
- PRODUCTVERSION 1,0,0,1
- FILEFLAGSMASK 0x3fL
-#ifdef _DEBUG
- FILEFLAGS 0x1L
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS 0x4L
- FILETYPE 0x2L
- FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904B0"
- BEGIN
- VALUE "CompanyName", "Star Office Entwicklungs GmbH\0"
- VALUE "FileDescription", "MfcControl ActiveX Control Module\0"
- VALUE "FileVersion", "1, 0, 0, 1\0"
- VALUE "InternalName", "MfcControl\0"
- VALUE "LegalCopyright", "Copyright (C) 2000\0"
- VALUE "LegalTrademarks", "\0"
- VALUE "OriginalFilename", "MfcControl.OCX\0"
- VALUE "ProductName", "MfcControl ActiveX Control Module\0"
- VALUE "ProductVersion", "1, 0, 0, 1\0"
- VALUE "OLESelfRegister", "\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
-END
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// Bitmap
-//
-
-//IDB_MFCCONTROL BITMAP DISCARDABLE "MfcControlCtl.bmp"
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// Dialog
-//
-
-
-IDD_PROPPAGE_MFCCONTROL DIALOG DISCARDABLE 0, 0, 250, 62
-STYLE WS_CHILD
-FONT 8, "MS Sans Serif"
-BEGIN
- LTEXT "TODO: Place controls to manipulate properties of MfcControl Control on this dialog.",
- IDC_STATIC,7,25,229,16
-END
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// DESIGNINFO
-//
-
-#ifdef APSTUDIO_INVOKED
-GUIDELINES DESIGNINFO DISCARDABLE
-BEGIN
- IDD_PROPPAGE_MFCCONTROL, DIALOG
- BEGIN
- LEFTMARGIN, 7
- RIGHTMARGIN, 243
- TOPMARGIN, 7
- BOTTOMMARGIN, 55
- END
-END
-#endif // APSTUDIO_INVOKED
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// String Table
-//
-
-STRINGTABLE DISCARDABLE
-BEGIN
- IDS_MFCCONTROL "MfcControl Control"
- IDS_MFCCONTROL_PPG "MfcControl Property Page"
- IDS_MFCCONTROL_PPG_CAPTION "General"
-
-END
-
-
-#ifndef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 3 resource.
-//
-1 TYPELIB "MfcControl.tlb"
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // not APSTUDIO_INVOKED
-
diff --git a/extensions/test/ole/MfcControl/MfcControl.sln b/extensions/test/ole/MfcControl/MfcControl.sln
deleted file mode 100644
index 24e646c86..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.sln
+++ /dev/null
@@ -1,25 +0,0 @@
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "MfcControl", "MfcControl.vcproj", "{07D59661-3519-4F10-AE9F-22DB0479E25A}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Win32 = Debug|Win32
- Release|Win32 = Release|Win32
- Unicode Debug|Win32 = Unicode Debug|Win32
- Unicode Release|Win32 = Unicode Release|Win32
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Debug|Win32.ActiveCfg = Debug|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Debug|Win32.Build.0 = Debug|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Release|Win32.ActiveCfg = Release|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Release|Win32.Build.0 = Release|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Unicode Debug|Win32.ActiveCfg = Unicode Debug|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Unicode Debug|Win32.Build.0 = Unicode Debug|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Unicode Release|Win32.ActiveCfg = Unicode Release|Win32
- {07D59661-3519-4F10-AE9F-22DB0479E25A}.Unicode Release|Win32.Build.0 = Unicode Release|Win32
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/MfcControl/MfcControl.vcproj b/extensions/test/ole/MfcControl/MfcControl.vcproj
deleted file mode 100644
index 6099d8242..000000000
--- a/extensions/test/ole/MfcControl/MfcControl.vcproj
+++ /dev/null
@@ -1,581 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
- ProjectType="Visual C++"
- Version="9,00"
- Name="MfcControl"
- ProjectGUID="{07D59661-3519-4F10-AE9F-22DB0479E25A}"
- RootNamespace="MfcControl"
- Keyword="MFCProj"
- TargetFrameworkVersion="131072"
- >
- <Platforms>
- <Platform
- Name="Win32"
- />
- </Platforms>
- <ToolFiles>
- </ToolFiles>
- <Configurations>
- <Configuration
- Name="Unicode Release|Win32"
- OutputDirectory=".\ReleaseU"
- IntermediateDirectory=".\ReleaseU"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Registering ActiveX Control..."
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- PreprocessorDefinitions="NDEBUG"
- MkTypLibCompatible="true"
- SuppressStartupBanner="true"
- TargetEnvironment="1"
- TypeLibraryName=".\ReleaseU/MfcControl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="2"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseU/MfcControl.pch"
- AssemblerListingLocation=".\ReleaseU/"
- ObjectFile=".\ReleaseU/"
- ProgramDataBaseFileName=".\ReleaseU/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_AFXDLL;NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- OutputFile=".\ReleaseU/MfcControl.ocx"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\MfcControl.def"
- ProgramDatabaseFile=".\ReleaseU/MfcControl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseU/MfcControl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Debug|Win32"
- OutputDirectory=".\DebugU"
- IntermediateDirectory=".\DebugU"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Registering ActiveX Control..."
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- PreprocessorDefinitions="_DEBUG"
- MkTypLibCompatible="true"
- SuppressStartupBanner="true"
- TargetEnvironment="1"
- TypeLibraryName=".\DebugU/MfcControl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="3"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\DebugU/MfcControl.pch"
- AssemblerListingLocation=".\DebugU/"
- ObjectFile=".\DebugU/"
- ProgramDataBaseFileName=".\DebugU/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_AFXDLL;_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- OutputFile=".\DebugU/MfcControl.ocx"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\MfcControl.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\DebugU/MfcControl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\DebugU/MfcControl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release|Win32"
- OutputDirectory=".\Release"
- IntermediateDirectory=".\Release"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Registering ActiveX Control..."
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- PreprocessorDefinitions="NDEBUG"
- MkTypLibCompatible="true"
- SuppressStartupBanner="true"
- TargetEnvironment="1"
- TypeLibraryName=".\Release/MfcControl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="2"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Release/MfcControl.pch"
- AssemblerListingLocation=".\Release/"
- ObjectFile=".\Release/"
- ProgramDataBaseFileName=".\Release/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_AFXDLL;NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- OutputFile=".\Release/MfcControl.ocx"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\MfcControl.def"
- ProgramDatabaseFile=".\Release/MfcControl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\Release/MfcControl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Debug|Win32"
- OutputDirectory=".\Debug"
- IntermediateDirectory=".\Debug"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Registering ActiveX Control..."
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- PreprocessorDefinitions="_DEBUG"
- MkTypLibCompatible="true"
- SuppressStartupBanner="true"
- TargetEnvironment="1"
- TypeLibraryName=".\Debug/MfcControl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- AdditionalOptions="/D_CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="3"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Debug/MfcControl.pch"
- AssemblerListingLocation=".\Debug/"
- ObjectFile=".\Debug/"
- ProgramDataBaseFileName=".\Debug/"
- BrowseInformation="1"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_AFXDLL;_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- OutputFile=".\Debug/MfcControl.ocx"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\MfcControl.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\Debug/MfcControl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\Debug/MfcControl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- </Configurations>
- <References>
- </References>
- <Files>
- <Filter
- Name="Source Files"
- Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
- >
- <File
- RelativePath=".\MfcControl.cpp"
- >
- </File>
- <File
- RelativePath=".\MfcControl.def"
- >
- </File>
- <File
- RelativePath=".\MfcControl.odl"
- >
- <FileConfiguration
- Name="Unicode Release|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- TargetEnvironment="1"
- HeaderFileName="MfcControl_h.h"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- TargetEnvironment="1"
- HeaderFileName="MfcControl_h.h"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- TargetEnvironment="1"
- HeaderFileName="MfcControl_h.h"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- TargetEnvironment="1"
- HeaderFileName="MfcControl_h.h"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\MfcControl.rc"
- >
- <FileConfiguration
- Name="Unicode Release|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\MfcControlCtl.cpp"
- >
- </File>
- <File
- RelativePath=".\MfcControlPpg.cpp"
- >
- </File>
- <File
- RelativePath=".\StdAfx.cpp"
- >
- <FileConfiguration
- Name="Unicode Release|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- </File>
- </Filter>
- <Filter
- Name="Header Files"
- Filter="h;hpp;hxx;hm;inl"
- >
- <File
- RelativePath=".\MfcControl.h"
- >
- </File>
- <File
- RelativePath=".\MfcControlCtl.h"
- >
- </File>
- <File
- RelativePath=".\MfcControlPpg.h"
- >
- </File>
- <File
- RelativePath=".\Resource.h"
- >
- </File>
- <File
- RelativePath=".\StdAfx.h"
- >
- </File>
- </Filter>
- <Filter
- Name="Resource Files"
- Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
- >
- <File
- RelativePath=".\MfcControlCtl.bmp"
- >
- </File>
- </Filter>
- <File
- RelativePath=".\ReadMe.txt"
- >
- </File>
- </Files>
- <Globals>
- </Globals>
-</VisualStudioProject>
diff --git a/extensions/test/ole/MfcControl/MfcControlCtl.cpp b/extensions/test/ole/MfcControl/MfcControlCtl.cpp
deleted file mode 100644
index 399fb5db9..000000000
--- a/extensions/test/ole/MfcControl/MfcControlCtl.cpp
+++ /dev/null
@@ -1,347 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// MfcControlCtl.cpp : Implementation of the CMfcControlCtrl ActiveX Control class.
-
-#include "stdafx.h"
-#include "MfcControl.h"
-#include "MfcControlCtl.h"
-#include "MfcControlPpg.h"
-
-
-#ifdef _DEBUG
-#define new DEBUG_NEW
-#undef THIS_FILE
-static char THIS_FILE[] = __FILE__;
-#endif
-
-
-IMPLEMENT_DYNCREATE(CMfcControlCtrl, COleControl)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Message map
-
-BEGIN_MESSAGE_MAP(CMfcControlCtrl, COleControl)
- //{{AFX_MSG_MAP(CMfcControlCtrl)
- // NOTE - ClassWizard will add and remove message map entries
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_MSG_MAP
- ON_OLEVERB(AFX_IDS_VERB_PROPERTIES, OnProperties)
-END_MESSAGE_MAP()
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Dispatch map
-
-BEGIN_DISPATCH_MAP(CMfcControlCtrl, COleControl)
- //{{AFX_DISPATCH_MAP(CMfcControlCtrl)
- DISP_FUNCTION(CMfcControlCtrl, "inShort", inShort, VT_I2, VTS_I2)
- DISP_FUNCTION(CMfcControlCtrl, "inLong", inLong, VT_I4, VTS_I4)
- DISP_FUNCTION(CMfcControlCtrl, "inString", inString, VT_BSTR, VTS_PBSTR)
- DISP_FUNCTION(CMfcControlCtrl, "inFloat", inFloat, VT_R4, VTS_R4)
- DISP_FUNCTION(CMfcControlCtrl, "inDouble", inDouble, VT_R8, VTS_R8)
- DISP_FUNCTION(CMfcControlCtrl, "inVariant", inVariant, VT_VARIANT, VTS_VARIANT)
- DISP_FUNCTION(CMfcControlCtrl, "inObject", inObject, VT_DISPATCH, VTS_DISPATCH)
- DISP_FUNCTION(CMfcControlCtrl, "outShort", outShort, VT_EMPTY, VTS_PI2)
- DISP_FUNCTION(CMfcControlCtrl, "outLong", outLong, VT_EMPTY, VTS_PI4)
- DISP_FUNCTION(CMfcControlCtrl, "outString", outString, VT_EMPTY, VTS_PBSTR)
- DISP_FUNCTION(CMfcControlCtrl, "outFloat", outFloat, VT_EMPTY, VTS_PR4)
- DISP_FUNCTION(CMfcControlCtrl, "outDouble", outDouble, VT_EMPTY, VTS_PR8)
- DISP_FUNCTION(CMfcControlCtrl, "outVariant", outVariant, VT_EMPTY, VTS_PVARIANT)
- DISP_FUNCTION(CMfcControlCtrl, "outObject", outObject, VT_EMPTY, VTS_PDISPATCH)
- //}}AFX_DISPATCH_MAP
-END_DISPATCH_MAP()
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Event map
-
-BEGIN_EVENT_MAP(CMfcControlCtrl, COleControl)
- //{{AFX_EVENT_MAP(CMfcControlCtrl)
- // NOTE - ClassWizard will add and remove event map entries
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_EVENT_MAP
-END_EVENT_MAP()
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Property pages
-
-// TODO: Add more property pages as needed. Remember to increase the count!
-BEGIN_PROPPAGEIDS(CMfcControlCtrl, 1)
- PROPPAGEID(CMfcControlPropPage::guid)
-END_PROPPAGEIDS(CMfcControlCtrl)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Initialize class factory and guid
-
-IMPLEMENT_OLECREATE_EX(CMfcControlCtrl, "MFCCONTROL.MfcControlCtrl.1",
- 0xac221fb6, 0xa0d8, 0x11d4, 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Type library ID and version
-
-IMPLEMENT_OLETYPELIB(CMfcControlCtrl, _tlid, _wVerMajor, _wVerMinor)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Interface IDs
-
-const IID BASED_CODE IID_DMfcControl =
- { 0xac221fb4, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
-const IID BASED_CODE IID_DMfcControlEvents =
- { 0xac221fb5, 0xa0d8, 0x11d4, { 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4 } };
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Control type information
-
-static const DWORD BASED_CODE _dwMfcControlOleMisc =
- OLEMISC_ACTIVATEWHENVISIBLE |
- OLEMISC_SETCLIENTSITEFIRST |
- OLEMISC_INSIDEOUT |
- OLEMISC_CANTLINKINSIDE |
- OLEMISC_RECOMPOSEONRESIZE;
-
-IMPLEMENT_OLECTLTYPE(CMfcControlCtrl, IDS_MFCCONTROL, _dwMfcControlOleMisc)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry -
-// Adds or removes system registry entries for CMfcControlCtrl
-
-BOOL CMfcControlCtrl::CMfcControlCtrlFactory::UpdateRegistry(BOOL bRegister)
-{
- // TODO: Verify that your control follows apartment-model threading rules.
- // Refer to MFC TechNote 64 for more information.
- // If your control does not conform to the apartment-model rules, then
- // you must modify the code below, changing the 6th parameter from
- // afxRegApartmentThreading to 0.
-
- if (bRegister)
- return AfxOleRegisterControlClass(
- AfxGetInstanceHandle(),
- m_clsid,
- m_lpszProgID,
- IDS_MFCCONTROL,
- IDB_MFCCONTROL,
- afxRegApartmentThreading,
- _dwMfcControlOleMisc,
- _tlid,
- _wVerMajor,
- _wVerMinor);
- else
- return AfxOleUnregisterClass(m_clsid, m_lpszProgID);
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::CMfcControlCtrl - Constructor
-
-CMfcControlCtrl::CMfcControlCtrl()
-{
- InitializeIIDs(&IID_DMfcControl, &IID_DMfcControlEvents);
-
- // TODO: Initialize your control's instance data here.
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::~CMfcControlCtrl - Destructor
-
-CMfcControlCtrl::~CMfcControlCtrl()
-{
- // TODO: Cleanup your control's instance data here.
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::OnDraw - Drawing function
-
-void CMfcControlCtrl::OnDraw(
- CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid)
-{
- // TODO: Replace the following code with your own drawing code.
- pdc->FillRect(rcBounds, CBrush::FromHandle((HBRUSH)GetStockObject(WHITE_BRUSH)));
- pdc->Ellipse(rcBounds);
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::DoPropExchange - Persistence support
-
-void CMfcControlCtrl::DoPropExchange(CPropExchange* pPX)
-{
- ExchangeVersion(pPX, MAKELONG(_wVerMinor, _wVerMajor));
- COleControl::DoPropExchange(pPX);
-
- // TODO: Call PX_ functions for each persistent custom property.
-
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl::OnResetState - Reset control to default state
-
-void CMfcControlCtrl::OnResetState()
-{
- COleControl::OnResetState(); // Resets defaults found in DoPropExchange
-
- // TODO: Reset any other control state here.
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl message handlers
-
-
-short CMfcControlCtrl::inShort(short val)
-{
- char buf[256];
- sprintf( buf, "inByte: value= %d", val);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
- return val+1;
-}
-
-long CMfcControlCtrl::inLong(long val)
-{
- char buf[256];
- sprintf( buf, "inLong: value= %d", val);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
- return val+1;
-}
-
-BSTR CMfcControlCtrl::inString(BSTR* val)
-{
- CString strResult;
- strResult= *val;
- char buf[256];
- sprintf( buf, "inString: value= %S", *val);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
- strResult += L" an appended string";
- return strResult.AllocSysString();
-}
-
-float CMfcControlCtrl::inFloat(float val)
-{
- char buf[256];
- sprintf( buf, "inFloat: value= %f", val);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
- return val+1;
-}
-
-double CMfcControlCtrl::inDouble(double val)
-{
- char buf[256];
- sprintf( buf, "inDouble: value= %g", val);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
- return val+1;
-}
-
-VARIANT CMfcControlCtrl::inVariant(const VARIANT FAR& val)
-{
- VARIANT vaResult;
- VariantInit(&vaResult);
- VariantCopyInd( &vaResult, const_cast<VARIANT*>(&val));
- if( vaResult.vt == VT_BSTR)
- {
- char buf[256];
- sprintf( buf, "inVariant: value= %S", vaResult.bstrVal);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
-
- }
- return _variant_t( L" a string from CMfcControlCtrl::inVariant");
-}
-
-LPDISPATCH CMfcControlCtrl::inObject(LPDISPATCH val)
-{
- char buf[256];
- _bstr_t bstr;
- HRESULT hr= S_OK;
- COleVariant var;
- DISPID id;
- OLECHAR* name=L"prpString";
- if( SUCCEEDED(hr= val->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
- {
- DISPPARAMS params={0,0,0,0};
- hr= val->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, &params, &var,0,0);
-
- }
-
- if( var.vt== VT_BSTR)
- bstr= var.bstrVal;
- sprintf( buf, "inObject: value= %S", (wchar_t*)bstr);
- ::MessageBoxA( NULL, buf, "MFCCONTROL.MfcControl", MB_OK);
-
- return NULL;
-}
-
-
-void CMfcControlCtrl::outShort(short* val)
-{
- *val= 123;
-}
-
-void CMfcControlCtrl::outLong(long* val)
-{
- *val= 1234;
-}
-
-void CMfcControlCtrl::outString(BSTR FAR* val)
-{
- *val= SysAllocString(L"A string from CMfcControlCtrl::outString ");
-}
-
-void CMfcControlCtrl::outFloat(float* val)
-{
- *val= 3.14f;
-}
-
-void CMfcControlCtrl::outDouble(double* val)
-{
- *val= 3.145;
-}
-
-void CMfcControlCtrl::outVariant(VARIANT FAR* val)
-{
- VariantInit( val);
- val->vt= VT_BSTR;
- val->bstrVal= SysAllocString( L"a string in a VARIANT");
-}
-
-void CMfcControlCtrl::outObject(LPDISPATCH FAR* val)
-{
- //{BFE10EBE-8584-11D4-005004526AB4}
- HRESULT hr= S_OK;
- CLSID clsTestControl;
- hr= CLSIDFromProgID( L"AxTestComponents.Basic", &clsTestControl);
-
- IDispatch* pDisp= NULL;
- hr= CoCreateInstance( clsTestControl, NULL, CLSCTX_ALL, __uuidof(IDispatch), (void**)&pDisp);
-
- if( SUCCEEDED( hr) && val)
- {
- COleVariant var;
- DISPID id;
- OLECHAR* name=L"prpString";
- if( SUCCEEDED(hr= pDisp->GetIDsOfNames( IID_NULL, &name, 1, LOCALE_USER_DEFAULT, &id)))
- {
- COleVariant vaParam1(_T("this is property prpString of AxTestComponents.Basic"));
- DISPID dispidPut= DISPID_PROPERTYPUT;
- DISPPARAMS params;
- params.cArgs= 1;
- params.cNamedArgs= 1;
- params.rgdispidNamedArgs= &dispidPut;
- params.rgvarg= &vaParam1;
-
- hr= pDisp->Invoke( id, IID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYPUT, &params, &var,0,0);
- *val= pDisp;
- }
-
- }
-
-}
-// VT_I1
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/MfcControlCtl.h b/extensions/test/ole/MfcControl/MfcControlCtl.h
deleted file mode 100644
index f6d437965..000000000
--- a/extensions/test/ole/MfcControl/MfcControlCtl.h
+++ /dev/null
@@ -1,99 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-#if !defined(AFX_MFCCONTROLCTL_H__AC221FC3_A0D8_11D4_833B_005004526AB4__INCLUDED_)
-#define AFX_MFCCONTROLCTL_H__AC221FC3_A0D8_11D4_833B_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-// MfcControlCtl.h : Declaration of the CMfcControlCtrl ActiveX Control class.
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlCtrl : See MfcControlCtl.cpp for implementation.
-
-class CMfcControlCtrl : public COleControl
-{
- DECLARE_DYNCREATE(CMfcControlCtrl)
-
-// Constructor
-public:
- CMfcControlCtrl();
-
-// Overrides
- // ClassWizard generated virtual function overrides
- //{{AFX_VIRTUAL(CMfcControlCtrl)
- public:
- virtual void OnDraw(CDC* pdc, const CRect& rcBounds, const CRect& rcInvalid);
- virtual void DoPropExchange(CPropExchange* pPX);
- virtual void OnResetState();
- //}}AFX_VIRTUAL
-
-// Implementation
-protected:
- ~CMfcControlCtrl();
-
- DECLARE_OLECREATE_EX(CMfcControlCtrl) // Class factory and guid
- DECLARE_OLETYPELIB(CMfcControlCtrl) // GetTypeInfo
- DECLARE_PROPPAGEIDS(CMfcControlCtrl) // Property page IDs
- DECLARE_OLECTLTYPE(CMfcControlCtrl) // Type name and misc status
-
-// Message maps
- //{{AFX_MSG(CMfcControlCtrl)
- // NOTE - ClassWizard will add and remove member functions here.
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_MSG
- DECLARE_MESSAGE_MAP()
-
-// Dispatch maps
- //{{AFX_DISPATCH(CMfcControlCtrl)
- afx_msg short inShort(short val);
- afx_msg long inLong(long val);
- afx_msg BSTR inString(BSTR* val);
- afx_msg float inFloat(float val);
- afx_msg double inDouble(double val);
- afx_msg VARIANT inVariant(const VARIANT FAR& val);
- afx_msg LPDISPATCH inObject(LPDISPATCH val);
- afx_msg void outShort(short* val);
- afx_msg void outLong(long* val);
- afx_msg void outString(BSTR FAR* val);
- afx_msg void outFloat(float* val);
- afx_msg void outDouble(double* val);
- afx_msg void outVariant(VARIANT FAR* val);
- afx_msg void outObject(LPDISPATCH FAR* val);
- //}}AFX_DISPATCH
- DECLARE_DISPATCH_MAP()
-
-// Event maps
- //{{AFX_EVENT(CMfcControlCtrl)
- //}}AFX_EVENT
- DECLARE_EVENT_MAP()
-
-// Dispatch and event IDs
-public:
- enum {
- //{{AFX_DISP_ID(CMfcControlCtrl)
- dispidInShort = 1L,
- dispidInLong = 2L,
- dispidInString = 3L,
- dispidInFloat = 4L,
- dispidInDouble = 5L,
- dispidInVariant = 6L,
- dispidInObject = 7L,
- dispidOutShort = 8L,
- dispidOutLong = 9L,
- dispidOutString = 10L,
- dispidOutFloat = 11L,
- dispidOutDouble = 12L,
- dispidOutVariant = 13L,
- dispidOutObject = 14L,
- //}}AFX_DISP_ID
- };
-};
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_MFCCONTROLCTL_H__AC221FC3_A0D8_11D4_833B_005004526AB4__INCLUDED)
-// BYTE
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/MfcControlCtl.png b/extensions/test/ole/MfcControl/MfcControlCtl.png
deleted file mode 100644
index 77c4758c1..000000000
--- a/extensions/test/ole/MfcControl/MfcControlCtl.png
+++ /dev/null
Binary files differ
diff --git a/extensions/test/ole/MfcControl/MfcControlPpg.cpp b/extensions/test/ole/MfcControl/MfcControlPpg.cpp
deleted file mode 100644
index 66a098ba0..000000000
--- a/extensions/test/ole/MfcControl/MfcControlPpg.cpp
+++ /dev/null
@@ -1,79 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// MfcControlPpg.cpp : Implementation of the CMfcControlPropPage property page class.
-
-#include "stdafx.h"
-#include "MfcControl.h"
-#include "MfcControlPpg.h"
-
-#ifdef _DEBUG
-#define new DEBUG_NEW
-#undef THIS_FILE
-static char THIS_FILE[] = __FILE__;
-#endif
-
-
-IMPLEMENT_DYNCREATE(CMfcControlPropPage, COlePropertyPage)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Message map
-
-BEGIN_MESSAGE_MAP(CMfcControlPropPage, COlePropertyPage)
- //{{AFX_MSG_MAP(CMfcControlPropPage)
- // NOTE - ClassWizard will add and remove message map entries
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_MSG_MAP
-END_MESSAGE_MAP()
-
-
-/////////////////////////////////////////////////////////////////////////////
-// Initialize class factory and guid
-
-IMPLEMENT_OLECREATE_EX(CMfcControlPropPage, "MFCCONTROL.MfcControlPropPage.1",
- 0xac221fb7, 0xa0d8, 0x11d4, 0x83, 0x3b, 0, 0x50, 0x4, 0x52, 0x6a, 0xb4)
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlPropPage::CMfcControlPropPageFactory::UpdateRegistry -
-// Adds or removes system registry entries for CMfcControlPropPage
-
-BOOL CMfcControlPropPage::CMfcControlPropPageFactory::UpdateRegistry(BOOL bRegister)
-{
- if (bRegister)
- return AfxOleRegisterPropertyPageClass(AfxGetInstanceHandle(),
- m_clsid, IDS_MFCCONTROL_PPG);
- else
- return AfxOleUnregisterClass(m_clsid, NULL);
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlPropPage::CMfcControlPropPage - Constructor
-
-CMfcControlPropPage::CMfcControlPropPage() :
- COlePropertyPage(IDD, IDS_MFCCONTROL_PPG_CAPTION)
-{
- //{{AFX_DATA_INIT(CMfcControlPropPage)
- // NOTE: ClassWizard will add member initialization here
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_DATA_INIT
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlPropPage::DoDataExchange - Moves data between page and properties
-
-void CMfcControlPropPage::DoDataExchange(CDataExchange* pDX)
-{
- //{{AFX_DATA_MAP(CMfcControlPropPage)
- // NOTE: ClassWizard will add DDP, DDX, and DDV calls here
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_DATA_MAP
- DDP_PostProcessing(pDX);
-}
-
-
-/////////////////////////////////////////////////////////////////////////////
-// CMfcControlPropPage message handlers
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/MfcControlPpg.h b/extensions/test/ole/MfcControl/MfcControlPpg.h
deleted file mode 100644
index 33f564c52..000000000
--- a/extensions/test/ole/MfcControl/MfcControlPpg.h
+++ /dev/null
@@ -1,49 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-#if !defined(AFX_MFCCONTROLPPG_H__AC221FC5_A0D8_11D4_833B_005004526AB4__INCLUDED_)
-#define AFX_MFCCONTROLPPG_H__AC221FC5_A0D8_11D4_833B_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-// MfcControlPpg.h : Declaration of the CMfcControlPropPage property page class.
-
-////////////////////////////////////////////////////////////////////////////
-// CMfcControlPropPage : See MfcControlPpg.cpp.cpp for implementation.
-
-class CMfcControlPropPage : public COlePropertyPage
-{
- DECLARE_DYNCREATE(CMfcControlPropPage)
- DECLARE_OLECREATE_EX(CMfcControlPropPage)
-
-// Constructor
-public:
- CMfcControlPropPage();
-
-// Dialog Data
- //{{AFX_DATA(CMfcControlPropPage)
- enum { IDD = IDD_PROPPAGE_MFCCONTROL };
- // NOTE - ClassWizard will add data members here.
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_DATA
-
-// Implementation
-protected:
- virtual void DoDataExchange(CDataExchange* pDX); // DDX/DDV support
-
-// Message maps
-protected:
- //{{AFX_MSG(CMfcControlPropPage)
- // NOTE - ClassWizard will add and remove member functions here.
- // DO NOT EDIT what you see in these blocks of generated code !
- //}}AFX_MSG
- DECLARE_MESSAGE_MAP()
-
-};
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_MFCCONTROLPPG_H__AC221FC5_A0D8_11D4_833B_005004526AB4__INCLUDED)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/Resource.h b/extensions/test/ole/MfcControl/Resource.h
deleted file mode 100644
index 9cd92613f..000000000
--- a/extensions/test/ole/MfcControl/Resource.h
+++ /dev/null
@@ -1,23 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-//{{NO_DEPENDENCIES}}
-// Microsoft Visual C++ generated include file.
-// Used by MfcControl.rc
-//
-
-#define IDS_MFCCONTROL 1
-#define IDS_MFCCONTROL_PPG 2
-
-#define IDS_MFCCONTROL_PPG_CAPTION 200
-
-#define IDD_PROPPAGE_MFCCONTROL 200
-
-
-#define IDB_MFCCONTROL 1
-
-
-#define _APS_NEXT_RESOURCE_VALUE 201
-#define _APS_NEXT_CONTROL_VALUE 201
-#define _APS_NEXT_SYMED_VALUE 101
-#define _APS_NEXT_COMMAND_VALUE 32768
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/StdAfx.cpp b/extensions/test/ole/MfcControl/StdAfx.cpp
deleted file mode 100644
index b45da9a8e..000000000
--- a/extensions/test/ole/MfcControl/StdAfx.cpp
+++ /dev/null
@@ -1,8 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-// stdafx.cpp : source file that includes just the standard includes
-// stdafx.pch will be the pre-compiled header
-// stdafx.obj will contain the pre-compiled type information
-
-#include "stdafx.h"
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/MfcControl/StdAfx.h b/extensions/test/ole/MfcControl/StdAfx.h
deleted file mode 100644
index 4df599c41..000000000
--- a/extensions/test/ole/MfcControl/StdAfx.h
+++ /dev/null
@@ -1,33 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-#if !defined(AFX_STDAFX_H__AC221FBA_A0D8_11D4_833B_005004526AB4__INCLUDED_)
-#define AFX_STDAFX_H__AC221FBA_A0D8_11D4_833B_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently,
-// but are changed infrequently
-
-#define VC_EXTRALEAN // Exclude rarely-used stuff from Windows headers
-
-#include <afxctl.h> // MFC support for ActiveX Controls
-#include <afxext.h> // MFC extensions
-#include <afxdtctl.h> // MFC support for Internet Explorer 4 Comon Controls
-#ifndef _AFX_NO_AFXCMN_SUPPORT
-#include <afxcmn.h> // MFC support for Windows Common Controls
-#endif // _AFX_NO_AFXCMN_SUPPORT
-
-// Delete the two includes below if you do not wish to use the MFC
-// database classes
-#include <afxdb.h> // MFC database classes
-#include <afxdao.h> // MFC DAO database classes
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#include <comdef.h>
-#endif // !defined(AFX_STDAFX_H__AC221FBA_A0D8_11D4_833B_005004526AB4__INCLUDED_)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/OleClient.ini b/extensions/test/ole/OleClient/OleClient.ini
deleted file mode 100644
index fa1ac118f..000000000
--- a/extensions/test/ole/OleClient/OleClient.ini
+++ /dev/null
@@ -1,5 +0,0 @@
-[Bootstrap]
-UNO_TYPES=types.rdb
-UNO_SERVICES=services.rdb
-
-
diff --git a/extensions/test/ole/OleClient/axhost.cxx b/extensions/test/ole/OleClient/axhost.cxx
deleted file mode 100644
index 93d5721b3..000000000
--- a/extensions/test/ole/OleClient/axhost.cxx
+++ /dev/null
@@ -1,58 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-
-#include "axhost.hxx"
-
-HostWin::HostWin(LPWSTR progid)
-{
- controlName= progid;
- RECT rcPos={0,0,200,200};
- Create(0, rcPos, _T("HostWin"));
-}
-HostWin::~HostWin()
-{
- DestroyWindow();
-}
-
-
-LRESULT HostWin::OnCreate(UINT /*uMsg*/, WPARAM /*wParam*/, LPARAM /*lParam*/, BOOL& /*bHandled*/)
-{
- CAxWindow wnd(m_hWnd);
-
- HRESULT hr= wnd.CreateControlEx( controlName, NULL, NULL,&spControl.p);
-
- return 0;
-}
-
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/axhost.hxx b/extensions/test/ole/OleClient/axhost.hxx
deleted file mode 100644
index 88b870f84..000000000
--- a/extensions/test/ole/OleClient/axhost.hxx
+++ /dev/null
@@ -1,62 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#ifndef __AXHOST_HXX
-#define __AXHOST_HXX
-
-#include <atlbase.h>
-extern CComModule _Module;
-#include <atlcom.h>
-#include <atlhost.h>
-
-
-class HostWin: public CWindowImpl<HostWin, CWindow,
- CWinTraits< WS_CAPTION|WS_POPUPWINDOW|WS_VISIBLE, 0> >
-{
- CComBSTR controlName;
- CComPtr<IUnknown> spControl;
-public:
- HostWin(LPWSTR progid);
-
- ~HostWin();
-
-
- BEGIN_MSG_MAP(HostWin)
- MESSAGE_HANDLER( WM_CREATE, OnCreate)
- END_MSG_MAP()
-
- IUnknown* GetHostedControl(){
- return spControl;
- }
-
- LRESULT OnCreate(UINT uMsg, WPARAM wParam, LPARAM lParam, BOOL& bHandled);
-};
-#endif
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/clientTest.cxx b/extensions/test/ole/OleClient/clientTest.cxx
deleted file mode 100644
index 8277bd89d..000000000
--- a/extensions/test/ole/OleClient/clientTest.cxx
+++ /dev/null
@@ -1,1319 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include <atlbase.h>
-
-CComModule _Module;
-#include<atlcom.h>
-#include <comdef.h>
-
-#include "axhost.hxx"
-
-#include <stdio.h>
-#include "typelib/typedescription.hxx"
-#include <com/sun/star/bridge/oleautomation/Date.hpp>
-#include <com/sun/star/bridge/oleautomation/Currency.hpp>
-#include <com/sun/star/bridge/oleautomation/Decimal.hpp>
-#include <com/sun/star/bridge/oleautomation/SCode.hpp>
-#include <com/sun/star/bridge/oleautomation/NamedArgument.hpp>
-#include <com/sun/star/bridge/oleautomation/PropertyPutArgument.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/script/XInvocation.hpp>
-#include <com/sun/star/uno/Reference.h>
-#include <cppuhelper/servicefactory.hxx>
-#include <rtl/string.h>
-
-#define OUSTR(x) ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM(x) )
-BEGIN_OBJECT_MAP(ObjectMap)
-END_OBJECT_MAP()
-
-using namespace com::sun::star::lang;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge::oleautomation;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-Reference<XInvocation> convertComObject( IUnknown* pUnk);
-Reference<XInvocation> getComObject( OUString progId);
-bool checkOutArgs(const Sequence<Any> & outArgs,
- const Sequence<sal_Int16> & indices, const Sequence<Any> & values);
-
-bool doSimpleTest(const Reference<XInvocation> & inv);
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv);
-bool doParameterTest(const Reference<XInvocation> & inv);
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv);
-bool equalSequences(const Any& orig, const Any& returned);
-HRESULT doTest();
-HRESULT doTest2( Reference<XInvocation> &);
-Reference<XInvocation> getComObject(OUString& );
-
-HRESULT InitializeParameter();
-void printResultVariantArray( VARIANT & var);
-void printVariant( VARIANT & var);
-void printSequence( Sequence<Any>& val);
-
-extern "C" int SAL_CALL main( int , char **)
-{
- HRESULT hr;
- if( FAILED( hr=CoInitialize(NULL)))
- {
- _tprintf(_T("CoInitialize failed \n"));
- return -1;
- }
-
-
- _Module.Init( ObjectMap, GetModuleHandle( NULL));
-
- if( FAILED(hr=doTest()))
- {
- _com_error err( hr);
- const TCHAR * errMsg= err.ErrorMessage();
- MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
- }
- else
- {
- MessageBox( NULL,NULL , "Test succeeded", MB_ICONINFORMATION);
- }
-
-
- _Module.Term();
- CoUninitialize();
- return 0;
-}
-//Also supports named args
-
-bool doParameterTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any arArgs[2];
- Any arValue[2];
- Any arArgs1[4];
-
- NamedArgument arg1(OUString(L"val1"), makeAny((sal_Int32) 123));
- NamedArgument arg2(OUString(L"val2"), makeAny((sal_Int32) 456));
- NamedArgument arg3(OUString(L"val3"), makeAny((sal_Int32) 0xff));
- NamedArgument arg4(OUString(L"val4"), makeAny((sal_Int32) 0xffff));
-
- NamedArgument argOut1(OUString(L"val1"), Any());
- NamedArgument argOut2(OUString(L"val2"), Any());
- Sequence<Any> seqNoArgs;
- arArgs[0] <<= (sal_Int32) 0;
- arArgs[1] <<= (sal_Int32) 0;
- Sequence<Any> seqPositional0(arArgs, 2);
-
-
- arArgs[0] <<= arg1;
- arArgs[1] <<= arg2;
- Sequence<Any> seqNamed(arArgs, 2);
- arArgs[0] <<= arg2;
- arArgs[1] <<= arg1;
- Sequence<Any> seqNamed2(arArgs, 2);
- arArgs[0] <<= argOut1;
- arArgs[1] <<= argOut2;
- Sequence<Any> seqNamed3(arArgs, 2);
- arArgs[0] <<= argOut2;
- arArgs[1] <<= argOut1;
- Sequence<Any> seqNamed4(arArgs, 2);
-
- arArgs[0] <<= arg1;
- Sequence<Any> seqNamed5(arArgs, 1);
- arArgs[0] <<= arg2;
- Sequence<Any> seqNamed6(arArgs, 1);
-
- arArgs[0] <<= (sal_Int32) 123;
- arArgs[1] <<= (sal_Int32) 456;
- Sequence<Any> seqPositional(arArgs, 2);
- arArgs[0] <<= (sal_Int32) 123;
- Sequence<Any> seqPositional2(arArgs, 1);
-
- arArgs[0] <<= Any();
- arArgs[1] <<= Any();
- Sequence<Any> seqPositional3(arArgs, 2);
-
- arArgs[0] <<= (sal_Int32) 123;
- arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
- Sequence<Any> seqOutOpt1(arArgs, 2);
-
- arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs[1] <<= SCode(DISP_E_PARAMNOTFOUND);
- Sequence<Any> seqOutOpt2(arArgs, 2);
-
- arArgs[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs[1] <<= (sal_Int32) 456;
- Sequence<Any> seqOutOpt3(arArgs, 2);
-
- arArgs1[0] <<= (sal_Int32) 0;
- arArgs1[1] <<= (sal_Int32) 0;
- arArgs1[2] <<= (sal_Int32) 0;
- arArgs1[3] <<= (sal_Int32) 0;
- Sequence<Any> seqMix0(arArgs1, 4);
-
- arArgs1[0] <<= (sal_Int32) 123;
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= arg3;
- arArgs1[3] <<= arg4;
- Sequence<Any> seqMix(arArgs1, 4);
-
- arArgs1[0] <<= Any();
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= arg4;
- Sequence<Any> seqMix2(arArgs1, 3);
-
- arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[1] <<= (sal_Int32) 456;
- arArgs1[2] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[3] <<= arg4.Value;
- Sequence<Any> seqMixOut(arArgs1, 4);
-
- arArgs1[0] <<= SCode(DISP_E_PARAMNOTFOUND);
- arArgs1[1] <<= Any();
- arArgs1[2] <<= arg4;
- Sequence<Any> seqMix2Out(arArgs1, 3);
-
-
-
- //in args + out, optional, positional-----------------------------------------
- //first general test
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- //2 optional args, 1 provided
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
- return false;
-
- //2 optional args, 0 provided
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNoArgs, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional3, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt2))
- return false;
-
- //named args --------------------------------------------
-
- // 2 named args, correct position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional0, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- // 2named args, position differs
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqPositional))
- return false;
-
- //named out args, 2 named args with correct position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqIndices.realloc(0);
- inv->invoke(OUString(L"optional5"), seqNamed3, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqNamed ))
- return false;
-
- //named out args, 2 named args with different position
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqIndices.realloc(0);
- inv->invoke(OUString(L"optional5"), seqNamed4, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqNamed2 ))
- return false;
-
-
- //2 args, 1 provided (correct order)
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed5, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt1))
- return false;
- //2 args, 1 provided (incorrect order)
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqPositional0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional3"), seqNamed6, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional5"), seqPositional, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqOutOpt3))
- return false;
-
- //2position + 2 2named args, correct order
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMix))
- return false;
-
- // 4 in args, 1 positional, 1 named, 1 positional omitted
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix0, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix0, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMixOut))
- return false;
-
- // 4 out args, 1 positional, 1 named, 1 positional omitted
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional6"), seqMix2, seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"optional7"), seqMix2Out, seqIndices, seqOut);
- if ( ! checkOutArgs(seqOut, seqIndices, seqMix2Out))
- return false;
-
-
- return true;
-}
-bool doPropertyTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any inBool, outBool;
- Any inByte, outByte;
- Any inShort, outShort;
- Any inLong, outLong;
- Any inString, outString;
- Any inFloat, outFloat;
- Any inDouble, outDouble;
- Any inVariant, outVariant;
- Any inObject, outObject;
- Any inUnknown, outUnknown;
- Any inCY, outCY;
- Any inDate, outDate;
- Any inDecimal, outDecimal;
- Any inSCode, outSCode;
- Any inrefLong, outrefLong;
- Any inrefVariant, outrefVariant;
- Any inrefDecimal, outrefDecimal;
- Any inParamsLong, outParamsLong;
- Reference<XInterface> xintUnknown(getComObject(L"AxTestComponents.Foo"));
-
- inBool <<= (sal_Bool) sal_True;
- inv->setValue(OUString(L"prpBool"), inBool);
- outBool = inv->getValue(OUString(L"prpBool"));
-
- inByte <<= (sal_Int8) 100;
- inv->setValue(OUString(L"prpByte"), inByte);
- outByte = inv->getValue(OUString(L"prpByte"));
-
- inShort <<= static_cast<sal_Int16>( -1);
- inv->setValue(OUString(L"prpShort"), inShort);
- outShort = inv->getValue(OUString(L"prpShort"));
-
- inLong <<= ( sal_Int32) 1234567;
- inv->setValue(OUString(L"prpLong"), inLong // TODO: Add your implementation code here
-);
- outLong = inv->getValue(OUString(L"prpLong"));
-
- inString <<= OUString(L" this is clientTest.exe");
- inv->setValue(OUString(L"prpString"), inString);
- outString = inv->getValue(OUString(L"prpString"));
-
- inFloat <<= 3.14f;
- inv->setValue(OUString(L"prpFloat"), inFloat);
- outFloat = inv->getValue(OUString(L"prpFloat"));
-
- inDouble <<= ( double) 3.145;
- inv->setValue(OUString(L"prpDouble"), inDouble);
- outDouble = inv->getValue(OUString(L"prpDouble"));
-
- inVariant <<= OUString(L"A string in an any");
- inv->setValue(OUString(L"prpVariant"), inVariant);
- outVariant = inv->getValue(OUString(L"prpVariant"));
-
- inObject <<= inv;
- inv->setValue(OUString(L"prpObject"), inObject);
- outObject = inv->getValue(OUString(L"prpObject"));
-
- inUnknown <<= xintUnknown;
- inv->setValue(OUString(L"prpUnknown"), inUnknown);
- outUnknown = inv->getValue(OUString(L"prpUnknown"));
-
- Currency cur(99999);
- inCY <<= cur;
- inv->setValue(OUString(L"prpCurrency"), inCY);
- outCY = inv->getValue(OUString(L"prpCurrency"));
-
- Date d(37889.0);
- inDate <<= d;
- inv->setValue(OUString(L"prpDate"), inDate);
- outDate = inv->getValue(OUString(L"prpDate"));
-
- Decimal dec(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
- inDecimal <<= dec;
- inv->setValue(OUString(L"prpDecimal"), inDecimal);
- outDecimal = inv->getValue(OUString(L"prpDecimal"));
-
- SCode code(DISP_E_BADVARTYPE);
- inSCode <<= code;
- inv->setValue(OUString(L"prpSCode"), inSCode);
- outSCode = inv->getValue(OUString(L"prpSCode"));
-
- inrefLong <<= (sal_Int32) 123456;
- inv->setValue(OUString(L"prprefLong"), inrefLong);
- outrefLong = inv->getValue(OUString(L"prprefLong"));
-
- inrefVariant <<= OUString(L"A string in an any");
- inv->setValue(OUString(L"prprefVariant"), inrefVariant);
- outrefVariant = inv->getValue(OUString(L"prprefVariant"));
-
- Decimal decref(20, 0, 0xffffffff, 0xffffffff, 0x0fffffff);
- inrefDecimal <<= decref;
- inv->setValue(OUString(L"prprefDecimal"), inrefDecimal);
- outrefDecimal = inv->getValue(OUString(L"prprefDecimal"));
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject
- || inUnknown != outUnknown || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode
- || inrefLong != outrefLong ||inrefVariant != outrefVariant
- || inrefDecimal != outrefDecimal)
- return false;
- return true;
-}
-
-bool doPropertyWithArgumentTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any arMultiArgs[3];
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= makeAny((sal_Int32) 0);
- arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
- Sequence<Any> seqMultiArgPut0(arMultiArgs, 3);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= makeAny((sal_Int32) 2);
- arMultiArgs[2] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut1(arMultiArgs, 3);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut2(arMultiArgs, 2);
-
- arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut3(arMultiArgs, 2);
-
- arMultiArgs[0] <<= NamedArgument(OUString(L"val2"), makeAny((sal_Int32) 1));
- arMultiArgs[1] <<= NamedArgument(OUString(L"val3"), makeAny((sal_Int32) 3));
- Sequence<Any> seqMultiArgPut4(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= makeAny((sal_Int32) 0);
- Sequence<Any> seqMultiArgGet0(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= makeAny((sal_Int32) 2);
- Sequence<Any> seqMultiArgGet1(arMultiArgs, 2);
- Sequence<Any> seqMultiArgGet2(arMultiArgs, 1);
-
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 0);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 0));
- Sequence<Any> seqMultiArgPut5(arMultiArgs, 2);
-
- arMultiArgs[0] <<= makeAny((sal_Int32) 1);
- arMultiArgs[1] <<= PropertyPutArgument(makeAny((sal_Int32) 2));
- Sequence<Any> seqMultiArgPut6(arMultiArgs, 2);
-
- arMultiArgs[0] <<= Any();
- arMultiArgs[1] <<= Any();
- Sequence<Any> seqMultiVoid(arMultiArgs, 2);
-
- arMultiArgs[0] = makeAny((sal_Int32) 0);
- arMultiArgs[1] = makeAny((sal_Int32) 0);
- Sequence<Any> seqMultiVoid2(arMultiArgs, 2);
-
- //[propput, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [in] VARIANT* newVal);
- //[propget, ...] HRESULT prpMultiArg1([in,out,optional] VARIANT* val1, [in,out,optional] VARIANT* val2, [out, optional, retval] VARIANT* pVal);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut1, seqIndices, seqOut);
- //check in/out args
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Any anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- if (anyRet != ((PropertyPutArgument const *)seqMultiArgPut1[2].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(seqMultiArgPut1.getArray(), 2)))
- {
- return false;
- }
- // test optional (one arg omitted
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut2, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- arMultiArgs[0] = makeAny((sal_Int32) 1);
- arMultiArgs[1] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
-
- if (anyRet != ((PropertyPutArgument const *) seqMultiArgPut2[1].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
- {
- return false;
- }
-
- //test one named arg and one omitted
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut0, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgPut3, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg1"), seqMultiArgGet0,
- seqIndices, seqOut);
-
- arMultiArgs[0] = makeAny((SCode(DISP_E_PARAMNOTFOUND)));
- arMultiArgs[1] = ((NamedArgument const*) seqMultiArgPut3[0].getValue())->Value;
- if (anyRet != ((PropertyPutArgument const*) seqMultiArgPut3[1].getValue())->Value
- || ! checkOutArgs(seqOut, seqIndices, Sequence<Any>(arMultiArgs, 2)))
- {
- return false;
- }
-
-// [propget,...] HRESULT prpMultiArg2([in] VARIANT val1, [out, retval] VARIANT* pVal);
-// [propput,...] HRESULT prpMultiArg2([in] VARIANT val1, [in] VARIANT newVal);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut5, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid, seqIndices, seqOut);
-
- if ( ! checkOutArgs(seqOut, seqIndices, seqMultiVoid2))
- return false;
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg2"), seqMultiArgPut6,
- seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg2GetValues"), seqMultiVoid,
- seqIndices, seqOut);
-
-// [propget,...] HRESULT prpMultiArg3([in,out] LONG* val1, [out, retval] LONG* pVal);
-// [propput,...] HRESULT prpMultiArg3([in,out] LONG* val1, [in] LONG newVal);
-
- if ( ! checkOutArgs(seqOut, seqIndices, seqMultiArgGet1 ))
- return false;
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut5, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgPut6, seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- anyRet = inv->invoke(OUString(L"prpMultiArg3"), seqMultiArgGet2, seqIndices, seqOut);
-
- if ( anyRet != ((PropertyPutArgument const*) seqMultiArgPut6[1].getValue())->Value
- || !checkOutArgs(seqOut, seqIndices, seqMultiArgGet2))
- return false;
-
-
- //hasProperty, hasMethod
- if (inv->hasProperty(OUSTR("prpMultiArg1")))
- return false;
- if ( ! inv->hasMethod(OUSTR("prpMultiArg1")))
- return false;
- if ( ! inv->hasProperty(OUSTR("prprefLong")))
- return false;
- if (inv->hasMethod(OUSTR("prprefLong")))
- return false;
- if ( ! inv->hasMethod(OUSTR("inLong")))
- return false;
-
- return true;
-}
-bool doSimpleTest(const Reference<XInvocation> & inv)
-{
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any inBool, outBool;
- Any inByte, outByte;
- Any inShort, outShort;
- Any inLong, outLong;
- Any inString, outString;
- Any inFloat, outFloat;
- Any inDouble, outDouble;
- Any inVariant, outVariant;
- Any inObject, outObject;
- Any inUnknown, outUnknown;
- Any inCY, outCY;
- Any inDate, outDate;
- Any inDecimal, outDecimal;
- Any inSCode, outSCode;
- Any inrefLong, outrefLong;
- Any inrefVariant, outrefVariant;
- Any inrefDecimal, outrefDecimal;
-
- Reference<XInterface> xIntFoo(getComObject(L"AxTestComponents.Foo"));
- //###################################################################################
- // in and out parameter
- //###################################################################################
- sal_Bool aBool = sal_True;
- inBool.setValue(&aBool, getCppuBooleanType());
- inv->invoke(OUString(L"inBool"), Sequence< Any > ( &inBool, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outBool"), Sequence< Any > ( & outBool, 1), seqIndices, seqOut);
- outBool <<= seqOut[0];
-
- inByte <<= (sal_Int8) 127;
- inv->invoke(OUString(L"inByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outByte"), Sequence< Any > ( & outByte, 1), seqIndices, seqOut);
- outByte <<= seqOut[0];
-
- inShort <<= static_cast<sal_Int16>(-1);
- inv->invoke(OUString(L"inShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outShort"), Sequence< Any > ( & outShort, 1), seqIndices, seqOut);
- outShort <<= seqOut[0];
-
- inLong <<= ( sal_Int32) 1234567;
- inv->invoke(OUString(L"inLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outLong"), Sequence< Any > ( & outLong, 1 ), seqIndices, seqOut);
- outLong <<= seqOut[0];
-
- inString <<= OUString(L" this is clientTest.exe");
- inv->invoke(OUString(L"inString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outString"), Sequence< Any > ( & outString, 1 ), seqIndices, seqOut);
- outString <<= seqOut[0];
-
- inFloat <<= 3.14f;
- inv->invoke(OUString(L"inFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outFloat"), Sequence< Any > ( & outFloat, 1 ), seqIndices, seqOut);
- outFloat <<= seqOut[0];
-
- inDouble <<= ( double) 3.145;
- inv->invoke(OUString(L"inDouble"), Sequence< Any > ( & inDouble, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDouble"), Sequence< Any > ( & outDouble, 1 ), seqIndices, seqOut);
- outDouble <<= seqOut[0];
-
- inVariant <<= OUString(L" A string in an any");
- inv->invoke(OUString(L"inVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outVariant, 1), seqIndices, seqOut);
- outVariant <<= seqOut[0];
-
- inObject <<= inv;
- inv->invoke(OUString(L"inObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outObject"), Sequence< Any > (& outObject, 1), seqIndices, seqOut);
- outObject <<= seqOut[0];
-
- inUnknown <<= xIntFoo;
- inv->invoke(OUString(L"inUnknown"), Sequence< Any > ( & inUnknown, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outUnknown"), Sequence< Any > (& outUnknown, 1), seqIndices, seqOut);
- outUnknown <<= seqOut[0];
-
- Currency cur(999999);
- inCY <<= cur;
- inv->invoke(OUString(L"inCurrency"), Sequence<Any>( & inCY, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outCurrency"), Sequence< Any > (& outCY, 1), seqIndices, seqOut);
- outCY <<= seqOut[0];
-
- Date dDate(37889.0);
- inDate <<= dDate;
- inv->invoke(OUString(L"inDate"), Sequence<Any>( & inDate, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDate"), Sequence< Any > (& outDate, 1), seqIndices, seqOut);
- outDate <<= seqOut[0];
-
- Decimal dec(3, 0, 0xffffffff, 0xffffffff, 0xfffffff0);
- inDecimal <<= dec;
- inv->invoke(OUString(L"inDecimal"), Sequence<Any>( & inDecimal, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDecimal"), Sequence< Any > (& outDecimal, 1), seqIndices, seqOut);
- outDecimal <<= seqOut[0];
-
- SCode code(DISP_E_BADVARTYPE);
- inSCode <<= code;
- inv->invoke(OUString(L"inSCode"), Sequence<Any>( & inSCode, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSCode"), Sequence< Any > (& outSCode, 1), seqIndices, seqOut);
- outSCode <<= seqOut[0];
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject || inUnknown != outUnknown
- || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
- return false;
- //###################################################################################
- // in/out parameter
- //###################################################################################
- outBool = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutBool"), Sequence< Any > ( & inBool, 1), seqIndices, seqOut);
- outBool <<= seqOut[0];
-
- outByte = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutByte"), Sequence< Any > ( & inByte, 1), seqIndices, seqOut);
- outByte <<= seqOut[0];
-
- outShort = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutShort"), Sequence< Any > ( & inShort, 1), seqIndices, seqOut);
- outShort <<= seqOut[0];
-
- outLong = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutLong"), Sequence< Any > ( & inLong, 1), seqIndices, seqOut);
- outLong <<= seqOut[0];
-
- outString = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutString"), Sequence< Any > ( & inString, 1), seqIndices, seqOut);
- outString <<= seqOut[0];
-
- outFloat = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutFloat"), Sequence< Any > ( & inFloat, 1), seqIndices, seqOut);
- outFloat <<= seqOut[0];
-
- outDouble = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDouble"), Sequence< Any > ( &inDouble, 1), seqIndices, seqOut);
- outDouble <<= seqOut[0];
-
- outVariant = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutVariant"), Sequence< Any > ( & inVariant, 1), seqIndices, seqOut);
- outVariant <<= seqOut[0];
-
- outObject = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutObject"), Sequence< Any > ( & inObject, 1), seqIndices, seqOut);
- outObject <<= seqOut[0];
-
- outCY = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutCurrency"), Sequence< Any > ( & inCY, 1), seqIndices, seqOut);
- outCY <<= seqOut[0];
-
- outDate = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDate"), Sequence< Any > ( & inDate, 1), seqIndices, seqOut);
- outDate <<= seqOut[0];
-
- outDecimal = Any();
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutDecimal"), Sequence< Any > (& inDecimal, 1), seqIndices, seqOut);
- outDecimal <<= seqOut[0];
-
- outSCode = Any();
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutSCode"), Sequence< Any > (& inSCode, 1), seqIndices, seqOut);
- outSCode <<= seqOut[0];
-
- if (inBool != outBool || inByte != outByte || inShort != outShort || inLong != outLong
- || inFloat != outFloat || inDouble != outDouble || inString != outString
- || inVariant != outVariant || inObject != outObject || inCY != outCY
- || inDate != outDate || inDecimal != outDecimal || inSCode != outSCode)
- return false;
-
- //###################################################################################
- // in byref parameters
- //###################################################################################
-
- inrefLong <<= (sal_Int32) 1234;
- inv->invoke(OUString(L"inrefLong"), Sequence<Any>( & inrefLong, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outLong"), Sequence< Any > (& outrefLong, 1), seqIndices, seqOut);
- outrefLong <<= seqOut[0];
-
- inrefVariant <<= OUString(L" A string in an any");
- inv->invoke(OUString(L"inrefVariant"), Sequence< Any > ( & inrefVariant, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outVariant"), Sequence< Any > (&outrefVariant, 1), seqIndices, seqOut);
- outrefVariant <<= seqOut[0];
-
- Decimal refdec(5, 1, 0xffff, 0xff, 0x1);
- inrefDecimal <<= refdec;
- inv->invoke(OUString(L"inrefDecimal"), Sequence< Any > ( & inrefDecimal, 1), seqIndices, seqOut);
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outDecimal"), Sequence< Any > (&outrefDecimal, 1), seqIndices, seqOut);
- outrefDecimal <<= seqOut[0];
-
- if (inrefLong != outrefLong || inrefVariant != outrefVariant
- || inrefDecimal != outrefDecimal)
- return false;
-
-
- //###################################################################################
- // mixed parameter
- //###################################################################################
- // mixed1
- seqIndices.realloc( 0);
- seqOut.realloc(0);
- Any param[3];
- param[0] = inByte;
- param[1] = inFloat;
- param[2] = inVariant;
- inv->invoke(OUString(L"mixed1"), Sequence< Any >(param, 3), seqIndices, seqOut);
-
- if (seqOut.getLength() != 3 || inByte != seqOut[0] || inFloat != seqOut[1]
- || inVariant != seqOut[2])
- return false;
- return true;
-}
-
-bool doSimpleSequenceTest(const Reference<XInvocation> & inv)
-{
- bool ret = true;
- Sequence<sal_Int16> seqIndices;
- Sequence<Any> seqOut;
- Any voidAny;
- Any inArAny;
- Any outArray;
- Any inArBool, outArBool;
- Any inArByte, outArByte;
- Any inArShort, outArShort;
- Any inArLong, outArLong;
- Any inArString, outArString;
- Any inArFloat, outArFloat;
- Any inArDouble, outArDouble;
- Any inArObject, outArObject;
- Any outVariant;
-
- //Initialize arrays
- OUString arStr[]= {L"string0", L"string1", L"string2"};
- Sequence<OUString> seq( arStr, 3);
- inArString <<= seq;
-
- Any arAnyStrTmp[3];
- arAnyStrTmp[0]<<= arStr[0];
- arAnyStrTmp[1]<<= arStr[1];
- arAnyStrTmp[2]<<= arStr[2];
- Sequence<Any> seq_1( arAnyStrTmp, 3);
- inArAny <<= seq_1;
- //###################################################################################
- // in, out Sequences
- //###################################################################################
- //Test sequence containing Anys of Strings
- inv->invoke(OUString(L"inArray"), Sequence< Any > ( & inArAny, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outArray"), Sequence<Any>( & voidAny, 1), seqIndices, seqOut);
- if (inArAny != seqOut[0])
- return false;
-
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"outArray"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArray <<= seqOut[0];
-
- sal_Int8 arByte[]={1,2,3};
- Sequence<sal_Int8> seqByte(arByte, 3);
- inArByte <<= seqByte;
- inv->invoke(OUString(L"inSequenceByte"),Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceByte"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArByte <<= seqOut[0];
-
- sal_Int16 arShort[]={4,5,6};
- Sequence<sal_Int16> seqShort(arShort, 3);
- inArShort<<= seqShort;
- inv->invoke(OUString(L"inSequenceShort"),Sequence< Any >( & inArShort, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceShort"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArShort <<= seqOut[0];
-
- sal_Int32 arLong[] = {7,8,9};
- Sequence<sal_Int32> seqLong(arLong, 3);
- inArLong <<= seqLong;
- inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke(OUString(L"inSequenceLong"),Sequence< Any > ( & inArLong, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceLong"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke( OUString(L"inSequenceString"),Sequence< Any > ( & inArString, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceString"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArString <<= seqOut[0];
-
- float arFloat[]={3.14f, 31.4f, 314.f};
- Sequence<float> seqFloat( arFloat, 3);
- inArFloat <<= seqFloat;
- inv->invoke( OUString(L"inSequenceFloat"),Sequence< Any > ( & inArFloat, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceFloat"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArFloat <<= seqOut[0];
-
- double arDouble[]={3.145, 31.45, 3145.};
- Sequence<double> seqDouble( arDouble, 3);
- inArDouble <<= seqDouble;
- inv->invoke(OUString(L"inSequenceDouble"),Sequence< Any >( & inArDouble, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceDouble"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArDouble <<= seqOut[0];
-
- Sequence<Reference<XInvocation> > seqObj(2);
- seqObj[0]= getComObject(L"AxTestComponents.Basic");
- seqObj[1]= getComObject(L"AxTestComponents.Basic");
- inArObject <<= seqObj;
- inv->invoke(OUString(L"inSequenceObject"),Sequence< Any >( & inArObject, 1), seqIndices, seqOut);
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"outSequenceObject"), Sequence< Any >( & voidAny, 1), seqIndices, seqOut);
- outArObject <<= seqOut[0];
-
- if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort)
- || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
- || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
- || ! equalSequences(inArString, outArString) || ! equalSequences(inArObject, outArObject))
- return false;
-
- //###################################################################################
- // in/out Sequences
- //###################################################################################
- seqIndices.realloc(0);
- seqOut.realloc(0);
- inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutArray"), Sequence< Any >( & inArString, 1), seqIndices, seqOut);
- outArray <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceByte"), Sequence<Any>( & inArByte, 1), seqIndices, seqOut);
- outArByte <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceShort"), Sequence<Any>( & inArShort, 1), seqIndices, seqOut);
- outArShort <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceLong"), Sequence<Any>( & inArLong, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceLong"), Sequence< Any >( & inArLong, 1), seqIndices, seqOut);
- outArLong <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceString"), Sequence<Any>( & inArString, 1), seqIndices, seqOut);
- outArString <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceFloat"), Sequence<Any>( & inArFloat, 1), seqIndices, seqOut);
- outArFloat <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceDouble"), Sequence<Any>( & inArDouble, 1), seqIndices, seqOut);
- outArDouble <<= seqOut[0];
-
- inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);
- inv->invoke(OUString(L"inoutSequenceObject"), Sequence<Any>( & inArObject, 1), seqIndices, seqOut);
- outArObject <<= seqOut[0];
-
- if ( ! equalSequences(inArByte, outArByte) || ! equalSequences(inArShort, outArShort)
- || ! equalSequences(inArLong, outArLong) || ! equalSequences(inArString, outArray)
- || ! equalSequences(inArFloat, outArFloat) || ! equalSequences(inArDouble, outArDouble)
- || ! equalSequences(inArString, outArString) || ! equalSequences(inArObject, outArObject))
- return false;
-
- return ret;
-}
-
-HRESULT doTest()
-{
- HRESULT hr= S_OK;
- USES_CONVERSION;
- Reference<XInvocation> inv= getComObject( L"AxTestComponents.Basic");
-
- HostWin* pWin= new HostWin( L"MFCCONTROL.MfcControlCtrl.1");
- CComPtr<IUnknown> spUnk= pWin->GetHostedControl();
- Reference<XInvocation> invMfc= convertComObject( spUnk.p);
-
- Sequence< sal_Int16> seqIndices;
- Sequence<Any> seqOut;
-
- Any aAny;
- Any anyOut;
- char buff[1024];
- Any seqAny;
-
- if (! doSimpleTest(inv))
- {
- fprintf(stdout, "### Test failed!\n");
- return E_FAIL;
- }
-
- if (! doPropertyTest(inv))
- {
- fprintf(stdout, "### Test failed!\n");
- return E_FAIL;
- }
-
- if ( ! doSimpleSequenceTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
- if ( ! doParameterTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
- if ( ! doPropertyWithArgumentTest(inv))
- {
- fprintf(stdout, "### Test failed! \n");
- return E_FAIL;
- }
-
-
-
-
-
-//
-// //###################################################################################
-// // in multi Sequences
-// //###################################################################################
-// // inMulDimArrayLong
- sal_Int32 arLongi[]={1,2,3};
- sal_Int32 arLongi2[]={4,5,6,7};
- sal_Int32 arLongi3[]={8,9,10,11,12};
-
- Sequence<sal_Int32> seqLongi1( arLongi, 3);
- Sequence<sal_Int32> seqLongi2( arLongi2, 4);
- Sequence<sal_Int32> seqLongi3( arLongi3, 5);
-
- Sequence< Sequence< sal_Int32 > > seq2i(3);
- seq2i[0]= seqLongi1;
- seq2i[1]= seqLongi2;
- seq2i[2]= seqLongi3;
- seqAny<<= seq2i;
- // dimension length 3,5
- inv->invoke( OUString(L"inMulDimArrayLong"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-//
- //inMulDimArrayVariant
- inv->invoke( OUString(L"inMulDimArrayVariant"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
- //inMulDimArrayLong2
- sal_Int32 arLongii1[]={1,2,3};
- sal_Int32 arLongii2[]={4,5,6,7};
- sal_Int32 arLongii3[]={8,9,10,11,12};
- sal_Int32 arLongii4[]={13,14,15,16};
- sal_Int32 arLongii5[]={17,18,19};
-
- Sequence<sal_Int32> seqLongii1( arLongii1, 3);
- Sequence<sal_Int32> seqLongii2( arLongii2, 4);
- Sequence<sal_Int32> seqLongii3( arLongii3, 5);
- Sequence<sal_Int32> seqLongii4( arLongii4, 4);
- Sequence<sal_Int32> seqLongii5( arLongii5, 3);
-
- Sequence< Sequence< sal_Int32 > > seq2ii(3);
- Sequence< Sequence< sal_Int32> > seq2ii2(2);
- seq2ii[0]= seqLongii1;
- seq2ii[1]= seqLongii2;
- seq2ii[2]= seqLongii3;
-
- seq2ii2[0]= seqLongii4;
- seq2ii2[1]= seqLongii5;
-
- Sequence< Sequence< Sequence< sal_Int32> > > seq3ii(2);
- seq3ii[0]=seq2ii;
- seq3ii[1]=seq2ii2;
- seqAny<<= seq3ii;
- inv->invoke( OUString(L"inMulDimArrayLong2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
- // inMulDimArrayByte2
- sal_Int8 arByteii1[]={1,2,3};
- sal_Int8 arByteii2[]={4,5,6,7};
- sal_Int8 arByteii3[]={8,9,10,11,12};
- sal_Int8 arByteii4[]={13,14,15,16};
- sal_Int8 arByteii5[]={17,18,19};
-
- Sequence<sal_Int8> seqByteii1( arByteii1, 3);
- Sequence<sal_Int8> seqByteii2( arByteii2, 4);
- Sequence<sal_Int8> seqByteii3( arByteii3, 5);
- Sequence<sal_Int8> seqByteii4( arByteii4, 4);
- Sequence<sal_Int8> seqByteii5( arByteii5, 3);
-
- Sequence< Sequence< sal_Int8 > > seq2Byteii(3);
- Sequence< Sequence< sal_Int8> > seq2Byteii2(2);
- seq2Byteii[0]= seqByteii1;
- seq2Byteii[1]= seqByteii2;
- seq2Byteii[2]= seqByteii3;
-
- seq2Byteii2[0]= seqByteii4;
- seq2Byteii2[1]= seqByteii5;
-
- Sequence< Sequence< Sequence< sal_Int8> > > seq3Byteii(2);
- seq3Byteii[0]=seq2Byteii;
- seq3Byteii[1]=seq2Byteii2;
- seqAny<<= seq3Byteii;
- inv->invoke( OUString(L"inMulDimArrayByte2"),Sequence< Any > ( &seqAny, 1), seqIndices, seqOut);
-
-
-
- //###################################################################################
- //###################################################################################
- //###################################################################################
- // Tests with a MFC ActiveX control, ( pure dispinterface)
- //###################################################################################
-
- //###################################################################################
- // in parameter MFC ActiveX
- //###################################################################################
- // unsigned char is not supported by MFC
- // aAny <<= ( sal_Int8) 127;
- // invMfc->invoke( OUString(L"inByte"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- if ( ! invMfc.is())
- return hr;
- aAny <<= static_cast<sal_Int16>(-1);
- aAny= invMfc->invoke( OUString(L"inShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-//
- aAny <<= ( sal_Int32) 1234567;
- aAny=invMfc->invoke( OUString(L"inLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- sal_Int32 retLong= *(sal_Int32*)aAny.getValue();
-
- OUString str_1(L" this is clientTest.exe");
- aAny <<= str_1;
- aAny=invMfc->invoke( OUString(L"inString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- aAny>>= str_1;
-
- aAny <<= ( float) 3.14;
- aAny=invMfc->invoke( OUString(L"inFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- aAny <<= ( double) 3.145;
- aAny=invMfc->invoke( OUString(L"inDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
- aAny <<= OUString( L" A string in an any");
- aAny=invMfc->invoke( OUString(L"inVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-
-
- Reference < XInvocation > inv5= getComObject(L"AxTestComponents.Basic");
- Any anyVal4;
- anyVal4 <<= OUString(L"this is the value of prpString");
- inv5->setValue( OUString(L"prpString"), anyVal4);
- aAny <<= inv5;
- aAny=invMfc->invoke( OUString(L"inObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
-//
-// //###################################################################################
-// // out parameter MFC ActiveX
-// //###################################################################################
-//
-// // outShort
- aAny= invMfc->invoke( OUString(L"outShort"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outShort %d", *(sal_Int16*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outLong
- aAny= invMfc->invoke( OUString(L"outLong"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outLong %d", *(sal_Int32*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outString
- aAny= invMfc->invoke( OUString(L"outString"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outString %S", ((OUString*)anyOut.getValue())->getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outFloat
- aAny= invMfc->invoke( OUString(L"outFloat"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outFloat %f", *(float*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outDouble
- aAny= invMfc->invoke( OUString(L"outDouble"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outFloat %f", *(double*)anyOut.getValue());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outVariant
- // we expect a string!! ( VT_BSTR)
- aAny= invMfc->invoke( OUString(L"outVariant"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- anyOut<<= seqOut[0];
- sprintf(buff, "MFC outVariant %S", ((OUString*)anyOut.getValue())->getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
- // outDouble
- aAny= invMfc->invoke( OUString(L"outObject"), Sequence< Any > ( &aAny, 1), seqIndices, seqOut);
- Reference<XInvocation> invOut5;
- seqOut[0]>>= invOut5;
- // we assume that an object of AxTestControls.Basic is being returned.
- anyOut= invOut5->getValue( OUString(L"prpString"));
- OUString tmpStr;
- anyOut>>=tmpStr;
- sprintf(buff, "MFC outObject, property: %S", tmpStr.getStr());
- MessageBox( NULL, buff, _T("clientTest"), MB_OK);
-
-
- //###################################################################################
- // Sequence parameter MFC ActiveX
- //###################################################################################
- // Sequences are not directly supported.
-
-
- delete pWin;
- return hr;
-
-}
-
-
-
-//VARIANT_TRUE VT_UI1
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/funcs.cxx b/extensions/test/ole/OleClient/funcs.cxx
deleted file mode 100644
index b797ab140..000000000
--- a/extensions/test/ole/OleClient/funcs.cxx
+++ /dev/null
@@ -1,358 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include <atlbase.h>
-#include <stdio.h>
-#include "cppuhelper/bootstrap.hxx"
-#include "rtl/process.h"
-#include "typelib/typedescription.hxx"
-
-#include "com/sun/star/bridge/ModelDependent.hpp"
-#include "com/sun/star/bridge/XBridgeSupplier2.hpp"
-#include "com/sun/star/uno/TypeClass.hpp"
-#include "com/sun/star/script/XInvocation.hpp"
-#include "com/sun/star/lang/XMultiServiceFactory.hpp"
-#include "com/sun/star/uno/XComponentContext.hpp"
-#include <com/sun/star/bridge/oleautomation/NamedArgument.hpp>
-#include "rtl/ustring.hxx"
-
-using namespace com::sun::star::bridge;
-using namespace com::sun::star::bridge::ModelDependent;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::lang;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge::oleautomation;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-template< class T >
-bool equalSequences(const Sequence<T>& seqIn, const Sequence<Any> & returned);
-
-
-Reference< XMultiServiceFactory > objectFactory;//
-
-
-Reference<XMultiServiceFactory> getMultiServiceFactory()
-{
- static Reference< XMultiServiceFactory > factory;
- if( ! objectFactory.is() )
- {
- Reference<XComponentContext> context = defaultBootstrap_InitialComponentContext();
- factory = Reference<XMultiServiceFactory>( context->getServiceManager(), UNO_QUERY);
-
- }
- return factory;
-}
-
-Reference<XInvocation> getComObject( OUString progId)
-{
- HRESULT hr= S_OK;
- Reference< XInvocation > ret;
-// Reference<XMultiServiceFactory> fac;
- if( ! objectFactory.is())
- { Reference<XMultiServiceFactory> mgr= getMultiServiceFactory();
- Reference<XInterface> xInt= mgr->createInstance(
- OUString(L"com.sun.star.bridge.oleautomation.Factory"));
- objectFactory= Reference<XMultiServiceFactory>::query( xInt);
- }
-
- if( objectFactory.is())
- {
- Reference<XInterface> xIntAx= objectFactory->createInstance( progId.getStr());
- if( xIntAx.is() )
- {
- Reference< XInvocation > xInv( xIntAx, UNO_QUERY);
- ret= xInv;
- }
- }
- return ret;
-}
-
-Reference<XInvocation> convertComObject( IUnknown* pUnk)
-{
- Reference< XMultiServiceFactory > mgr= getMultiServiceFactory();
- Reference< XInterface > xIntSupplier= mgr->createInstance(OUString(L"com.sun.star.bridge.OleBridgeSupplier2"));
- Reference< XBridgeSupplier2 > xSuppl( xIntSupplier, UNO_QUERY);
-
- Any any;
- CComVariant var( pUnk);
- any <<= ( sal_uInt32)&var;
- sal_uInt8 arId[16];
- rtl_getGlobalProcessId( arId);
- Any target= xSuppl->createBridge( any, Sequence<sal_Int8>( (sal_Int8*)arId, 16), OLE, UNO );
-
- Reference<XInvocation> ret;
- target>>= ret;
- return ret;
-}
-
-/*
- Parameter values contains the expected return values. The value at index 0
- correspond to parameter 0 (left - most). For parameters which are not out or
- in/out the value must be a void any.
-
- The number of items in value must be the
- same as the number of provided parameter during the call on the method.
-
- The parameter outArgs, indices correspond to the sequences which are
- arguments to XInvocation::invoke
- */
-bool checkOutArgs(const Sequence<Any> & outArgs,
- const Sequence<sal_Int16> & indices, const Sequence<Any> & values)
-{
- if (values.getLength() != outArgs.getLength())
- return false;
- //iterate over all parameters. i represents the parameter index
- for (int i = 0; i < values.getLength(); i++)
- {
- if (values[i].getValueType() == getVoidCppuType())
- continue;
- //out parameter
- //Based on the parameter index find the correspondent out value
- int indexOutSeq = -1;
- for (int iIndices = indices.getLength() - 1; iIndices >= 0; iIndices --)
- {
- if (indices[iIndices] == i)
- {
- indexOutSeq = iIndices;
- break;
- }
- }
- if (indexOutSeq == -1)
- return false;
-
- Any value;
- Any out;
- values[i] >>= value;
- outArgs[indexOutSeq] >>=out;
- NamedArgument naVal;
- NamedArgument naOut;
- value >>= naVal;
- out >>= naOut;
- if (values[i].getValueType() == getCppuType((NamedArgument *) 0))
- {
- NamedArgument inNamed;
- values[i] >>= inNamed;
- value <<= inNamed.Value;
- }
- if (value != outArgs[indexOutSeq])
- return false;
- }
- return true;
-}
-
-/* The returned sequence always contains Any elements
-*/
-bool equalSequences(const Any& orig, const Any& returned)
-{
- if (orig.getValueTypeClass() != TypeClass_SEQUENCE)
- {
- OSL_ASSERT(0);
- return false;
- }
- TypeDescription td(orig.getValueTypeRef());
- typelib_IndirectTypeDescription * indirect_td = (typelib_IndirectTypeDescription *) td.get();
-
- switch (indirect_td->pType->eTypeClass)
- {
- case TypeClass_CHAR:
- {
- Sequence<sal_Unicode> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_BOOLEAN:
- {
- Sequence<sal_Bool> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_BYTE:
- {
- Sequence<sal_Int8> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_SHORT:
- {
- Sequence<sal_Int16> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_LONG:
- {
- Sequence<sal_Int32> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_FLOAT:
- {
- Sequence<float> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_DOUBLE:
- {
- Sequence<double> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_STRING:
- {
- Sequence<OUString> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_ANY:
- {
- Sequence<Any> seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- case TypeClass_SEQUENCE:
- {
- //Sequence<sal_Unicode> seq;
- //orig >>= seq;
- //Sequence<Any> seq2;
- //returned >>= seq2;
- //return equalSequences(seq, seq2);
- break;
- }
- case TypeClass_INTERFACE:
- {
- Sequence<Reference<XInvocation> > seq;
- orig >>= seq;
- Sequence<Any> seq2;
- returned >>= seq2;
- return equalSequences(seq, seq2);
- }
- default:
- return false;
- }
- return false;
-}
-
-template< class T >
-bool equalSequences(const Sequence<T>& seqIn, const Sequence<Any> & seqOut)
-{
- if (seqIn.getLength() != seqOut.getLength())
- return false;
- int len = seqIn.getLength();
- for (int i = 0; i < len; i++)
- {
- Any anyIn;
- anyIn <<= seqIn[i];
- Any anyOut = seqOut[i];
- if (anyIn != anyOut)
- return false;
- }
-
- return true;
-}
-
-void printSequence( Sequence<Any>& val)
-{
-
-// typelib_TypeDescription* desc;
-// val.getValueTypeDescription( &desc);
-// typelib_typedescription_release( desc);
-
- USES_CONVERSION;
- char buff[1024];
- buff[0]=0;
- char tmpBuf[1024];
- tmpBuf[0]=0;
- sal_Int32 i;
-
- for( i=0; i< val.getLength(); i++)
- {
- Any& elem= val[i];
- switch ( elem.getValueTypeClass())
- {
- case TypeClass_BYTE:
- sprintf( tmpBuf, "sal_Int8 %d \n", *(sal_Int8*)elem.getValue());
- break;
- case TypeClass_SHORT:
- sprintf( tmpBuf, "sal_Int16 %d \n", *(sal_Int16*)elem.getValue());
- break;
- case TypeClass_LONG:
- sprintf( tmpBuf, "sal_Int32 %d \n", *(sal_Int32*)elem.getValue());
- break;
- case TypeClass_DOUBLE:
- sprintf( tmpBuf, "double %f \n", *(double*)elem.getValue());
- break;
- case TypeClass_FLOAT:
- sprintf( tmpBuf, "float %f \n", *(float*)elem.getValue());
- break;
- case TypeClass_STRING:
- sprintf( tmpBuf, "%S \n", (*(OUString*)elem.getValue()).getStr());
- break;
- case TypeClass_INTERFACE:
- {
- // we assume that the interface is XInvocation of a AxTestControls.Basic component.
- Reference<XInvocation> inv;
- elem>>= inv;
- if( inv.is())
- {
- Any prpVal= inv->getValue( OUString( L"prpString"));
- sprintf( tmpBuf, "Property prpString: %S \n", (*(OUString*)prpVal.getValue()).getStr());
- }
- break;
- }
- default:break;
- }
- strcat( buff, tmpBuf);
-
- }
-
- MessageBox( NULL, A2T(buff), _T("clientTest: printing Sequence elements"), MB_OK);
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleClient/makefile.mk b/extensions/test/ole/OleClient/makefile.mk
deleted file mode 100644
index 0587038d0..000000000
--- a/extensions/test/ole/OleClient/makefile.mk
+++ /dev/null
@@ -1,72 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..$/..$/..$/
-
-PRJNAME=extensions
-TARGET=clientTest
-TARGETTYPE=CUI
-LIBTARGET=NO
-
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings ---
-
-.INCLUDE : settings.mk
-
-# --- Files ---
-
-INCPRE+= $(OUT)$/inc -I$(ATL_INCLUDE)
-
-
-
-APP1TARGET= $(TARGET)
-APP1OBJS= \
- $(OBJ)$/clientTest.obj \
- $(OBJ)$/axhost.obj \
- $(OBJ)$/funcs.obj
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB) \
- $(USER32LIB) \
- $(COMPATH)$/atlmfc$/lib$/atls.lib \
- $(KERNEL32LIB) \
- $(OLE32LIB) \
- $(OLEAUT32LIB) \
- $(UUIDLIB) \
- $(GDI32LIB) \
- $(ADVAPI32LIB)
-
-APP1DEF= $(MISC)\$(APP1TARGET).def
-
-# --- Targets ---
-
-.INCLUDE : target.mk
-
-
diff --git a/extensions/test/ole/OleClient/readme.txt b/extensions/test/ole/OleClient/readme.txt
deleted file mode 100644
index 96181e44d..000000000
--- a/extensions/test/ole/OleClient/readme.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-The program tests the OleObjectFactory service which enables to use COM components
-through XInvocation.
-
-Requirements:
-
-types.rdb and services.rdb and OleClient.ini have to be next to the executable.
-COM component: XCallback_Impl.Simple ( extensions/test/ole/unotocomcalls/XCallback_Impl )
-ActiveX controls: AxTestComponent.Basic ( extensions/test/ole/AxTestComponents)
- MFCCONTROL.MfcControlCtrl.1 (extensions/test/ole/MfcControl)
-
diff --git a/extensions/test/ole/OleConverterVar1/convTest.cxx b/extensions/test/ole/OleConverterVar1/convTest.cxx
deleted file mode 100644
index 0bc278b06..000000000
--- a/extensions/test/ole/OleConverterVar1/convTest.cxx
+++ /dev/null
@@ -1,660 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#pragma warning (disable: 4917)
-#include <windows.h>
-#include <comdef.h>
-#include <tchar.h>
-#include <atlbase.h>
-extern CComModule _Module;
-#include<atlcom.h>
-
-#include <stdio.h>
-#include <com/sun/star/bridge/ModelDependent.hpp>
-#include <com/sun/star/bridge/XBridgeSupplier2.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/uno/XComponentContext.hpp>
-#include <com/sun/star/lang/XMultiComponentFactory.hpp>
-
-#include <oletest/XTestSequence.hpp>
-#include <rtl/process.h>
-#include <com/sun/star/uno/Reference.h>
-#include <cppuhelper/servicefactory.hxx>
-#include <cppuhelper/bootstrap.hxx>
-#include <rtl/string.h>
-
-
-CComModule _Module;
-BEGIN_OBJECT_MAP(ObjectMap)
-END_OBJECT_MAP()
-
-#include "smartarray.h"
-using namespace com::sun::star::bridge;
-using namespace com::sun::star::bridge::ModelDependent;
-using namespace com::sun::star::lang;
-using namespace com::sun::star::uno;
-using namespace oletest;
-using namespace cppu;
-
-using ::rtl::OUString;
-
-HRESULT doTest();
-HRESULT InitializeParameter();
-void printResultVariantArray( VARIANT & var);
-void printVariant( VARIANT & var);
-
-
-
-
-int SAL_CALL _tmain( int argc, _TCHAR * argv[] )
-{
- HRESULT hr;
- if( FAILED( hr=CoInitialize(NULL)))
- {
- _tprintf(_T("CoInitialize failed \n"));
- return -1;
- }
-
-
- _Module.Init( ObjectMap, GetModuleHandle( NULL));
-
- if( FAILED(hr=doTest()))
- {
- _com_error err( hr);
- const TCHAR * errMsg= err.ErrorMessage();
- MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
- }
-
-
- _Module.Term();
- CoUninitialize();
- return 0;
-}
-char _c[]={ 1,2,3,4,5};
-short _short[]={0xffff, 1, 11 ,111, 1111 };
-unsigned short _ushort[]={0xffff, 1, 11 ,111, 1111 };
-long _long[]= { 0xffffffff, 11, 111 ,1111, 1111 };
-unsigned long _ulong[]= { 0xffffffff, 11, 111 ,1111, 1111 };
-float _float[]= { 12345.f, 1234.5f, 123.45f, 12.345f, 1.2345f};
-double _double[]= {12345, 1234.5, 123.45, 12.345, 1.2345};
-
-CComVariant _variant[]= {L"variant 1", L"variant2", L"variant3"};
-wchar_t _wchar[]= {L'1', L'2', L'3', L'A', L' '};
-BSTR _bstr[]={L"Ich", L"bin", L"ein", L"Hamburger", L"Jung"};
-SmartArray<char> arByte( _c, 5, VT_I1);
-SmartArray< short> arShort( _short, 5, VT_I2);
-//SmartArray< unsigned short> arUShort( _ushort, 5, VT_UI2);
-SmartArray< long> arLong( _long, 5, VT_I4);
-//SmartArray< unsigned long> arULong( _ulong, 5, VT_UI4);
-//SmartArray< float> arFloat( _float, 5, VT_R4 );
-SmartArray< double> arDouble( _double, 5, VT_R8 );
-//SmartArray< unsigned short> arWChar( _wchar, 5, VT_UI2 );
-SmartArray< wchar_t* > arString( _bstr, 5, VT_BSTR);
-SmartArray< VARIANT > arVariant( _variant, 3, VT_VARIANT);
-
-
-HRESULT doTest()
-{
- HRESULT hr;
- USES_CONVERSION;
- CComPtr<IUnknown> spUnkMgr;
-
- putenv("UNO_TYPES=types.rdb");
- putenv("UNO_SERVICES=services.rdb");
- Reference<XComponentContext> xContext = defaultBootstrap_InitialComponentContext();
-
- Reference< XMultiComponentFactory > mgr = xContext->getServiceManager();//createRegistryServiceFactory( OUString(L"services.rdb"));
- Reference< XInterface > xIntSupplier= mgr->createInstanceWithContext(
- OUString(L"com.sun.star.bridge.OleBridgeSupplierVar1"), xContext);
- Reference< XBridgeSupplier2 > xSuppl( xIntSupplier, UNO_QUERY);
- Reference <XInterface> xOletest= mgr->createInstanceWithContext(
- OUString(L"oletest.OleTest"), xContext);
- Any any;
- any <<= xOletest;
- sal_uInt8 arId[16];
- rtl_getGlobalProcessId( arId);
- Any target= xSuppl->createBridge( any, Sequence<sal_Int8>( (sal_Int8*)arId, 16), UNO, OLE);
- CComDispatchDriver oletest;
- if (target.getValueTypeClass() == getCppuType((sal_uInt32*) 0).getTypeClass())
- {
- VARIANT* pVariant = *(VARIANT**)target.getValue();
-
- oletest= pVariant->pdispVal;
-
- VariantClear(pVariant);
- CoTaskMemFree(pVariant);
- }
-
- CComVariant varRet;
- CComVariant varParam1;
- CComVariant varParam2;
- CComVariant varParam3;
- CComVariant varParam4;
-
- long value= 100;
- varParam1.vt= VT_I1 | VT_BYREF;
- varParam1.plVal= &value;
-
- // Testing the caching of DISPIDs and the process of aquiring member information
- // on demand in IDispatch::Invoke
- // Step through the corresponding IDispatch implementation of the ole bridge
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varParam1, &varRet);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varParam1, &varRet);
- // Name ok but different case
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout_methodByte"), &varParam1, &varRet);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout_methodByte"), &varParam1, &varRet);
- // not existing member
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout"), &varParam1, &varRet);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"Testinout"), &varParam1, &varRet);
-
- // Property
- varParam1.vt= VT_ARRAY | VT_I1;
- varParam1.parray= (SAFEARRAY*)arByte;
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
- // Name ok but different case
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varParam1);
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varParam1);
- // not existing member
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attr"), &varParam1);
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"attr"), &varParam1);
-
- // PropertyGet
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varRet);
-
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varRet);
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrByte"), &varRet);
- //not existing member
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrBy"), &varRet);
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"attrBy"), &varRet);
-
- DISPID dispid;
- LPOLESTR method= L"methodByte";
- hr = oletest.p->GetIDsOfNames(IID_NULL, &method, 1, LOCALE_USER_DEFAULT, &dispid);
-
-
- CComVariant arg[1];
- arg[0].vt= VT_ARRAY | VT_I1;
- arg[0].parray= (SAFEARRAY*)arByte;
- DISPPARAMS params={ arg,0,1,0};
-
- hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);
-
- hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);
-
- // different case
- LPOLESTR method2= L"MEthodByte";
- hr = oletest.p->GetIDsOfNames(IID_NULL, &method2, 1, LOCALE_USER_DEFAULT, &dispid);
-
- hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);
-
- hr = oletest.p->Invoke(dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYPUT, &params, &varRet, NULL, NULL);
-
- LPOLESTR attrib= L"AttrByte";
- hr = oletest.p->GetIDsOfNames(IID_NULL, &attrib, 1, LOCALE_USER_DEFAULT, &dispid);
-
- hr = oletest.p->Invoke( dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYPUTREF, &params, &varRet, NULL, NULL);
-
- hr = oletest.p->Invoke( dispid, IID_NULL, LOCALE_USER_DEFAULT,
- DISPATCH_METHOD | DISPATCH_PROPERTYGET, &params, &varRet, NULL, NULL);
-
-
-
- CComVariant varByteArray;
- varByteArray.vt= VT_ARRAY | VT_I1;
- varByteArray.parray= (SAFEARRAY*)arByte;
- CComVariant varShortArray;
- varShortArray.vt= VT_ARRAY | VT_I2;
- varShortArray.parray= (SAFEARRAY*)arShort;
- CComVariant varLongArray;
- varLongArray.vt= VT_ARRAY | VT_I4;
- varLongArray.parray= (SAFEARRAY*)arLong;
- CComVariant varDoubleArray;
- varDoubleArray.vt= VT_ARRAY | VT_R8;
- varDoubleArray.parray= (SAFEARRAY*)arDouble;
- CComVariant varStringArray;
- varStringArray.vt= VT_ARRAY | VT_BSTR;
- varStringArray.parray= (SAFEARRAY*)arString;
- CComVariant varArray;
- varArray.vt= VT_ARRAY | VT_VARIANT;
- varArray.parray= (SAFEARRAY*)arVariant;
-
- FONTDESC fd={ sizeof( fd), L"ARIAL", 10, FW_NORMAL, 0, 0, 0, 0};
-
-
- CComPtr< IUnknown > unk1;
- CComPtr< IUnknown > unk2;
- CComPtr< IUnknown > unk3;
-
- IUnknown* _unknown[3];
- hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk1.p);
- hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk2.p);
- hr= OleCreateFontIndirect( &fd, __uuidof( IUnknown), (void**)&unk3.p);
- _unknown[0]= unk1;
- _unknown[1]= unk2;
- _unknown[2]= unk3;
- SmartArray<IUnknown*> arUnknown( _unknown, 3, VT_UNKNOWN);
-
- CComVariant varUnkArray;
- varUnkArray.vt= VT_ARRAY | VT_UNKNOWN;
- varUnkArray.parray= (SAFEARRAY*)arUnknown;
-
- // preparing out parameter;
- char byteOut;
- CComVariant varOutByte; //###
- varOutByte.vt= VT_BYREF | VT_UI1;
- V_I1REF(&varOutByte)= &byteOut;
- short shortOut;
- CComVariant varOutShort; //###
- varOutShort.vt= VT_BYREF | VT_I2;
- V_I2REF( &varOutShort)= &shortOut;
- long longOut;
- CComVariant varOutLong; //###
- varOutLong.vt= VT_BYREF | VT_I4;
- V_I4REF( &varOutLong)= &longOut;
- double doubleOut;
- CComVariant varOutDouble; //###
- varOutDouble.vt= VT_BYREF | VT_R8;
- V_R8REF( &varOutDouble)= &doubleOut;
- BSTR bstrOut= NULL;
- CComVariant varOutString; //###
- varOutString.vt= VT_BYREF | VT_BSTR;
- V_BSTRREF(&varOutString)= &bstrOut;
- CComVariant variantOut;
- CComVariant varOutAny; //###
- varOutAny.vt= VT_BYREF | VT_VARIANT;
- V_VARIANTREF(&varOutAny)= &variantOut;
-
- CComPtr<IDispatch> dispOut;
- CComVariant varOutXInterface; //###
- varOutXInterface.vt= VT_BYREF |VT_DISPATCH;
- V_DISPATCHREF(&varOutXInterface)= &dispOut.p;
-
- // In Parameter ( all of type Sequence ###########################################################
- OutputDebugString( _T("In parameter of type Sequence ###########################################\n"
- "The functions return the Sequence parameter \n\n"));
-
- OutputDebugStringA("methodByte | Params: \n");
- printVariant( varByteArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodByte"), &varByteArray, &varRet);
- OutputDebugStringA("methodByte | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodShort | Params: \n");
- printVariant( varShortArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodShort"), &varShortArray, &varRet);
- OutputDebugStringA("methodShort | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodLong | Params: \n");
- printVariant( varLongArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodLong"), &varLongArray, &varRet);
- OutputDebugStringA("methodLong | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodDouble | Params: \n");
- printVariant( varDoubleArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodDouble"), &varDoubleArray, &varRet);
- OutputDebugStringA("methodDouble | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodString | Params: \n");
- printVariant( varStringArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodString"), &varStringArray, &varRet);
- OutputDebugStringA("methodString | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodAny | Params: \n");
- printVariant( varArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodAny"), &varArray, &varRet);
- OutputDebugStringA("methodAny | return value \n");
- printVariant( varRet);
-
- OutputDebugStringA("methodXInterface | Params: \n");
- printVariant( varUnkArray);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"methodXInterface"), &varUnkArray, &varRet);
- OutputDebugStringA("methodAny | return value \n");
- printVariant( varRet);
-
- // Out Parameter ###########################################################################
- OutputDebugString( _T("Out parameter ###########################################\n\n"));
-
- OutputDebugString(_T("testout_methodByte \n"));
- hr= oletest.InvokeN(static_cast<LPCOLESTR>(L"testout_methodByte"), &varOutByte, 1, &varRet);
- OutputDebugString(_T("testout_methodByte | out value: \n"));
- printVariant( varOutByte);
-
- OutputDebugString(_T("testout_methodShort \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodShort"), &varOutShort, &varRet);
- OutputDebugString(_T("testout_methodShort | out value: \n"));
- printVariant( varOutShort);
-
- OutputDebugString(_T("testout_methodLong \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodLong"), &varOutLong, &varRet);
- OutputDebugString(_T("testout_methodLong | out value: \n"));
- printVariant( varOutLong);
-
- OutputDebugString(_T("testout_methodDouble \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodDouble"), &varOutDouble, &varRet);
- OutputDebugString(_T("testout_methodDouble | out value: \n"));
- printVariant( varOutDouble);
-
- OutputDebugString(_T("testout_methodString \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodString"), &varOutString, &varRet);
- OutputDebugString(_T("testout_methodString | out value: \n"));
- printVariant( varOutString);
-
- OutputDebugString(_T("testout_methodAny \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodAny"), &varOutAny, &varRet);
- OutputDebugString(_T("methodAny | out value: \n"));
- printVariant( varOutAny);
-
- OutputDebugString(_T("testout_methodXInterface \n"));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testout_methodXInterface"), &varOutXInterface, &varRet);
- OutputDebugString(_T("methodAny | out value: \n"));
- printVariant( varOutXInterface);
- CComDispatchDriver outDisp( *varOutXInterface.ppdispVal);
- CComVariant varAttr3;
- outDisp.GetPropertyByName(L"AttrAny2", &varAttr3);
- ATLTRACE("property OleTest.AttrAny2: %s", W2T(varAttr3.bstrVal));
-
- OutputDebugString(_T("testout_methodMulParams1 ( 2 out Parameter) \n"));
- long longOut2=0;
- CComVariant _params[2];
- longOut=0;
- _params[0]= varOutLong;
- _params[1].vt= VT_BYREF | VT_I4;
- V_I4REF(& _params[1])= &longOut2;
- hr= oletest.InvokeN( static_cast<LPCOLESTR>(L"testout_methodMulParams1"), (VARIANT*)&_params, 2);
- OutputDebugString(_T("testout_methodMulParams1 | out values: \n"));
- printVariant( _params[1]);
- printVariant( _params[0]);
-
- OutputDebugString(_T("testout_methodMulParams2 ( 3 out Parameter) \n"));
- CComVariant _params2[3];
- _params2[2]= varOutLong;
- _params2[1].vt= VT_BYREF | VT_I4;
- V_I4REF(& _params2[1])= &longOut2;
- _params2[0]= varOutString;
- hr= oletest.InvokeN( static_cast<LPCOLESTR>( L"testout_methodMulParams2"), (VARIANT*)&_params2, 3);
- OutputDebugString(_T("testout_methodMulParams2 | out values: \n"));
- printVariant( _params2[2]);
- printVariant( _params2[1]);
- printVariant( _params2[0]);
-
- OutputDebugString(_T("testout_methodMulParams3 ( 1 in and 1 out Parameter) \n"));
- CComVariant _params3[2];
- _params3[1]= CComBSTR(L" In string");
- _params3[0]= varOutString;
- hr= oletest.InvokeN( static_cast<LPCOLESTR>( L"testout_methodMulParams3"), (VARIANT*)&_params3, 2);
- OutputDebugString(_T("testout_methodMulParams3 | out values: \n"));
- printVariant( _params3[1]);
- printVariant( _params3[0]);
-
- //In Out Parameter ###########################################################################
- OutputDebugString( _T("In Out parameter ###########################################\n\n"));
-
- *V_I1REF(&varOutByte)= 5;
- ATLTRACE(_T("testinout_methodByte | in value: %d \n"), *V_I1REF(&varOutByte));
- hr= oletest.InvokeN(static_cast<LPCOLESTR>(L"testinout_methodByte"), &varOutByte, 1, &varRet);
- OutputDebugString(_T("testinout_methodByte | out value: \n"));
- printVariant( varOutByte);
-
- OutputDebugString(_T("testinout_methodShort | in value= 1000 \n"));
- *V_UI2REF(&varOutShort)= 1000;
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodShort"), &varOutShort, &varRet);
- OutputDebugString(_T("testinout_methodShort | out value: \n"));
- printVariant( varOutShort);
-
- OutputDebugString(_T("testinout_methodLong | in value= 10000 \n"));
- *V_UI4REF(&varOutLong)= 10000;
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodLong"), &varOutLong, &varRet);
- OutputDebugString(_T("testinout_methodLong | out value: \n"));
- printVariant( varOutLong);
-
- *V_R8REF(&varOutDouble)= 3.14;
- ATLTRACE(_T("testinou_methodDouble in value: %f \n"),*V_R8REF(&varOutDouble));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodDouble"), &varOutDouble, &varRet);
- OutputDebugString(_T("testinout_methodDouble | out value: \n"));
- printVariant( varOutDouble);
-
- SysFreeString( *V_BSTRREF(&varOutString));
- *V_BSTRREF(&varOutString)= SysAllocString( L"this is a in string");
- ATLTRACE(_T("testinout_methodString | value: %s \n"), W2T(*V_BSTRREF(&varOutString)));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodString"), &varOutString, &varRet);
- OutputDebugString(_T("testinout_methodString | out value: \n"));
- printVariant( varOutString);
-
- CComVariant var1(CComBSTR(L" this is a string in a VARIANT"));
- CComVariant outVar1;
- outVar1.vt= VT_BYREF | VT_VARIANT;
- outVar1.pvarVal= &var1;
- ATLTRACE(_T("testinout_methodAny | parameter: %s\n"), W2T(var1.bstrVal));
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodAny"), &varOutAny, &varRet);
- OutputDebugString(_T("testinout_methodAny | out value: \n"));
- printVariant( varOutAny);
-
- CComPtr< IUnknown > objectIn = unk1;
- CComVariant varOutIFace;
- varOutIFace.vt= VT_BYREF | VT_UNKNOWN;
- varOutIFace.ppunkVal= &objectIn.p;
- (*varOutIFace.ppunkVal)->AddRef();
- OutputDebugString(_T("testinout_methodXInterface | in value: \n"));
- printVariant(varOutIFace);
- hr= oletest.Invoke1(static_cast<LPCOLESTR>(L"testinout_methodXInterface"), &varOutIFace, &varRet);
- OutputDebugString(_T("testinout_methodXInterface | out value: \n"));
- printVariant( varOutIFace);
-
- // Properties ######################################################################
- OutputDebugString( _T(" Properties ###########################################\n\n"));
-
- OutputDebugString(_T("set property \"AttrByte\" | value"));
- //CComVariant propArByte;
- //propArByte.vt= VT_ARRAY | VT_I1;
- varParam1.parray= (SAFEARRAY*)arByte;
- printVariant( varParam1);
- hr= oletest.PutPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varParam1);
- OutputDebugString(_T("get property \"AttrByte\" | value:"));
- varRet.Clear();
- hr= oletest.GetPropertyByName( static_cast<LPCOLESTR>(L"AttrByte"), &varRet);
- printVariant( varRet);
-
-
- return S_OK;
-
-
-}
-
-
-void printVariant( VARIANT & _var)
-{
- HRESULT hr;
- USES_CONVERSION;
- CComVariant var;
- hr= VariantCopyInd( &var, &_var);
- if( var.vt & VT_ARRAY)
- {
- VARTYPE type= var.vt ^ VT_ARRAY;
- SAFEARRAY * sarray= var.parray;
- long lbound;
- long ubound;
- hr= SafeArrayGetLBound( sarray, 1, &lbound);
- hr= SafeArrayGetUBound( sarray, 1, &ubound);
- long count= ubound - lbound + 1;
- char charValue;
- BYTE byteValue;
- short shortValue;
- long longValue;
- double doubleValue;
- IUnknown* unkValue;
- BSTR bstrValue;
- OutputDebugString( _T("# Array \n"));
- for( long i= 0; i < count; i++)
- {
-// CComVariant variantValue;
- TCHAR *buf[256];
- wsprintf( (TCHAR*)buf, _T("%d : "), i);
- OutputDebugString( (TCHAR*)buf);
- VARIANT varTemp;
- VariantInit( &varTemp);
- VARIANT variantValue;
- VariantInit( &variantValue);
- switch( type)
- {
- case VT_UI1:
- hr= SafeArrayGetElement( sarray, &i, &byteValue);
- varTemp.vt= VT_UI1;
- V_UI1( &varTemp)= byteValue;
- printVariant( varTemp);
- break;
- case VT_I1:
- hr= SafeArrayGetElement( sarray, &i, &charValue);
- varTemp.vt= VT_I1;
- V_I1( &varTemp)= charValue;
- printVariant( varTemp);
- break;
- case VT_I2:
- hr= SafeArrayGetElement( sarray, &i, &shortValue);
- varTemp.vt= VT_I2;
- V_I2( &varTemp)= shortValue;
- printVariant( varTemp);
- break;
-
- case VT_UI2:
- case VT_I4:
- hr= SafeArrayGetElement( sarray, &i, &longValue);
- varTemp.vt= VT_I4;
- V_I4( &varTemp)= longValue;
- printVariant( varTemp);
- break;
- case VT_R8:
- hr= SafeArrayGetElement( sarray, &i, &doubleValue);
- varTemp.vt= VT_R8;
- V_R8( &varTemp)= doubleValue;
- printVariant( varTemp);
- break;
- case VT_BSTR:
- hr= SafeArrayGetElement( sarray, &i, &bstrValue);
- varTemp.vt= VT_BSTR;
- varTemp.bstrVal= bstrValue;
- printVariant( varTemp);
- break;
- case VT_VARIANT:
- hr= SafeArrayGetElement( sarray, &i, &varTemp);
- printVariant( varTemp);
- break;
-
- case VT_UNKNOWN:
- hr= SafeArrayGetElement( sarray, &i, &unkValue);
- varTemp.vt= VT_UNKNOWN;
- varTemp.punkVal= unkValue;
- printVariant( varTemp);
- break;
- }
-
- VariantClear( &varTemp);
- VariantClear( &variantValue);
- }
-
- }
- else
- {
- TCHAR buf[256];
- switch (var.vt)
- {
- case VT_I1: wsprintf( (TCHAR*)buf, _T(" VT_I1: %d \n"), V_I1( &var) );
- break;
- case VT_UI1: wsprintf( (TCHAR*)buf, _T(" VT_UI1: %d \n"), V_I1( &var) );
- break;
-
- case VT_I2: wsprintf( (TCHAR*)buf, _T(" VT_I2: %d \n"), V_I2( &var) );
- break;
- case VT_I4: wsprintf( (TCHAR*)buf, _T(" VT_I4: %d \n"), V_I4( &var) );
- break;
- case VT_R8:
- {
-
-// int decimal, sign;
-// char *buffer;
-// int precision = 14;
-// double source = 3.1415926535;
-
-// buffer = _ecvt( V_R8(&var), precision, &decimal, &sign );
- sprintf( (TCHAR*)buf, _T(" VT_R8: %f \n"),V_R8( &var) );
- break;
- }
- case VT_UNKNOWN:
- // The object implement IFont
- {
- CComDispatchDriver disp( var.punkVal);
- CComVariant ret;
- hr= disp.GetPropertyByName( static_cast<LPCOLESTR>(L"Name"), &ret);
- wsprintf( (TCHAR*)buf, _T(" VT_UNKNOWN: property \"Name\": %s \n"), W2T(ret.bstrVal));
- break;
- }
- case VT_DISPATCH:
- // The object implement IFont
- {
- CComDispatchDriver disp( var.punkVal);
- CComVariant ret;
- if( SUCCEEDED( hr= disp.GetPropertyByName( static_cast<LPCOLESTR>(L"Name"), &ret)))
- wsprintf( (TCHAR*)buf, _T(" VT_DISPATCH: property \"Name\": %s \n"), W2T(ret.bstrVal));
- else
- wsprintf( (TCHAR*)buf, _T(" VT_DISPATCH \n"));
-
- break;
- }
-
-
- case VT_BSTR:
- {
- TCHAR* str= W2T( var.bstrVal);
- wsprintf( (TCHAR*)buf, _T(" VT_BSTR: %s \n"), str);
- }
- break;
- default:
- wsprintf( (TCHAR*)buf, _T("\n"));
-
- }
-
- OutputDebugString( (TCHAR*) buf);
- }
-
- return;
-
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleConverterVar1/makefile.mk b/extensions/test/ole/OleConverterVar1/makefile.mk
deleted file mode 100644
index a36c342db..000000000
--- a/extensions/test/ole/OleConverterVar1/makefile.mk
+++ /dev/null
@@ -1,66 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..$/..$/..
-
-PRJNAME=extensions
-TARGET=convTest
-TARGETTYPE=CUI
-LIBTARGET=NO
-
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings ---
-
-.INCLUDE : settings.mk
-
-# --- Files ---
-
-INCPRE+=-I$(ATL_INCLUDE)
-
-
-APP1TARGET= $(TARGET)
-APP1OBJS= $(OBJ)$/convTest.obj
-
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB) \
- $(USER32LIB) \
- $(KERNEL32LIB) \
- $(OLE32LIB) \
- $(OLEAUT32LIB) \
- $(UUIDLIB) \
- $(COMDLG32LIB) \
- $(COMPATH)$/atlmfc$/lib$/atls.lib \
- $(ADVAPI32LIB)
-
-APP1DEF= $(MISC)\$(APP1TARGET).def
-
-# --- Targets ---
-.INCLUDE : target.mk
diff --git a/extensions/test/ole/OleConverterVar1/readme.txt b/extensions/test/ole/OleConverterVar1/readme.txt
deleted file mode 100644
index 148bab04c..000000000
--- a/extensions/test/ole/OleConverterVar1/readme.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-Currently broken!!
-
-The program test the Service com.sun.star.bridge.OleBridgeSupplierVar1.
-While running in debug mode it writes infos to the debug - output.
-
-The executable needs a services.rdb present with the registered services
-com.sun.star.bridge.OleBridgeSupplierVar1, oletest.OleTest. The OleTest
-component resides in extensions/test/ole/cpnt. The build creates an
-oletest.rdb file that must be merged with the types.rdb and OleTest
-must be registered to the services.rdb.
diff --git a/extensions/test/ole/OleConverterVar1/smartarray.h b/extensions/test/ole/OleConverterVar1/smartarray.h
deleted file mode 100644
index f38c93d88..000000000
--- a/extensions/test/ole/OleConverterVar1/smartarray.h
+++ /dev/null
@@ -1,236 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-#ifndef _SMARTARRAY_H
-#define _SMARTARRAY_H
-
-
-template< class sourceType>
-class SmartArray
-{
- SAFEARRAY *m_array;
-public:
-
- SmartArray( sourceType * parParams, int count, VARTYPE destVartype): m_array(NULL)
- {
- HRESULT hr= S_OK;
- SAFEARRAYBOUND rgsabound[1];
- rgsabound[0].cElements= count;
- rgsabound[0].lLbound= 0;
- m_array= SafeArrayCreate( destVartype, 1, rgsabound);
- SafeArrayLock( m_array);
-
- void* pData;
- if( m_array && (SUCCEEDED( SafeArrayAccessData( m_array, (void**)&pData)) ) )
- {
-
- for( int i=0; i< count; i++)
- {
- CComVariant varSource( parParams[i]);
- switch (destVartype)
- {
- case VT_I1:
- {
- char* p= (char*) pData;
- if( SUCCEEDED( hr= varSource.ChangeType( destVartype)))
- p[i]= V_I1( &varSource);
- break;
- }
- case VT_I2:
- {
- short* p= (short*) pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_I2( &varSource);
- break;
- }
- case VT_UI2:
- {
- unsigned short* p= (unsigned short*) pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_UI2( &varSource);
- break;
- }
- case VT_I4:
- {
- long* p= (long*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_I4( &varSource);
- break;
- }
- case VT_UI4:
- {
- unsigned long* p= (unsigned long*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_UI4( &varSource);
- break;
- }
- case VT_R4:
- {
- float* p= (float*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_R4( &varSource);
- break;
- }
- case VT_R8:
- {
- double* p= (double*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_R8( &varSource);
- break;
- }
- case VT_BOOL:
- {
- VARIANT_BOOL* p= (VARIANT_BOOL*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- p[i]= V_BOOL( &varSource);
- break;
- }
- case VT_BSTR:
- {
- BSTR* pBstr= ( BSTR*)pData;
- if( SUCCEEDED( hr=varSource.ChangeType( destVartype)))
- pBstr[i]= SysAllocString(V_BSTR( &varSource));
- break;
- }
- case VT_VARIANT:
- {
- VARIANT *pVariant= (VARIANT*)pData;
- hr= VariantCopy( &pVariant[i], &varSource); break;
- }
-// case VT_UNKNOWN:
-// {
-// long* pUnk= (long*)pData;
-// pUnk[i]= reinterpret_cast<long>(parParams[i]);
-// ((IUnknown*)pUnk[i])->AddRef(); break;
-// }
-// case VT_DISPATCH:
-// {
-// long* pDisp= (long*)pData;
-// pDisp[i]= (long)parParams[i];
-// ((IDispatch*)pDisp[i])->AddRef(); break;
-// }
- default:
- hr= E_FAIL;
- }
- }
- if( FAILED( hr))
- {
- SafeArrayDestroy( m_array);
- m_array= NULL;
- }
- }
- SafeArrayUnaccessData( m_array);
- }
- ~SmartArray(){
- SafeArrayUnlock( m_array);
- SafeArrayDestroy( m_array );
- }
-
- operator bool (){ return m_array == NULL ? false : true; }
-
- operator SAFEARRAY* (){ return m_array;}
-
-};
-
-template<>
-class SmartArray<IUnknown*>
-{
- SAFEARRAY *m_array;
-public:
-
- SmartArray( sourceType * parParams, int count, VARTYPE destVartype);
-// {
-// ATLTRACE("SmartArray<IUnknown>");
-// HRESULT hr= S_OK;
-// SAFEARRAYBOUND rgsabound[1];
-// rgsabound[0].cElements= count;
-// rgsabound[0].lLbound= 0;
-// m_array= SafeArrayCreateVector( VT_UNKNOWN, 0, count);
-// SafeArrayLock( m_array);
-//
-// IUnknown* *pData;
-// if( m_array && (SUCCEEDED( SafeArrayAccessData( m_array, (void**)&pData)) ) )
-// {
-//
-// for( int i=0; i< count; i++)
-// {
-// CComVariant varSource( parParams[i]);
-// switch (destVartype)
-// {
-//
-// case VT_UNKNOWN:
-// {
-// pData[i]= parParams[i];
-// pData[i]->AddRef();
-// }
-// default:
-// hr= E_FAIL;
-// }
-// }
-// if( FAILED( hr))
-// {
-// SafeArrayDestroy( m_array);
-// m_array= NULL;
-// }
-// }
-// SafeArrayUnaccessData( m_array);
-// }
- ~SmartArray(){
- SafeArrayUnlock( m_array);
- SafeArrayDestroy( m_array );
- }
-
- operator bool (){ return m_array == NULL ? false : true; }
-
- operator SAFEARRAY* (){ return m_array;}
-
-};
-
-template <> SmartArray <IUnknown*>::SmartArray(sourceType * parParams, int count, VARTYPE destVartype):m_array(NULL)
-{
- ATLTRACE("SmartArray<IUnknown>");
- HRESULT hr= S_OK;
- SAFEARRAYBOUND rgsabound[1];
- rgsabound[0].cElements= count;
- rgsabound[0].lLbound= 0;
- m_array= SafeArrayCreateVector( VT_UNKNOWN, 0, count);
- SafeArrayLock( m_array);
-
- IUnknown* *pData;
- if( m_array && (SUCCEEDED( SafeArrayAccessData( m_array, (void**)&pData)) ) )
- {
- for( int i=0; i< count; i++)
- {
- pData[i]= parParams[i];
- pData[i]->AddRef();
- }
- }
- SafeArrayUnaccessData( m_array);
-};
-#endif
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/OleTest.htm b/extensions/test/ole/OleTest.htm
deleted file mode 100644
index 93d0fdc4e..000000000
--- a/extensions/test/ole/OleTest.htm
+++ /dev/null
@@ -1,1063 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-// XEventListener implementation in JScript --------------------------------------------------
-function XEventListener_Impl()
-{
- this._environment= "JScript";
- this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener");
-
- //XEventListener
- this.disposing= XEventListener_disposing;
-
- this.bdisposingCalled= false;
- this.bQuiet= true;
- this.resetDisposing= XEventListener_resetDisposing;
- this.disposingCalled= XEventListener_disposingCalled;
-}
-
-function XEventListener_disposing( source)
-{
- if( !this.bQuiet)
- alert("JScript Event Listener \n disposing is being called");
- this.bdisposingCalled= true;
-}
-
-function XEventListener_resetDisposing()
-{
- this.bdisposingCalled= false;
-}
-
-function XEventListener_disposingCalled()
-{
- return this.bdisposingCalled;
-}
-
-//--------------------------------------------------------------------------------------------
-function callOleTest( id)
-{
- var factory= new ActiveXObject("com.sun.star.ServiceManager");
- var oletest= factory.createInstance("oletest.OleTest");
-// alert(oletest);
-
- var arr= new Array( 1, 2, 3, 4, 0);
- var arrDouble= new Array( 1.2345, 12.345, 123,45, 1234.5, 12345);
- var arrBool= new Array( 1, 0, 2, 0, 3);
- var arrChar= new Array( '1', 'A', "1", "A", ' ', 55, 56);
- var arrString= new Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza");
- var arrAny= new Array( 100, 100.1235,"hallo");
- var arrSeq= new Array( arr, arr, arr);
- var arrSeq2= new Array( arrSeq, arrSeq, arrSeq)
-
-
- var arrout1= new Array();
- var arrout2= new Array();
- var arrout3= new Array();
-
- var ret, i;
- var sfarray, sfarray1, sfarray2, sfarray3;
- var arEventListener= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
- new XEventListener_Impl());
- var arEventListener2= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
- new XEventListener_Impl());
- var arArEventListener= new Array( arEventListener, arEventListener2);
- switch( id)
- {
- // Array in-params
- case 1: ret= oletest.methodByte( arr);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() + "<br>");
- document.writeln( "Returns a Sequence&lt BYTE &gt <br>" + sfarray.toArray()) ; break;
-
- case 2: ret= oletest.methodDouble( arrDouble);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrDouble.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt double &gt <br>" + sfarray.toArray()) ; break;
-
- case 3: ret= oletest.methodBool( arrBool);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrBool.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt BOOL &gt <br>" + sfarray.toArray()) ; break;
-
- case 4: ret= oletest.methodShort( arr);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt SHORT &gt <br>" + sfarray.toArray()) ; break;
-
- case 5: ret= oletest.methodUShort( arr);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt unsigned SHORT &gt <br>" + sfarray.toArray()) ; break;
-
- case 6: ret= oletest.methodLong( arr);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt LONG &gt <br>" + sfarray.toArray()) ; break;
-
- case 7: ret= oletest.methodULong( arr);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arr.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt unsigned LONG &gt <br>" + sfarray.toArray()) ; break;
-
- case 8: ret= oletest.methodChar( arrChar);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrChar.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt wchar_t &gt <br>" + sfarray.toArray()) ; break;
-
- case 9: ret= oletest.methodString( arrString);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrString.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt UString &gt <br>" + sfarray.toArray()) ; break;
-
- case 10: ret= oletest.methodAny( arrAny);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrAny.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt UsrAny &gt <br>" + sfarray.toArray() ) ; break;
-
- case 11: ret= oletest.methodSequence( arrSeq);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrSeq.toString() +"<br>");
- document.writeln("Returns a Sequence&lt Sequence &lt long &gt&gt <br>") ;
- var arr1= new Array();
- arr1= sfarray.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- var arr2= new Array();
- arr2= sfarray2.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
-
- case 12: ret= oletest.methodSequence2( arrSeq2);
- document.writeln( "Param: " + arrSeq2.toString() +"<br>");
- sfarray1= new VBArray( ret);
- arr1= sfarray1.toArray();
- for( i=0; i < arr1.length; i++)
- {
- sfarray2= new VBArray( arr1[i]);
- arr2= sfarray2.toArray();
-
- for ( j=0; j < arr2.length; j++)
- {
- sfarray3= new VBArray( arr2[j]);
- arr3= sfarray3.toArray();
- document.write( i+ " ");
- document.writeln(j + ": "+ arr3.toString() + "<br>" );
- }
-
- }
- break;
-
- case 13:
- var ar= new Array();
- for( i=0; i< 3; i++)
- {
- var ob= new Object();
- ob.value= "A JScript object!";
- ar[i]= ob;
- }
-
- ret = oletest.methodXInterface( ar);
- sfarray= new VBArray( ret);
- var arRet= sfarray.toArray();
-
- document.writeln( "Params : Array containing objects ")
- for( index in ar)
- {
- document.writeln( "object " + index + ": " + ar[index].value +" ");
- }
- document.writeln( "<br>" ) ;
- document.writeln("Return: <br>");
- for( index in arRet)
- {
- document.writeln( "object " + index + ": " + arRet[index].value + " ");
- }
- break;
-
- case 14: ret= oletest.methodFloat( arrDouble);
- sfarray= new VBArray( ret);
- document.writeln( "Param: " + arrDouble.toString() +"<br>");
- document.writeln( "Returns a Sequence&lt float&gt <br>" + sfarray.toArray()) ; break;
-
- case 15:
- ret= oletest.methodXEventListeners( arEventListener);
- sfarray= new VBArray(ret);
- _ret= sfarray.toArray();
- for ( key in _ret)
- {
- if( ! _ret[key].disposingCalled())
- alert("Error! oletest.methodXEventListeners")
- }
- break;
- case 16:
- ret= oletest.methodXEventListenersMul( arArEventListener);
- sfarray= new VBArray(ret);
- _ret= sfarray.toArray();
- for( key in _ret)
- {
- sfarray2= new VBArray(_ret[key]);
- _ret2= sfarray2.toArray();
- for( key2 in _ret2)
- {
- if( ! _ret2[key2].disposingCalled())
- alert("Error! oletest.methodXEventListeners")
- }
- }
- break;
-
-
-
- // Properties: setting and getting values
- case 200: oletest.AttrByte = arr;
- ret= oletest.AttrByte;
- document.writeln("Setting AttrByte: " + arr.toString() + "<p>");
- document.writeln("Getting AttrByte: " + arr.toString()); break;
-
- case 201: oletest.AttrDouble= arrDouble;
- ret= oletest.AttrDouble;
- document.writeln("Setting AttrDouble: " + arrDouble.toString() + "<p>");
- document.writeln("Getting AttrDouble: " + arrDouble.toString()); break;
-
- case 202: oletest.AttrBool= arrBool;
- ret= oletest.AttrBool;
- document.writeln("Setting AttrBool: " + arrBool.toString() + "<p>");
- document.writeln("Getting AttrBool: " + arrBool.toString()); break;
-
- case 203: oletest.AttrShort= arr;
- ret= oletest.AttrShort;
- document.writeln("Setting AttrShort: " + arr.toString() + "<p>");
- document.writeln("Getting AttrShort: " + arr.toString()); break;
-
- case 204: oletest.AttrUShort= arr;
- ret= oletest.AttrUShort;
- document.writeln("Setting AttrUShort: " + arr.toString() + "<p>");
- document.writeln("Getting AttrUShort: " + arr.toString()); break;
-
- case 205: oletest.AttrLong= arr;
- ret= oletest.AttrLong;
- document.writeln("Setting AttrLong: " + arr.toString() + "<p>");
- document.writeln("Getting AttrLong: " + arr.toString()); break;
-
- case 206: oletest.AttrULong= arr;
- ret= oletest.AttrULong;
- document.writeln("Setting AttrULong: " + arr.toString() + "<p>");
- document.writeln("Getting AttrULong: " + arr.toString()); break;
-
- case 207: oletest.AttrChar= arrChar;
- ret= oletest.AttrChar;
- document.writeln("Setting AttrChar: " + arrChar.toString() + "<p>");
- document.writeln("Getting AttrChar: " + arrChar.toString()); break;
-
- case 208: oletest.AttrString= arrString;
- ret= oletest.AttrString;
- document.writeln("Setting AttrString: " + arrString.toString() + "<p>");
- document.writeln("Getting AttrString: " + arrString.toString()); break;
-
- case 209: oletest.AttrAny= arrAny;
- ret= oletest.AttrAny;
- document.writeln("Setting AttrAny: " + arrAny.toString() + "<p>");
- document.writeln("Getting AttrAny: " + arrAny.toString()); break;
-
- case 210: oletest.AttrSequence= arrSeq;
- ret= oletest.AttrSequence;
- document.writeln("Setting AttrSequence: " + arrSeq.toString() + "<p>");
- document.writeln("Getting AttrSequence: " + arrSeq.toString()); break;
-
- case 211: oletest.AttrSequence2= arrSeq2;
- ret= oletest.AttrSequence2;
- document.writeln("Setting AttrSequence2: " + arrSeq2.toString() + "<p>");
- document.writeln("Getting AttrSequence2: " + arrSeq2.toString()); break;
-
- case 212: oletest.AttrFloat= arrDouble;
- ret= oletest.AttrFloat;
- document.writeln("Setting AttrFloat: " + arrDouble.toString() + "<p>");
- document.writeln("Getting AttrFloat: " + arrDouble.toString()); break;
-
-
-
- // Out-parameter ------------------------------------------------------------
- case (2000):
- oletest.testout_methodByte( arrout1 );
- alert("byte: " + arrout1[0] ); break;
- case (2001):
- oletest.testout_methodDouble( arrout1 );
- alert( "double: " + arrout1[0] ); break;
- case (2002):
- oletest.testout_methodBool( arrout1 );
- alert( "boolean: " + arrout1[0] ); break;
- case (2003):
- oletest.testout_methodShort( arrout1 );
- alert( "short: " + arrout1[0] ); break;
- case (2004):
- oletest.testout_methodUShort( arrout1 );
- alert( "unsigned short: " + arrout1[0] ); break;
- case (2005):
- oletest.testout_methodLong( arrout1 );
- alert( "long: " + arrout1[0] ); break;
- case (2006):
- oletest.testout_methodULong( arrout1 );
- alert( "unsigned long: " + arrout1[0] ); break;
- case (2007):
- oletest.testout_methodChar( arrout1 );
- alert( "char: " + arrout1[0] ); break;
- case (2008):
- oletest.testout_methodString( arrout1 );
- alert( "string: " + arrout1[0] ); break;
- case (2009):
- oletest.testout_methodAny( arrout1 );
- alert( "any: " + arrout1[0] ); break;
- case (2010):
- oletest.testout_methodSequence( arrout1 );
- var sfarray= new VBArray( arrout1[0]);
- arr= sfarray.toArray();
- document.writeln("use the browser's back arrow to go to the previous page <p>");
- document.writeln( arr.toString());
- break;
- case (2011):
- oletest.testout_methodSequence2( arrout1 );
- var sfarray= new VBArray( arrout1[0]);
- arr= sfarray.toArray();
- var i;
- for( i=0; i < arr.length; i++)
- {
- var sfarray= new VBArray( arr[i]);
- var arr2= new Array();
- arr2= sfarray.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
- case (2012):
- oletest.testout_methodMulParams1( arrout1, arrout2 );
- document.writeln( "int : " + arrout1[0] + " int :" + arrout2[0] ); break;
- case (2013):
- oletest.testout_methodMulParams2( arrout1, arrout2, arrout3 );
- document.writeln( "int: " + arrout1[0] + " int: " + arrout2[0] + " string: " + arrout3[0] ); break;
- case (2014):
- oletest.testout_methodMulParams3( "hallo", arrout1 );
- document.writeln( "string: " + arrout1[0] ); break;
- case (2015):
- oletest.testout_methodXInterface( arrout1 );
- var outVal= arrout1[0];
- alert( outVal.AttrAny2);
- document.writeln( "string: " + arrout1[0].AttrAny2); break;
- case (2016):
- oletest.testout_methodFloat( arrout1 );
- alert( "float: " + arrout1[0] ); break;
- case (2017):
- var in1= 3.14;
- var in2= 1111;
- var in3= -2222;
- oletest.testout_methodMulParams4( in1, arrout1, in2, arrout2, in3 );
- document.write("param1 [in] float: " + in1 + " param2 [out] float: " + arrout1[0] +
- " param3 [in] long: " + in2 + " param4 [out] long: " + arrout2[0] +
- " param5 [in] long: " + in3);
- break;
-
-
- // INOUT - Parameter -------------------------------------------------------------------------------
- // The in value has to be placed on index 0 of the passed in array
- case (500):
- arrout1[0]= 100;
- oletest.testinout_methodByte( arrout1 );
- alert("byte: " + arrout1[0] ); break;
- case (501):
- arrout1[0]= 3.14;
- oletest.testinout_methodDouble( arrout1 );
- alert( "double: " + arrout1[0] ); break;
- case (502):
- arrout1[0]= false;
- oletest.testinout_methodBool( arrout1 );
- alert( "boolean: " + arrout1[0] ); break;
- case (503):
- arrout1[0]= 200;
- oletest.testinout_methodShort( arrout1 );
- alert( "short: " + arrout1[0] ); break;
- case (504):
- arrout1[0]= 300;
- oletest.testinout_methodUShort( arrout1 );
- alert( "unsigned short: " + arrout1[0] ); break;
- case (505):
- arrout1[0]= 400;
- oletest.testinout_methodLong( arrout1 );
- alert( "long: " + arrout1[0] ); break;
- case (506):
- arrout1[0]= 500;
- oletest.testinout_methodULong( arrout1 );
- alert( "unsigned long: " + arrout1[0] ); break;
- case (507):
- arrout1[0]= "A";
- oletest.testinout_methodChar( arrout1 );
- alert( "char: " + arrout1[0] ); break;
- case (508):
- arrout1[0]= "I am a string";
- oletest.testinout_methodString( arrout1 );
- alert( "string: " + arrout1[0] ); break;
- case (509):
- arrout1[0]= arr;
- oletest.testinout_methodAny( arrout1 ); // the method simply returns the argument
- sfarray= new VBArray( arrout1[0]);
- arr= sfarray.toArray();
- alert( "any: " + arr.toString() ); break;
- case (510):
- arrout1[0]= arr;
- oletest.testinout_methodSequence( arrout1 );
- var sfarray= new VBArray( arrout1[0]);
- arr= sfarray.toArray();
- document.writeln("use the browser's back arrow to go to the previous page <p>");
- document.writeln( arr.toString());
- break;
- case (511):
- arrout1[0]= arrSeq;
- oletest.testinout_methodSequence2( arrout1 );
- var sfarray= new VBArray( arrout1[0]);
- arr= sfarray.toArray();
- var i;
- for( i=0; i < arr.length; i++)
- {
- var sfarray= new VBArray( arr[i]);
- var arr2= new Array();
- arr2= sfarray.toArray();
- document.writeln( arr2.toString() + "<br>" );
- }
- break;
- case 512:
- var ob= new Object();
- ob.value= "this is a string";
-
- arrout1[0]= ob;
- alert (arrout1[0].value);
- oletest.testinout_methodXInterface( arrout1);
- alert (arrout1[0].value);
- var outValue= arrout1[0];
- for ( key in outValue)
- {
- document.write( outValue[key] );
- }
- document.write("Out value: " + outValue );
- document.write("Out 1 value: " + arrout1[1]);
- break;
-
-// var ob= new Object();
-// ob.value= "this is a string";
-// inoutValue.Set( "object", ob);
-// oletest.testinout_methodXInterface( inoutValue);
-// document.write("Out value: " + inoutValue.Get().value );
-// break;
-
- case (513):
- arrout1[0]= 3.14;
- oletest.testinout_methodFloat( arrout1 );
- alert( "float: " + arrout1[0] ); break;
-
-
-
- // Test ANY
- // Methods
- case 1000:
- i= 100;
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1001:
- i= 3.14;
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1002:
- i= "Hallo"
- ret= oletest.methodAnyTest1( i);
- document.writeln( "in: " + i + " ret: " + ret);
- break;
- case 1003:
- i= arr;
- ret= oletest.methodAnyTest1( i);
- sfarray= new VBArray( ret);
- document.writeln( "in: " + i + " ret: " + sfarray.toArray());
- break;
- case 1004:
- var obj= new Object();
- obj[1]= "This is index 0";
- ret= oletest.methodAnyTest1( obj);
- document.writeln( "in: " + obj + " ret: " + ret);
- break;
-
-
- // Test ANY property
- case 1010:
- i= 100;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1011:
- i= 3.14;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1012:
- i= "Hallo"
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + i + " get: " + ret);
- break;
- case 1013:
- i= arr;
- oletest.AttrAny2= i;
- ret= oletest.AttrAny2;
- sfarray= new VBArray( ret);
- document.writeln( "set: " + i + " get: " + sfarray.toArray());
- break;
- case 1014:
- var obj= new Object();
- obj[1]= "This is index 0";
- oletest.AttrAny2= obj;
- ret= oletest.AttrAny2;
- document.writeln( "set: " + obj + " get: " + ret);
- break;
-
- // Structs ----------------------------------------------
- case 1020:
- var struct= oletest._GetStruct("com.sun.star.beans.Property");
- struct.Attributes= 1;
- struct.Handle= 2;
- struct.Name= "some Property"
- oletest.methodStruct( struct);
- break;
- case 1021:
- var struct= oletest.retMethodStruct();
- alert( "Property::Attributes : " + struct.Attributes + " \nProperty::Handle : "
- + struct.Handle + "\n Property::Name : " + struct.Name);
- break;
- case 1022:
- var struct= oletest._GetStruct("com.sun.star.beans.Property");
- struct.Attributes= 1;
- struct.Handle= 2;
- struct.Name= "some Property"
- oletest.AttrStruct= struct;
-
- var struct2= oletest.AttrStruct;
- alert( "property get: \n Property::Attributes : " + struct2.Attributes + " \nProperty::Handle : "
- + struct2.Handle + "\n Property::Name : " + struct2.Name);
- break;
-
- case 2100:
- alert("2100");
- var ret= oletest.retMethodByte();
- var sfarray= VBArray( ret);
- document.writeln( sfarray.toArray() );
- break;
-
-
-
- }
-
-}
-
-function funcOut( out)
-{
- out["du"]= 0xffff;
-}
-
-</script>
-
-<script language="VBScript">
-
-sub callBasic(id)
-
- Dim factory
- Set factory= GetObject("", "com.sun.star.ServiceManager")
-
- Set oletest= factory.createInstance("oletest.OleTest")
-
-
- arrInt= Array(1,2,3,4,5)
- arrInt2= Array( -1, -2, 127, 128, 0)
- arrDouble= Array(1.1, 2.2, 3.3, 4.4, 5.5)
- arrBool= Array(0,1,0,2,0)
- arrLong= Array( &Hff, &Hffff, &Hffffff, &Hffffffff)
- arrString= Array("Chicken Wings", "Cheeseburger", "Hamburger")
- arrChar= Array("a",65, "M")
- arrAny= Array("Mickey", 3.14, 100, "A")
-
- Dim arrDim2Int(1,1)
- For i= 0 To 1
- For j= 0 To 1
- arrDim2Int(i,j) = i*2 + j
- Next
- Next
-
- Dim arrDim3Int(1,1,1)
- For i= 0 To 1
- For j= 0 To 1
- For k=0 To 1
- arrDim3Int(i,j,k) = i*2 + j*2 + k
- Next
- Next
- Next
-
-
- select case id
- case 0
- document.writeln "param: "
- printArray arrInt
- ret= oletest.methodByte(arrInt)
- document.writeln "<br> return value: "
- printArray ret
- case 1
- document.writeln "param: "
- printArray arrDouble
- ret= oletest.methodDouble(arrDouble)
- document.writeln "<br> return value: "
- printArray ret
- case 2
- document.writeln "param: "
- printArray arrBool
- ret= oletest.methodBool(arrBool)
- document.writeln "<br> return value: "
- printArray ret
- case 3
- document.writeln "param: "
- printArray arrInt2
- ret= oletest.methodShort(arrInt2)
- document.writeln "<br> return value: "
- printArray ret
- case 4
- document.writeln "param: "
- printArray arrInt
- ret= oletest.methodUShort(arrInt)
- document.writeln "<br> return value: "
- printArray ret
- case 5
- document.writeln "param: "
- printArray arrLong
- ret= oletest.methodLong(arrLong)
- document.writeln "<br> return value: "
- printArray ret
- case 6
- document.writeln "param: "
- printArray arrInt
- ret= oletest.methodULong(arrInt)
- document.writeln "<br> return value: "
- printArray ret
- case 7
- document.writeln "param: "
- printArray arrString
- ret= oletest.methodString(arrString)
- document.writeln "<br> return value: "
- printArray ret
- case 8
- document.writeln "param: "
- printArray arrChar
- ret= oletest.methodChar(arrChar)
- document.writeln "<br> return value: "
- printArray ret
- case 9
- document.writeln "param: "
- printArray arrAny
- ret= oletest.methodAny(arrAny)
- document.writeln "<br> return value: "
- printArray ret
- case 10
- document.writeln "param: "
- printArray2 arrDim2Int
- ret= oletest.methodSequence(arrDim2Int)
- document.writeln "<br> return value: "
- for each val in ret
- document.write "<br> array: "
- for each val2 in val
- document.write val2
- next
- next
-
- // Out Parameter
- case 150
- dim rOut
- oletest.testout_methodByte rOut
- MsgBox rOut
-// void testout_methodFloat( [out] float rOut);
-// void testout_methodDouble( [out] double rOut);
-// void testout_methodBool( [out] boolean rOut);
-// void testout_methodShort( [out] short rOut);
-// void testout_methodUShort( [out] unsigned short rOut);
-// void testout_methodLong( [out] long rOut);
-// void testout_methodULong( [out] unsigned long rOut);
-
-
- // In Out Parameter --------------------------------------------------
- case 100
- a= 100
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodByte a
- document.write a
- case 101
- a= 1.11
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodDouble a
- document.write a
- case 102
- a= 5
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodBool a
- document.write a
- case 103
- a= -10
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodShort a
- document.write a
- case 104
- a= 128
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodUShort a
- document.write a
- case 105
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodLong a
- document.write a
- case 106
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodULong a
- document.write a
- case 107
- a= "ein test string"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodString a
- document.write a
- case 108
- a= "W"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodChar a
- document.write a
- case 109
- a= "Ein String im Any"
- document.write "param: "& CStr( a) & "<br>"
- oletest.other_methodAnyIn a
- document.write a
-
- case 150
- dim a
- document.write "param: "& CStr( a) & "<br>"
- oletest.testout_methodByte( a)
- document.write a
-// Attributes -----------------------------------------------------------------
- case 200
- document.write "set: "
- printArray arrInt
- oletest.AttrByte= arrInt
- b= oletest.AttrByte
- call printArrayEx( "<br> get: ", "<br>", b)
- case 201
- document.write "set: "
- printArray arrDouble
- oletest.AttrDouble= arrDouble
- b= oletest.AttrDouble
- call printArrayEx( "<br> get: ", "<br>", b)
- case 202
- document.write "set: "
- printArray arrBool :
- oletest.AttrBool= arrBool
- b= oletest.AttrBool
- call printArrayEx( "<br> get: ", "<br>", b)
- case 203
- document.write "set: "
- printArray arrInt2 :
- oletest.AttrShort= arrInt2
- b= oletest.AttrShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 204
- document.write "set: "
- printArray arrInt
- oletest.AttrUShort= arrInt
- b= oletest.AttrUShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 205
- document.write "set: "
- printArray arrInt2
- oletest.AttrLong= arrInt2
- b= oletest.AttrLong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 206
- document.write "set: "
- printArray arrInt
- oletest.AttrULong= arrInt
- b= oletest.AttrULong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 207
- document.write "set: "
- printArray arrString
- oletest.AttrString= arrString
- b= oletest.AttrString
- call printArrayEx( "<br> get: ", "<br>", b)
- case 208
- document.write "set: "
- printArray arrChar
- oletest.AttrChar= arrChar
- b= oletest.AttrChar
- call printArrayEx( "<br> get: ", "<br>", b)
- case 209
- document.write "set: "
- printArray arrAny
- oletest.AttrAny= arrAny
- b= oletest.AttrAny
- call printArrayEx( "<br> get: ", "<br>", b)
-
- case 210
- document.write "set: <br>"
- printArray2 arrDim2Int :
- oletest.AttrSequence= arrDim2Int
- ret= oletest.AttrSequence
- document.write "get: "
- for each val in ret
- document.write "<br> array: "
- for each val2 in val
- document.write val2
- next
- next
-
- case 300
- dim aByte
- aByte= 100
- call oletest.testinout_methodByte( aByte)
- MsgBox aByte
-
-
- case 400
-
- set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property")
- struct.Attributes= 1
- struct.Handle= 2
- struct.Name= "some Property"
- oletest.methodStruct struct
-
- case 401
- set struct= oletest.retMethodStruct()
- alert( "Property::Attributes : " & struct.Attributes & vblf & " Property::Handle : " _
- & struct.Handle & vblf & " Property::Name : " & struct.Name)
-
- case 402
- set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property")
- struct.Attributes= 1
- struct.Handle= 2
- struct.Name= "some Property"
- oletest.AttrStruct= struct
-
- set struct2= oletest.AttrStruct
- alert( "property get: " & vblf & "Property::Attributes : " & struct2.Attributes & _
- vblf & " Property::Handle : " & struct2.Handle & vblf & " Property::Name : " _
- & struct2.Name)
- end select
-end sub
-
-sub printArray( arr)
- document.write "array: "
- For Each val In arr
- document.write CStr(val) & " "
- Next
-end sub
-
-// print a 2 dimensional Array
-
-sub printArray2( arr)
- elements1= UBound( arr, 1) - LBound( arr, 1) +1
- elements2= UBound( arr, 2) - LBound( arr, 2) +1
-
- For i=0 To elements1 -1
- document.write( "array " & CStr( i) & ": " )
- For j=0 To elements2 -1
- document.write CStr( arr(i,j))
- Next
- document.write( "<br>")
- Next
-end sub
-
-sub printArrayEx( pre, post, array)
- document.write pre
- printArray array
- document.write post
-end sub
-</script>
-
-<div id=out> </div>
-
-<!-- Insert HTML here -->
-
-<h2> JScript </h2>
-Tests Array/Sequence conversion.<br>
-All methods receive a Sequence as Parameter. The element type of the Sequence is written on the buttons.
-<br>
-<button onclick='callOleTest( 1)'>byte</Button>
-<button onclick='callOleTest( 14)'>float</Button>
-<button onclick='callOleTest( 2)'>double</Button>
-<button onclick='callOleTest( 3)'>boolean</Button>
-<button onclick='callOleTest( 4)'>short</Button>
-<button onclick='callOleTest( 5)'>unsigned short</Button>
-<button onclick='callOleTest( 6)'>long</Button>
-<button onclick='callOleTest( 7)'>unsigned long</Button>
-<button onclick='callOleTest( 8)'>char</Button>
-<button onclick='callOleTest( 9)'>string</Button>
-<button onclick='callOleTest( 10)'>any</Button>
-<button onclick='callOleTest( 11)'>sequence&lt;long&gt; </Button>
-<button onclick='callOleTest( 12)'>sequence&lt;sequence&lt;long&gt; &gt; </Button>
-<button onclick='callOleTest( 13)' id=button2 name=button2>XInterface</Button>
-<button onclick='callOleTest( 15)'>XEventListener</Button>
-<button onclick='callOleTest( 16)'>sequence&lt;XEventListener&gt;</Button>
-<p>
-
-<p>
-Out Parameter <br>
-<button onclick='callOleTest( 2000)'>byte </Button>
-<button onclick='callOleTest( 2016)'>float</Button>
-<button onclick='callOleTest( 2001)'>double</Button>
-<button onclick='callOleTest( 2002)'>boolean</Button>
-<button onclick='callOleTest( 2003)'>short</Button>
-<button onclick='callOleTest( 2004)'>unsigned short</Button>
-<button onclick='callOleTest( 2005)'>long</Button>
-<button onclick='callOleTest( 2006)'>unsigned long</Button>
-<button onclick='callOleTest( 2007)'>char</Button>
-<button onclick='callOleTest( 2008)'>string</Button>
-<button onclick='callOleTest( 2009)'>any</Button>
-<button onclick='callOleTest( 2010)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 2011)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 2012)'>2 out </Button>
-<button onclick='callOleTest( 2013)'>3 out </Button>
-<button onclick='callOleTest( 2014)'>1 in & 1 out </Button>
-<button onclick='callOleTest( 2015)'>XInterface </Button>
-<button onclick='callOleTest( 2017)'>mixed out and in </Button>
-
-
-<p>
-In Out Parameter <br>
-<button onclick='callOleTest( 500)'>byte </Button>
-<button onclick='callOleTest( 513)'>float</Button>
-<button onclick='callOleTest( 501)'>double</Button>
-<button onclick='callOleTest( 502)'>boolean</Button>
-<button onclick='callOleTest( 503)'>short</Button>
-<button onclick='callOleTest( 504)'>unsigned short</Button>
-<button onclick='callOleTest( 505)'>long</Button>
-<button onclick='callOleTest( 506)'>unsigned long</Button>
-<button onclick='callOleTest( 507)'>char</Button>
-<button onclick='callOleTest( 508)'>string</Button>
-<button onclick='callOleTest( 509)'>any</Button>
-<button onclick='callOleTest( 510)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 511)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<button onclick='callOleTest( 512)'>XInterface </Button>
-<p>
-
-Tests Array/Sequence conversion with Attributes. All params are of type Sequence and
- the element type of the Sequence is written on the buttons. <br>
-<button onclick='callOleTest( 200)'>byte </Button>
-<button onclick='callOleTest( 212)'>float</Button>
-<button onclick='callOleTest( 201)'>double</Button>
-<button onclick='callOleTest( 202)'>boolean</Button>
-<button onclick='callOleTest( 203)'>short</Button>
-<button onclick='callOleTest( 204)'>unsigned short</Button>
-<button onclick='callOleTest( 205)'>long</Button>
-<button onclick='callOleTest( 206)'>unsigned long</Button>
-<button onclick='callOleTest( 207)'>char</Button>
-<button onclick='callOleTest( 208)'>string</Button>
-<button onclick='callOleTest( 209)'>any</Button>
-<button onclick='callOleTest( 210)'>sequence&ltlong&gt </Button>
-<button onclick='callOleTest( 211)'>sequence&ltsequence&ltlong&gt &gt </Button>
-<p>
-
-Test of Any parameter in a method. Any contains:<br>
-<button onclick='callOleTest( 1000)'>integer </Button>
-<button onclick='callOleTest( 1001)'>double </Button>
-<button onclick='callOleTest( 1002)'>string</Button>
-<button onclick='callOleTest( 1003)'>array</Button>
-<button onclick='callOleTest( 1004)'>object</Button>
-<p>
-Test of Any parameter in a property. Any contains:<br>
-<button onclick='callOleTest( 1010)'>integer </Button>
-<button onclick='callOleTest( 1011)'>double </Button>
-<button onclick='callOleTest( 1012)'>string</Button>
-<button onclick='callOleTest( 1013)'>array</Button>
-<button onclick='callOleTest( 1014)'>object</Button>
-<P>
-Test of Struct conversions<br>
-<button onclick='callOleTest( 1020)'>methodStruct </Button>
-<button onclick='callOleTest( 1021)'>return struct</Button>
-<button onclick='callOleTest( 1022)'>struct attribute</Button>
-
-
-
-
-<p>
-
-
-<h2> Visual Basic Tests </h2>
-Test array /Sequence conversion and return value<br>
-Template: <b> Sequence &lt type &gt method( Sequence&lt type &gt ) </b> <br>
-<!--<font color= red>Multi dimensional arrays are not processed by VBSript</font> <br> -->
-<button onclick='callBasic(0)'>byte</button>
-<button onclick='callBasic(1)'>double</button>
-<button onclick='callBasic(2)'>boolean</button>
-<button onclick='callBasic(3)'>short</button>
-<button onclick='callBasic(4)'>u short</button>
-<button onclick='callBasic(5)'>long</button>
-<button onclick='callBasic(6)'>u long</button>
-<button onclick='callBasic(7)'>string</button>
-<button onclick='callBasic(8)'>char</button>
-<button onclick='callBasic(9)'>any</button> <br>
-<button onclick='callBasic(10)'>Seq &lt int &gt</button> <br>
-
-
-IN/Out parameter <br>
-Template: <b> void method(type ) </b> <br>
-<button onclick='callBasic(100)'>byte</button>
-<button onclick='callBasic(101)'>double</button>
-<button onclick='callBasic(102)'>boolean</button>
-<button onclick='callBasic(103)'>short</button>
-<button onclick='callBasic(104)'>u short</button>
-<button onclick='callBasic(105)'>long</button>
-<button onclick='callBasic(106)'>u long</button>
-<button onclick='callBasic(107)'>string</button>
-<button onclick='callBasic(108)'>char</button>
-<button onclick='callBasic(109)'>any</button> <br>
-
-Simple out parameter<br>
-<button onclick='callBasic(150)'>byte</button>
-<!--<button onclick='callBasic(151)'>double</button>
-<button onclick='callBasic(152)'>boolean</button>
-<button onclick='callBasic(153)'>short</button>
-<button onclick='callBasic(155)'>long</button>
-<button onclick='callBasic(157)'>string</button>
-<button onclick='callBasic(158)'>char</button>
-<button onclick='callBasic(159)'>any</button> <br>
-//-->
-<br>
-
-
-Tests Array/Sequence conversion with <b>Attributes</b>. All params are of type Sequence and
- the element type of the Sequence is written on the buttons. <br>
-<button onclick='callBasic( 200)'>byte </Button>
-<button onclick='callBasic( 201)'>double</Button>
-<button onclick='callBasic( 202)'>boolean</Button>
-<button onclick='callBasic( 203)'>short</Button>
-<button onclick='callBasic( 204)'>unsigned short</Button>
-<button onclick='callBasic( 205)'>long</Button>
-<button onclick='callBasic( 206)'>unsigned long</Button>
-<button onclick='callBasic( 207)'>string</Button>
-<button onclick='callBasic( 208)'>char</Button>
-<button onclick='callBasic( 209)'>any</Button>
-<button onclick='callBasic( 210)'>sequence&ltlong&gt </Button> <br>
-
-In Out parameter <br>
-<button onclick='callBasic( 300)'>byte</Button>
-<p>
-Structs <br>
-<button onclick='callBasic(400)'>methodStruct</button>
-<button onclick='callBasic(401)'>return Struct</button>
-<button onclick='callBasic(402)'>struct attribute</button>
-
-
-
diff --git a/extensions/test/ole/ScriptTest.html b/extensions/test/ole/ScriptTest.html
deleted file mode 100644
index 71e111457..000000000
--- a/extensions/test/ole/ScriptTest.html
+++ /dev/null
@@ -1,1555 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-
-function runJScriptTest( Log)
-{
-document.writeln("================================================================================<br>");
-document.writeln("JScript<br>");
-document.writeln("================================================================================<p>");
-
-//var name : String = "Fred";
-//print(name);
-var arr= new Array( 1, 2, 3, 4, 0);
-var arrInt= new Array( 1,2,3,4,5);
-var arrDouble= new Array( 1.2345, 12.345, 123.45, 1234.5, 12345);
-var arrBool= new Array( true, false, true, false, true);
-var arrChar= new Array( '1', 'A'," ", 55);
-
-var arrString= new Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza");
-var arrAny= new Array( 100, 100.1235,"hallo");
-var arrSeq= new Array( arr, arr, arr);
-var arrSeq2= new Array( );
-
-var arEventListener= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
- new XEventListener_Impl());
-var arEventListener2= new Array( new XEventListener_Impl(), new XEventListener_Impl(),
- new XEventListener_Impl());
-var arArEventListener= new Array( arEventListener, arEventListener2);
-
-var arObj= new Array();
-for( i=0; i< 3; i++)
-{
- arObj[i]= new Object();
-}
-var outVal= new Array();
-var outVal2= new Array();
-var outVal3= new Array();
-
-for( i=0; i < 3; i++)
-{
- arrSeq2[i]= new Array();
- for( j= 0; j < 3; j++)
- {
- arrSeq2[i][j]= new Array();
- for( k= 0; k < 5; k++)
- {
- arrSeq2[i][j][k]= (i * 3 * 5) + (j * 5) + k;
-// document.write(arrSeq2[i][j][k] + " ");
- }
-// document.write("<br>");
- }
-}
-
-
-ret= oletest.methodByte( arr);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "methodByte");
-
-ret= oletest.methodFloat( arrDouble);
-_ret= new VBArray( ret).toArray();
-bOk= false;
-if( (arrDouble.length == _ret.length)
- && (_ret[0] > 1.2344 && _ret[0] < 1.2346)
- && (_ret[1] > 12.344 && _ret[1] < 12.346)
- && (_ret[2] > 123.44 && _ret[2] < 123.46)
- && (_ret[3] > 1234.4 && _ret[3] < 1234.6)
- && (_ret[4] > 12344 && _ret[4] < 12346))
- bOk= true;
-Log.print( bOk, "methodFloat");
-
-ret= oletest.methodDouble( arrDouble);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrDouble, _ret), "methodDouble");
-
-ret= oletest.methodBool( arrBool);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrBool, _ret), "methodBool");
-
-ret= oletest.methodShort( arr);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "methodShort");
-
-ret= oletest.methodUShort( arr);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "methodUShort");
-
-ret= oletest.methodLong( arr);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "methodLong");
-
-ret= oletest.methodULong( arr);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "methodULong");
-
-ret= oletest.methodChar( arrChar);
-_ret= new VBArray( ret).toArray();
-bOk= false;
-if( _ret.length == arrChar.length && _ret[0] == 49 && _ret[1] == 65 && _ret[2] == 32 && _ret[3] == 55)
- bOk= true;
-Log.print( bOk, "methodChar");
-
-ret= oletest.methodString( arrString);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrString, _ret), "methodString");
-
-ret= oletest.methodAny( arrAny);
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrAny, _ret), "methodAny");
-
-ret= oletest.methodSequence( arrSeq);
-_ret= new VBArray( ret).toArray();
-for( i=0; i < _ret.length; i++)
-{
- sfarray2= new VBArray( _ret[i]);
- var arr2= sfarray2.toArray();
- if( ! isEqualAr(arrSeq[i], arr2))
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "methodSequence");
-
-ret= oletest.methodSequence2( arrSeq2);
-arr1= new VBArray( ret).toArray();
-for( i=0; i < arr1.length; i++)
-{
- var ar2Dim= arrSeq2[i];
- sfarray2= new VBArray( arr1[i]);
- arr2= sfarray2.toArray();
- for ( j=0; j < arr2.length; j++)
- {
- var ar1Dim= ar2Dim[j];
- sfarray3= new VBArray( arr2[j]);
- arr3= sfarray3.toArray();
-// document.write(arr3[j].toString());
- if( ! isEqualAr( arrSeq2[i][j], arr3))
- {
- bOk= false;
- break;
- }
- }
-}
-Log.print( bOk, "methodSequence2");
-
-ret= oletest.methodXInterface( arObj);
-_ret= new VBArray( ret).toArray();
-bOk= true;
-for(i in _ret)
-{
- if( _ret[i] !== arObj[i])
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "methodXInterface");
-
-
-ret= oletest.methodXEventListeners( arEventListener);
-_ret= new VBArray(ret).toArray();
-bOk= true;
-for ( key in _ret)
-{
- if( ! _ret[key].disposingCalled())
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "methodXEventListeners");
-
-ret= oletest.methodXEventListenersMul( arArEventListener);
-_ret= new VBArray(ret).toArray();
-bOk= true;
-for( key in _ret)
-{
- _ret2= new VBArray(_ret[key]).toArray();
- for( key2 in _ret2)
- {
- if( ! _ret2[key2].disposingCalled())
- {
- bOk= false;
- break;
- }
- }
-}
-Log.print( bOk, "methodXEventListenersMul");
-
-document.writeln("<br>");
-oletest.AttrByte = arr;
-ret= oletest.AttrByte;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "AttrByte");
-
-oletest.AttrFloat= arrDouble;
-ret= oletest.AttrFloat;
-_ret= new VBArray( ret).toArray();
-bOk= false;
-if( (arrDouble.length == _ret.length)
- && (_ret[0] > 1.2344 && _ret[0] < 1.2346)
- && (_ret[1] > 12.344 && _ret[1] < 12.346)
- && (_ret[2] > 123.44 && _ret[2] < 123.46)
- && (_ret[3] > 1234.4 && _ret[3] < 1234.6)
- && (_ret[4] > 12344 && _ret[4] < 12346))
- bOk= true;
-Log.print( bOk, "AttrFloat");
-
-oletest.AttrDouble= arrDouble;
-ret= oletest.AttrDouble;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrDouble, _ret), "AttrDouble");
-
-oletest.AttrBool= arrBool;
-ret= oletest.AttrBool;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrBool, _ret), "AttrBool");
-
-oletest.AttrShort= arr;
-ret= oletest.AttrShort;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "AttrShort");
-
-oletest.AttrUShort= arr;
-ret= oletest.AttrUShort;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "AttrUShort");
-
-oletest.AttrLong= arr;
-ret= oletest.AttrLong;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "AttrLong");
-
-oletest.AttrULong= arr;
-ret= oletest.AttrULong;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arr, _ret), "AttrULong");
-
-oletest.AttrChar= arrChar;
-ret= oletest.AttrChar;
-_ret= new VBArray(ret).toArray();
-bOk= false;
-if( _ret.length == arrChar.length && _ret[0] == 49 && _ret[1] == 65 && _ret[2] == 32 && _ret[3] == 55)
- bOk= true;
-Log.print( bOk, "AttrChar");
-
-oletest.AttrString= arrString;
-ret= oletest.AttrString;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrString, _ret), "AttrString");
-
-oletest.AttrAny= arrAny;
-ret= oletest.AttrAny;
-_ret= new VBArray( ret).toArray();
-Log.print( isEqualAr( arrAny, _ret), "AttrAny");
-
-oletest.AttrSequence= arrSeq;
-ret= oletest.AttrSequence;
-_ret= new VBArray( ret).toArray();
-for( i=0; i < _ret.length; i++)
-{
- sfarray2= new VBArray( _ret[i]);
- var arr2= sfarray2.toArray();
- if( ! isEqualAr(arrSeq[i], arr2))
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "AttrSequence");
-
-oletest.AttrSequence2= arrSeq2;
-ret= oletest.AttrSequence2;
-arr1= new VBArray( ret).toArray();
-for( i=0; i < arr1.length; i++)
-{
- var ar2Dim= arrSeq2[i];
- sfarray2= new VBArray( arr1[i]);
- arr2= sfarray2.toArray();
- for ( j=0; j < arr2.length; j++)
- {
- var ar1Dim= ar2Dim[j];
- sfarray3= new VBArray( arr2[j]);
- arr3= sfarray3.toArray();
- if( ! isEqualAr( arrSeq2[i][j], arr3))
- {
- bOk= false;
- break;
- }
- }
-}
-Log.print( bOk, "AttrSequence2");
-
-oletest.AttrXInterface= arObj;
-ret= oletest.AttrXInterface;
-_ret= new VBArray( ret).toArray();
-bOk= true;
-for(i in _ret)
-{
- if( _ret[i] !== arObj[i])
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "AttrXInterface");
-
-ret= oletest.methodXInterface( arObj);
-_ret= new VBArray( ret);
-_ret= _ret.toArray();
-bOk= true;
-for(i in _ret)
-{
- if( _ret[i] !== arObj[i])
- {
- bOk= false;
- break;
- }
-}
-Log.print( bOk, "methodXInterface");
-//======================================================================================
-document.writeln("<br>");
-var inVal, outVal, retVal;
-outVal = new Array();
-
-inVal = 77;
-retVal = oletest.in_methodByte(inVal)
-oletest.testout_methodByte( outVal );
-Log.print( retVal == inVal, "in_methodByte");
-Log.print( outVal[0] == inVal, "testout_methodByte");
-
-inVal = 3.14
-retVal = oletest.in_methodFloat(inVal);
-oletest.testout_methodFloat( outVal );
-Log.print( retVal > 3.14 && retVal < 3.15, "in_methodFloat");
-Log.print( outVal[0] > 3.13 && outVal[0] < 3.15, "testout_methodFloat");
-//Log.print( outVal[0] == inVal, "testout_methodFloat");
-
-retVal = oletest.in_methodDouble(inVal)
-oletest.testout_methodDouble( outVal );
-Log.print( retVal == inVal, "in_methodDouble");
-Log.print( outVal[0] == 3.14, "testout_methodDouble" );
-
-inVal = true;
-retVal = oletest.in_methodBool(inVal);
-oletest.testout_methodBool( outVal );
-Log.print(retVal == inVal, "in_methodBool");
-Log.print( outVal[0] == true, "testout_methodBool");
-
-inVal = 111
-retVal = oletest.in_methodShort(inVal);
-oletest.testout_methodShort( outVal );
-Log.print(retVal == inVal, "in_methodShort");
-Log.print( outVal[0] == inVal, "testout_methodShort");
-
-retVal = oletest.in_methodUShort(inVal);
-oletest.testout_methodUShort( outVal );
-Log.print(retVal == inVal, "in_methodUShort");
-Log.print( outVal[0] == inVal, "testout_methodUShort");
-
-retVal = oletest.in_methodLong(inVal);
-oletest.testout_methodLong( outVal );
-Log.print(retVal == inVal, "in_methodLong");
-Log.print( outVal[0] == inVal, "testout_methodLong");
-
-retVal = oletest.in_methodULong(inVal);
-oletest.testout_methodULong( outVal );
-Log.print(retVal == inVal, "in_methodULong");
-Log.print( outVal[0] == inVal, "testout_methodULong");
-
-retVal = oletest.in_methodChar(inVal);
-oletest.testout_methodChar( outVal );
-Log.print(retVal == inVal, "in_methodChar");
-Log.print( outVal[0] == inVal, "testout_methodChar");
-
-inVal = "Hello World";
-retVal = oletest.in_methodString(inVal);
-oletest.testout_methodString( outVal );
-Log.print(retVal == inVal, "in_methodString");
-Log.print( outVal[0] == inVal, "testout_methodString");
-
-retVal = oletest.in_methodAny(inVal);
-oletest.testout_methodAny( outVal );
-Log.print(retVal == inVal, "in_methodAny");
-Log.print( outVal[0] == inVal, "testout_methodAny");
-
-inVal = new Object();
-retVal = oletest.in_methodXInterface(inVal);
-oletest.testout_methodXInterface(outVal);
-Log.print(retVal === inVal, "in_methodXInterface");
-Log.print(outVal[0] === inVal, "testout_methodXInterface");
-
-inVal = oletest;
-retVal = oletest.in_methodXInterface(inVal);
-oletest.testout_methodXInterface(outVal);
-Log.print(retVal === inVal, "in_methodXInterface");
-Log.print(outVal[0] === inVal, "testout_methodXInterface");
-
-
-oletest.testout_methodSequence( outVal );
-var arr= new VBArray( outVal[0]).toArray();
-Log.print( isEqualAr(arr, new Array( 0,1,2,3,4,5,6,7,8,9)), "testout_methodSequence");
-
-oletest.testout_methodSequence2( outVal );
-var arr= new VBArray( outVal[0]).toArray();
-bOk= true;
-if( arr.length= 10)
-{
- for( i=0; i < arr.length; i++)
- {
- var arr2= new VBArray( arr[i]).toArray();
- if( ! isEqualAr( arr2, new Array( 0,1,2,3,4,5,6,7,8,9)))
- {
- bOk= false;
- break;
- }
- }
-}
-Log.print( bOk, "testout_methodSequence2");
-
-oletest.testout_methodMulParams1( outVal, outVal2 );
-Log.print( outVal[0] == 999 && outVal2[0] == 1111, "testout_methodMulParams1");
-
-oletest.testout_methodMulParams2( outVal, outVal2, outVal3 );
-Log.print( outVal[0] == 1111 && outVal2[0] == 1222 && outVal3[0] == " another string",
- "testout_methodMulParams2");
-
-oletest.testout_methodMulParams3( "hallo", outVal );
-Log.print( outVal[0] == "Out Hallo!", "testout_methodMulParams3");
-
-var in1= 3.14;
-var in2= 1111;
-var in3= -2222;
-oletest.testout_methodMulParams4( in1, outVal, in2, outVal2, in3 );
-Log.print( (outVal[0] > 4.13 && outVal[0] < 4.15) && (outVal2[0] == 1112), "testout_methodMulParams4");
-
-document.writeln("<p>");
-
-inVal = 100;
-outVal[0]= inVal;
-oletest.testinout_methodByte( outVal );
-oletest.testinout_methodByte( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodByte");
-
-inVal = 3.14;
-outVal[0]= inVal;
-oletest.testinout_methodFloat( outVal );
-oletest.testinout_methodFloat( outVal );
-Log.print( outVal[0] > 3.13 && outVal[0] < 3.15, "testinout_methodFloat");
-
-inVal = 3.14
-outVal[0]= inVal;
-oletest.testinout_methodDouble( outVal );
-oletest.testinout_methodDouble( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodDouble");
-
-inVal = true;
-outVal[0]= inVal;
-oletest.testinout_methodBool( outVal );
-oletest.testinout_methodBool( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodBool");
-
-inVal = 200;
-outVal[0]= inVal;
-oletest.testinout_methodShort( outVal );
-oletest.testinout_methodShort( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodShort");
-
-inVal = 300;
-outVal[0]= inVal;
-oletest.testinout_methodUShort( outVal );
-oletest.testinout_methodUShort( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodUShort");
-
-inVal = 400
-outVal[0]= inVal;
-oletest.testinout_methodLong( outVal );
-oletest.testinout_methodLong( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodLong");
-
-inVal = 500;
-outVal[0]= inVal;
-oletest.testinout_methodULong( outVal );
-oletest.testinout_methodULong( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodULong");
-
-inVal = "B";
-outVal[0]= inVal;
-oletest.testinout_methodChar( outVal );
-oletest.testinout_methodChar( outVal );
-
-Log.print( outVal[0] == 66, "testinout_methodChar");
-
-inVal = "Hello World 2!";
-outVal[0]= inVal;
-oletest.testinout_methodString( outVal );
-oletest.testinout_methodString( outVal );
-Log.print( outVal[0] == inVal, "testinout_methodString");
-
-inVal = new Object();
-outVal[0]= inVal;
-oletest.testinout_methodAny( outVal );
-oletest.testinout_methodAny( outVal );
-Log.print( outVal[0] === inVal, "testinout_methodAny");
-
-inVal = arrInt;
-outVal[0] = inVal;
-oletest.testinout_methodSequence( outVal );
-oletest.testinout_methodSequence( outVal );
-retVal = new VBArray(outVal[0]).toArray();
-
-Log.print( isEqualAr(retVal, new Array(3,4,5,6,7)), "testinout_methodSequence");
-
-
-outVal[0]= arrSeq;
-oletest.testinout_methodSequence2( outVal );
-var arr= new VBArray( outVal[0]).toArray();
-var i;
-bOk= true;
-if( arr.length == 3)
-{
- var tmpArr= new Array(2,4,6,8,0);
- for( i=0; i < arr.length; i++)
- {
- var arr2= new VBArray( arr[i]).toArray();
- if( ! isEqualAr( arr2, tmpArr))
- {
- bOk= false;
- break;
- }
- }
-}
-Log.print( bOk, "testinout_methodSequence2");
-
-
-var ob= new Object();
-var sInVal= "this is a string"
-ob.value= sInVal;
-outVal[0]= ob;
-oletest.testinout_methodXInterface( outVal);
-Log.print( outVal[0].value == "out", "testinout_methodXInterface");
-document.writeln("<p>");
-
-i= 100;
-ret= oletest.methodAnyTest1( i);
-Log.print( i == ret, "methodAnyTest1");
-
-i= 3.14;
-ret= oletest.methodAnyTest1( i);
-Log.print( i == ret, "methodAnyTest1");
-
-i= "Hallo"
-ret= oletest.methodAnyTest1( i);
-Log.print( i == ret, "methodAnyTest1");
-
-i= arrInt;
-ret= oletest.methodAnyTest1( i);
-var arr= new VBArray( ret).toArray();
-Log.print( isEqualAr(arr, arrInt), "methodAnyTest1");
-
-var obj= new Object();
-ret= oletest.methodAnyTest1( obj);
-Log.print( obj == ret, "methodAnyTest1");
-
-
-document.writeln("<p>");
-
-i= 100;
-oletest.AttrAny2= i;
-ret= oletest.AttrAny2;
-Log.print( i == ret, "AttrAny2");
-
-i= 3.14;
-oletest.AttrAny2= i;
-ret= oletest.AttrAny2;
-Log.print( i == ret, "AttrAny2");
-
-i= "Hallo"
-oletest.AttrAny2= i;
-ret= oletest.AttrAny2;
-Log.print( i == ret, "AttrAny2");
-
-i= arrInt;
-oletest.AttrAny2= i;
-ret= oletest.AttrAny2;
-var arr= new VBArray( ret).toArray();
-Log.print( isEqualAr(arr, arrInt), "AttrAny2");
-
-var obj= new Object();
-oletest.AttrAny2= obj;
-ret= oletest.AttrAny2;
-Log.print( obj == ret, "AttrAny2");
-
-
-document.writeln("<p>");
-// Structs ----------------------------------------------
-
-/* var struct= oletest._GetStruct("com.sun.star.beans.Property"); */
-/* struct.Attributes= 1; */
-/* struct.Handle= 2; */
-/* struct.Name= "some Property" */
-/* oletest.methodStruct( struct); */
-
-var ret= oletest.retMethodStruct();
-Log.print( ret.Attributes == 127 && ret.Handle == 255 && ret.Name == "OleTest_Property", "retMethodStruct");
-
-var astruct= oletest._GetStruct("com.sun.star.beans.Property");
-astruct.Attributes= 1;
-astruct.Handle= 2;
-astruct.Name= "some Property"
-oletest.AttrStruct= astruct;
-
-var ret= oletest.AttrStruct;
-Log.print( ret.Attributes == 127 && ret.Handle == 255 && ret.Name == "OleTest_Property", "AttrStruct");
-
-// The function returns the struct. Since structs are passed by value the returned struct
-// will be wrapped in another IDispatch object
-astruct.Attributes= 1;
-astruct.Handle= 2;
-astruct.Name= "Property";
-ret= oletest.methodStruct2( astruct);
-Log.print( ret.Attributes == 1 && ret.Handle == 2 && ret.Name == "Property", "methodStruct2");
-
-
-document.writeln("<p>");
-// Test Identity from COM objects in UNO
-var listener1= new XEventListener_Impl();
-oletest.setObject(listener1);
-ret= oletest.isSame(listener1);
-Log.print2( ret, "Ok Testing identity of COM objects<br>","Failed Testing identity of COM objects<br>");
-
-var oletest2= oletest.getThis();
-ret= oletest === oletest2;
-Log.print2(ret, "Ok Testing identity of UNO objects<br>","Failed Testing identity of UNO objects<br>");
-}
-
-
-
-
-function isEqualAr( ar1, ar2)
-{
- var bOk= false;
- if( ar1.length == ar2.length)
- {
- bOk= true;
- for( x in ar1)
- {
-// document.writeln( ar1[x] + " ");
-// document.writeln( ar2[x] + " ");
- if( ar1[x] != ar2[x])
- {
- bOk= false;
- break;
- }
- }
- }
- return bOk;
-}
-
-/* function isEqualAr2( ar1, ar2) */
-/* { */
-
-/* var bOk= false; */
-/* if( ar1.length == ar2.length) */
-/* { */
-/* bOk= true; */
-/* for( x in ar1) */
-/* { */
-/* document.write( ar1[x]); */
-/* document.write( ar2[x]); */
-/* if( ! isEqualAr( ar1[x], ar2[x])) */
-/* { */
-/* bOk= false; */
-/* break; */
-/* } */
-/* } */
-/* } */
-/* return bOk; */
-
-/* } */
-
-function XEventListener_Impl()
-{
- this._environment= "JScript";
- this._implementedInterfaces= new Array( "com.sun.star.lang.XEventListener");
-
- //XEventListener
- this.disposing= XEventListener_disposing;
-
- this.bdisposingCalled= false;
- this.bQuiet= true;
- this.resetDisposing= XEventListener_resetDisposing;
- this.disposingCalled= XEventListener_disposingCalled;
-}
-
-function XEventListener_disposing( source)
-{
- if( !this.bQuiet)
- alert("JScript Event Listener \n disposing is being called");
- this.bdisposingCalled= true;
-}
-
-function XEventListener_resetDisposing()
-{
- this.bdisposingCalled= false;
-}
-
-function XEventListener_disposingCalled()
-{
- return this.bdisposingCalled;
-}
-</script>
-
-<script language="VBScript">
-Function runVBTest( Log)
-document.writeln("================================================================================<br>")
-document.writeln("VB Script<br>")
-document.writeln("================================================================================<p>")
-
-Dim arrInt
-arrInt= Array(1,2,3,-4,-5, 0)
-arrUInt= Array(1,2,3,4,5)
-arrDouble= Array( 1.2345, 12.345, 123.45, 1234.5, 12345)
-arrBool= Array( true, false, true, false, true)
-arrChar= Array("A","B",67)
-arrString= Array("hamburger","cheeseburger", "chicken nuggets", "chicken wings" , "pizza")
-arrAny= Array( 100, 100.1235,"hallo")
-
-
-Dim arrDim2Int(2,1)
-Dim i,j,k
-For i= 0 To 1
- For j= 0 To 2
- arrDim2Int(j,i) = i*3 + j
- Next
-Next
-
-
-Dim arrDim3Int(3,2,1)
-For i= 0 To 1
- For j= 0 To 2
- For k= 0 To 3
- arrDim3Int(k,j,i)= i* 3 + j* 4 + k
- Next
- Next
-Next
-
-Dim arrXEvent(2)
-For i= 0 To 2
- Set arrXEvent(i)= new VBEventListener
-Next
-
-Dim arrXEvent2(2,1)
-For i= 0 To 1
- For j= 0 To 2
- Set arrXEvent2(j,i)= new VBEventListener
- Next
-Next
-
-
-
-ret= oletest.methodByte( arrUInt)
-Log.print isEqualVBAr( ret, arrUInt), "methodByte"
-
-ret= oletest.methodFloat( arrDouble)
-Log.print isEqualVBAr( ret, arrDouble), "methodFloat"
-
-ret= oletest.methodDouble( arrDouble)
-Log.print isEqualVBAr( ret, arrDouble), "methodDouble"
-
-ret= oletest.methodBool( arrBool)
-Log.print isEqualVBAr( ret, arrBool), "methodBool"
-
-ret= oletest.methodShort( arrInt)
-Log.print isEqualVBAr( ret, arrInt), "methodShort"
-
-ret= oletest.methodUShort( arrUInt)
-Log.print isEqualVBAr( ret, arrUInt), "methodUShort"
-
-ret= oletest.methodLong( arrInt)
-Log.print isEqualVBAr( ret, arrInt), "methodLong"
-
-ret= oletest.methodULong( arrUInt)
-Log.print isEqualVBAr( ret, arrUInt), "methodULong"
-
-ret= oletest.methodChar( arrChar)
-bOk= false
-if ret(0) = 65 AND ret(1) = 66 AND ret(2) = 67 then
- bOk= true
-end if
-Log.print bOk, "methodChar"
-
-ret= oletest.methodString( arrString)
-Log.print isEqualVBAr( ret, arrString), "methodString"
-
-ret= oletest.methodAny( arrAny)
-Log.print isEqualVBAr( ret, arrAny), "methodAny"
-
-
-ret= oletest.methodSequence( arrDim2Int)
-bOk= true
-
-For i= 0 To 1
- Dim arr1
- arr1= ret(i)
- For j= 0 To 2
- if arr1(j) <> arrDim2Int(j,i) then
- bOk= false
- exit for
- end if
- Next
-Next
-Log.print bOk, "methodSequence"
-
-ret= oletest.methodSequence2( arrDim3Int)
-'arrDim3Int(3,2,1)
-bOk= true
-For i= 0 To 1
- arr1= ret(i)
- For j= 0 To 2
- arr2= arr1(j)
- For k= 0 To 3
- If arr2(k) <> arrDim3Int(k,j,i) then
- bOk= false
- exit for
- End If
- Next
- Next
-Next
-Log.print bOk, "methodSequence2"
-
-ret= oletest.methodXInterface(arrXEvent)
-bOk= true
-numArg= UBound( arrXEvent) - LBound( arrXEvent) + 1
-numRet= UBound( ret) - LBound( ret) + 1
-If numArg = numRet then
- For i= 0 To numArg - 1
- If NOT (arrXEvent(i) Is ret(i)) then
- bOk= false
- Exit For
- End if
- Next
-End If
-Log.print bOk, "methodXInterface"
-
-ret= oletest.methodXEventListeners( arrXEvent)
-bOk= true
-For i= 0 To 2
- If arrXEvent(i).disposingCalled = false then
- bOk= false
- Exit For
- End If
-Next
-Log.print bOk, "methodXEventListeners"
-
-ret= oletest.methodXEventListenersMul(arrXEvent2)
-bOk= true
-For i= 0 To 1
- For j= 0 To 2
- If arrXEvent2(j,i).disposingCalled = false then
- bOk= false
- Exit For
- End If
- Next
-Next
-Log.print bOk, "methodXEventListenersMul"
-
-' Attributes ------------------------------------------------------
-document.writeln( "<br>" )
-oletest.AttrByte= arrUInt
-ret= oletest.AttrByte
-Log.print isEqualVBAr( arrUInt, ret), "AttrByte"
-
-oletest.AttrFloat= arrDouble
-ret= oletest.AttrFloat
-Log.print isEqualVBAr( arrDouble, ret), "AttrFloat"
-
-oletest.AttrDouble= arrDouble
-ret= oletest.AttrDouble
-Log.print isEqualVBAr( arrDouble, ret), "AttrDouble"
-
-oletest.AttrBool= arrBool
-ret= oletest.AttrBool
-Log.print isEqualVBAr( arrBool, ret), "AttrBool"
-
-oletest.AttrShort= arrInt
-ret= oletest.AttrShort
-Log.print isEqualVBAr( arrInt, ret), "AttrShort"
-
-oletest.AttrUShort= arrUInt
-ret= oletest.AttrUShort
-Log.print isEqualVBAr( arrUInt, ret), "AttrUShort"
-
-oletest.AttrLong= arrInt
-ret= oletest.AttrLong
-Log.print isEqualVBAr( arrInt, ret), "AttrLong"
-
-oletest.AttrULong= arrUInt
-ret= oletest.AttrULong
-Log.print isEqualVBAr( arrUInt, ret), "AttrULong"
-
-oletest.AttrChar= arrChar
-ret= oletest.AttrChar
-bOk= false
-if ret(0) = 65 AND ret(1) = 66 AND ret(2) = 67 then
- bOk= true
-end if
-Log.print bOk, "AttrChar"
-
-oletest.AttrString= arrString
-ret= oletest.AttrString
-Log.print isEqualVBAr( arrString, ret), "AttrString"
-
-oletest.AttrSequence= arrDim2Int
-ret= oletest.AttrSequence
-bOk= true
-For i= 0 To 1
- arr1= ret(i)
- For j= 0 To 2
- if arr1(j) <> arrDim2Int(j,i) then
- bOk= false
- exit for
- end if
- Next
-Next
-Log.print bOk, "AttrSequence"
-
-oletest.AttrSequence2= arrDim3Int
-ret= oletest.AttrSequence2
-'arrDim3Int(3,2,1)
-bOk= true
-For i= 0 To 1
- arr1= ret(i)
- For j= 0 To 2
- arr2= arr1(j)
- For k= 0 To 3
- If arr2(k) <> arrDim3Int(k,j,i) then
- bOk= false
- exit for
- End If
- Next
- Next
-Next
-Log.print bOk, "AttrSequence2"
-
-oletest.AttrXInterface= arrXEvent
-ret= oletest.AttrXInterface
-bOk= true
-numArg= UBound( arrXEvent) - LBound( arrXEvent) + 1
-numRet= UBound( ret) - LBound( ret) + 1
-If numArg = numRet then
- For i= 0 To numArg - 1
- If NOT (arrXEvent(i) Is ret(i)) then
- bOk= false
- Exit For
- End if
- Next
-End If
-Log.print bOk, "AttrXInterface"
-
-'out params ================================================================================
-document.writeln("<p>")
-Dim inVal, outVal, retVal
-
-inVal = 111
-retVal = oletest.in_methodByte(inVal)
-oletest.testout_methodByte outVal
-Log.print inVal = retVal, "in_methodByte"
-Log.print outVal = inVal, "testout_methodByte"
-
-inVal = 3.14
-retVal = oletest.in_methodFloat(inVal)
-oletest.testout_methodFloat outVal
-Log.print inVal = retVal, "in_methodFloat"
-Log.print outVal > 3.13 AND outVal < 3.15, "testout_methodFloat"
-
-inVal = 3.14
-retVal = oletest.in_methodDouble(inVal)
-oletest.testout_methodDouble outVal
-Log.print inVal = retVal, "in_methodDouble"
-Log.print outVal = 3.14, "testout_methodDouble"
-
-inVal = true
-retVal = oletest.in_methodBool(inVal)
-oletest.testout_methodBool outVal
-Log.print inVal = retVal, "in_methodBool"
-Log.print outVal = inVal, "testout_methodBool"
-
-inVal = 222
-retVal = oletest.in_methodShort(inVal)
-oletest.testout_methodShort outVal
-Log.print inVal = retVal, "in_methodShort"
-Log.print outVal = inVAl, "testout_methodShort"
-
-inVal = 333
-retVal = oletest.in_methodUShort(inVal)
-oletest.testout_methodUShort outVal
-Log.print inVal = retVal, "in_methodUShort"
-Log.print outVal = inVal, "testout_methodUShort"
-
-inVal = 4444
-retVal = oletest.in_methodLong(inVal)
-oletest.testout_methodLong outVal
-Log.print inVal = retVal, "in_methodLong"
-Log.print outVal = inVal, "testout_methodLong"
-
-inVal = 5555
-retVal = oletest.in_methodULong(inVal)
-oletest.testout_methodULong outVal
-Log.print inVal = retVal, "in_methodULong"
-Log.print outVal = inVal, "testout_methodULong"
-
-inVal = 65
-retVal = oletest.in_methodChar(inVal)
-oletest.testout_methodChar outVal
-Log.print inVal = retVal, "in_methodChar"
-Log.print outVal = 65, "testout_methodChar"
-
-inVal = "Hello World 3!"
-retVal = oletest.in_methodString(inVal)
-oletest.testout_methodString outVal
-Log.print inVal = retVal, "in_methodString"
-Log.print outVal = inVal, "testout_methodString"
-
-inVal = "Hello World 4!"
-retVal = oletest.in_methodAny(inVal)
-oletest.testout_methodAny outVal
-Log.print outVal = inVal, "testout_methodAny"
-
-oletest.testout_methodSequence outVal
-Log.print isEqualVBAr(outVal, Array( 0,1,2,3,4,5,6,7,8,9)), "testout_methodSequence"
-
-oletest.testout_methodSequence2 outVal
-count= UBound( outVal) - LBound( outVal) + 1
-ret= False
-If count = 10 Then
- For Each ar In outVal
- ret= isEqualVBAr(ar, Array( 0,1,2,3,4,5,6,7,8,9))
- If ret = false Then
- Exit For
- End If
- Next
-End If
-Log.print ret, "testout_methodSequence2"
-
-outVal= Empty
-outVal2= Empty
-oletest.testout_methodMulParams1 outVal, outVal2
-ret= false
-If outVal = 999 AND outVal2 = 1111 Then
- ret= true
-End If
-Log.print ret, "testout_methodMulParams1"
-
-outVal= Empty
-outVal2= Empty
-outVal3= Empty
-oletest.testout_methodMulParams2 outVal, outVal2, outVal3
-ret = false
-If outVal = 1111 AND outVal2 = 1222 AND outVal3 = " another string" Then
- ret= true
-End If
-Log.print ret, "testout_methodMulParams2"
-
-document.writeln("missing: testout_methodMulParams3 <br>")
-document.writeln("missing: testout_methodMulParams4 <br>")
-
-outVal= Empty
-oletest.testout_methodXInterface outVal
-ret= false
-If outVal Is oletest Then
- ret= true
-End If
-Log.print ret, "testout_methodXInterface"
-
-Set outVal= Nothing
-document.writeln("missing: testout_methodXInterface <br>")
-
-inVal = 1
-outVal= inVal
-oletest.testinout_methodByte outVal
-oletest.testinout_methodByte outVal
-Log.print inVal = outVal, "testinout_methodByte"
-
-
-document.writeln("missing: testinout_methodFloat <br>")
-document.writeln("missing: testinout_methodDouble <br>")
-document.writeln("missing: testinout_methodBool <br>")
-document.writeln("missing: testinout_methodShort <br>")
-document.writeln("missing: testinout_methodUShort <br>")
-document.writeln("missing: testinout_methodLong <br>")
-document.writeln("missing: testinout_methodULong <br>")
-document.writeln("missing: testinout_methodChar <br>")
-document.writeln("missing: testinout_methodString <br>")
-document.writeln("missing: testinout_methodAny <br>")
-document.writeln("missing: testinout_methodSequence <br>")
-document.writeln("missing: testinout_methodSequence2 <br>")
-document.writeln("missing: testinout_methodXInterface <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: AttrAny2 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: methodAnyTest1 <br>")
-document.writeln("missing: retMethodStruct <br>")
-document.writeln("missing: AttrStruct <br>")
-document.writeln("missing: methodStruct2 <br>")
-
-' Test Identity from COM objects in UNO
-Dim listener1
-Set listener1= new VBEventListener
-call oletest.setObject( listener1)
-ret= oletest.isSame(listener1)
-Log.print2 ret, "Ok Testing identity of COM objects <br>","Failed Testing identity of COM objects<br>"
-' Test identity of UNO objects
-
-set oletest2= oletest.getThis()
-ret= oletest Is oletest2
-Log.print2 ret, "Ok Testing identity of UNO objects<br>","Failed Testing identity of UNO objects<br>"
-
-End Function
-
-
-Function isEqualVBAr( arr1, arr2)
- ret = false
- s1= UBound( arr1) - LBound( arr1) + 1
- s2= UBound( arr2) - LBound( arr2) + 1
-
- if s1 = s2 then
- ret= true
- Dim i
- for i= 0 To s1 - 1
- if arr1(i) <> arr2(i) then
- ret= false
- exit for
- end if
- next
- end if
- isEqualVBar= ret
-End Function
-
-
-'The listener object
-
-Class VBEventListener
- Dim Bridge_ImplementedInterfaces(0)
- Dim bDisposingCalled
-
-'XEventListener::disposing
- Function disposing( source)
- bDisposingCalled= true
- End Function
-
- Sub Class_Initialize()
- bDisposingCalled= false
- Bridge_ImplementedInterfaces(0)= "com.sun.star.lang.XEventListener"
- End Sub
-
- Function resetDisposing()
- bDisposingCalled= false
- End Function
-
- Function disposingCalled()
- disposingCalled= bDisposingCalled
- End Function
-End Class
-
-
-sub callBasic(id)
-
- Dim factory
- Set factory= GetObject("", "com.sun.star.ServiceManager")
-
- Set oletest= factory.createInstance("oletest.OleTest")
-
-
- arrInt= Array(1,2,3,4,5)
- arrInt2= Array( -1, -2, 127, 128, 0)
- arrDouble= Array(1.1, 2.2, 3.3, 4.4, 5.5)
- arrBool= Array(0,1,0,2,0)
- arrLong= Array( &Hff, &Hffff, &Hffffff, &Hffffffff)
- arrString= Array("Chicken Wings", "Cheeseburger", "Hamburger")
- arrChar= Array("a",65, "M")
- arrAny= Array("Mickey", 3.14, 100, "A")
-
- Dim arrDim2Int(1,2)
- For i= 0 To 1
- For j= 0 To 1
- arrDim2Int(i,j) = i*2 + j
- Next
- Next
-
- Dim arrDim3Int(1,1,1)
- For i= 0 To 1
- For j= 0 To 1
- For k=0 To 1
- arrDim3Int(i,j,k) = i*2 + j*2 + k
- Next
- Next
- Next
-
-
- select case id
-
- // Out Parameter
-
-
-
- // In Out Parameter --------------------------------------------------
- case 100
- a= 100
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodByte a
- document.write a
- case 101
- a= 1.11
- document.write "param: " & CStr( a) & "<br>"
- oletest.testinout_methodDouble a
- document.write a
- case 102
- a= 5
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodBool a
- document.write a
- case 103
- a= -10
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodShort a
- document.write a
- case 104
- a= 128
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodUShort a
- document.write a
- case 105
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodLong a
- document.write a
- case 106
- a= 65556
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodULong a
- document.write a
- case 107
- a= "ein test string"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodString a
- document.write a
- case 108
- a= "W"
- document.write "param: "& CStr( a) & "<br>"
- oletest.testinout_methodChar a
- document.write a
- case 109
- a= "Ein String im Any"
- document.write "param: "& CStr( a) & "<br>"
- oletest.other_methodAnyIn a
- document.write a
-
- case 150
- dim a
- document.write "param: "& CStr( a) & "<br>"
- oletest.testout_methodByte( a)
- document.write a
-// Attributes -----------------------------------------------------------------
- case 200
- document.write "set: "
- printArray arrInt
- oletest.AttrByte= arrInt
- b= oletest.AttrByte
- call printArrayEx( "<br> get: ", "<br>", b)
- case 201
- document.write "set: "
- printArray arrDouble
- oletest.AttrDouble= arrDouble
- b= oletest.AttrDouble
- call printArrayEx( "<br> get: ", "<br>", b)
- case 202
- document.write "set: "
- printArray arrBool :
- oletest.AttrBool= arrBool
- b= oletest.AttrBool
- call printArrayEx( "<br> get: ", "<br>", b)
- case 203
- document.write "set: "
- printArray arrInt2 :
- oletest.AttrShort= arrInt2
- b= oletest.AttrShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 204
- document.write "set: "
- printArray arrInt
- oletest.AttrUShort= arrInt
- b= oletest.AttrUShort
- call printArrayEx( "<br> get: ", "<br>", b)
- case 205
- document.write "set: "
- printArray arrInt2
- oletest.AttrLong= arrInt2
- b= oletest.AttrLong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 206
- document.write "set: "
- printArray arrInt
- oletest.AttrULong= arrInt
- b= oletest.AttrULong
- call printArrayEx( "<br> get: ", "<br>", b)
- case 207
- document.write "set: "
- printArray arrString
- oletest.AttrString= arrString
- b= oletest.AttrString
- call printArrayEx( "<br> get: ", "<br>", b)
- case 208
- document.write "set: "
- printArray arrChar
- oletest.AttrChar= arrChar
- b= oletest.AttrChar
- call printArrayEx( "<br> get: ", "<br>", b)
- case 209
- document.write "set: "
- printArray arrAny
- oletest.AttrAny= arrAny
- b= oletest.AttrAny
- call printArrayEx( "<br> get: ", "<br>", b)
-
- case 210
- document.write "set: <br>"
- printArray2 arrDim2Int :
- oletest.AttrSequence= arrDim2Int
- ret= oletest.AttrSequence
- document.write "get: "
- for each val in ret
- document.write "<br> array: "
- for each val2 in val
- document.write val2
- next
- next
-
- case 300
- dim aByte
- aByte= 100
- call oletest.testinout_methodByte( aByte)
- MsgBox aByte
-
-
- case 400
-
- set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property")
- struct.Attributes= 1
- struct.Handle= 2
- struct.Name= "some Property"
- oletest.methodStruct struct
-
- case 401
- set struct= oletest.retMethodStruct()
- alert( "Property::Attributes : " & struct.Attributes & vblf & " Property::Handle : " _
- & struct.Handle & vblf & " Property::Name : " & struct.Name)
-
- case 402
- set struct= oletest.Bridge_GetStruct("com.sun.star.beans.Property")
- struct.Attributes= 1
- struct.Handle= 2
- struct.Name= "some Property"
- oletest.AttrStruct= struct
-
- set struct2= oletest.AttrStruct
- alert( "property get: " & vblf & "Property::Attributes : " & struct2.Attributes & _
- vblf & " Property::Handle : " & struct2.Handle & vblf & " Property::Name : " _
- & struct2.Name)
- end select
-end sub
-
-sub printArray( arr)
- document.write "array: "
- For Each val In arr
- document.write CStr(val) & " "
- Next
-end sub
-
-// print a 2 dimensional Array
-
-sub printArray2( arr)
- elements1= UBound( arr, 1) - LBound( arr, 1) +1
- elements2= UBound( arr, 2) - LBound( arr, 2) +1
-
- For i=0 To elements1 -1
- document.write( "array " & CStr( i) & ": " )
- For j=0 To elements2 -1
- document.write CStr( arr(i,j))
- Next
- document.write( "<br>")
- Next
-end sub
-
-sub printArrayEx( pre, post, array)
- document.write pre
- printArray array
- document.write post
-end sub
-</script>
-
-<script language="JScript">
-var arFunctions= new Array();
-arFunctions["methodByte"]= "sequence&lt;byte&gt; methodByte( [in] sequence&lt;byte&gt; aSeq )";
-arFunctions["methodFloat"]= "sequence&lt;float&gt; methodFloat( [in] sequence&lt;float&gt; aSeq)";
-arFunctions["methodDouble"]= "sequence&lt;double&gt; methodDouble( [in] sequence&lt;double&gt; aSeq)";
-arFunctions["methodBool"]= "sequence&lt;boolean&gt; methodBool( [in] sequence&lt;boolean&gt; aSeq)";
-arFunctions["methodShort"]= "sequence&lt;short&gt; methodShort( [in] sequence&lt;short&gt; aSeq)";
-arFunctions["methodUShort"]= "sequence&lt;unsigned short&gt; methodUShort( [in] sequence&lt;unsigned short&gt; aSeq)";
-arFunctions["methodLong"]= "sequence&lt;long&gt; methodLong( [in] sequence&lt;long&gt; aSeq)";
-arFunctions["methodULong"]= "sequence&lt;unsigned long&gt; methodULong( [in] sequence&lt;unsigned long&gt; aSeq)";
-arFunctions["methodString"]= "sequence&lt;string&gt; methodString( [in] sequence&lt;string&gt; aSeq)";
-arFunctions["methodChar"]= "sequence&lt;char&gt; methodChar( [in] sequence&lt;char&gt; aSeq)";
-arFunctions["methodAny"]= "sequence&lt;any&gt; methodAny ( [in] sequence&lt;any&gt; aSeq)";
-arFunctions["methodXInterface"]= "sequence&lt;XInterface&gt; methodXInterface ( [in] sequence&lt;XInterface&gt; aSeq)";
-arFunctions["methodSequence"]= "sequence&lt; sequence &lt;long&gt; &gt; methodSequence( [in] sequence&lt; sequence&lt; long &gt; &gt; aSeq)";
-arFunctions["methodSequence2"]= "sequence&lt; sequence &lt;sequence &lt;long&gt; &gt; &gt; methodSequence2( [in] sequence&lt; sequence&lt; sequence&lt;long&gt; &gt; &gt; aSeq)";
-arFunctions["methodXEventListeners"]= "sequence&lt; com::sun::star::lang::XEventListener &gt; methodXEventListeners( [in] sequence&lt;com::sun::star::lang::XEventListener&gt; aSeq)";
-arFunctions["methodXEventListenersMul"]= "sequence&lt; sequence&lt; com::sun::star::lang::XEventListener &gt; &gt; methodXEventListenersMul( [in] sequence&lt; sequence&lt; com::sun::star::lang::XEventListener&gt; &gt; aSeq)";
-arFunctions["AttrByte"]="[attribute] sequence<byte> AttrByte";
-arFunctions["AttrFloat"]="[attribute] sequence<float> AttrFloat";
-arFunctions["AttrDouble"]="[attribute] sequence<double> AttrDouble";
-arFunctions["AttrBool"]="[attribute] sequence<boolean> AttrBool";
-arFunctions["AttrShort"]="[attribute] sequence<short> AttrShort";
-arFunctions["AttrUShort"]="[attribute] sequence<unsigned short> AttrUShort";
-arFunctions["AttrLong"]="[attribute] sequence<long> AttrLong";
-arFunctions["AttrULong"]="[attribute] sequence<unsigned long> AttrULong";
-arFunctions["AttrString"]="[attribute] sequence<string> AttrString";
-arFunctions["AttrChar"]="[attribute] sequence<char> AttrChar";
-arFunctions["AttrAny"]="[attribute] sequence<any> AttrAny";
-arFunctions["AttrSequence"]="[attribute] sequence< sequence<long> > AttrSequence";
-arFunctions["AttrSequence2"]="[attribute] sequence< sequence< sequence <long> > > AttrSequence2";
-arFunctions["AttrXInterface"]="[attribute] sequence< com::sun::star::uno::XInterface > AttrXInterface";
-
-arFunctions["testout_methodByte"]= " void testout_methodByte( [out] byte rOut )";
-arFunctions["testout_methodFloat"]= "void testout_methodFloat( [out] float rOut)";
-arFunctions["testout_methodDouble"]= "void testout_methodDouble( [out] double rOut)";
-arFunctions["testout_methodBool"]= "void testout_methodBool( [out] boolean rOut)";
-arFunctions["testout_methodShort"]= "void testout_methodShort( [out] short rOut)";
-arFunctions["testout_methodUShort"]= "void testout_methodUShort( [out] unsigned short rOut)";
-arFunctions["testout_methodLong"]= "void testout_methodLong( [out] long rOut)";
-arFunctions["testout_methodULong"]= "void testout_methodULong( [out] unsigned long rOut)";
-arFunctions["testout_methodString"]= "void testout_methodString( [out] string rOut)";
-arFunctions["testout_methodChar"]= "void testout_methodChar( [out] char rOut)";
-arFunctions["testout_methodAny"]= "void testout_methodAny( [out] any rOut)";
-arFunctions["testout_methodSequence"]= "void testout_methodSequence( [out] sequence< long > rOut)";
-arFunctions["testout_methodSequence2"]= "void testout_methodSequence2( [out] sequence < sequence< long > > rOut)";
-arFunctions["testout_methodXInterface"]= "void testout_methodXInterface( [out] com::sun::star::uno::XInterface rOut)";
-arFunctions["testout_methodMulParams1"]= "void testout_methodMulParams1( [out] long rout1, [out] long rout2)";
-arFunctions["testout_methodMulParams2"]= "void testout_methodMulParams2( [out] long rout1, [out] long rout2, [out] string rout3)";
-arFunctions["testout_methodMulParams3"]= "void testout_methodMulParams3( [in] string sin, [out] string sout)";
-arFunctions["testout_methodMulParams4"]= "void testout_methodMulParams4( [in] float in1, [out] float out1, [in] long in2, [out] long out2, [in] long in3)";
-arFunctions["testinout_methodByte"]="void testinout_methodByte( [inout] byte rOut )";
-arFunctions["testinout_methodFloat"]="void testinout_methodFloat( [inout] float rOut)";
-arFunctions["testinout_methodDouble"]="void testinout_methodDouble( [inout] double rOut)";
-arFunctions["testinout_methodBool"]="void testinout_methodBool( [inout] boolean rOut)";
-arFunctions["testinout_methodShort"]="void testinout_methodShort( [inout] short rOut)";
-arFunctions["testinout_methodUShort"]="void testinout_methodUShort( [inout] unsigned short rOut)";
-arFunctions["testinout_methodLong"]="void testinout_methodLong( [inout] long rOut)";
-arFunctions["testinout_methodULong"]="void testinout_methodULong( [inout] unsigned long rOut)";
-arFunctions["testinout_methodString"]="void testinout_methodString( [inout] string rOut)";
-arFunctions["testinout_methodChar"]="void testinout_methodChar( [inout] char rOut)";
-arFunctions["testinout_methodAny"]="void testinout_methodAny( [inout] any rOut)";
-arFunctions["testinout_methodSequence"]="void testinout_methodSequence( [inout] sequence< long > rOut)";
-arFunctions["testinout_methodSequence2"]="void testinout_methodSequence2( [inout] sequence < sequence< long > > rOut)";
-arFunctions["testinout_methodXInterface"]="void testinout_methodXInterface( [inout] com::sun::star::script::XInvocation rOut)";
-arFunctions["testinout_methodXInterface2"]="void testinout_methodXInterface2( [inout] com::sun::star::uno::XInterface rOut)";
-
-arFunctions["in_methodByte"]= "byte in_methodByte( [in] byte rIn )";
-arFunctions["in_methodFloat"]= "float in_methodFloat( [in] float rIn);"
-arFunctions["in_methodDouble"]= "double in_methodDouble( [in] double rIn)";
-arFunctions["in_methodBool"]= "boolean in_methodBool( [in] boolean rIn)";
-arFunctions["in_methodShort"]= "short in_methodShort( [in] short rIn)";
-arFunctions["in_methodUShort"]= "unsigned short in_methodUShort( [in] unsigned short rIn)";
-arFunctions["in_methodLong"]= "long in_methodLong( [in] long rIn)";
-arFunctions["in_methodULong"]= "unsigned long in_methodULong( [in] unsigned long rIn)";
-arFunctions["in_methodHyper"]= "hyper in_methodHyper( [in] hyper rIn)";
-arFunctions["in_methodUHyper"]= "unsigned hyper in_methodHyper( [in] unsigned hyper rIn)";
-arFunctions["in_methodString"]= "string in_methodString( [in] string rIn)";
-arFunctions["in_methodChar"]= "char in_methodChar( [in] char rIn)";
-arFunctions["in_methodAny"]= "any in_methodAny ( [in] any rIn)";
-arFunctions["in_methodXInterface"]= "XInterface in_methodXInterface([in] XInterface rIn)";
-
-
-arFunctions["methodAnyTest1"]="any methodAnyTest1( [in] any rIn)";
-arFunctions["AttrAny2"]= "[attribute] any AttrAny2";
-arFunctions["retMethodStruct"]= "com::sun::star::beans::Property retMethodStruct()";
-arFunctions["AttrStruct"]= "[attribute] com::sun::star::beans::Property AttrStruct";
-arFunctions["methodStruct2"]= "com::sun::star::beans::Property methodStruct2( [in] com::sun::star::beans::Property aProp)";
-
-
-var factory= new ActiveXObject("com.sun.star.ServiceManager");
-var oletest= factory.createInstance("oletest.OleTest");
-
-Log= new Logger();
-
-
-runJScriptTest(Log);
-runVBTest(Log);
-Log.summarize();
-
-
-function Logger()
-{
- this.print= logger_print;
- this.print2= logger_print2;
- this.summarize= logger_summarize;
- this.bAllOk= true;
-}
-function logger_print( bool, method)
-{
- this.print2(bool, "Ok &nbsp;&nbsp;&nbsp;&nbsp;" + arFunctions[method] + "<br>",
- "Failed &nbsp;&nbsp;&nbsp;&nbsp;" + arFunctions[method] + "<br>");
-}
-
-function logger_print2( bool, okString, failedString)
-{
- if( bool)
- document.writeln( okString);
- else
- {
- document.writeln( failedString);
- this.bAllOk= this.bAllOk && false;
- }
-}
-
-function logger_summarize()
-{
- document.writeln("<p> ==============================================================================<br>");
- if(this.bAllOk)
- document.writeln("No errors <br>");
- else
- document.writeln("Error ! The test failed! <br>");
-}
-
-
-</script>
-
-</body>
-</html>
-
-
diff --git a/extensions/test/ole/StarBasic_OleClient/oleclient.bas b/extensions/test/ole/StarBasic_OleClient/oleclient.bas
deleted file mode 100644
index 7ba324660..000000000
--- a/extensions/test/ole/StarBasic_OleClient/oleclient.bas
+++ /dev/null
@@ -1,609 +0,0 @@
-REM ***** BASIC *****
-
-
-OPTION EXPLICIT
-OPTION COMPATIBLE
-
-Sub Main
-COMPATIBILITYMODE(true)
-
-If runtest = -1 Then
- MsgBox "Test Failed!!!"
-Else
- MsgBox "Test Succeeded"
-End If
-
-End Sub
-
-Function runtest() As Integer
-Dim inBool As Boolean, inBool2 As Boolean, outBool As Boolean
-Dim inByte As Integer, inByte2 As Integer
-Dim inShort As Integer, inShort2 As Integer
-Dim inLong As Long, inLong2 As Long, inLong3 As Long, inLong4 As Long
-Dim inString As String, inString2 As String
-Dim inFloat As Single, inFloat2 As Single
-Dim inDouble As Double, inDouble2 As Double
-Dim inVariant, inVariant2
-Dim inAr, inAr2
-Dim inDate As Date,inDate2 As Date, outDate As Date
-Dim inCurrency As Currency, inCurrency2 As Currency, outCurrency As Currency
-Dim inSCode As New com.sun.star.bridge.oleautomation.SCode
-Dim inSCode2 As New com.sun.star.bridge.oleautomation.SCode
-Dim inDecimal As Variant, inDecimal2 As Variant, outDecimal As Variant
-Dim inrefDecimal As Variant, outrefDecimal As Variant
-Dim outSCode As New com.sun.star.bridge.oleautomation.SCode
-Dim outByte As Integer
-Dim outShort As Integer
-Dim outLong, outLong2 As Long
-Dim outString As String
-Dim outFloat As Single
-Dim outDouble As Double
-Dim outVariant
-'bug #109936 causes an errOr when outObject is used As out param
-Dim inObject As Object, inObject2 As Object, outObject As Object
-Dim objNOTHING As Object
-Dim inUnknown As Object, inUnknown2 As Object, outUnknown As Object
-
-Dim inArray, outArray, outArray2
-Dim len1, len2
-Dim arString(1) As String
-arString(0)= "String one"
-arString(1)= "String two"
-
-Dim factory As Object
-factory= createUnoService("com.sun.star.bridge.OleObjectFactory")
-Dim obj As Object
-obj= factory.createInstance("AxTestComponents.Basic")
-
-Dim objFoo As Object
-objFoo = factory.createInstance("AxTestComponents.Foo")
-
-
-'in parameter -------------------------------------------------------------------
-inBool = true
-inByte = 10
-inShort = 11
-inLong = 111
-inString = "Hello World"
-inFloat = 3.14
-inDouble = 3.145
-inVariant = "bla"
-inDate = NOW()
-inCurrency = 12345.6789
-inSCode.Value = &h80020004
-inDecimal = CDec("-9223372036854775808") 'lowest int64
-
-obj.inBool(inBool)
-obj.inByte(inByte)
-obj.inShort(inShort)
-obj.inLong(inLong)
-obj.inString(inString)
-obj.inFloat(inFloat)
-obj.inDouble(inDouble)
-obj.inVariant(inVariant)
-'obj.prpString= "a string property"
-obj.inObject(obj)
-obj.inArray(arString())
-obj.inDate(inDate)
-obj.inCurrency(inCurrency)
-obj.inSCode(inSCode)
-obj.inUnknown(objFoo)
-obj.inDecimal(inDecimal)
-
-'out parameter -------------------------------------------------------------------------
-outBool = false
-obj.outBool(outBool)
-outByte = 0
-obj.outByte(outByte)
-outShort = 0
-obj.outShort(outShort)
-outLong = 0
-obj.outLong(outLong)
-outFloat = 0
-obj.outFloat(outFloat)
-outDouble = 0
-obj.outDouble(outDouble)
-outString = ""
-obj.outString(outString)
-outVariant = 0
-obj.outVariant(outVariant)
-outObject = NOTHING
-obj.outObject(outObject)
-outArray = 0
-obj.outArray(outArray)
-obj.outDate(outDate)
-obj.outCurrency(outCurrency)
-obj.outSCode(outSCode)
-obj.outUnknown(outUnknown)
-obj.outDecimal(outDecimal)
-
-
-If inBool <> outBool Or inByte <> outByte Or inShort <> outShort Or inLong <> outLong Or _
- inFloat <> outFloat Or inDouble <> outDouble Or inString <> outString Or _
- inVariant <> outVariant Or NOT equalUnoObjects(obj, outObject) Or NOT _
- equalArrays(arString(), outArray()) Or inDate <> outDate Or inCurrency <> outCurrency Or _
- inSCode.Value <> outSCode.Value Or Not equalUnoObjects(objFoo, outUnknown) Or _
- inDecimal <> outDecimal Then
- runtest = -1
- exit Function
-End If
-
-
-'in-out parameter -------------------------------------------------------------
-'implementation of inout methods returns the previously set value in out param
-inBool = true
-inBool2 = inBool
-obj.inoutBool(inBool2)
-outBool = false
-obj.inoutBool(outBool)
-inByte = 10
-inByte2 = inByte
-obj.inoutByte(inByte2)
-outByte = 0
-obj.inoutByte(outByte)
-inShort = 10
-inShort2 = inShort
-obj.inShort(inShort2)
-outShort = 0
-obj.inoutShort(outShort)
-inLong = 10
-inLong2 = inLong
-obj.inoutLong(inLong2)
-outLong = 0
-obj.inoutLong(outLong)
-inFloat = 3.14
-inFloat2 = inFloat
-obj.inoutFloat(inFloat2)
-outFloat = 0
-obj.inoutFloat(outFloat)
-inDouble= 3.14
-inDouble2 = inDouble
-obj.inoutDouble(inDouble2)
-outDouble = 0
-obj.inoutDouble(outDouble)
-inString = "in"
-inString2 = inString
-obj.inoutString(inString2)
-outString = ""
-obj.inoutString(outString)
-inVariant = "in"
-inVariant2 = inVariant
-obj.inoutVariant(inVariant2)
-outVariant = 0
-obj.inoutVariant(outVariant)
-inObject = factory.createInstance("AxTestComponents.Basic")
-inObject2 = inObject
-obj.inoutObject(inObject2)
-outObject = NOTHING
-obj.inoutObject(outObject)
-inAr = arString()
-inAr2 = inAr
-obj.inoutArray(inAr2)
-outArray = 0
-obj.outArray(outArray())
-inDate = NOW()
-inDate2 = inDate
-obj.inoutDate(inDate2)
-outDate = 0
-obj.inoutDate(outDate)
-inCurrency = 1234.5678
-inCurrency2 = inCurrency
-obj.inoutCurrency(inCurrency2)
-outCurrency = 0
-obj.inoutCurrency(outCurrency)
-inSCode.Value = &h80020004
-inSCode2 = inSCode
-obj.inoutSCode(inSCode2)
-outSCode.Value = 0
-obj.inoutSCode(outSCode)
-inUnknown = objFoo
-inUnknown2 = inUnknown
-obj.inoutUnknown(inUnknown2)
-outUnknown = Nothing
-obj.inoutUnknown(outUnknown)
-inDecimal = CDec("18446744073709551615") 'highest positiv value of unsigne int64
-inDecimal2 = inDecimal
-obj.inoutDecimal(inDecimal2)
-outDecimal = 0
-obj.inoutDecimal(outDecimal)
-
-If inBool <> outBool Or inByte <> outByte Or inShort <> outShort Or inLong <> outLong Or _
- inFloat <> outFloat Or inDouble <> outDouble Or inString <> outString Or _
- inVariant <> outVariant Or NOT equalUnoObjects(inObject, outObject) Or _
- NOT equalArrays(inAr, outArray) Or inDate <> outDate Or inCurrency <> outCurrency Or _
- inSCode.Value <> outSCode.Value Or Not equalUnoObjects(inUnknown, outUnknown) Or _
- inDecimal <> outDecimal Then
- runtest = -1
- Exit Function
-End If
-
-'properties -------------------------------------------------------------------------
-inBool = false
-outBool = true
-obj.prpBool = inBool
-outBool = obj.prpBool
-inByte = 11
-outByte = 0
-obj.prpByte = inByte
-outByte= obj.prpByte
-inShort = 127
-outShort = 0
-obj.prpShort= inShort
-outShort= obj.prpShort
-inLong = 1000
-outLong = 0
-obj.prpLong = inLong
-outLong= obj.prpLong
-inFloat = 3.14
-outFloat = 0
-obj.prpFloat = inFloat
-outFloat= obj.prpFloat
-inDouble = 3.123
-outDouble = 0
-obj.prpDouble = inDouble
-outDouble= obj.prpDouble
-inString = "bla"
-outString = ""
-obj.prpString = inString
-outString = obj.prpString
-inObject = obj
-outObject = objNOTHING
-obj.prpObject = inObject
-outObject = obj.prpObject
-inVariant = "bla"
-outVariant = 0
-obj.prpVariant = inVariant
-outVariant= obj.prpVariant
-inArray = arString()
-outArray = 0
-obj.prpArray = inArray()
-outArray= obj.prpArray
-inDate = NOW()
-outDate = 0
-obj.prpDate = inDate
-outDate = obj.prpDate
-inCurrency = 1234.5678
-outCurrency = 0
-obj.prpCurrency = inCurrency
-outCurrency = obj.prpCurrency
-inSCode.Value = &h80020004
-outSCode.Value = 0
-obj.prpSCode = inSCode
-outSCode = obj.prpSCode
-inUnknown = objFoo
-outUnknown= Nothing
-obj.prpUnknown = inUnknown
-outUnknown = obj.prpUnknown
-inDecimal = CDec("18446744073709551615")' highest unsigned int64
-outDecimal = 0
-obj.prpDecimal = inDecimal
-outDecimal = obj.prpDecimal
-
-If inBool <> outBool Or inByte <> outByte Or inShort <> outShort Or inLong <> outLong Or _
- inFloat <> outFloat Or inDouble <> outDouble Or inString <> outString Or _
- inVariant <> outVariant Or NOT equalUnoObjects(inObject, outObject) Or _
- NOT equalArrays(inArray, outArray) Or inDate <> outDate Or inCurrency <> outCurrency Or _
- inSCode.Value <> outSCode.Value Or Not equalUnoObjects(inUnknown, outUnknown) Or _
- inDecimal <> outDecimal Then
- runtest = -1
- Exit Function
-End If
-
-' ref parameter ------------------------------------------------------------------------
-obj.inLong(0)
-inLong = 123
-outLong = 0
-obj.inLong(0)
-obj.inrefLong(inLong)
-obj.outLong(outLong)
-inVariant = "bla"
-outVariant = 0
-obj.inVariant(0)
-obj.inrefVariant(inVariant)
-obj.outVariant(outVariant)
-If inLong <> outLong Or inVariant <> outVariant Then
- runtest = -1
- Exit Function
-End If
-
-outLong = 0
-obj.prprefLong = inLong
-outLong = obj.prprefLong
-outVariant = 0
-obj.prprefVariant = inVariant
-outVariant = obj.prprefVariant
-If inLong <> outLong Or inVariant <> outVariant Then
- runtest = -1
- Exit Function
-End If
-
-
-'vararg --------------------------------------------------------------------------------
-inLong=1
-inLong2 = 2
-inLong3 = 3
-obj.varargfunc1(inLong)
-outArray = 0
-outLong = 0
-obj.varargfunc2(outLong, outArray)
-If inLong <> outLong Then
- runtest = -1
- Exit Function
-End If
-len1 = UBound(outArray) - LBound(outArray) +1
-If len1 <> 0 Then
- runtest = -1
- Exit Function
-End If
-outArray = 0
-obj.varargfunc1(inLong, inLong2, inLong3)
-obj.varargfunc2(outLong, outArray)
-len1 = UBound(outArray) - LBound(outArray) +1
-If len1 <> 2 Or outArray(0) <> inLong2 Or outArray(1) <> inLong3 Then
- runtest = -1
- Exit Function
-End If
-
-
-'defaultvalue ---------------------------------------------------------------------------
-inLong = 0
-inFloat = 0
-inVariant = 0
-inVariant2 = 0
-'defaults are: 1, 2, 4
-'The third parameter is a VARIANT with a default value of 4. COM gives it the type BSTR
-obj.defaultvalue1()
-obj.defaultvalue2(inLong, inFloat, inVariant)
-If inLong <> 1 Or inFloat <> 2 Or inVariant <> "4" Then
- runtest = -1
- Exit Function
-End If
-inLong = 10
-inFloat = 11
-inLong2 = inLong
-inFloat2 = inFloat
-inVariant = 0
-inVariant = 0
-obj.defaultvalue1(inLong, inFloat)
-obj.defaultvalue2(inLong, inFloat, inVariant)
-If inLong <> inLong2 Or inFloat <> inFloat2 Or inVariant <> "4" Then
- runtest = -1
- Exit Function
-End If
-
-'optional parameters ----------------------------------------------------------------
-inLong = 100
-outLong = 0
-obj.optional1(inLong)
-obj.optional2(outLong)
-If inLong <> outLong Then
- runtest = -1
- Exit Function
-End If
-
-inLong2 = 101
-outLong2 = 0
-obj.optional1(inLong, inLong2)
-obj.optional2(outLong, outLong2)
-If inLong <> outLong AND inLong2 <> outLong2 Then
- runtest = -1
- Exit Function
-End If
-
-inLong2 = 101
-outLong2 = 0
-obj.optional1(inLong, inLong2)
-obj.optional1(inLong)
-obj.optional2(outLong, outLong2)
-If inLong <> outLong AND inLong2 <> outLong2 Then
- runtest = -1
- Exit Function
-End If
-
-inLong = 10
-inLong2 = 100
-outLong = 5
-outLong2 = 6
-obj.optional3()
-obj.optional3(inLong, inLong2)
-obj.optional4(outLong, outLong2) 'outLong = 10, outLong2 = 100
-If inLong <> outLong AND inLong2 <> outLong2 Then
- runtest = -1
- Exit Function
-End If
-inLong = 10
-inLong2 = 100
-inLong3 = inLong
-inLong4 = inLong2
-obj.optional4(inLong, inLong)
-outLong = 0
-outLong2 = 0
-obj.optional5(outLong, outLong2)
-If inLong3 <> outLong AND inLong4 <> outLong2 Then
- runtest = -1
- Exit Function
-End If
-
-inLong = 10
-outLong = 5
-obj.optional3(inLong)
-obj.optional4(outLong)
-If inLong <> outLong Then
- runtest = -1
- Exit Function
-End If
-inLong = 10
-inLong2 = inLong
-outLong = 0
-obj.optional4(inLong)
-obj.optional5(outLong)
-If inLong2 <> outLong Then
- runtest = -1
- Exit Function
-End If
-
-'named arguments-------------------------------------------------------------------------
-'all args As named args, different order
-obj.optional6(0, 0, 0, 0)
-inLong = 1
-inLong2 = 2
-inLong3 = 3
-inLong4 = 4
-obj.optional6(val4:= inLong4, val3:=inLong3, val2:=inLong2, val1:= inLong)
-Dim outLong3 As Long
-Dim outLong4 As Long
-outLong = 0
-outLong2 = 0
-outLong3 = 0
-outLong4 = 0
-obj.optional7(outLong, outLong2, outLong3, outLong4)
-If inLong <> outLong Or inLong2 <> outLong2 _
- Or inLong3 <> outLong3 Or inLong4 <> outLong4 Then
- runtest = -1
- Exit Function
-End If
-
-'mixed positional and named args with omitted args
-Dim scode_paramNotFound As New com.sun.star.bridge.oleautomation.SCode
-scode_paramNotFound.Value = &h80020004
-
-obj.optional6(0, 0, 0, 0)
-'val1 and val3 will be DISP_E_PARAMNOTFOUND
-obj.optional6(, inLong2, val4:=inLong4)
-Dim outSCode1, outSCode2
-obj.optional7(outSCode, outLong2, outSCode2, outLong4)
-If outSCode.Value <> scode_paramNotFound.Value Or inLong2 <> outLong2 _
- Or outSCode2.Value <> scode_paramNotFound.Value Or inLong4 <> outLong4 Then
- runtest = -1
- Exit Function
-End If
-
-'mixed positional and named args with ommitted args as out -args
-inLong = 1
-inLong2 = 2
-inLong3 = 3
-inLong4 = 4
-obj.optional6(inLong, inLong2, inLong3, inLong4)
-outLong2 = 0
-outLong3 = 0
-obj.optional7(,outLong2, val3:= outLong3)
-If inLong2 <> outLong2 Or inLong3 <> outLong3 Then
- runtest = -1
- Exit Function
-End If
-
-'test properties with additional arguments ------------------------------------
-inLong = 10
-inLong2 = 20
-inLong3 = 30
-outLong = 0
-outLong2 = 0
-outLong3 = 0
-obj.prpMultiArg1(0,0) = 0
-'obj.prpMultiArg1 = 0
-obj.prpMultiArg1(inLong,inLong2) = inLong3
-outLong3 = obj.prpMultiArg1(outLong, outLong2)
-If outLong <> 10 Or outLong2 <> 02 Or outLong3 <> 30 Then
- runtest = -1
- Exit Function
-End If
-
-outLong = 0
-outLong2 = 0
-obj.prpMultiArg1(0,0) = 0
-obj.prpMultiArg1(1) = 3
-outLong2 = obj.prpMultiArg1(outLong)
-If outLong <> 1 Or outLong2 <> 3 Then
- runtest = -1
- Exit Function
-End If
-
-outLong = 0
-outLong2 = 0
-obj.prpMultiArg1(0,0) = 0
-obj.prpMultiArg1(val2:= 1) = 3
-outLong2 = obj.prpMultiArg1(val2:=outLong)
-If outLong <> 1 Or outLong2 <> 3 Then
- runtest = -1
- Exit Function
-End If
-
-outLong = -1
-outLong2 = -1
-obj.prpMultiArg2(0) = 0
-outLong = obj.prpMultiArg2GetValues(outLong, outLong2)
-If outLong <> 0 Or outLong2 <> 0 Then
- runtest = -1
- Exit Function
-End If
-
-
-outLong = 0
-outLong2 = 0
-obj.prpMultiArg2(1) = 2
-obj.prpMultiArg2GetValues(outLong, outLong2)
-If outLong <> 1 Or outLong2 <> 2 Then
- runtest = -1
- Exit Function
-End If
-
-
-
-' other tests ------------------------------------------------------------------
-obj.inObject(NOTHING)
-outObject = NOTHING
-'bridge should return an XInterface any with null pointer
-'A basic errOr should occur if this is not the case
-obj.outObject(outObject)
-
-If Not IsNull(outObject) Then
- runtest = -1
- Exit Function
-End If
-'Decimal passed by reference
-inrefDecimal = CDec("9223372036854775807") 'highest positiv value of int64
-obj.inrefDecimal(inrefDecimal)
-outrefDecimal = 0
-obj.outDecimal(outrefDecimal)
-If inrefDecimal <> outrefDecimal Then
- runtest = -1
- Exit Function
-End If
-
-' Test Automation object with dual interfaces ------------------------------------
-dim dispatcher as object
-dim oExplorer as object
-dispatcher = createUnoService("com.sun.star.bridge.OleObjectFactory")
-oExplorer = dispatcher.createInstance("InternetExplorer.Application")
-If Not IsNull(oExplorer) Then
- oExplorer.visible = true
- oExplorer.Navigate2("http://www.openoffice.org")
-Else
- MsgBox("Could not perform test with Internet Explorer!")
-End If
-
-
-End Function
-
-'One dimensional arrays with simple types.
-'lower bound must be 0
-Function equalArrays(ar1, ar2)
-Dim len1
-Dim len2
-len1 = UBound(ar1) - LBound(ar1) + 1
-len2 = UBound(ar2) - LBound(ar2) + 1
-If len1 <> len2 Then
- equalArrays = false
- Exit Function
-End If
-Dim counter
-FOr counter = 0 To len1 - 1
- If ar1(counter) <> ar2(counter) Then
- equalArrays = false
- Exit Function
- End If
-Next
-equalArrays = true
-End Function
-
-
diff --git a/extensions/test/ole/StarBasic_OleClient/readme.txt b/extensions/test/ole/StarBasic_OleClient/readme.txt
deleted file mode 100644
index 2eca8aac3..000000000
--- a/extensions/test/ole/StarBasic_OleClient/readme.txt
+++ /dev/null
@@ -1,10 +0,0 @@
-oleclient.bas is a StarBasic script that uses the
-"com.sun.star.bridge.OleObjectFactory" service to instantiate
-the ActiveX component "AxTestComponents.Basic" and calls
-functions on it.
-
-------------------------------------------------------------
-Requirements:
-
-ActiveX component: AxTestComponent.Basic must be registered.
-It is contained in extensions/test/ole/AxTestComponents
diff --git a/extensions/test/ole/VisualBasic/AssemblyInfo.vb b/extensions/test/ole/VisualBasic/AssemblyInfo.vb
deleted file mode 100644
index e663aa549..000000000
--- a/extensions/test/ole/VisualBasic/AssemblyInfo.vb
+++ /dev/null
@@ -1,33 +0,0 @@
-Imports System.Reflection
-Imports System.Runtime.CompilerServices
-Imports System.Runtime.InteropServices
-
-' General Information about an assembly is controlled through the following
-' set of attributes. Change these attribute values to modify the information
-' associated with an assembly.
-
-
-' TODO: Review the values of the assembly attributes
-
-
-<Assembly: AssemblyTitle("")>
-<Assembly: AssemblyDescription("")>
-<Assembly: AssemblyCompany("StarOffice")>
-<Assembly: AssemblyProduct("")>
-<Assembly: AssemblyCopyright("")>
-<Assembly: AssemblyTrademark("")>
-<Assembly: AssemblyCulture("")>
-
-' Version information for an assembly consists of the following four values:
-
-' Major version
-' Minor Version
-' Build Number
-' Revision
-
-' You can specify all the values or you can default the Build and Revision Numbers
-' by using the '*' as shown below:
-
-<Assembly: AssemblyVersion("1.0.*")>
-
-
diff --git a/extensions/test/ole/VisualBasic/Module1.vb b/extensions/test/ole/VisualBasic/Module1.vb
deleted file mode 100644
index 364af6365..000000000
--- a/extensions/test/ole/VisualBasic/Module1.vb
+++ /dev/null
@@ -1,853 +0,0 @@
-Option Strict Off
-Option Explicit On
-Module Module1
-
-Private objServiceManager As Object
-Private objCoreReflection As Object
-Private objOleTest As Object
-Private objEventListener As Object
-'General counter
-Dim i As Integer
-Dim j As Integer
-Dim sError As String
-Dim outHyper, inHyper, retHyper As Object
-
-Public Sub Main()
- objServiceManager = CreateObject("com.sun.star.ServiceManager")
- objCoreReflection = objServiceManager.createInstance("com.sun.star.reflection.CoreReflection")
- ' extensions/test/ole/cpnt
- objOleTest = objServiceManager.createInstance("oletest.OleTest")
- ' extensions/test/ole/EventListenerSample/VBEventListener
- objEventListener = CreateObject("VBasicEventListener.VBEventListener")
- Debug.Print(TypeName(objOleTest))
-
-
- testBasics()
- testHyper()
- testAny()
- testObjects()
- testGetStruct()
- ''dispose not working i103353
- 'testImplementedInterfaces()
- testGetValueObject()
- testArrays()
- testProps()
-
- End Sub
- Function testProps() As Object
-
- Dim aToolbarItemProp1 As Object
- aToolbarItemProp1 = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
- Dim aToolbarItemProp2 As Object
- aToolbarItemProp2 = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
- Dim aToolbarItemProp3 As Object
- aToolbarItemProp3 = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
- Dim properties(2) As Object
-
- aToolbarItemProp1.Name = "CommandURL"
- aToolbarItemProp1.Value = "macro:///standard.module1.TestIt"
- aToolbarItemProp2.Name = "Label"
- aToolbarItemProp2.Value = "Test"
- aToolbarItemProp3.Name = "Type"
- aToolbarItemProp3.Value = 0
-
- properties(0) = aToolbarItemProp1
- properties(1) = aToolbarItemProp2
- properties(2) = aToolbarItemProp3
-
-
- Dim dummy(-1) As Object
-
- Dim Desktop As Object
- Desktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
- Dim Doc As Object
- Doc = Desktop.loadComponentFromURL("private:factory/swriter", "_blank", 2, dummy)
- Dim LayoutManager As Object
- LayoutManager = Doc.currentController.Frame.LayoutManager
-
- LayoutManager.createElement("private:resource/toolbar/user_toolbar1")
- LayoutManager.showElement("private:resource/toolbar/user_toolbar1")
- Dim ToolBar As Object
- ToolBar = LayoutManager.getElement("private:resource/toolbar/user_toolbar1")
- Dim settings As Object
- settings = ToolBar.getSettings(True)
-
- 'the changes are here:
- Dim aany As Object
- aany = objServiceManager.Bridge_GetValueObject()
- Call aany.Set("[]com.sun.star.beans.PropertyValue", properties)
- Call settings.insertByIndex(0, aany)
- Call ToolBar.setSettings(settings)
-
-
- End Function
-
-
- Function testBasics() As Object
- ' In Parameter, simple types
- '============================================
- Dim tmpVar As Object
- Dim ret As Object
- Dim outByte, inByte, retByte As Byte
- Dim outBool, inBool, retBool As Boolean
- Dim outShort, inShort, retShort As Short
- Dim outUShort, inUShort, retUShort As Short
- Dim outLong, inLong, retLong As Integer
- Dim outULong, inULong, retULong As Integer
- Dim outHyper, inHyper, retHyper As Object
- Dim outUHyper, inUHyper, retUHyper As Object
- Dim outFloat, inFloat, retFloat As Single
- Dim outDouble, inDouble, retDouble As Double
- Dim outString, inString, retString As String
- Dim retChar, inChar, outChar, retChar2 As Short
- Dim outCharAsString, inCharAsString, retCharAsString As String
- Dim outAny, inAny, retAny As Object
- Dim outType, inType, retType As Object
- Dim outXInterface, inXInterface, retXInterface As Object
- Dim outXInterface2, inXInterface2, retXInterface2 As Object
-
-
- Dim outVarByte As Object
- Dim outVarBool As Object
- Dim outVarShort As Object
- Dim outVarUShort As Object
- Dim outVarLong As Object
- Dim outVarULong As Object
- Dim outVarFloat As Object
- Dim outVarDouble As Object
- Dim outVarString As Object
- Dim outVarChar As Object
- Dim outVarAny As Object
- Dim outVarType As Object
-
- inByte = 10
- inBool = True
- inShort = -10
- inUShort = -100
- inLong = -1000
- inHyper = CDec("-9223372036854775808") 'lowest int64
- inUHyper = CDec("18446744073709551615") ' highest unsigned int64
- inULong = 10000
- inFloat = 3.14
- inDouble = 3.14
- inString = "Hello World!"
- inChar = 65
- inCharAsString = "A"
- inAny = "Hello World"
- inType = objServiceManager.Bridge_CreateType("[]long")
- inXInterface = objCoreReflection
- inXInterface2 = objEventListener
-
- retByte = objOleTest.in_methodByte(inByte)
- retBool = objOleTest.in_methodBool(inBool)
- retShort = objOleTest.in_methodShort(inShort)
- retUShort = objOleTest.in_methodUShort(inUShort)
- retLong = objOleTest.in_methodLong(inLong)
- retULong = objOleTest.in_methodULong(inULong)
- retHyper = objOleTest.in_methodHyper(inHyper)
- retUHyper = objOleTest.in_methodUHyper(inUHyper)
- retFloat = objOleTest.in_methodFloat(inFloat)
- retDouble = objOleTest.in_methodDouble(inDouble)
- retString = objOleTest.in_methodString(inString)
- retChar = objOleTest.in_methodChar(inChar)
- retChar2 = objOleTest.in_methodChar(inCharAsString)
- retAny = objOleTest.in_methodAny(inAny)
- retType = objOleTest.in_methodType(inType)
- retXInterface = objOleTest.in_methodXInterface(inXInterface) ' UNO object
- retXInterface2 = objOleTest.in_methodXInterface(inXInterface2)
-
- If retByte <> inByte Or retBool <> inBool Or retShort <> inShort Or retUShort <> inUShort _
- Or retLong <> inLong Or retULong <> inULong Or retHyper <> inHyper _
- Or retUHyper <> inUHyper Or retFloat <> inFloat Or retDouble <> inDouble _
- Or retString <> inString Or retChar <> inChar Or retChar2 <> Asc(inCharAsString) _
- Or retAny <> inAny Or Not (retType.Name = inType.Name) _
- Or inXInterface IsNot retXInterface Or inXInterface2 IsNot retXInterface2 Then
- sError = "in - parameter and return value test failed"
- MsgBox(sError)
-
- End If
-
- 'Out Parameter simple types
- '================================================
-
-
- objOleTest.testout_methodByte(outByte)
- objOleTest.testout_methodFloat(outFloat)
- objOleTest.testout_methodDouble(outDouble)
- objOleTest.testout_methodBool(outBool)
- objOleTest.testout_methodShort(outShort)
- objOleTest.testout_methodUShort(outUShort)
- objOleTest.testout_methodLong(outLong)
- objOleTest.testout_methodULong(outULong)
- objOleTest.testout_methodHyper(outHyper)
- objOleTest.testout_methodUHyper(outUHyper)
- objOleTest.testout_methodString(outString)
- objOleTest.testout_methodChar(outChar)
- 'outCharAsString is a string. Therfore the returned sal_Unicode value of 65 will be converted
- 'to a string "65"
- objOleTest.testout_methodChar(outCharAsString)
- objOleTest.testout_methodAny(outAny)
- objOleTest.testout_methodType(outType)
- 'objOleTest.in_methodXInterface (inXInterface) ' UNO object
- Call objOleTest.in_methodXInterface(inXInterface) ' UNO object
- objOleTest.testout_methodXInterface(outXInterface)
- Call objOleTest.in_methodXInterface(inXInterface2) ' COM object
- objOleTest.testout_methodXInterface(outXInterface2)
-
- If outByte <> inByte Or outFloat <> inFloat Or outDouble <> inDouble _
- Or outBool <> inBool Or outShort <> inShort Or outUShort <> inUShort _
- Or outLong <> inLong Or outULong <> inULong Or outHyper <> inHyper _
- Or outUHyper <> inUHyper Or outString <> inString Or outChar <> inChar _
- Or Not (outCharAsString = "65") Or outAny <> inAny _
- Or Not (outType.Name = inType.Name) Or inXInterface IsNot outXInterface _
- Or inXInterface2 IsNot outXInterface2 Then
-
- sError = "out - parameter test failed!"
- MsgBox(sError)
- End If
-
- 'Out Parameter simple types (VARIANT var)
- '====================================================
- objOleTest.testout_methodByte(outVarByte)
- objOleTest.testout_methodBool(outVarBool)
- objOleTest.testout_methodChar(outVarChar)
- objOleTest.testout_methodShort(outVarShort)
- objOleTest.testout_methodUShort(outVarUShort)
- objOleTest.testout_methodLong(outVarLong)
- objOleTest.testout_methodULong(outVarULong)
- objOleTest.testout_methodString(outVarString)
- objOleTest.testout_methodFloat(outVarFloat)
- objOleTest.testout_methodDouble(outVarDouble)
- objOleTest.testout_methodAny(outVarAny)
- objOleTest.testout_methodType(outVarType)
-
- If outVarByte <> inByte Or outVarBool <> inBool Or outVarChar <> inChar _
- Or outVarShort <> inShort Or outVarUShort <> inUShort _
- Or outVarLong <> inLong Or outVarULong <> inULong Or outVarString <> inString _
- Or outVarFloat <> inFloat Or outVarDouble <> inDouble Or outVarAny <> inAny _
- Or Not (outVarType.Name = inType.Name) Then
- sError = "out - parameter (VARIANT) test failed!"
- MsgBox(sError)
- End If
-
- 'In/Out simple types
- '============================================
- objOleTest.in_methodByte(0)
- objOleTest.in_methodBool(False)
- objOleTest.in_methodShort(0)
- objOleTest.in_methodUShort(0)
- objOleTest.in_methodLong(0)
- objOleTest.in_methodULong(0)
- objOleTest.in_methodHyper(0)
- objOleTest.in_methodUHyper(0)
- objOleTest.in_methodFloat(0)
- objOleTest.in_methodDouble(0)
- objOleTest.in_methodString(0)
- objOleTest.in_methodChar(0)
- objOleTest.in_methodAny(0)
- objOleTest.in_methodType(objServiceManager.Bridge_CreateType("boolean"))
- outXInterface = Nothing
- Call objOleTest.in_methodXInterface(outXInterface)
-
- outByte = 10
- retByte = outByte
- objOleTest.testinout_methodByte(retByte)
- objOleTest.testinout_methodByte(retByte)
- outBool = True
- retBool = outBool
- objOleTest.testinout_methodBool(retBool)
- objOleTest.testinout_methodBool(retBool)
- outShort = 10
- retShort = outShort
- objOleTest.testinout_methodShort(retShort)
- objOleTest.testinout_methodShort(retShort)
- outUShort = 20
- retUShort = outUShort
- objOleTest.testinout_methodUShort(retUShort)
- objOleTest.testinout_methodUShort(retUShort)
- outLong = 30
- retLong = outLong
- objOleTest.testinout_methodLong(retLong)
- objOleTest.testinout_methodLong(retLong)
- outULong = 40
- retULong = outULong
- objOleTest.testinout_methodULong(retLong)
- objOleTest.testinout_methodULong(retLong)
- outHyper = CDec("9223372036854775807") 'highest positiv value of int64
- retHyper = outHyper
- objOleTest.testinout_methodHyper(retHyper)
- objOleTest.testinout_methodHyper(retHyper)
- outUHyper = CDec("18446744073709551615") 'highest value of unsigned int64
- retUHyper = outUHyper
- objOleTest.testinout_methodUHyper(retUHyper)
- objOleTest.testinout_methodUHyper(retUHyper)
- outFloat = 3.14
- retFloat = outFloat
- objOleTest.testinout_methodFloat(retFloat)
- objOleTest.testinout_methodFloat(retFloat)
- outDouble = 4.14
- retDouble = outDouble
- objOleTest.testinout_methodDouble(retDouble)
- objOleTest.testinout_methodDouble(retDouble)
- outString = "Hello World!"
- retString = outString
- objOleTest.testinout_methodString(retString)
- objOleTest.testinout_methodString(retString)
- outChar = 66
- retChar = outChar
- objOleTest.testinout_methodChar(retChar)
- objOleTest.testinout_methodChar(retChar)
- outCharAsString = "H"
- retCharAsString = outCharAsString
- objOleTest.testinout_methodChar(retCharAsString)
- objOleTest.testinout_methodChar(retCharAsString)
- outAny = "Hello World 2!"
- retAny = outAny
- objOleTest.testinout_methodAny(retAny)
- objOleTest.testinout_methodAny(retAny)
- outType = objServiceManager.Bridge_CreateType("long")
- retType = outType
- objOleTest.testinout_methodType(retType)
- objOleTest.testinout_methodType(retType)
-
- outXInterface = objCoreReflection
- retXInterface = outXInterface
- objOleTest.testinout_methodXInterface2(retXInterface)
-
- If outByte <> retByte Or outBool <> retBool Or outShort <> retShort _
- Or outUShort <> retUShort Or outLong <> retLong Or outULong <> retULong _
- Or outHyper <> retHyper Or outUHyper <> outUHyper _
- Or outFloat <> retFloat Or outDouble <> retDouble _
- Or outString <> retString Or outChar <> retChar _
- Or outCharAsString <> retCharAsString _
- Or outAny <> retAny Or Not (outType.Name = retType.Name) _
- Or outXInterface IsNot retXInterface Then
- sError = "in/out - parameter test failed!"
- MsgBox(sError)
- End If
-
- 'Attributes
- objOleTest.AByte = inByte
- retByte = 0
- retByte = objOleTest.AByte
- objOleTest.AFloat = inFloat
- retFloat = 0
- retFloat = objOleTest.AFloat
- objOleTest.AType = inType
- retType = Nothing
-
- retType = objOleTest.AType
-
- If inByte <> retByte Or inFloat <> retFloat Or Not (inType.Name = retType.Name) Then
- sError = "Attributes - test failed!"
- MsgBox(sError)
- End If
-
- End Function
- Function testHyper() As Object
-
- '======================================================================
- ' Other Hyper tests
- Dim emptyVar As Object
- Dim retAny As Object
-
- retAny = emptyVar
- inHyper = CDec("9223372036854775807") 'highest positiv value of int64
- retAny = objOleTest.in_methodAny(inHyper)
- sError = "hyper test failed"
- If inHyper <> retAny Then
- MsgBox(sError)
- End If
- inHyper = CDec("-9223372036854775808") 'lowest negativ value of int64
- retAny = objOleTest.in_methodAny(inHyper)
-
- If inHyper <> retAny Then
- MsgBox(sError)
- End If
- inHyper = CDec("18446744073709551615") 'highest positiv value of unsigne int64
- retAny = objOleTest.in_methodAny(inHyper)
-
- If inHyper <> retAny Then
- MsgBox(sError)
- End If
- inHyper = CDec(-1)
- retAny = objOleTest.in_methodAny(inHyper)
- If inHyper <> retAny Then
- MsgBox(sError)
- End If
- inHyper = CDec(0)
- retAny = objOleTest.in_methodAny(inHyper)
- If inHyper <> retAny Then
- MsgBox(sError)
- End If
-
- '==============================================================================
-
-
- End Function
- Function testAny() As Object
- Dim outVAr As Object
-
- 'Any test. We pass in an any as value object. If it is not correct converted
- 'then the target component throws a RuntimeException
- Dim lengthInAny As Integer
-
- lengthInAny = 10
- Dim seqLongInAny(10) As Integer
- For i = 0 To lengthInAny - 1
- seqLongInAny(i) = i + 10
- Next
- Dim anySeqLong As Object
- anySeqLong = objOleTest.Bridge_GetValueObject()
- anySeqLong.Set("[]long", seqLongInAny)
- Dim anySeqRet As Object
- Err.Clear()
- On Error Resume Next
- anySeqRet = objOleTest.other_methodAny(anySeqLong, "[]long")
-
- If Err.Number <> 0 Then
- MsgBox("error")
- End If
- End Function
-
- Function testObjects() As Object
- ' COM obj
- Dim outVAr As Object
- Dim retObj As Object
- 'OleTest receives a COM object that implements XEventListener
- 'OleTest then calls a disposing on the object. The object then will be
- 'asked if it has been called
- objEventListener.setQuiet(True)
- objEventListener.resetDisposing()
- retObj = objOleTest.in_methodInvocation(objEventListener)
- Dim ret As Object
- ret = objEventListener.disposingCalled
- If ret = False Then
- MsgBox("Error")
- End If
-
- 'The returned object should be objEventListener, test it by calling disposing
- ' takes an IDispatch as Param ( EventObject).To provide a TypeMismatch
- 'we put in another IDispatch
- retObj.resetDisposing()
- retObj.disposing(objEventListener)
- If retObj.disposingCalled = False Then
- MsgBox("Error")
- End If
-
- ' out param gives out the OleTestComponent
- 'objOleTest.testout_methodXInterface retObj
- 'outVAr = Null
- 'retObj.testout_methodAny outVAr
- 'Debug.Print "test out Interface " & CStr(outVAr)
- 'If outVAr <> "I am a string in an any" Then
- ' MsgBox "error"
- 'End If
-
-
- 'in out
- ' in: UNO object, the same is expected as out param
- ' the function expects OleTest as parameter and sets a value
-
- Dim myAny As Object
-
-
-
- Dim objOleTest2 As Object
- objOleTest2 = objServiceManager.createInstance("oletest.OleTest")
- 'Set a value
- objOleTest2.AttrAny2 = "VBString "
-
- 'testinout_methodXInterfaces substitutes the argument with the object set in in_methodXInterface
- objOleTest.AttrAny2 = "VBString this string was written in the UNO component to the inout pararmeter"
- objOleTest.in_methodXInterface(objOleTest)
- objOleTest.testinout_methodXInterface2(objOleTest2)
- Dim tmpVar As Object
- tmpVar = System.DBNull.Value
- tmpVar = objOleTest2.AttrAny2
- Debug.Print("in: Uno out: the same object // " & CStr(tmpVar))
- If tmpVar <> "VBString this string was written in the UNO component to the inout pararmeter" Then
- MsgBox("error")
- End If
-
-
- 'create a struct
- Dim structClass As Object
- structClass = objCoreReflection.forName("oletest.SimpleStruct")
- Dim structInstance As Object
- structClass.CreateObject(structInstance)
- structInstance.message = "Now we are in VB"
- Debug.Print("struct out " & structInstance.message)
- If structInstance.message <> "Now we are in VB" Then
- MsgBox("error")
- End If
-
- 'put the struct into OleTest. The same struct will be returned with an added String
- Dim structRet As Object
- structRet = objOleTest.in_methodStruct(structInstance)
- Debug.Print("struct in - return " & structRet.message)
- If structRet.message <> "Now we are in VBThis string was set in OleTest" Then
- MsgBox("error")
- End If
-
-
- End Function
- Function testGetStruct() As Object
- 'Bridge_GetStruct
- '========================================================
- Dim objDocument As Object
- objDocument = createHiddenDocument()
- 'dispose not working i103353
- 'objDocument.dispose()
- objDocument.close(True)
- End Function
-
- Function testImplementedInterfaces() As Object
- 'Bridge_ImplementedInterfaces
- '=================================================
- ' call an UNO function that takes an XEventListener interface
- 'We provide a COM implementation (IDispatch) as EventListener
- 'Open a new empty writer document
-
- Dim objDocument As Object
- objDocument = createHiddenDocument()
- objEventListener.resetDisposing()
- objDocument.addEventListener(objEventListener)
- objDocument.dispose()
- If objEventListener.disposingCalled = False Then
- MsgBox("Error")
- End If
- End Function
-
- Function testGetValueObject() As Object
- 'Bridge_GetValueObject
- '==================================================
- Dim objVal As Object
- objVal = objOleTest.Bridge_GetValueObject()
- Dim arrByte(9) As Byte
- Dim countvar As Integer
- For countvar = 0 To 9
- arrByte(countvar) = countvar
- Next countvar
-
- objVal.Set("[]byte", arrByte)
- Dim ret As Object
- ret = 0
- ret = objOleTest.methodByte(objVal)
- 'Test if ret is the same array
-
- Dim key As Object
- key = 0
- For Each key In ret
- If ret(key) <> arrByte(key) Then
- MsgBox("Error")
- End If
- Debug.Print(ret(key))
- Next key
-
- Dim outByte As Byte
- outByte = 77
- Dim retByte As Byte
- retByte = outByte
- objVal.InitInOutParam("byte", retByte)
- objOleTest.testinout_methodByte(objVal)
- objVal.InitInOutParam("byte", retByte)
- objOleTest.testinout_methodByte(objVal)
-
- ret = 0
- ret = objVal.Get()
- Debug.Print(ret)
- If ret <> outByte Then
- MsgBox("error")
- End If
-
- objVal.InitOutParam()
- Dim inChar As Short
- inChar = 65
- objOleTest.in_methodChar(inChar)
- objOleTest.testout_methodChar(objVal) 'Returns 'A' (65)
- ret = 0
- ret = objVal.Get()
- Debug.Print(ret)
- If ret <> inChar Then
- MsgBox("error")
- End If
-
- End Function
-
- Function testArrays() As Object
- 'Arrays
- '========================================
- Dim arrLong(2) As Integer
- Dim arrObj(2) As Object
- Dim countvar As Integer
- For countvar = 0 To 2
- arrLong(countvar) = countvar + 10
- Debug.Print(countvar)
- arrObj(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arrObj(countvar).setQuiet(True)
- Next
-
- 'Arrays always contain VARIANTS
- Dim seq() As Object
- seq = objOleTest.methodLong(arrLong)
-
- For countvar = 0 To 2
- Debug.Print(CStr(seq(countvar)))
- If arrLong(countvar) <> seq(countvar) Then
- MsgBox("error")
- End If
- Next
- seq = objOleTest.methodXInterface(arrObj)
- Dim tmp As Object
- For countvar = 0 To 2
- seq(countvar).resetDisposing()
- seq(countvar).disposing(CObj(tmp))
- If seq(countvar).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
-
- 'Array containing interfaces (element type is VT_DISPATCH)
- Dim arEventListener(2) As Object
- For countvar = 0 To 2
- arEventListener(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener(countvar).setQuiet(True)
- Next
-
- 'The function calls disposing on the listeners
- seq = objOleTest.methodXEventListeners(arEventListener)
- Dim count As Object
- For countvar = 0 To 2
- If arEventListener(countvar).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
- 'Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH
- Dim arEventListener2(2) As Object
- For countvar = 0 To 2
- arEventListener2(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener2(countvar).setQuiet(True)
- Next
- seq = objOleTest.methodXEventListeners(arEventListener2)
- For countvar = 0 To 2
- If arEventListener2(countvar).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
-
- 'Variant containing Array containing interfaces (element type is VT_VARIANT which contains VT_DISPATCH
- Dim arEventListener3(2) As Object
- Dim var As Object
- For countvar = 0 To 2
- arEventListener3(countvar) = CreateObject("VBasicEventListener.VBEventListener")
- arEventListener3(countvar).setQuiet(True)
- Next
- Dim varContAr As Object
- varContAr = VB6.CopyArray(arEventListener3)
- seq = objOleTest.methodXEventListeners(varContAr)
- For countvar = 0 To 2
- If arEventListener3(countvar).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
-
- 'Get a sequence created in UNO, out param is Variant ( VT_BYREF|VT_VARIANT)
- Dim seqX As Object
-
- objOleTest.testout_methodSequence(seqX)
- Dim key As Object
- For Each key In seqX
- Debug.Print(CStr(seqX(key)))
- If seqX(key) <> key Then
- MsgBox("error")
- End If
- Next key
- 'Get a sequence created in UNO, out param is array Variant ( VT_BYREF|VT_VARIANT|VT_ARRAY)
- Dim seqX2() As Object
- objOleTest.testout_methodSequence(seqX2)
-
- For Each key In seqX2
- Debug.Print(CStr(seqX2(key)))
- Next key
-
- 'pass it to UNO and get it back
- Dim seq7() As Object
- seq7 = objOleTest.methodLong(seqX)
- Dim key2 As Object
- For Each key2 In seq7
- Debug.Print(CStr(seq7(key2)))
- If seqX2(key) <> key Then
- MsgBox("error")
- End If
- Next key2
-
- 'array with starting index != 0
- Dim seqIndex(2) As Integer
- Dim seq8() As Object
- Dim longVal1, longVal2 As Integer
- longVal1 = 1
- longVal2 = 2
- seqIndex(1) = longVal1
- seqIndex(2) = longVal2
- 'The bridge returns a Safearray of Variants. It does not yet convert to an _
- 'array of a particular type!
- 'Comparing of elements from seq8 (Object) with long values worked without _
- 'explicit cast as is necessary in VS 2008. Also arrays in VS 2008 start at _
- 'index 0
- seq8 = objOleTest.methodLong(seqIndex)
- If longVal1 <> CInt(seq8(1)) And longVal2 <> CInt(seq8(2)) Then
- MsgBox("error")
- End If
-
- 'in out Array
- ' arrLong is Long Array
- Dim inoutVar(2) As Object
-
- For countvar = 0 To 2
- inoutVar(countvar) = countvar + 10
- Next
-
- objOleTest.testinout_methodSequence(inoutVar)
-
- countvar = 0
- For countvar = 0 To 2
- Debug.Print(CStr(inoutVar(countvar)))
- If inoutVar(countvar) <> countvar + 11 Then
- MsgBox("error")
- End If
- Next
-
- 'Multidimensional array
- '============================================================
- ' Sequence< Sequence<long> > methodSequence( Sequence< Sequence long> >)
- ' Real multidimensional array Array
- ' 9 is Dim 1 (least significant) with C API
- Dim mulAr(9, 1) As Integer
- For i = 0 To 1
- For j = 0 To 9
- mulAr(j, i) = i * 10 + j
- Next j
- Next i
-
- Dim resMul As Object
- resMul = objOleTest.methodSequence(mulAr)
-
- Dim countDim1 As Integer
- Dim countDim2 As Integer
- Dim arr As Object
- For countDim2 = 0 To 1
- arr = resMul(countDim2)
- For countDim1 = 0 To 9
- Debug.Print(arr(countDim1))
- If arr(countDim1) <> mulAr(countDim1, countDim2) Then
- MsgBox("Error Multidimensional Array")
- End If
- Next countDim1
- Next countDim2
- IsArray(resMul)
-
- 'Array of VARIANTs containing arrays
- Dim mulAr2(1) As Object
- Dim arr2(9) As Integer
- For i = 0 To 1
- ' Dim arr(9) As Long
- For j = 0 To 9
- arr2(j) = i * 10 + j
- Next j
- mulAr2(i) = VB6.CopyArray(arr2)
- Next i
-
- resMul = 0
- resMul = objOleTest.methodSequence(mulAr2)
- arr = 0
- Dim tmpVar As Object
- For countDim2 = 0 To 1
- arr = resMul(countDim2)
- tmpVar = mulAr2(countDim2)
- For countDim1 = 0 To 9
- Debug.Print(arr(countDim1))
- If arr(countDim1) <> tmpVar(countDim1) Then
- MsgBox("Error Multidimensional Array")
- End If
- Next countDim1
- Next countDim2
-
- 'Array containing interfaces (element type is VT_DISPATCH)
- Dim arArEventListener(1, 2) As Object
- For i = 0 To 1
- For j = 0 To 2
- arArEventListener(i, j) = CreateObject("VBasicEventListener.VBEventListener")
- arArEventListener(i, j).setQuiet(True)
- Next
- Next
- 'The function calls disposing on the listeners
- seq = objOleTest.methodXEventListenersMul(arArEventListener)
- For i = 0 To 1
- For j = 0 To 2
- If arArEventListener(i, j).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
- Next
-
- 'Array containing interfaces (element type is VT_VARIANT containing VT_DISPATCH)
- Dim arArEventListener2(1, 2) As Object
- For i = 0 To 1
- For j = 0 To 2
- arArEventListener2(i, j) = CreateObject("VBasicEventListener.VBEventListener")
- arArEventListener2(i, j).setQuiet(True)
- Next
- Next
- 'The function calls disposing on the listeners
- seq = objOleTest.methodXEventListenersMul(arArEventListener2)
- For i = 0 To 1
- For j = 0 To 2
- If arArEventListener2(i, j).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
- Next
-
- ' SAFEARRAY of VARIANTS containing SAFEARRAYs
- 'The ultimate element type is VT_DISPATCH ( XEventListener)
- Dim arEventListener4(1) As Object
- Dim seq1(2) As Object
- Dim seq2(2) As Object
- For i = 0 To 2
- seq1(i) = CreateObject("VBasicEventListener.VBEventListener")
- seq2(i) = CreateObject("VBasicEventListener.VBEventListener")
- seq1(i).setQuiet(True)
- seq2(i).setQuiet(True)
- Next
- arEventListener4(0) = VB6.CopyArray(seq1)
- arEventListener4(1) = VB6.CopyArray(seq2)
- 'The function calls disposing on the listeners
- seq = objOleTest.methodXEventListenersMul(arEventListener4)
- For i = 0 To 2
- If seq1(i).disposingCalled = False Or seq2(i).disposingCalled = False Then
- MsgBox("Error")
- End If
- Next
-
- End Function
-
- Function createHiddenDocument() As Object
- 'Try to create a hidden document
- Dim objPropValue As Object
- objPropValue = objOleTest.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
- 'Set the members. If this fails then there is an Error
- objPropValue.Name = "Hidden"
- objPropValue.Handle = -1
- objPropValue.Value = True
-
- 'create a hidden document
- 'Create the Desktop
- Dim objDesktop As Object
- objDesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
- 'Open a new empty writer document
- Dim args(0) As Object
- args(0) = objPropValue
- createHiddenDocument = objDesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, args)
- End Function
-End Module
diff --git a/extensions/test/ole/VisualBasic/Project1.sln b/extensions/test/ole/VisualBasic/Project1.sln
deleted file mode 100644
index ffff24e8d..000000000
--- a/extensions/test/ole/VisualBasic/Project1.sln
+++ /dev/null
@@ -1,20 +0,0 @@
-
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Project1", "Project1.vbproj", "{F62D440E-8976-4A6D-91A8-89F09701074F}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Any CPU = Debug|Any CPU
- Release|Any CPU = Release|Any CPU
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {F62D440E-8976-4A6D-91A8-89F09701074F}.Debug|Any CPU.ActiveCfg = Debug|Any CPU
- {F62D440E-8976-4A6D-91A8-89F09701074F}.Debug|Any CPU.Build.0 = Debug|Any CPU
- {F62D440E-8976-4A6D-91A8-89F09701074F}.Release|Any CPU.ActiveCfg = Release|Any CPU
- {F62D440E-8976-4A6D-91A8-89F09701074F}.Release|Any CPU.Build.0 = Release|Any CPU
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/VisualBasic/Project1.vbproj b/extensions/test/ole/VisualBasic/Project1.vbproj
deleted file mode 100644
index 213d5928c..000000000
--- a/extensions/test/ole/VisualBasic/Project1.vbproj
+++ /dev/null
@@ -1,90 +0,0 @@
-<Project DefaultTargets="Build" ToolsVersion="3.5" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
- <PropertyGroup>
- <ProjectType>Local</ProjectType>
- <MyType>WindowsFormsWithCustomSubMain</MyType>
- <ProductVersion>9.0.21022</ProductVersion>
- <SchemaVersion>2.0</SchemaVersion>
- <ProjectGuid>{F62D440E-8976-4A6D-91A8-89F09701074F}</ProjectGuid>
- <Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
- <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
- <AssemblyName>Project1</AssemblyName>
- <OutputType>WinExe</OutputType>
- <StartupObject>Project1.Module1</StartupObject>
- <AssemblyMajorVersion>1</AssemblyMajorVersion>
- <AssemblyMinorVersion>0</AssemblyMinorVersion>
- <AssemblyRevisionNumber>0</AssemblyRevisionNumber>
- <GenerateRevisionNumber>False</GenerateRevisionNumber>
- <AssemblyCompanyName>StarOffice</AssemblyCompanyName>
- <RootNamespace>Project1</RootNamespace>
- <FileUpgradeFlags>
- </FileUpgradeFlags>
- </PropertyGroup>
- <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
- <OutputPath>.\bin\</OutputPath>
- <DocumentationFile>Project1.xml</DocumentationFile>
- <DebugSymbols>True</DebugSymbols>
- <DefineDebug>True</DefineDebug>
- <DefineTrace>True</DefineTrace>
- <DefineConstants>Win32=True</DefineConstants>
- <PlatformTarget>x86</PlatformTarget>
- <NoWarn>42016,42017,42018,42019,42032</NoWarn>
- <DebugType>full</DebugType>
- </PropertyGroup>
- <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
- <OutputPath>.\bin\</OutputPath>
- <DocumentationFile>Project1.xml</DocumentationFile>
- <DebugSymbols>False</DebugSymbols>
- <DefineDebug>False</DefineDebug>
- <DefineTrace>True</DefineTrace>
- <DefineConstants>Win32=True</DefineConstants>
- <PlatformTarget>x86</PlatformTarget>
- <NoWarn>42016,42017,42018,42019,42032</NoWarn>
- <DebugType>none</DebugType>
- </PropertyGroup>
- <ItemGroup>
- <Reference Include="Microsoft.VisualBasic.Compatibility">
- <Name>Microsoft.VisualBasic.Compatibility</Name>
- </Reference>
- <Reference Include="System">
- <Name>System</Name>
- </Reference>
- <Reference Include="System.Data">
- <Name>System.Data</Name>
- </Reference>
- <Reference Include="System.Drawing">
- <Name>System.Drawing</Name>
- </Reference>
- <Reference Include="System.Windows.Forms">
- <Name>System.Windows.Forms</Name>
- </Reference>
- <Reference Include="System.XML">
- <Name>System.XML</Name>
- </Reference>
- </ItemGroup>
- <ItemGroup>
- <Import Include="Microsoft.VisualBasic" />
- <Import Include="Microsoft.VisualBasic.Compatibility" />
- <Import Include="System" />
- <Import Include="System.Collections" />
- <Import Include="System.Data" />
- <Import Include="System.Diagnostics" />
- <Import Include="System.Drawing" />
- <Import Include="System.Windows.Forms" />
- </ItemGroup>
- <ItemGroup>
- <Compile Include="AssemblyInfo.vb" />
- <Compile Include="Module1.vb">
- <SubType>Code</SubType>
- </Compile>
- </ItemGroup>
- <ItemGroup>
- <Folder Include="My Project\" />
- </ItemGroup>
- <Import Project="$(MSBuildBinPath)\Microsoft.VisualBasic.targets" />
- <PropertyGroup>
- <PreBuildEvent>
- </PreBuildEvent>
- <PostBuildEvent>
- </PostBuildEvent>
- </PropertyGroup>
-</Project> \ No newline at end of file
diff --git a/extensions/test/ole/VisualBasic/readme.txt b/extensions/test/ole/VisualBasic/readme.txt
deleted file mode 100644
index 0b18430fc..000000000
--- a/extensions/test/ole/VisualBasic/readme.txt
+++ /dev/null
@@ -1,18 +0,0 @@
-Runs a test written in VisualBasic. If no error message appears then the test was ok.
-
-Requirements:
-Installed office
-Component oletest.Oletest (extensions/test/ole/cpnt)
-Component VBasicEventListener.VBEventListener (extensions/test/ole/EventListenerSample/VBEventListener
-
-
-OleTest is a UNO component. It needs to be registered with the office rdb. Also there are additional
-types (oletest.rdb in wntmsci7/bin/) which must be merged with the rdb.
-VBEventListener is an ActiveX component. The directory contains a Visual Basic Project and also
-the binary VBasicEventListener.dll. This is necessary because the dll contains the type library
-which is needed by VB. Otherwise VB would generate a new CLSID on a new build.
-The dll must be registered on the system. This is done by
-regsvr32 VBasicEventListener.dll
-or
-by a rebuild of the project.
-
diff --git a/extensions/test/ole/callUnoToJava.htm b/extensions/test/ole/callUnoToJava.htm
deleted file mode 100644
index fdc690d7e..000000000
--- a/extensions/test/ole/callUnoToJava.htm
+++ /dev/null
@@ -1,538 +0,0 @@
-<HTML>
-<HEAD>
-<META NAME="GENERATOR" Content="Microsoft Developer Studio">
-<META HTTP-EQUIV="Content-Type" content="text/html; charset=iso-8859-1">
-<TITLE>Document Title</TITLE>
-</HEAD>
-<BODY id=theBody>
-
-<script language="JScript">
-function callOleTest( id)
-{
- var factory= new ActiveXObject("com.sun.star.ServiceManager");
- var oletest= factory.createInstance("oletest.OleTest");
-// alert(oletest);
-
- switch( id)
- {
- case 1: // Test simple call of JScript object function from UNO
- oletest.testInterface( new XCallback_Impl, 1);
- break;
-
- case 2:
- // return value is the parameter object
- oletest.testInterface( new XCallback_Impl, 2);
- break;
- //##################################################
- // OUT parameter
- //##################################################
- case 3: // Test out parameter of type interface
- oletest.testInterface( new XCallback_Impl, 3);
- break;
- case 4: // Test out parameter of type struct
- oletest.testInterface( new XCallback_Impl, 4);
- break;
- case 5: // Test out parameter of type enum
- oletest.testInterface( new XCallback_Impl, 5);
- break;
- case 6: // Test out parameter of type sequence<any>
- oletest.testInterface( new XCallback_Impl, 6);
- break;
- case 7: // Test out parameter of type any
- oletest.testInterface( new XCallback_Impl, 7);
- break;
- case 8: // Test out parameter of type bool
- oletest.testInterface( new XCallback_Impl, 8);
- break;
- case 9: // Test out parameter of type char
- oletest.testInterface( new XCallback_Impl, 9);
- break;
- case 10: // Test out parameter of type string
- oletest.testInterface( new XCallback_Impl, 10);
- break;
- case 11: // Test out parameter of type float
- oletest.testInterface( new XCallback_Impl, 11);
- break;
- case 12: // Test out parameter of type double
- oletest.testInterface( new XCallback_Impl, 12);
- break;
- case 13: // Test out parameter of type byte
- oletest.testInterface( new XCallback_Impl, 13);
- break;
- case 14: // Test out parameter of type short
- oletest.testInterface( new XCallback_Impl, 14);
- break;
- case 15: // Test out parameter of type long
- oletest.testInterface( new XCallback_Impl, 15);
- break;
- case 30: // outValuesMixed
- oletest.testInterface( new XCallback_Impl, 30);
- break;
- case 31: // outValuesAll
- oletest.testInterface( new XCallback_Impl, 31);
- break;
- //##################################################
- // IN/OUT parameter
- //##################################################
-
- case 100: // inoutInterface
- oletest.testInterface( new XCallback_Impl, 100);
- break;
- case 101: // inoutStruct
- oletest.testInterface( new XCallback_Impl, 101);
- break;
- case 102: // inoutEnum
- oletest.testInterface( new XCallback_Impl, 102);
- break;
- case 103: // inoutSeqAny
- oletest.testInterface( new XCallback_Impl, 103);
- break;
- case 104: // inoutAny
- oletest.testInterface( new XCallback_Impl, 104);
- break;
- case 105: // inoutBool
- oletest.testInterface( new XCallback_Impl, 105);
- break;
- case 106: // inoutChar
- oletest.testInterface( new XCallback_Impl, 106);
- break;
- case 107: // inoutString
- oletest.testInterface( new XCallback_Impl, 107);
- break;
- case 108: // inoutFloat
- oletest.testInterface( new XCallback_Impl, 108);
- break;
- case 109: // inoutDouble
- oletest.testInterface( new XCallback_Impl, 109);
- break;
- case 110: // inoutByte
- oletest.testInterface( new XCallback_Impl, 110);
- break;
- case 111: // inoutShort
- oletest.testInterface( new XCallback_Impl, 111);
- break;
- case 112: // inoutLong
- oletest.testInterface( new XCallback_Impl, 112);
- break;
- case 120: // inoutValuesAll
- oletest.testInterface( new XCallback_Impl, 120);
- break;
- case 200: // inValues
- oletest.testInterface( new XCallback_Impl, 200);
- break;
-
- // Call a COM object that has not been passed as parameter to a UNO component and
- // hence no type information are available in the COM wrapper
-// case 300:
- //##################################################
- // Attributes
- //##################################################
- case 400:
- oletest.testInterface( new XCallback_Impl, 400);
- break;
-
- case 1000:
- oletest.testInterface2(new MultiInterface(), 0);
- break;
- }
-
-}
-
-
-
-// The class --------------------------------------------
-
-function XCallback_Impl()
-{
-
- // XCallback
- this._environment= "JScript";
-
- this.func1= XCallback_Impl_func1;
- this.returnInterface= XCallback_Impl_returnInterface;
- // #################################################
- // OUT parameter
- //###################################################
- this.outInterface= XCallback_Impl_outInterface;
- this.outStruct= XCallback_Impl_outStruct;
- this.outEnum= XCallback_Impl_outEnum;
- this.outSeqAny= XCallback_Impl_outSeqAny;
- this.outAny= XCallback_Impl_outAny;
- this.outBool= XCallback_Impl_outBool;
- this.outChar= XCallback_Impl_outChar;
- this.outString= XCallback_Impl_outString;
- this.outFloat= XCallback_Impl_outFloat;
- this.outDouble= XCallback_Impl_outDouble;
- this.outByte= XCallback_Impl_outByte;
- this.outShort= XCallback_Impl_outShort;
- this.outLong= XCallback_Impl_outLong;
- this.outValuesMixed= XCallback_Impl_outValuesMixed;
- this.outValuesAll= XCallback_Impl_outValuesAll;
- // #################################################
- // IN/ OUT parameter
- //###################################################
- this.inoutInterface= XCallback_Impl_inoutInterface;
- this.inoutStruct= XCallback_Impl_inoutStruct;
- this.inoutEnum= XCallback_Impl_inoutEnum;
- this.inoutSeqAny= XCallback_Impl_inoutSeqAny;
- this.inoutAny= XCallback_Impl_inoutAny;
- this.inoutBool= XCallback_Impl_inoutBool;
- this.inoutChar= XCallback_Impl_inoutChar;
- this.inoutString= XCallback_Impl_inoutString;
- this.inoutFloat= XCallback_Impl_inoutFloat;
- this.inoutDouble= XCallback_Impl_inoutDouble;
- this.inoutByte= XCallback_Impl_inoutByte;
- this.inoutShort= XCallback_Impl_inoutShort;
- this.inoutLong= XCallback_Impl_inoutLong;
- this.inoutValuesAll= XCallback_Impl_inoutValuesAll;
- // #################################################
- // IN parameter
- //##################################################
- this.inValues= XCallback_Impl_inValues;
-
- // #################################################
- // Attributes
- //##################################################
- this.simple= new XSimple_Impl();
-
-
-}
-
-
-function XCallback_Impl_func1()
-{
- alert("XCallback_Impl_func1");
-}
-function XCallback_Impl_returnInterface()
-{
- alert("XCallback::returnInterface called");
- return new XSimple_Impl();
-}
-
-function XCallback_Impl_outInterface( outVal)
-{
- outVal[0]= new XSimple_Impl();
-}
-
-function XCallback_Impl_outLong( outVal)
-{
- alert("outLong");
-}
-function XCallback_Impl_outStruct( outVal)
-{
- var factory= new ActiveXObject("com.sun.star.ServiceManager");
- var starCoreReflection = factory.createInstance("com.sun.star.reflection.CoreReflection");
- var structClass = starCoreReflection.forName("oletest.SimpleStruct");
- var outParam= new Array();
- structClass.createObject(outParam);
- var aStruct= outParam[0];
- aStruct.message= "a Struct created in JScript";
- outVal[0]= aStruct;
-
-}
-function XCallback_Impl_outEnum( outVal)
-{
- outVal[0]= 2;
-}
-function XCallback_Impl_outSeqAny( outVal)
-{
- var ar= new Array(1,2,3);
- outVal[0]= ar;
-}
-function XCallback_Impl_outAny( outVal)
-{
- outVal[0]= "this is an Any";
-}
-function XCallback_Impl_outBool( outVal)
-{
- outVal[0]= true;
-}
-function XCallback_Impl_outChar( outVal)
-{
- outVal[0]= "a";
-}
-function XCallback_Impl_outString( outVal)
-{
- outVal[0]= "This string was created in JScript";
-}
-function XCallback_Impl_outFloat( outVal)
-{
- outVal[0]= 3.14;
-}
-function XCallback_Impl_outDouble( outVal)
-{
- outVal[0]= 3.145;
-}
-function XCallback_Impl_outByte( outVal)
-{
- outVal[0]= 100;
-}
-function XCallback_Impl_outShort( outVal)
-{
- outVal[0]= 1000;
-}
-function XCallback_Impl_outLong( outVal)
-{
- outVal[0]= 1000000;
-}
-function XCallback_Impl_outValuesMixed( inLong, outLong, inString)
-{
- alert("inVal long: " + inLong +" inString:" + inString);
- outLong[0]= inLong + 1;
-}
-function XCallback_Impl_outValuesAll( xSimple, aSimpleStruct, aSimpleEnum, seqAny, aAny, aBool,
- aChar, aString, aFloat, aDouble, aByte, aShort, aLong)
-{
- this.outInterface( xSimple);
- this.outStruct( aSimpleStruct);
- this.outEnum( aSimpleEnum);
- this.outSeqAny( seqAny);
- this.outAny( aAny);
- this.outBool( aBool);
- this.outChar( aChar);
- this.outString( aString);
- this.outFloat( aFloat);
- this.outDouble( aDouble);
- this.outByte( aByte);
- this.outShort( aShort);
- this.outLong( aLong);
-}
-
-function XCallback_Impl_inoutInterface( val)
-{
- val[0].func("calling on in parameter");
- val[0]= new XSimple_Impl();
-}
-function XCallback_Impl_inoutStruct( val)
-{
- alert( val[0].message);
- val[0].message= "property message changed in JScript";
-}
-function XCallback_Impl_inoutEnum(val)
-{
- alert("enum value +" + val);
- val[0]= 2;
-}
-function XCallback_Impl_inoutSeqAny( val)
-{
- var vbar = new VBArray(val[0]);
- var seq= vbar.toArray();
- alert( seq[0] +" "+seq[1] +" " +seq[2]);
- val[0]= new Array("jscript1", "jscript2","jscript3");
-}
-function XCallback_Impl_inoutAny(val)
-{
- alert( "JScript in any: " + val[0]);
- val[0]= "a string from JScript";
-}
-function XCallback_Impl_inoutBool(val)
-{
- alert( "JScript in bool: " + val[0]);
- val[0]= true;
-}
-function XCallback_Impl_inoutChar(val)
-{
- alert( "JScript in char: " + val[0]);
- val[0]= 'b';
-}
-function XCallback_Impl_inoutString(val)
-{
- alert( "JScript in string: " + val[0]);
- val[0]= " a JScript string";
-}
-function XCallback_Impl_inoutFloat(val)
-{
- alert( "JScript in float: " + val[0]);
- val[0]= 4.14;
-}
-function XCallback_Impl_inoutDouble(val)
-{
- alert( "JScript in double: " + val[0]);
- val[0]= 4.145;
-}
-
-function XCallback_Impl_inoutByte(val)
-{
- alert( "JScript in byte: " + val[0]);
- val[0]= 100;
-}
-function XCallback_Impl_inoutShort(val)
-{
- alert( "JScript in short: " + val[0]);
- val[0]= 1000;
-}
-function XCallback_Impl_inoutLong(val)
-{
- alert( "JScript in long: " + val[0]);
- val[0]= 100000;
-}
-function XCallback_Impl_inoutValuesAll(aXSimple, aStruct, aEnum, aSeq,
- aAny, aBool, aChar, aString, aFloat, aDouble,
- aByte, aShort, aLong )
-{
- this.inoutInterface( aXSimple);
- this.inoutStruct( aStruct);
- this.inoutEnum( aEnum);
- this.inoutSeqAny( aSeq);
- this.inoutAny( aAny);
- this.inoutBool( aBool);
- this.inoutChar( aChar);
- this.inoutString( aString);
- this.inoutFloat( aFloat);
- this.inoutDouble( aDouble);
- this.inoutByte( aByte);
- this.inoutShort( aShort);
- this.inoutLong( aLong);
-}
-
-function XCallback_Impl_inValues( aChar, aLong, aString)
-{
- alert( "char : " + aChar + " long: " + aLong + " string: " + aString);
-}
-
-
-//################################################################
-// class MultiInterface implements XSimple, XSimple2, XSimple3
-//################################################################
-function MultiInterface()
-{
- this._environment= "JScript";
- this._implementedInterfaces= new Array( "oletest.XSimple", "oletest.XSimple2", "oletest.XSimple3");
- // XSimple ---------------
- this.getName= MultiInterface_getName;
- this.func= MultiInterface_func;
- this.func2= MultiInterface_func2;
- this.func3= MultiInterface_func3;
- // XSimple2
- this.getName2= MultiInterface_getName2;
- // XSimple3
- this.getName3= MultiInterface_getName3;
-}
-
-
-function MultiInterface_getName()
-{
- return "JScript XSimple called";
-}
-function MultiInterface_func( message)
-{
- alert("JScript object (XSimple)-- " + message);
-}
-
-function MultiInterface_getName2()
-{
- return "JScript XSimple2 called";
-}
-function MultiInterface_func2( message)
-{
- alert("JScript object (XSimple2) -- " + message);
-}
-
-function MultiInterface_getName3()
-{
- return "JScript XSimple3 called";
-}
-function MultiInterface_func3( message)
-{
- alert("JScript object (XSimple3) -- " + message);
-}
-
-
-
-
-//XCallback_Impl_outValuesMixed( val1, outval, val2)
-//{
-//}
-//XCallback_Impl_outValuesAll( xSimple, aSimpleStruct, aSimpleEnum, seqAny, aAny, aBool,
-// aChar, aString, aFloat, aDouble, aByte, aShort, aLong, aUShort, aULong)
-//{
-//
-//}
-
-
-
-// class XSimple_Impl----------------------------------------------------------------------
-function XSimple_Impl()
-{
- //XSimple
- this.func= XSimple_Impl_func;
-}
-function XSimple_Impl_func( message)
-{
- alert( "XSimple called." + message);
-}
-
-
-</script>
-
-
-
-<h2> Object in JScript</h2>
-
-This test passes a XCallback to an UNO function of the UNO test control.
-XCallback is implemented by the JScript class XCallback_Impl. The function
-XCallback::func1 is then called from the UNO test control.
-<br>
-<button onclick='callOleTest( 1)'>go</Button>
-<br>
-On the UNO object the function testInterface is called which takes
-a XCallback as parameter. XCallback is implemented in a JScript object.The function
-returns a XSimple Interface. Then the UNO object calls XSimple::notify. This test shall
-verify the correct conversion of the return value( IDispatch JScript object) to an XSimple object.<br>
-<button onclick='callOleTest( 2)'>go</Button>
-<br>
-<h1> out parameter </h1>
-The a JScript object of class XCallback_Impl is passed to the UNO OleTest Control as parameter.
-According to the buttons the OleTest object calls a function on XCallback_Impl that has appropriate type
-as out parameter.<br>
-<button onclick='callOleTest( 3)'>interface</Button>
-<button onclick='callOleTest( 4)'>struct</Button>
-<button onclick='callOleTest( 5)'>enum</Button>
-<button onclick='callOleTest( 6)'>sequence&lt;any&gt;</Button>
-<button onclick='callOleTest( 7)'>any</Button>
-<button onclick='callOleTest( 8)'>bool</Button>
-<button onclick='callOleTest( 9)'>char</Button>
-<button onclick='callOleTest( 10)'>string</Button>
-<button onclick='callOleTest( 11)'>float</Button>
-<button onclick='callOleTest( 12)'>double</Button>
-<button onclick='callOleTest( 13)'>byte</Button>
-<button onclick='callOleTest( 14)'>short</Button>
-<button onclick='callOleTest( 15)'>long</Button>
-<br>
-Other test with out parameters <br>
-<button onclick='callOleTest( 30)'>outValuesMixed</Button>
-<button onclick='callOleTest( 31)'>outValuesAll</Button>
-<h1> in out parameter </h1>
-<button onclick='callOleTest( 100)'>interface</Button>
-<button onclick='callOleTest( 101)'>struct</Button>
-<button onclick='callOleTest( 102)'>enum</Button>
-<button onclick='callOleTest( 103)'>seqence&lt;any&gt;</Button>
-<button onclick='callOleTest( 104)'>any</Button>
-<button onclick='callOleTest( 105)'>bool</Button>
-<button onclick='callOleTest( 106)'>char</Button>
-<button onclick='callOleTest( 107)'>string</Button>
-<button onclick='callOleTest( 108)'>float</Button>
-<button onclick='callOleTest( 109)'>double</Button>
-<button onclick='callOleTest( 110)'>byte</Button>
-<button onclick='callOleTest( 111)'>short</Button>
-<button onclick='callOleTest( 112)'>long</Button>
-<br>
-<h1> Attributes </h1>
-<button onclick='callOleTest( 400)'>getting XSimple</Button>
-<br>
-
-Other tests with inout parameters <br>
-<button onclick='callOleTest( 120)'>inoutValuesAll</Button>
-<h1>in parameters </h1>
-<button onclick='callOleTest( 200)'>inValues</Button>
-
-<h1> JScript object implements several interfaces </h1>
-<button onclick='callOleTest( 1000)'>go</Button>
-
-
-
-
-</body>
-</html>
-
-
diff --git a/extensions/test/ole/cpnt/cpnt.cxx b/extensions/test/ole/cpnt/cpnt.cxx
deleted file mode 100644
index c826a3c91..000000000
--- a/extensions/test/ole/cpnt/cpnt.cxx
+++ /dev/null
@@ -1,1973 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-#include <windows.h>
-#include <atlbase.h>
-#include <stdio.h>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/registry/XRegistryKey.hpp>
-#include <osl/diagnose.h>
-#include <uno/environment.h>
-#include <cppuhelper/factory.hxx>
-// OPTIONAL is a constant in com.sun.star.beans.PropertyAttributes but it must be
-// undef'd in some header files
-#define OPTIONAL OPTIONAL
-#include <com/sun/star/beans/PropertyAttribute.hpp>
-#include <com/sun/star/script/XInvocation.hpp>
-#include <com/sun/star/reflection/XIdlReflection.hpp>
-#include <com/sun/star/lang/XEventListener.hpp>
-
-#include <cppuhelper/implbase7.hxx>
-#include <cppuhelper/implbase1.hxx>
-#include <com/sun/star/uno/Reference.h>
-#include <rtl/ustring.h>
-#include <com/sun/star/uno/Reference.hxx>
-#include <oletest/XTestSequence.hpp>
-#include <oletest/XTestStruct.hpp>
-#include <oletest/XTestOther.hpp>
-#include <oletest/XTestInterfaces.hpp>
-#include <oletest/XSimple.hpp>
-#include <oletest/XSimple2.hpp>
-#include <oletest/XSimple3.hpp>
-#include <oletest/XTestInParameters.hpp>
-#include <oletest/XIdentity.hpp>
-#include <com/sun/star/beans/Property.hpp>
-using namespace cppu;
-using namespace osl;
-using namespace oletest;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::lang;
-using namespace com::sun::star::beans;
-using namespace com::sun::star::registry;
-using namespace com::sun::star::script;
-using namespace com::sun::star::reflection;
-
-using ::rtl::OUString;
-
-
-#define IMPL_NAME L"oletest.OleTestImpl" // oletest.OleTestImpl in applicat.rdb
-#define SERVICE_NAME L"oletest.OleTest"
-#define KEY1 L"/oletest.OleTestImpl/UNO/SERVICES"
-#define KEY2 L"oletest.OleTest"
-
-class OComponent : public WeakImplHelper7<
- XTestSequence, XTestStruct, XTestOther, XTestInterfaces,
- XSimple, XTestInParameters, XIdentity >
-{
- Reference<XInterface> m_xIntIdentity;
- sal_Int32 m_arrayConstructor;
- Reference<XMultiServiceFactory> m_rFactory;
-
- Sequence<sal_Int8> m_seqByte;
- Sequence<float> m_seqFloat;
- Sequence<double> m_seqDouble;
- Sequence<sal_Bool> m_seqBool;
- Sequence<sal_Int16> m_seqShort;
- Sequence<sal_uInt16> m_seqUShort;
- Sequence<sal_Int32> m_seqLong;
- Sequence<sal_uInt32> m_seqULong;
- Sequence<sal_Unicode> m_seqChar;
- Sequence<OUString> m_seqString;
- Sequence<Any> m_seqAny;
- Sequence<Type> m_seqType;
- Sequence<Sequence< sal_Int32> > m_seq1;
- Sequence<Sequence< Sequence< sal_Int32> > > m_seq2;
- Any m_any;
- Type m_type;
- Sequence<Reference< XInterface > > m_seqxInterface;
-
- sal_Int8 m_int8;
- sal_uInt8 m_uint8;
- sal_Int16 m_int16;
- sal_uInt16 m_uint16;
- sal_Int32 m_int32;
- sal_uInt32 m_uint32;
- sal_Int64 m_int64;
- sal_uInt64 m_uint64;
- float m_float;
- double m_double;
- OUString m_string;
- sal_Unicode m_char;
- sal_Bool m_bool;
- Reference<XInterface> m_xinterface;
-
- sal_Int8 m_attr_int8;
- sal_uInt8 m_attr_uint8;
- sal_Int16 m_attr_int16;
- sal_uInt16 m_attr_uint16;
- sal_Int32 m_attr_int32;
- sal_uInt32 m_attr_uint32;
- sal_Int64 m_attr_int64;
- sal_uInt64 m_attr_uint64;
- float m_attr_float;
- double m_attr_double;
- OUString m_attr_string;
- sal_Unicode m_attr_char;
- sal_Bool m_attr_bool;
- Any m_attr_any;
- Type m_attr_type;
- Reference<XInterface> m_attr_xinterface;
- Reference<XInvocation> m_attr_xinvocation;
-
-public:
- OComponent( const Reference<XMultiServiceFactory> & rFactory ) :
- m_rFactory( rFactory ), m_arrayConstructor(0) {}
- ~OComponent();
-public: // XTestSequence
- virtual Sequence<sal_Int8> SAL_CALL methodByte(const Sequence< sal_Int8 >& aSeq) throw( RuntimeException );
- virtual Sequence<float> SAL_CALL methodFloat(const Sequence< float >& aSeq) throw( RuntimeException );
- virtual Sequence< double > SAL_CALL methodDouble(const Sequence< double >& aSeq) throw( RuntimeException);
- virtual Sequence< sal_Bool > SAL_CALL methodBool(const Sequence< sal_Bool >& aSeq) throw( RuntimeException );
- virtual Sequence< sal_Int16 > SAL_CALL methodShort(const Sequence< sal_Int16 >& aSeq) throw( RuntimeException );
- virtual Sequence< sal_uInt16 > SAL_CALL methodUShort(const Sequence< sal_uInt16 >& aSeq) throw( RuntimeException );
- virtual Sequence< sal_Int32 > SAL_CALL methodLong(const Sequence< sal_Int32 >& aSeq) throw( RuntimeException) ;
- virtual Sequence< sal_uInt32 > SAL_CALL methodULong(const Sequence< sal_uInt32 >& aSeq) throw( RuntimeException );
- virtual Sequence< OUString > SAL_CALL methodString(const Sequence< OUString >& aSeq) throw( RuntimeException );
- virtual Sequence< sal_Unicode > SAL_CALL methodChar(const Sequence< sal_Unicode >& aSeq) throw( RuntimeException );
- virtual Sequence< Any > SAL_CALL methodAny(const Sequence< Any >& aSeq) throw( RuntimeException );
- virtual Sequence< Type > SAL_CALL methodType(const Sequence< Type >& aSeq) throw( RuntimeException );
- virtual Sequence< Reference< XInterface > > SAL_CALL methodXInterface( const Sequence< Reference< XInterface > >& aSeq ) throw(RuntimeException) ;
- virtual Sequence< Sequence< sal_Int32 > > SAL_CALL methodSequence(const Sequence< Sequence< sal_Int32 > >& aSeq) throw( RuntimeException );
- virtual Sequence< Sequence< Sequence< sal_Int32 > > > SAL_CALL methodSequence2(const Sequence< Sequence< Sequence< sal_Int32 > > >& aSeq) throw( RuntimeException );
- virtual Sequence< Reference<XEventListener> > SAL_CALL methodXEventListeners( const Sequence<Reference<XEventListener> >& aSeq) throw( RuntimeException);
- virtual Sequence< Sequence<Reference<XEventListener > > > SAL_CALL methodXEventListenersMul( const Sequence<Sequence<Reference<XEventListener > > >& aSeq ) throw (RuntimeException);
-
- virtual Sequence< sal_Int8 > SAL_CALL getAttrByte(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrByte(const Sequence< sal_Int8 >& AttrByte_) throw( RuntimeException );
- virtual Sequence< float > SAL_CALL getAttrFloat(void) throw( RuntimeException) ;
- virtual void SAL_CALL setAttrFloat(const Sequence< float >& AttrFloat_) throw( RuntimeException );
- virtual Sequence< double > SAL_CALL getAttrDouble(void) throw( RuntimeException) ;
- virtual void SAL_CALL setAttrDouble(const Sequence< double >& AttrDouble_) throw( RuntimeException );
- virtual Sequence< sal_Bool > SAL_CALL getAttrBool(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrBool(const Sequence< sal_Bool >& AttrBool_) throw( RuntimeException );
- virtual Sequence< sal_Int16 > SAL_CALL getAttrShort(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrShort(const Sequence< sal_Int16 >& AttrShort_) throw( RuntimeException );
- virtual Sequence< sal_uInt16 > SAL_CALL getAttrUShort(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrUShort(const Sequence< sal_uInt16 >& AttrUShort_) throw( RuntimeException );
- virtual Sequence< sal_Int32 > SAL_CALL getAttrLong(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrLong(const Sequence< sal_Int32 >& AttrLong_) throw( RuntimeException );
- virtual Sequence< sal_uInt32 > SAL_CALL getAttrULong(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrULong(const Sequence< sal_uInt32 >& AttrULong_) throw( RuntimeException );
- virtual Sequence< OUString > SAL_CALL getAttrString(void) throw(RuntimeException );
- virtual void SAL_CALL setAttrString(const Sequence< OUString >& AttrString_) throw( RuntimeException );
- virtual Sequence< sal_Unicode > SAL_CALL getAttrChar(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrChar(const Sequence< sal_Unicode >& AttrChar_) throw( RuntimeException );
- virtual Sequence< Any > SAL_CALL getAttrAny(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrAny(const Sequence< Any >& AttrAny_) throw( RuntimeException );
- virtual Sequence< Type > SAL_CALL getAttrType(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrType( const Sequence< Type >& _attrtype ) throw (RuntimeException);
- virtual Sequence< Sequence< sal_Int32 > > SAL_CALL getAttrSequence(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrSequence(const Sequence< Sequence< sal_Int32 > >& AttrSequence_) throw( RuntimeException );
- virtual Sequence< Sequence< Sequence< sal_Int32 > > > SAL_CALL getAttrSequence2(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrSequence2(const Sequence< Sequence< Sequence< sal_Int32 > > >& AttrSequence2_) throw ( RuntimeException );
- virtual Sequence< Reference< XInterface > > SAL_CALL getAttrXInterface() throw(RuntimeException);
- virtual void SAL_CALL setAttrXInterface( const Sequence< Reference< XInterface > >& _attrxinterface ) throw(RuntimeException);
-
- virtual ::sal_Int8 SAL_CALL getAByte() throw (RuntimeException);
- virtual void SAL_CALL setAByte( ::sal_Int8 _abyte ) throw (RuntimeException);
- virtual float SAL_CALL getAFloat() throw (RuntimeException);
- virtual void SAL_CALL setAFloat( float _afloat ) throw (RuntimeException);
- virtual double SAL_CALL getADouble() throw (RuntimeException);
- virtual void SAL_CALL setADouble( double _adouble ) throw (RuntimeException);
- virtual ::sal_Bool SAL_CALL getABool() throw (RuntimeException);
- virtual void SAL_CALL setABool( ::sal_Bool _abool ) throw (RuntimeException);
- virtual ::sal_Int16 SAL_CALL getAShort() throw (RuntimeException);
- virtual void SAL_CALL setAShort( ::sal_Int16 _ashort ) throw (RuntimeException);
- virtual ::sal_uInt16 SAL_CALL getAUShort() throw (RuntimeException);
- virtual void SAL_CALL setAUShort( ::sal_uInt16 _aushort ) throw (RuntimeException);
- virtual ::sal_Int32 SAL_CALL getALong() throw (RuntimeException);
- virtual void SAL_CALL setALong( ::sal_Int32 _along ) throw (RuntimeException);
- virtual ::sal_uInt32 SAL_CALL getAULong() throw (RuntimeException);
- virtual void SAL_CALL setAULong( ::sal_uInt32 _aulong ) throw (RuntimeException);
- virtual ::rtl::OUString SAL_CALL getAString() throw (RuntimeException);
- virtual void SAL_CALL setAString( const ::rtl::OUString& _astring ) throw (RuntimeException);
- virtual ::sal_Unicode SAL_CALL getAChar() throw (RuntimeException);
- virtual void SAL_CALL setAChar( ::sal_Unicode _achar ) throw (RuntimeException);
- virtual Any SAL_CALL getAAny() throw (RuntimeException);
- virtual void SAL_CALL setAAny( const Any& _aany ) throw (RuntimeException);
- virtual Type SAL_CALL getAType() throw (RuntimeException);
- virtual void SAL_CALL setAType( const Type& _atype ) throw (RuntimeException);
- virtual Reference< XInterface > SAL_CALL getAXInterface() throw (RuntimeException);
- virtual void SAL_CALL setAXInterface( const Reference<XInterface >& _axinterface ) throw (RuntimeException);
- virtual Reference<XInvocation > SAL_CALL getAXInvocation() throw (RuntimeException);
- virtual void SAL_CALL setAXInvocation( const Reference< XInvocation >& _axinvocation ) throw (RuntimeException);
-
- virtual void SAL_CALL testout_methodByte(sal_Int8& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodFloat(float& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodDouble(double& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodBool(sal_Bool& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodShort(sal_Int16& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodUShort(sal_uInt16& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodLong(sal_Int32& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodULong(sal_uInt32& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodHyper(sal_Int64& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodUHyper(sal_uInt64& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodString(OUString& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodChar(sal_Unicode& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodAny(Any& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodType(Type& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodSequence2(Sequence< Sequence< sal_Int32 > >& rOut) throw( RuntimeException );
- virtual void SAL_CALL testout_methodMulParams1(sal_Int32& rout1, sal_Int32& rout2) throw( RuntimeException );
- virtual void SAL_CALL testout_methodMulParams2(sal_Int32& rout1, sal_Int32& rout2, OUString& rout3) throw( RuntimeException );
- virtual void SAL_CALL testout_methodMulParams3(const OUString& sin, OUString& sout) throw( RuntimeException );
- virtual void SAL_CALL testout_methodMulParams4( float in1, float& out1, sal_Int32 in2, sal_Int32& out2, sal_Int32 in3 ) throw(RuntimeException);
- virtual void SAL_CALL testout_methodXInterface( Reference< XInterface >& rOut ) throw(RuntimeException);
-
- virtual void SAL_CALL testinout_methodByte(sal_Int8& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodFloat(float& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodDouble(double& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodBool(sal_Bool& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodShort(sal_Int16& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodUShort(sal_uInt16& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodLong(sal_Int32& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodULong(sal_uInt32& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodHyper(sal_Int64& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodUHyper(sal_uInt64& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodString(OUString& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodChar(sal_Unicode& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodAny(Any& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodType(Type& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodSequence2(Sequence< Sequence< sal_Int32 > >& rOut) throw( RuntimeException );
- virtual void SAL_CALL testinout_methodXInterface( Reference< XInvocation >& rOut ) throw(RuntimeException);
- virtual void SAL_CALL testinout_methodXInterface2( Reference< XInterface > & rOut) throw( RuntimeException);
- virtual Any SAL_CALL methodAnyTest1(const Any& rIn) throw( RuntimeException ) ;
- virtual Any SAL_CALL getAttrAny2(void) throw( RuntimeException ) ;
- virtual void SAL_CALL setAttrAny2(const Any& AttrAny2_) throw( RuntimeException ) ;
-
-
- // XTestStruct
- virtual void SAL_CALL methodStruct(const Property& aProp) throw( RuntimeException );
-
- virtual Property SAL_CALL retMethodStruct(void) throw( RuntimeException );
-
- virtual Property SAL_CALL getAttrStruct(void) throw( RuntimeException );
- virtual void SAL_CALL setAttrStruct(const Property& AttrStruct_) throw( RuntimeException );
- virtual Property SAL_CALL methodStruct2( const Property& aProp ) throw (RuntimeException);
-
- // XTestOther
- virtual void SAL_CALL other_methodAnyIn(const Any& rAny) throw( RuntimeException );
- virtual void SAL_CALL other_methodAnyOut(Any& rAny) throw( RuntimeException );
- virtual Any SAL_CALL other_methodAnyRet(void) throw( RuntimeException );
- virtual void SAL_CALL in_float( float val) throw ( RuntimeException);
- virtual Any SAL_CALL other_methodAny( const Any& rAny, const OUString& typeInAny )
- throw (RuntimeException);
-
- // XTestInParameters
- virtual sal_Int8 SAL_CALL in_methodByte( sal_Int8 rIn ) throw (RuntimeException);
- virtual float SAL_CALL in_methodFloat( float rIn ) throw (RuntimeException);
- virtual double SAL_CALL in_methodDouble( double rIn ) throw (RuntimeException);
- virtual sal_Bool SAL_CALL in_methodBool( sal_Bool rIn ) throw (RuntimeException);
- virtual sal_Int16 SAL_CALL in_methodShort( sal_Int16 rIn ) throw (RuntimeException);
- virtual sal_uInt16 SAL_CALL in_methodUShort( sal_uInt16 rIn ) throw (RuntimeException);
- virtual sal_Int32 SAL_CALL in_methodLong( sal_Int32 rIn ) throw (RuntimeException);
- virtual sal_uInt32 SAL_CALL in_methodULong( sal_uInt32 rIn ) throw (RuntimeException);
- virtual sal_Int64 SAL_CALL in_methodHyper( sal_Int64 rIn ) throw (RuntimeException);
- virtual sal_uInt64 SAL_CALL in_methodUHyper( sal_uInt64 rIn ) throw (RuntimeException);
- virtual OUString SAL_CALL in_methodString( const OUString& rIn ) throw (RuntimeException);
- virtual sal_Unicode SAL_CALL in_methodChar( sal_Unicode rIn ) throw (RuntimeException);
- virtual Any SAL_CALL in_methodAny( const Any& rIn ) throw (RuntimeException);
- virtual Type SAL_CALL in_methodType( const Type& rIn ) throw (RuntimeException);
- virtual Reference<XInterface> SAL_CALL in_methodXInterface( const Reference< XInterface >& rIn ) throw (RuntimeException);
- virtual Reference<XInvocation > SAL_CALL in_methodInvocation( const Reference< XInvocation >& inv ) throw (RuntimeException);
- virtual SimpleStruct SAL_CALL in_methodStruct( const SimpleStruct& aStruct ) throw (RuntimeException);
- virtual void SAL_CALL in_methodAll( sal_Int8 b, float f, double d, sal_Bool boo, sal_Int16 sh, sal_uInt16 us, sal_Int32 l, sal_uInt32 ul, const OUString& s, sal_Unicode c, const Any& a, const Type& t, const Reference<XInvocation>& inv ) throw (RuntimeException);
-
- // XTestInterfaces --------------------------------------------------------------------------
- virtual void SAL_CALL testInterface( const Reference< XCallback >& xCallback, sal_Int32 mode ) throw(RuntimeException);
- virtual void SAL_CALL testInterface2( const Reference< XSimple >& xSimple, sal_Int32 mode ) throw(RuntimeException);
- // XSimple --------------------------------------------------------------------------
- void SAL_CALL func( const OUString &message) throw(::com::sun::star::uno::RuntimeException);
- OUString SAL_CALL getName() throw(::com::sun::star::uno::RuntimeException);
-
- // XIdentity
- virtual void SAL_CALL setObject( const Reference< XInterface >& val ) throw (RuntimeException);
- virtual sal_Bool SAL_CALL isSame( const Reference< XInterface >& val ) throw (RuntimeException);
- virtual Reference< XInterface > SAL_CALL getThis( ) throw (RuntimeException);
-};
-
-class EventListener: public WeakImplHelper1<XEventListener>
-{
-public:
- EventListener::EventListener(): bCalled( sal_False)
- {}
- virtual void SAL_CALL disposing( const ::com::sun::star::lang::EventObject& Source ) throw (RuntimeException);
-
- sal_Bool bCalled;
-};
-
-
-OComponent::~OComponent()
-{
-}
-
-
-// Funktions ==============================================================================
-
-Reference<XInterface> SAL_CALL OComponent_CreateInstance( const Reference<XMultiServiceFactory> & rSMgr ) throw(RuntimeException)
-{
-// Reference<XInterface> xService(static_cast<XWeak*>(new OComponent( rSMgr )), UNO_QUERY);
- OComponent* o= new OComponent( rSMgr );
- Reference<XInterface> xService(static_cast<XIdentity*>(o), UNO_QUERY);
- return xService;
-}
-
-Sequence<OUString> OComponent_getSupportedServiceNames(void)
-{
- Sequence<OUString> aRet(1);
- aRet.getArray()[0] = SERVICE_NAME;//ODataInputStream_getImplementationName();
-
- return aRet;
-}
-
-
-extern "C" sal_Bool SAL_CALL component_writeInfo( void * /*pServiceManager*/, void * pRegistryKey )
-{
- if(pRegistryKey)
- {
- try
- {
- Reference<XRegistryKey> xNewKey =
- reinterpret_cast<XRegistryKey*>( pRegistryKey)->createKey(KEY1);
- xNewKey->createKey( KEY2);
- return sal_True;
-
- }
- catch(InvalidRegistryException &)
- {
- OSL_FAIL( "### InvalidRegistryException!\n");
- }
- }
- return sal_False;
-}
-
-extern "C" SAL_DLLPUBLIC_EXPORT void * SAL_CALL component_getFactory(
- const sal_Char * pImplName, void * pServiceManager, void * /*pRegistryKey*/ )
-{
- static void * pRet= NULL;
- if( ! pRet)
- {
- OUString aImplName( OUString::createFromAscii( pImplName ) );
- if (pServiceManager && aImplName.equals( IMPL_NAME ))
- {
- Reference<XMultiServiceFactory> xMulFac(
- reinterpret_cast< XMultiServiceFactory*>(pServiceManager));
-
- Sequence<OUString> seqServiceNames;
- Reference<XSingleServiceFactory> xFactory = createOneInstanceFactory( xMulFac, SERVICE_NAME,
- OComponent_CreateInstance, seqServiceNames);
-
- if (xFactory.is())
- {
- xFactory->acquire();
- pRet = xFactory.get();
- }
- }
- }
- return pRet;
-}
-
-
-// XTestSequence ============================================================================
-Sequence<sal_Int8> SAL_CALL OComponent::methodByte(const Sequence< sal_Int8 >& aSeq) throw( RuntimeException )
-{
- sal_Int8 _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence<float> SAL_CALL OComponent::methodFloat(const Sequence< float>& aSeq) throw( RuntimeException )
-{
- float _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence<double> SAL_CALL OComponent::methodDouble(const Sequence< double >& aSeq) throw( RuntimeException)
-{
- double _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_Bool > SAL_CALL OComponent::methodBool(const Sequence< sal_Bool >& aSeq) throw( RuntimeException)
-{
- sal_Bool _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_Int16 > SAL_CALL OComponent::methodShort(const Sequence< sal_Int16 >& aSeq) throw( RuntimeException )
-{
- sal_Int16 _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_uInt16 > SAL_CALL OComponent::methodUShort(const Sequence< sal_uInt16 >& aSeq) throw( RuntimeException )
-{
- sal_uInt16 _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_Int32 > SAL_CALL OComponent::methodLong(const Sequence< sal_Int32 >& aSeq) throw( RuntimeException)
-{
- sal_Int32 _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++) {
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_uInt32 > SAL_CALL OComponent::methodULong(const Sequence< sal_uInt32 >& aSeq) throw( RuntimeException)
-{
- sal_uInt32 _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< OUString > SAL_CALL OComponent::methodString(const Sequence< OUString >& aSeq) throw( RuntimeException)
-{
- OUString _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++) {
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< sal_Unicode > SAL_CALL OComponent::methodChar(const Sequence< sal_Unicode >& aSeq) throw( RuntimeException)
-{
- sal_Unicode _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-Sequence< Any > SAL_CALL OComponent::methodAny(const Sequence< Any >& aSeq) throw( RuntimeException)
-{
- Any _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- TypeClass _t= _x.getValueTypeClass();
- if( _t== TypeClass_STRING)
- OUString s(* (rtl_uString**)_x.getValue());
- }
- return aSeq;
-
-}
-
-Sequence< Type > SAL_CALL OComponent::methodType(const Sequence< Type >& aSeq) throw( RuntimeException )
-{
- Type _x;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- _x= aSeq.getConstArray()[i];
- }
- return aSeq;
-}
-
-Sequence< Reference< XInterface > > SAL_CALL OComponent::methodXInterface( const Sequence< Reference< XInterface > >& aSeq ) throw(RuntimeException)
-{
- for( sal_Int32 i= 0; i < aSeq.getLength(); i++)
- {
- Reference<XInterface> xInt= aSeq[i];
- Reference<XEventListener> xList( xInt, UNO_QUERY);
- if( xList.is())
- xList->disposing( EventObject());
- }
- return aSeq;
-}
-
-Sequence< Sequence< sal_Int32 > > SAL_CALL OComponent::methodSequence(const Sequence< Sequence< sal_Int32 > >& aSeq) throw( RuntimeException)
-{
- sal_Int32 value;
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- const Sequence<sal_Int32>& rseq2= aSeq.getConstArray()[i];
- for (sal_Int16 j= 0; j < rseq2.getLength(); j++){
- value= rseq2.getConstArray()[j];
- }
- }
- return aSeq;
-}
-Sequence< Sequence< Sequence< sal_Int32 > > > SAL_CALL OComponent::methodSequence2(const Sequence< Sequence< Sequence< sal_Int32 > > >& aSeq)
- throw( RuntimeException )
-{
- sal_Int32 value;
- sal_Int32 len= aSeq.getLength();
- for( sal_Int16 i= 0; i < aSeq.getLength(); i++){
- const Sequence< Sequence<sal_Int32> >& rseq2= aSeq.getConstArray()[i];
- len= rseq2.getLength();
-
- for (sal_Int16 j= 0; j < rseq2.getLength(); j++){
- const Sequence<sal_Int32> & rseq3= rseq2.getConstArray()[j];
- len= rseq3.getLength();
-
- for (sal_Int16 k= 0; k < rseq3.getLength(); k++)
- value= rseq3.getConstArray()[k];
- }
- }
- return aSeq;
-}
-
-Sequence< Reference< XEventListener> > SAL_CALL OComponent::methodXEventListeners( const Sequence< Reference <XEventListener> >& aSeq) throw( RuntimeException)
-{
- Reference<XEventListener> listener;
- for( int i= 0; i < aSeq.getLength(); i++)
- {
- listener= aSeq[i];
-
- listener->disposing( EventObject() );
- }
-
- return aSeq;
-}
-
-Sequence< Sequence<Reference<XEventListener > > > SAL_CALL OComponent::methodXEventListenersMul( const Sequence<Sequence<Reference<XEventListener > > >& aSeq ) throw (RuntimeException)
-{
- Reference<XEventListener> listener;
- for( int i= 0; i < aSeq.getLength(); i++)
- {
- Sequence<Reference<XEventListener> > seqInner= aSeq[i];
- for( int j= 0; j < seqInner.getLength(); j++)
- {
- listener= seqInner[j];
- listener->disposing( EventObject() );
- }
- }
- return aSeq;
-}
-
-//---------------------------------------------------------------------------------------------
-
-Sequence< sal_Int8 > SAL_CALL OComponent::getAttrByte(void) throw( RuntimeException)
-{
- return m_seqByte;
-}
-void SAL_CALL OComponent::setAttrByte(const Sequence< sal_Int8 >& AttrByte_) throw( RuntimeException )
-{
- m_seqByte= AttrByte_;
-}
-Sequence< float > SAL_CALL OComponent::getAttrFloat(void) throw( RuntimeException )
-{
- return m_seqFloat;
-}
-void SAL_CALL OComponent::setAttrFloat(const Sequence< float >& AttrFloat_) throw( RuntimeException )
-{
- m_seqFloat= AttrFloat_;
-}
-
-Sequence< double > SAL_CALL OComponent::getAttrDouble(void) throw( RuntimeException )
-{
- return m_seqDouble;
-}
-void SAL_CALL OComponent::setAttrDouble(const Sequence< double >& AttrDouble_) throw( RuntimeException )
-{
- m_seqDouble= AttrDouble_;
-}
-
-Sequence< sal_Bool > SAL_CALL OComponent::getAttrBool(void) throw( RuntimeException)
-{
- return m_seqBool;
-}
-
-void SAL_CALL OComponent::setAttrBool(const Sequence< sal_Bool >& AttrBool_) throw (RuntimeException )
-{
- m_seqBool= AttrBool_;
-}
-
-Sequence< sal_Int16 > SAL_CALL OComponent::getAttrShort(void) throw( RuntimeException)
-{
- return m_seqShort;
-}
-void SAL_CALL OComponent::setAttrShort(const Sequence< sal_Int16 >& AttrShort_) throw( RuntimeException )
-{
- m_seqShort= AttrShort_;
-}
-
-Sequence< sal_uInt16 > SAL_CALL OComponent::getAttrUShort(void) throw( RuntimeException )
-{
- return m_seqUShort;
-}
-void SAL_CALL OComponent::setAttrUShort(const Sequence< sal_uInt16 >& AttrUShort_) throw( RuntimeException )
-{
- m_seqUShort= AttrUShort_;
-}
-
-Sequence< sal_Int32 > SAL_CALL OComponent::getAttrLong(void) throw( RuntimeException)
-{
- return m_seqLong;
-}
-void SAL_CALL OComponent::setAttrLong(const Sequence< sal_Int32 >& AttrLong_) throw( RuntimeException )
-{
- m_seqLong= AttrLong_;
-}
-
-Sequence< sal_uInt32 > SAL_CALL OComponent::getAttrULong(void) throw( RuntimeException )
-{
- return m_seqULong;
-}
-void SAL_CALL OComponent::setAttrULong(const Sequence< sal_uInt32 >& AttrULong_) throw( RuntimeException )
-{
- m_seqULong= AttrULong_;
-}
-
-Sequence< OUString > SAL_CALL OComponent::getAttrString(void) throw( RuntimeException )
-{
- return m_seqString;
-}
-void SAL_CALL OComponent::setAttrString(const Sequence< OUString >& AttrString_) throw( RuntimeException )
-{
- m_seqString= AttrString_;
-}
-
-Sequence< sal_Unicode > SAL_CALL OComponent::getAttrChar(void) throw( RuntimeException )
-{
- return m_seqChar;
-}
-void SAL_CALL OComponent::setAttrChar(const Sequence< sal_Unicode >& AttrChar_) throw( RuntimeException)
-{
- m_seqChar= AttrChar_;
-}
-
-Sequence< Any > SAL_CALL OComponent::getAttrAny(void) throw( RuntimeException)
-{
- return m_seqAny;
-}
-void SAL_CALL OComponent::setAttrAny(const Sequence< Any >& AttrAny_) throw( RuntimeException )
-{
- m_seqAny= AttrAny_;
-}
-
-Sequence< Type > SAL_CALL OComponent::getAttrType(void) throw( RuntimeException )
-{
- return m_seqType;
-}
-
-void SAL_CALL OComponent::setAttrType( const Sequence< Type >& AttrType_) throw( RuntimeException )
-{
- m_seqType = AttrType_;
-}
-
-
-Sequence< Sequence< sal_Int32 > > SAL_CALL OComponent::getAttrSequence(void) throw( RuntimeException)
-{
- return m_seq1;
-}
-void SAL_CALL OComponent::setAttrSequence(const Sequence< Sequence< sal_Int32 > >& AttrSequence) throw(RuntimeException )
-{
- sal_Int32 x= 0;
- for( sal_Int32 i=0; i < AttrSequence.getLength(); i++)
- {
- Sequence< sal_Int32 > seq= AttrSequence[i];
-
- for ( sal_Int32 j=0; j < seq.getLength(); j++)
- {
- x= seq[j];
- }
- }
-
- m_seq1= AttrSequence;
-}
-
-Sequence< Sequence< Sequence< sal_Int32 > > > SAL_CALL OComponent::getAttrSequence2(void) throw( RuntimeException )
-{
- return m_seq2;
-}
-void SAL_CALL OComponent::setAttrSequence2(const Sequence< Sequence< Sequence< sal_Int32 > > >& AttrSequence2_)
- throw( RuntimeException )
-{
- m_seq2= AttrSequence2_;
-}
-
-Sequence< Reference< XInterface > > SAL_CALL OComponent::getAttrXInterface() throw(RuntimeException)
-{
- return m_seqxInterface;
-}
-void SAL_CALL OComponent::setAttrXInterface( const Sequence< Reference< XInterface > >& _attrxinterface ) throw(RuntimeException)
-{
- m_seqxInterface= _attrxinterface;
-}
-
-// ----------------------------------------------------------------------------
-
-::sal_Int8 SAL_CALL OComponent::getAByte() throw (RuntimeException)
-{
- return m_attr_int8;
-}
-
-void SAL_CALL OComponent::setAByte( ::sal_Int8 _abyte ) throw (RuntimeException)
-{
- m_attr_int8 = _abyte;
-}
-
-float SAL_CALL OComponent::getAFloat() throw (RuntimeException)
-{
- return m_attr_float;
-}
-
-void SAL_CALL OComponent::setAFloat( float _afloat ) throw (RuntimeException)
-{
- m_attr_float = _afloat;
-}
-
-double SAL_CALL OComponent::getADouble() throw (RuntimeException)
-{
- return m_attr_double;
-}
-
-void SAL_CALL OComponent::setADouble( double _adouble ) throw (RuntimeException)
-{
- m_attr_double = _adouble;
-}
-
-::sal_Bool SAL_CALL OComponent::getABool() throw (RuntimeException)
-{
- return m_attr_bool;
-}
-
-void SAL_CALL OComponent::setABool( ::sal_Bool _abool ) throw (RuntimeException)
-{
- m_attr_bool = _abool;
-}
-
-::sal_Int16 SAL_CALL OComponent::getAShort() throw (RuntimeException)
-{
- return m_attr_int16;
-}
-
-void SAL_CALL OComponent::setAShort( ::sal_Int16 _ashort ) throw (RuntimeException)
-{
- m_attr_int16 = _ashort;
-}
-
-::sal_uInt16 SAL_CALL OComponent::getAUShort() throw (RuntimeException)
-{
- return m_attr_uint16;
-}
-
-void SAL_CALL OComponent::setAUShort( ::sal_uInt16 _aushort ) throw (RuntimeException)
-{
- m_attr_uint16 = _aushort;
-}
-
-::sal_Int32 SAL_CALL OComponent::getALong() throw (RuntimeException)
-{
- return m_attr_int32;
-}
-
-void SAL_CALL OComponent::setALong( ::sal_Int32 _along ) throw (RuntimeException)
-{
- m_attr_int32 = _along;
-}
-
-::sal_uInt32 SAL_CALL OComponent::getAULong() throw (RuntimeException)
-{
- return m_attr_uint32;;
-}
-
-void SAL_CALL OComponent::setAULong( ::sal_uInt32 _aulong ) throw (RuntimeException)
-{
- m_attr_uint32 = _aulong;
-}
-
-::rtl::OUString SAL_CALL OComponent::getAString() throw (RuntimeException)
-{
- return m_attr_string;
-}
-
-void SAL_CALL OComponent::setAString( const ::rtl::OUString& _astring ) throw (RuntimeException)
-{
- m_attr_string = _astring;
-}
-
-::sal_Unicode SAL_CALL OComponent::getAChar() throw (RuntimeException)
-{
- return m_attr_char;
-}
-
-void SAL_CALL OComponent::setAChar( ::sal_Unicode _achar ) throw (RuntimeException)
-{
- m_attr_char = _achar;
-}
-
-Any SAL_CALL OComponent::getAAny() throw (RuntimeException)
-{
- return m_attr_any;
-}
-
-void SAL_CALL OComponent::setAAny( const Any& _aany ) throw (RuntimeException)
-{
- m_attr_any = _aany;
-}
-
-Type SAL_CALL OComponent::getAType() throw (RuntimeException)
-{
- return m_attr_type;
-}
-
-void SAL_CALL OComponent::setAType( const Type& _atype ) throw (RuntimeException)
-{
- m_attr_type = _atype;
-}
-
-Reference< XInterface > SAL_CALL OComponent::getAXInterface() throw (RuntimeException)
-{
- return m_attr_xinterface;
-}
-
-void SAL_CALL OComponent::setAXInterface( const Reference<XInterface >& _axinterface ) throw (RuntimeException)
-{
- m_attr_xinterface = _axinterface;
-}
-
-Reference<XInvocation > SAL_CALL OComponent::getAXInvocation() throw (RuntimeException)
-{
- return m_attr_xinvocation;
-}
-
-void SAL_CALL OComponent::setAXInvocation( const Reference< XInvocation >& _axinvocation ) throw (RuntimeException)
-{
- m_attr_xinvocation = _axinvocation;
-}
-//-----------------------------------------------------------------------------------
-void SAL_CALL OComponent::testout_methodByte(sal_Int8& rOut) throw( RuntimeException )
-{
- rOut= m_int8;
-}
-void SAL_CALL OComponent::testout_methodFloat(float& rOut) throw( RuntimeException )
-{
- rOut= m_float;
-}
-void SAL_CALL OComponent::testout_methodDouble(double& rOut) throw( RuntimeException )
-{
- rOut= m_double;
-}
-
-void SAL_CALL OComponent::testout_methodBool(sal_Bool& rOut) throw( RuntimeException )
-{
- rOut= m_bool;
-}
-void SAL_CALL OComponent::testout_methodShort(sal_Int16& rOut) throw( RuntimeException )
-{
- rOut= m_int16;
-}
-void SAL_CALL OComponent::testout_methodUShort(sal_uInt16& rOut) throw( RuntimeException )
-{
- rOut= m_uint16;
-}
-void SAL_CALL OComponent::testout_methodLong(sal_Int32& rOut) throw( RuntimeException )
-{
- rOut = m_int32;
-}
-void SAL_CALL OComponent::testout_methodULong(sal_uInt32& rOut) throw( RuntimeException )
-{
- rOut= m_uint32;
-}
-void SAL_CALL OComponent::testout_methodHyper(sal_Int64& rOut) throw( RuntimeException )
-{
- rOut = m_int64;
-}
-
-void SAL_CALL OComponent::testout_methodUHyper(sal_uInt64& rOut) throw( RuntimeException )
-{
- rOut = m_uint64;
-}
-
-void SAL_CALL OComponent::testout_methodString(OUString& rOut) throw( RuntimeException )
-{
- rOut= m_string;
-}
-void SAL_CALL OComponent::testout_methodChar(sal_Unicode& rOut) throw( RuntimeException )
-{
- rOut= m_char;
-}
-void SAL_CALL OComponent::testout_methodAny(Any& rOut) throw( RuntimeException)
-{
- rOut = m_any;
-}
-
-void SAL_CALL OComponent::testout_methodType(Type& rOut) throw( RuntimeException )
-{
- rOut = m_type;
-}
-
-void SAL_CALL OComponent::testout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException)
-{
- rOut.realloc(10);
- for( sal_Int16 i= 0; i < rOut.getLength(); i++) rOut.getArray()[i]= i;
-}
-void SAL_CALL OComponent::testout_methodSequence2(Sequence< Sequence< sal_Int32 > >& rOut) throw( RuntimeException )
-{
- rOut.realloc( 10);
- for( sal_Int16 i= 0; i < rOut.getLength(); i++){
- Sequence<sal_Int32>& rseq2= rOut.getArray()[i];
- rseq2.realloc( 10);
- for (sal_Int16 j= 0; j < rseq2.getLength(); j++){
- rseq2.getArray()[j]= j;
- }
- }
-}
-void SAL_CALL OComponent::testout_methodMulParams1(sal_Int32& rout1, sal_Int32& rout2) throw( RuntimeException )
-{
- rout1= 999;
- rout2= 1111;
-}
-void SAL_CALL OComponent::testout_methodMulParams2(sal_Int32& rout1, sal_Int32& rout2, OUString& rout3) throw( RuntimeException )
-{
- rout1= 1111;
- rout2= 1222;
- rout3= L" another string";
-}
-void SAL_CALL OComponent::testout_methodMulParams3(const OUString&, OUString& sout) throw( RuntimeException )
-{
- sout= L"Out Hallo!";
-}
-void SAL_CALL OComponent::testout_methodMulParams4( float in1, float& out1, sal_Int32 in2, sal_Int32& out2, sal_Int32 ) throw(RuntimeException)
-{
- out1= in1 + 1;
- out2= in2 + 1;
-}
-
-void SAL_CALL OComponent::testout_methodXInterface( Reference< XInterface >& rOut ) throw(RuntimeException)
-{
- rOut = m_xinterface;
-}
-
-// XTestInParameters ------------------------------------------------------------
-sal_Int8 SAL_CALL OComponent::in_methodByte( sal_Int8 rIn ) throw (RuntimeException)
-{
- m_int8 = rIn;
- return rIn;
-}
-float SAL_CALL OComponent::in_methodFloat( float rIn ) throw (RuntimeException)
-{
- m_float = rIn;
- return rIn;
-}
-double SAL_CALL OComponent::in_methodDouble( double rIn ) throw (RuntimeException)
-{
- m_double = rIn;
- return rIn;
-}
-sal_Bool SAL_CALL OComponent::in_methodBool( sal_Bool rIn ) throw (RuntimeException)
-{
- m_bool = rIn;
- return rIn;
-}
-sal_Int16 SAL_CALL OComponent::in_methodShort( sal_Int16 rIn ) throw (RuntimeException)
-{
- m_int16 = rIn;
- return rIn;
-}
-sal_uInt16 SAL_CALL OComponent::in_methodUShort( sal_uInt16 rIn ) throw (RuntimeException)
-{
- m_uint16 = rIn;
- return rIn;
-}
-sal_Int32 SAL_CALL OComponent::in_methodLong( sal_Int32 rIn ) throw (RuntimeException)
-{
- m_int32 = rIn;
- return rIn;
-}
-sal_uInt32 SAL_CALL OComponent::in_methodULong( sal_uInt32 rIn ) throw (RuntimeException)
-{
- m_uint32 = rIn;
- return rIn;
-}
-sal_Int64 SAL_CALL OComponent::in_methodHyper( sal_Int64 rIn ) throw (RuntimeException)
-{
- m_int64 = rIn;
- return rIn;
-}
-
-sal_uInt64 SAL_CALL OComponent::in_methodUHyper( sal_uInt64 rIn ) throw (RuntimeException)
-{
- m_uint64 = rIn;
- return rIn;
-}
-
-OUString SAL_CALL OComponent::in_methodString( const OUString& rIn ) throw (RuntimeException)
-{
- m_string = rIn;
- return rIn;
-}
-sal_Unicode SAL_CALL OComponent::in_methodChar( sal_Unicode rIn ) throw (RuntimeException)
-{
- m_char = rIn;
- return rIn;
-}
-Any SAL_CALL OComponent::in_methodAny( const Any& rIn ) throw (RuntimeException)
-{
- m_any = rIn;
- return rIn;
-}
-
-Type SAL_CALL OComponent::in_methodType( const Type& rIn ) throw (RuntimeException)
-{
- m_type = rIn;
- return rIn;
-}
-
-Reference<XInvocation > SAL_CALL OComponent::in_methodInvocation( const Reference< XInvocation >& inv )
- throw (RuntimeException)
-{
- //We expect the invocation results from a conversion of VBasicEventListener.VBEventListener
-//which implements XEventListener
- // extensions/test/ole/EventListenerSample
- EventObject event( Reference<XInterface>(static_cast<XTestInParameters*>(this),UNO_QUERY));
- Any anyParam;
- anyParam <<= event;
- Sequence<Any> params( &anyParam, 1);
- Sequence<sal_Int16> outIndex;
- Sequence<Any> outParams;
- try{
- inv->invoke( OUString(RTL_CONSTASCII_USTRINGPARAM("disposing")),
- params, outIndex, outParams);
- }catch(IllegalArgumentException &) {
- }
- catch(CannotConvertException &){
- }
- catch(InvocationTargetException&) {
- }
- return inv;
-}
-Reference<XInterface> SAL_CALL OComponent::in_methodXInterface( const Reference<XInterface >& rIn ) throw (RuntimeException)
-{
- m_xinterface = rIn;
- return rIn;
-}
-
-SimpleStruct SAL_CALL OComponent::in_methodStruct( const SimpleStruct& aStruct )
- throw (RuntimeException)
-{
- SimpleStruct& s= const_cast<SimpleStruct&>(aStruct);
- s.message= s.message + OUString(RTL_CONSTASCII_USTRINGPARAM(
- "This string was set in OleTest"));
- return aStruct;
-}
-void SAL_CALL OComponent::in_methodAll(
- sal_Int8, float, double, sal_Bool, sal_Int16, sal_uInt16,
- sal_Int32, sal_uInt32, const OUString&, sal_Unicode,
- const Any&, const Type&, const Reference<XInvocation>&) throw (RuntimeException)
-{
-}
-
-// INOUT -----------------------------------------------------------------------------------
-void SAL_CALL OComponent::testinout_methodByte(sal_Int8& rOut) throw( RuntimeException )
-{
- sal_Int8 tmp = rOut;
- rOut = m_int8;
- m_int8 = tmp;
-}
-void SAL_CALL OComponent::testinout_methodFloat(float& rOut) throw( RuntimeException )
-{
- float tmp = rOut;
- rOut = m_float;
- m_float = tmp;
-}
-
-void SAL_CALL OComponent::testinout_methodDouble(double& rOut) throw( RuntimeException )
-{
- double tmp = rOut;
- rOut = m_double;
- m_double = tmp;
-}
-void SAL_CALL OComponent::testinout_methodBool(sal_Bool& rOut) throw( RuntimeException )
-{
- sal_Bool tmp = rOut;
- rOut = m_bool;
- m_bool = tmp;
-}
-void SAL_CALL OComponent::testinout_methodShort(sal_Int16& rOut) throw( RuntimeException )
-{
- sal_Int16 tmp= rOut;
- rOut = m_int16;
- m_int16 = tmp;
-}
-void SAL_CALL OComponent::testinout_methodUShort(sal_uInt16& rOut) throw( RuntimeException )
-{
- sal_uInt16 tmp = rOut;
- rOut = m_uint16;
- m_uint16 = tmp;
-}
-void SAL_CALL OComponent::testinout_methodLong(sal_Int32& rOut) throw( RuntimeException )
-{
- sal_Int32 tmp = rOut;
- rOut = m_int32;
- m_int32 = tmp;
-}
-void SAL_CALL OComponent::testinout_methodULong(sal_uInt32& rOut) throw( RuntimeException )
-{
- sal_uInt32 tmp = rOut;
- rOut = m_uint32;
- m_uint32 = tmp;
-}
-void SAL_CALL OComponent::testinout_methodHyper(sal_Int64& rOut) throw( RuntimeException )
-{
- sal_Int64 tmp = rOut;
- rOut = m_int64;
- m_int64 = tmp;
-}
-
-void SAL_CALL OComponent::testinout_methodUHyper(sal_uInt64& rOut) throw( RuntimeException )
-{
- sal_uInt64 tmp = rOut;
- rOut = m_uint64;
- m_uint64 = tmp;
-}
-
-void SAL_CALL OComponent::testinout_methodString(OUString& rOut) throw( RuntimeException )
-{
- OUString tmp = rOut;
- rOut = m_string;
- m_string = tmp;
-}
-void SAL_CALL OComponent::testinout_methodChar(sal_Unicode& rOut) throw( RuntimeException)
-{
- sal_Unicode tmp = rOut;
- rOut = m_char;
- m_char = tmp;
-}
-void SAL_CALL OComponent::testinout_methodAny(Any& rOut) throw( RuntimeException)
-{
- Any tmp = rOut;
- rOut = m_any;
- m_any = tmp;
-}
-void SAL_CALL OComponent::testinout_methodType(Type& rOut) throw( RuntimeException)
-{
- Type tmp = rOut;
- rOut = m_type;
- m_type = tmp;
-}
-
-
-void SAL_CALL OComponent::testinout_methodSequence(Sequence< sal_Int32 >& rOut) throw( RuntimeException)
-{
-
- sal_Int32* arr= rOut.getArray();
- for ( sal_Int32 i=0; i < rOut.getLength(); i++)
- {
- rOut.getArray()[i] += 1;
- }
-}
-void SAL_CALL OComponent::testinout_methodSequence2(Sequence< Sequence< sal_Int32 > >& rOut) throw( RuntimeException )
-{
- for( sal_Int32 i=0; i < rOut.getLength(); i++)
- {
- Sequence< sal_Int32 >& seq= rOut.getArray()[i];
-
- for ( sal_Int32 j=0; j < seq.getLength(); j++)
- {
- seq.getArray()[j] += seq.getArray()[j];
- }
- }
-}
-
-// The parameter should implement XInvocation and a Property "value"
-void SAL_CALL OComponent::testinout_methodXInterface( Reference< XInvocation >& rOut ) throw(RuntimeException)
-{
- Any any;
- any= rOut->getValue( OUString( L"value"));
- OUString _s;
- any >>= _s;
- OUString string(L"out");
- any <<= string;
- rOut->setValue( OUString(L"value"), any);
-
- any= rOut->getValue( OUString( L"value"));
- any >>= _s;
-
-}
-
-void SAL_CALL OComponent::testinout_methodXInterface2( Reference< XInterface > & rOut) throw( RuntimeException)
-{
- Reference<XInterface> tmp = rOut;
- rOut = m_xinterface;
- m_xinterface = tmp;
-}
-Any SAL_CALL OComponent::methodAnyTest1(const Any& rIn) throw( RuntimeException )
-{
- return rIn;
-}
-Any SAL_CALL OComponent::getAttrAny2(void) throw( RuntimeException )
-{
- return m_any;
-}
-void SAL_CALL OComponent::setAttrAny2(const Any& AttrAny2_) throw( RuntimeException )
-{
- m_any= AttrAny2_;
-}
-
-
-
-// XTestStruct =======================================================================================
-
-void SAL_CALL OComponent::methodStruct(const Property& aProp) throw( RuntimeException )
-{
- char buff[1024];
- buff[0]= 0;
- sprintf( buff,"Property::Attribute : %d \n Property::Handle : %d \n Property::Name : %S",
- aProp.Attributes, aProp.Handle, (const sal_Unicode*)aProp.Name);
- MessageBox( NULL, A2T(buff), _T("OleTest: methodStruct"), MB_OK);
-}
-
-Property SAL_CALL OComponent::retMethodStruct(void) throw( RuntimeException )
-{
- Property a(L"OleTest_Property", 255, getCppuType( (Reference<XInterface>*)0), PropertyAttribute::MAYBEVOID |
- PropertyAttribute::BOUND | PropertyAttribute::CONSTRAINED |
- PropertyAttribute::TRANSIENT | PropertyAttribute::READONLY |
- PropertyAttribute::MAYBEAMBIGUOUS | PropertyAttribute::MAYBEDEFAULT );
- return a;
-}
-
-Property SAL_CALL OComponent::getAttrStruct(void) throw( RuntimeException)
-{
- Property a(L"OleTest_Property", 255, getCppuType( (Reference<XInterface>*)0), PropertyAttribute::MAYBEVOID |
- PropertyAttribute::BOUND | PropertyAttribute::CONSTRAINED |
- PropertyAttribute::TRANSIENT | PropertyAttribute::READONLY |
- PropertyAttribute::MAYBEAMBIGUOUS | PropertyAttribute::MAYBEDEFAULT );
- return a;
-
-}
-
-void SAL_CALL OComponent::setAttrStruct(const Property& AttrStruct_) throw( RuntimeException )
-{
- char buff[1024];
- buff[0]= 0;
- sprintf( buff,"Property::Attribute : %d \n Property::Handle : %d \n Property::Name : %S",
- AttrStruct_.Attributes, AttrStruct_.Handle, (const sal_Unicode*)AttrStruct_.Name);
-// MessageBox( NULL, A2T(buff), _T("OleTest: setAttrStruct"), MB_OK);
-}
-
-Property SAL_CALL OComponent::methodStruct2( const Property& aProp ) throw (RuntimeException)
-{
- return aProp;
-}
-
-// XTestOther ==================================================================================
-void SAL_CALL OComponent::other_methodAnyIn(const Any& ) throw( RuntimeException )
-{
-}
-void SAL_CALL OComponent::other_methodAnyOut(Any& rAny) throw( RuntimeException )
-{
- rAny <<= OUString(L"Ein Any");
-}
-
-Any SAL_CALL OComponent::other_methodAnyRet(void) throw(RuntimeException )
-{
- Any a;
- a <<= OUString(L"Ein Any");
- return a;
-}
-void SAL_CALL OComponent::in_float( float val) throw ( RuntimeException)
-{
- USES_CONVERSION;
- char buff[256];
- sprintf( buff, "parameter : %f", val);
- MessageBox( NULL, A2T(buff), _T("OleTest"), MB_OK);
-}
-Any SAL_CALL OComponent::other_methodAny( const Any& rAny, const OUString& typeInAny )
- throw (RuntimeException)
-{
- Type expectedType;
- typelib_TypeDescription * pDesc= NULL;
- typelib_typedescription_getByName( &pDesc, typeInAny.pData );
- if( pDesc)
- {
- expectedType = Type( pDesc->pWeakRef );
- typelib_typedescription_release( pDesc);
- }
- if (rAny.getValueType() != expectedType)
- throw RuntimeException();
-
- return rAny;
-}
-
-// XTestInterfaces -------------------------------------------------------------------------------------
-void SAL_CALL OComponent::testInterface( const Reference< XCallback >& xCallback, sal_Int32 mode ) throw(RuntimeException)
-{
- USES_CONVERSION;
- sal_Int32 i=0;
- OUString aString;
- char buff[1024];
-
- Reference<XSimple> xSimple;
- SimpleStruct aSimpleStruct;
- SimpleEnum aSimpleEnum;
- Sequence<Any> seqAny;
- Sequence< sal_Int8 > seqByte;
- Any outAny;
- sal_Bool aBool;
- sal_Unicode aChar;
- float aFloat;
- double aDouble;
- sal_Int8 aByte;
- sal_Int16 aShort;
- sal_Int32 aLong;
-
- switch( mode)
- {
- case 1:
- xCallback->func1(); break;
- case 2:
- xSimple= xCallback->returnInterface();
- xSimple->func(L"XCallback::returnInterface");
- break;
-
-
- case 3:
- xCallback->outInterface( xSimple);
- sprintf( buff, "XCallback::outInterface, value: %x", xSimple.get());
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- xSimple->func(L"XCallback::outInterface works");
- break;
- case 4:
- xCallback->outStruct( aSimpleStruct);
- sprintf( buff,"XCallback::outStruct, SimpleStruct::message: %s", OLE2A( aSimpleStruct.message));
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 5:
- xCallback->outEnum( aSimpleEnum);
- sprintf( buff,"XCallback::outEnum, SimpleEnum: %d", aSimpleEnum);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 6:
- xCallback->outSeqAny( seqAny);
- sprintf( buff,"XCallback::outSeqAny, length: %d )", seqAny.getLength());
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- for( i=0; i < seqAny.getLength(); i++)
- {
- Any any= seqAny[i];
- if( any.getValueTypeClass() == TypeClass_STRING)
- {
- any >>= aString;
- OutputDebugStringW( aString);
- }
-
- }
- break;
- case 7:
- xCallback->outAny( outAny);
- if( outAny.getValueTypeClass() == TypeClass_STRING)
- outAny >>= aString;
- sprintf( buff,"XCallback::outAny, Any : %s", W2A( aString));
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 8:
- xCallback->outBool( aBool);
- sprintf( buff,"XCallback::outBool, value: %d", aBool);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 9:
- xCallback->outChar( aChar);
- sprintf( buff,"XCallback::outChar, value: %C", aChar);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 10:
- xCallback->outString( aString);
- sprintf( buff,"XCallback::outString, value: %s", W2A( aString));
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 11:
- xCallback->outFloat( aFloat);
- sprintf( buff,"XCallback::outFloat, value: %f", aFloat);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 12:
- xCallback->outDouble( aDouble);
- sprintf( buff,"XCallback::outDouble, value: %f", aDouble);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 13:
- xCallback->outByte( aByte);
- sprintf( buff,"XCallback::outByte, value: %d", aByte);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 14:
- xCallback->outShort( aShort);
- sprintf( buff,"XCallback::outShort, value: %d", aShort);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 15:
- xCallback->outLong( aLong);
- sprintf( buff,"XCallback::outLong, value: %d", aLong);
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- break;
- case 18:
- case 19:
- case 30:
- {
-
- long outLong= 0;
- xCallback->outValuesMixed( 1111, outLong, OUString( L"in string") );
-
- sprintf( buff, "oletest.testInterface: outValue: %d", outLong);
- MessageBox( NULL, A2T(buff), _T("OleTest"), MB_OK);
- break;
- }
-
- case 31:
- {
- Reference< XSimple > xSimple;
- SimpleStruct aSimpleStruct;
- SimpleEnum aSimpleEnum;
- Sequence<Any> seqAny;
- Any aAny;
- sal_Bool aBool;
- sal_Unicode aChar;
- OUString aString;
- float aFloat;
- double aDouble;
- sal_Int8 aByte;
- sal_Int16 aShort;
- sal_Int32 aLong;
- xCallback->outValuesAll( xSimple, aSimpleStruct, aSimpleEnum, seqAny, aAny, aBool,
- aChar, aString,
- aFloat, aDouble,
- aByte,
- aShort, aLong);
-
- MessageBox( NULL, _T("XCallback::outValuesAll returned"), _T("OleTest::testInterface"), MB_OK);
- break;
- }
- case 32:
- {
-
- xCallback->outSeqByte( seqByte);
- sprintf( buff,"XCallback::outSeqAny, length: %d )", seqAny.getLength());
- MessageBox( NULL, A2T(buff), _T("OleTest out parameter"), MB_OK);
- for( i=0; i < seqAny.getLength(); i++)
- {
- Any any= seqAny[i];
- if( any.getValueTypeClass() == TypeClass_STRING)
- {
- any >>= aString;
- OutputDebugStringW( aString);
- }
- }
- break;
- }
- // ############################################################################
- // IN OUT parameter
- // ############################################################################
- case 100:
- {
- Reference<XSimple> xSimple= static_cast<XSimple*>(this);
- xCallback->inoutInterface( xSimple);
- xSimple->func(L"XSimple called from OleTest");
- break;
- }
- case 101:
- {
- Reference<XIdlReflection> xRefl( m_rFactory->createInstance(L"com.sun.star.reflection.CoreReflection"), UNO_QUERY);
- if( xRefl.is())
- {
- Reference<XIdlClass> xClass= xRefl->forName(L"oletest.SimpleStruct");
- Any any;
- if( xClass.is())
- xClass->createObject( any);
-
- if( any.getValueTypeClass() == TypeClass_STRUCT)
- {
- SimpleStruct* pStruct= ( SimpleStruct*) any.getValue();
- pStruct->message= OUString(RTL_CONSTASCII_USTRINGPARAM("This struct was created in OleTest"));
-
- SimpleStruct aStruct;
- any >>= aStruct;
- xCallback->inoutStruct( aStruct);
- // a Struct should now contain a different message
- MessageBox( NULL, W2T(aStruct.message), _T("OleTest in out parameter"), MB_OK);
- }
-
- }
- break;
- }
- case 102:
- {
- SimpleEnum aEnum= SimpleEnum_B;
- xCallback->inoutEnum( aEnum);
- char buff[1024];
- sprintf( buff, "Enum: %d", aEnum);
- MessageBox( NULL, A2T(buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 103:
- {
- Any arAny[3];
- arAny[0] <<= OUString( L"string 0");
- arAny[1] <<= OUString( L"string 1");
- arAny[2] <<= OUString( L"string 2");
-
- Sequence< Any >seqAny( arAny, 3);
- xCallback->inoutSeqAny( seqAny);
- char buff[1023];
- sprintf( buff, "Sequence length: %d", seqAny.getLength());
- MessageBox( NULL,A2T(buff) , _T("OleTest in out parameter"), MB_OK);
-
- for( int i=0; i < seqAny.getLength(); i++)
- {
- Any any;
- any <<= seqAny[i];
- if(any.getValueTypeClass() == TypeClass_STRING)
- {
- OUString str;
- any >>= str;
-
- }
- }
-
- break;
- }
- case 104:
- {
- Any any;
- OUString s(L" OleTest");
- any <<= s;
- xCallback->inoutAny(any);
- if( any.getValueTypeClass() == TypeClass_STRING)
- {
- OUString s= *( rtl_uString**) any.getValue();
- MessageBox( NULL, W2T( s), _T("OleTest: inout value any"), MB_OK);
- }
- break;
- }
- case 105:
- {
- sal_Bool b= sal_True;
- xCallback->inoutBool( b);
- char buff[1024];
- sprintf( buff, "out value bool: %d", b);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 106:
- {
- sal_Unicode uc= L'A';
- xCallback->inoutChar( uc);
- char buff[1024];
- sprintf( buff, "out value sal_Unicode: %C", uc);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 107:
- {
- OUString s(L"OleTest");
- xCallback->inoutString( s);
- char buff[1024];
- sprintf( buff, "out value string: %S", s.getStr());
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 108:
- {
- float f= 3.14f;
- xCallback->inoutFloat(f);
- char buff[1024];
- sprintf( buff, "out value float: %f", f);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 109:
- {
- double f= 3.145;
- xCallback->inoutDouble( f);
- char buff[1024];
- sprintf( buff, "out value double: %g", f);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 110:
- {
- sal_Int8 aByte= 0xf;
- xCallback->inoutByte( aByte);
- char buff[1024];
- sprintf( buff, "out value sal_Int8: %d", aByte);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 111:
- {
- sal_Int16 aShort= 0xff;
- xCallback->inoutShort( aShort);
- char buff[1024];
- sprintf( buff, "out value sal_Int16: %d", aShort);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 112:
- {
- sal_Int32 aLong= 0xfffe;
- xCallback->inoutLong( aLong);
- char buff[1024];
- sprintf( buff, "out value sal_Int32: %d", aLong);
- MessageBox( NULL, A2T( buff), _T("OleTest in out parameter"), MB_OK);
- break;
- }
- case 120:
- {
- Reference<XSimple> aXSimple= static_cast<XSimple*>(this);
-
- SimpleStruct aStruct;
- Reference<XIdlReflection> xRefl( m_rFactory->createInstance(L"com.sun.star.reflection.CoreReflection"), UNO_QUERY);
- if( xRefl.is())
- {
- Reference<XIdlClass> xClass= xRefl->forName(L"oletest.SimpleStruct");
- Any any;
- if( xClass.is())
- xClass->createObject( any);
-
- if( any.getValueTypeClass() == TypeClass_STRUCT)
- {
- SimpleStruct* pStruct= ( SimpleStruct*) any.getValue();
- pStruct->message= OUString(RTL_CONSTASCII_USTRINGPARAM("This struct was created in OleTest"));
- any >>= aStruct;
- }
- }
-
- SimpleEnum aEnum= SimpleEnum_B;
-
- Sequence< Any > aSeq;
- Any arAny[3];
- arAny[0] <<= OUString( L"string 0");
- arAny[1] <<= OUString( L"string 1");
- arAny[2] <<= OUString( L"string 2");
- aSeq = Sequence< Any >( arAny, 3);
-
- Any aAny;
- OUString s(L" OleTest");
- aAny <<= s;
-
- sal_Bool aBool= sal_True;
- sal_Unicode aChar= L'A';
- OUString aString( L"OleTest");
- float aFloat=3.14f;
- double aDouble= 3.145;
- sal_Int8 aByte= 0xf;
- sal_Int16 aShort= 0xff;
- sal_Int32 aLong= 0xffe;
-
- xCallback->inoutValuesAll( aXSimple, aStruct, aEnum, aSeq,
- aAny, aBool, aChar, aString, aFloat, aDouble,
- aByte, aShort, aLong );
-
- aXSimple->func(L"XSimple called from OleTest");
- MessageBox( NULL, W2T(aStruct.message), _T("OleTest"), MB_OK);
-
- for( int i=0; i < aSeq.getLength(); i++)
- {
- Any any;
- any <<= aSeq[i];
- if(any.getValueTypeClass() == TypeClass_STRING)
- {
- OUString str;
- any >>= str;
-
- }
- }
- break;
- }
-
- // ############################################################################
- // IN parameter
- // ############################################################################
-
- case 200:
-
- xCallback->inValues( L'a', 0xffffL, OUString(L" a string from OleTest"));
- break;
- case 201:
- {
- sal_Int8 arbyte[3]= { 1,2,3};
- Sequence< sal_Int8 > seq( arbyte, 3);
- xCallback->inSeqByte( seq);
- break;
- }
- case 202:
- {
- const int LISTENERS= 3;
- Reference<XEventListener> arListeners[LISTENERS];
- EventObject arEvents[LISTENERS];
-
- for( int i= 0; i < LISTENERS; i++)
- {
- Reference<XInterface> aList= static_cast<XWeak*>( new EventListener());
- arListeners[i]= Reference<XEventListener>( aList, UNO_QUERY);
- }
-
- xCallback->inSeqXEventListener(Sequence<Reference<XEventListener> > (arListeners, LISTENERS),
- Sequence<EventObject>(arEvents, LISTENERS));
- break;
- }
-
- // ############################################################################
- // Call a COM object that has not been passed as parameter to a UNO component and
- // hence no type information are available in the COM wrapper
- // ############################################################################
- case 300:
- {
- Reference<XInterface> xIntFact = m_rFactory->createInstance(L"com.sun.star.bridge.oleautomation.Factory");
-
- Reference<XMultiServiceFactory> oleFact(xIntFact, UNO_QUERY);
-
- Reference<XInterface> xIntCallback= oleFact->createInstance(L"XCallback_Impl.Callback");
- Reference<XInvocation> xInv( xIntCallback, UNO_QUERY);
- Sequence<sal_Int16> seqIndizes;
- Sequence<Any> seqOutParams;
- xInv->invoke( OUString( L"outValuesAll"), Sequence<Any>(), seqIndizes, seqOutParams);
-
- if( seqOutParams.getLength() == 12)
- {
- Reference<XSimple> xSimple= *(XSimple**)seqOutParams[0].getValue();
- xSimple->func( L"Call from OleTest on XSimple");
- SimpleStruct aStruct;
- seqOutParams[1] >>= aStruct;
- SimpleEnum aEnum= *(SimpleEnum*)seqOutParams[2].getValue();
-
- Sequence<Any> seqAny;
- seqOutParams[3] >>= seqAny;
- for( int i=0; i<seqAny.getLength(); i++)
- {
- OUString _s;
- seqAny[i] >>= _s;
- }
-
- Any _any= *(Any*)seqOutParams[4].getValue();
- sal_Bool _bool= *(sal_Bool*)seqOutParams[5].getValue();
- sal_Unicode _char= *( sal_Unicode*) seqOutParams[6].getValue();
- OUString _str= *( rtl_uString**)seqOutParams[7].getValue();
-
- float _f= *( float*)seqOutParams[8].getValue();
- double _d= *( double*) seqOutParams[9].getValue();
- sal_Int8 _byte= *( sal_Int8*) seqOutParams[10].getValue();
- sal_Int16 _short= *( sal_Int16*) seqOutParams[11].getValue();
-
- sal_Int32 _long= *( sal_Int32*) seqOutParams[12].getValue();
-
- }
- break;
- }
- case 301:
- // in / out parameter
- {
- Reference<XInterface> xIntFact = m_rFactory->createInstance(L"com.sun.star.bridge.oleautomation.Factory");
-
- Reference<XMultiServiceFactory> oleFact(xIntFact, UNO_QUERY);
-
- Reference<XInterface> xIntCallback= oleFact->createInstance(L"XCallback_Impl.Callback");
- Reference<XInvocation> xInv( xIntCallback, UNO_QUERY);
- Sequence<sal_Int16> seqIndizes;
- Sequence<Any> seqOutParams;
-
-
- Any arAny[13];
- Reference<XSimple> xSimple= static_cast<XSimple*>( this);
-
- arAny[0] <<= xSimple;
- SimpleStruct aStruct;
- Reference<XIdlReflection> xRefl( m_rFactory->createInstance(L"com.sun.star.reflection.CoreReflection"), UNO_QUERY);
- if( xRefl.is())
- {
- Reference<XIdlClass> xClass= xRefl->forName(L"oletest.SimpleStruct");
- Any any;
- if( xClass.is())
- xClass->createObject( any);
-
- if( any.getValueTypeClass() == TypeClass_STRUCT)
- {
- SimpleStruct* pStruct= ( SimpleStruct*) any.getValue();
- pStruct->message= OUString(RTL_CONSTASCII_USTRINGPARAM("This struct was created in OleTest"));
- any >>= aStruct;
- }
- }
- arAny[1] <<= aStruct;
- arAny[2] <<= SimpleEnum_C;
-
- Any arSeqAny[3];
- arSeqAny[0] <<= OUString( L"string 0");
- arSeqAny[1] <<= OUString( L"string 1");
- arSeqAny[2] <<= OUString( L"string 2");
-
- arAny[3] <<= Sequence< Any >( arAny, 3);
-
- OUString str(L" Ein Any param");
- arAny[4] <<= str;
- arAny[5] <<= sal_False;
- arAny[6] <<= L'B';
- OUString stringParam(L" a string parameter");
- arAny[7] <<= stringParam;
- float _float= 3.14f;
- arAny[8] <<= _float;
- double _double= 3.145;
- arAny[9] <<= _double;
- sal_Int8 _byte= -1;
- arAny[10] <<= _byte;
- sal_Int16 _short= -1;
- arAny[11] <<= _short;
- sal_Int32 _long= -1;
- arAny[12] <<= _long;
-//
- Sequence<Any> params( arAny, 13);
-
- xInv->invoke( OUString( L"inoutValuesAll"), params, seqIndizes, seqOutParams);
-
- if( seqOutParams.getLength() == 12)
- {
- Reference<XSimple> xSimple= *(XSimple**)seqOutParams[0].getValue();
- xSimple->func( L"Call from OleTest on XSimple");
- SimpleStruct aStruct;
- seqOutParams[1] >>= aStruct;
- SimpleEnum aEnum= *(SimpleEnum*)seqOutParams[2].getValue();
-
- Sequence<Any> seqAny;
- seqOutParams[3] >>= seqAny;
- for( int i=0; i<seqAny.getLength(); i++)
- {
- OUString _s;
- seqAny[i] >>= _s;
- }
-
- Any _any= *(Any*)seqOutParams[4].getValue();
- sal_Bool _bool= *(sal_Bool*)seqOutParams[5].getValue();
- sal_Unicode _char= *( sal_Unicode*) seqOutParams[6].getValue();
- OUString _str= *( rtl_uString**)seqOutParams[7].getValue();
-
- float _f= *( float*)seqOutParams[8].getValue();
- double _d= *( double*) seqOutParams[9].getValue();
- sal_Int8 _byte= *( sal_Int8*) seqOutParams[10].getValue();
- sal_Int16 _short= *( sal_Int16*) seqOutParams[11].getValue();
-
- sal_Int32 _long= *( sal_Int32*) seqOutParams[12].getValue();
-
- }
- break;
- }
- case 303:
- {
- Reference<XInterface> xIntFact = m_rFactory->createInstance(
- L"com.sun.star.bridge.oleautomation.Factory");
-
- Reference<XMultiServiceFactory> oleFact(xIntFact, UNO_QUERY);
-
- Reference<XInterface> xIntCallback= oleFact->createInstance(L"XCallback_Impl.Callback");
- Reference<XInvocation> xInv( xIntCallback, UNO_QUERY);
- Sequence<sal_Int16> seqIndizes;
- Sequence<Any> seqOutParams;
-
- Any arAny[3];
- sal_Unicode aChar=L'a';
- arAny[0] <<= aChar;
- sal_Int32 aLong= 0xffffffff;
- arAny[1] <<= aLong;
- OUString aString(L" a string parameter");
- arAny[2] <<= aString;
-
- xInv->invoke( OUString( L"inValues"), Sequence<Any>(arAny,3), seqIndizes, seqOutParams);
-
- break;
- }
- // ############################################################################
- // Attributes
- // ############################################################################
-
- case 400:
- Reference<XSimple> simple= xCallback->getsimple();
- simple->func(L"OleTest calls on XSimple");
- break;
-
-
-
-
- }
-
-}
-
-void SAL_CALL OComponent::setObject( const Reference< XInterface >& val ) throw (RuntimeException)
-{
- m_xIntIdentity= val;
-}
-
-sal_Bool SAL_CALL OComponent::isSame( const Reference< XInterface >& val ) throw (RuntimeException)
-{
- if( m_xIntIdentity == val)
- return sal_True;
- else
- return sal_False;
-}
-
-Reference< XInterface > SAL_CALL OComponent::getThis( ) throw (RuntimeException)
-{
- Reference<XInterface> ret(static_cast<XIdentity*>(this), UNO_QUERY);
- return ret;
-}
-
-void SAL_CALL EventListener::disposing( const ::com::sun::star::lang::EventObject& ) throw (RuntimeException)
-{
- bCalled= sal_True;
-}
-
-// XSimple --------------------------------------------------------------------------
-void SAL_CALL OComponent::func( const OUString &message)throw(::com::sun::star::uno::RuntimeException)
-{
- USES_CONVERSION;
-
- MessageBox( NULL, W2T( message.getStr()), _T("OleTest: XSimple::func"), MB_OK);
-}
-// XSimple --------------------------------------------------------------------------
-OUString SAL_CALL OComponent::getName()throw(::com::sun::star::uno::RuntimeException)
-{
- return L"XSimple";
-}
-void SAL_CALL OComponent::testInterface2( const Reference< XSimple >& xSimple, sal_Int32 mode ) throw(RuntimeException)
-{
- switch( mode)
- {
- case 0:
- {
- xSimple->func( L"OleTest is calling XSimple");
- Reference<XSimple2> xSimple2( xSimple, UNO_QUERY);
- if( xSimple2.is())
- xSimple2->func2( L"OleTest is calling XSimple2");
- Reference<XSimple3> xSimple3( xSimple, UNO_QUERY);
- if( xSimple3.is())
- xSimple3->func3( L"OleTest is calling XSimple3");
-
- break;
- }
- }
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/cpnt/exports.dxp b/extensions/test/ole/cpnt/exports.dxp
deleted file mode 100644
index 51703a046..000000000
--- a/extensions/test/ole/cpnt/exports.dxp
+++ /dev/null
@@ -1,2 +0,0 @@
-component_writeInfo
-component_getFactory
diff --git a/extensions/test/ole/cpnt/makefile.mk b/extensions/test/ole/cpnt/makefile.mk
deleted file mode 100644
index 65601edd9..000000000
--- a/extensions/test/ole/cpnt/makefile.mk
+++ /dev/null
@@ -1,84 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-PRJ=..$/..$/..
-
-PRJNAME= extensions
-TARGET= oletest
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings -----------------------------------------------------
-
-.INCLUDE : settings.mk
-
-# --- Files --------------------------------------------------------
-
-INCPRE+= -I$(ATL_INCLUDE)
-
-SLOFILES= \
- $(SLO)$/cpnt.obj
-
-SHL1TARGET= $(TARGET)
-
-SHL1STDLIBS= \
- $(SALLIB) \
- $(CPPULIB) \
- $(CPPUHELPERLIB)
-
-.IF "$(COMEX)"=="8" || "$(COMEX)"=="10"
-.IF "$(USE_DEBUG_RUNTIME)" != ""
- SHL1STDLIBS+= $(ATL_LIB)$/atlsd.lib
-.ELSE
- SHL1STDLIBS+= $(ATL_LIB)$/atls.lib
-.ENDIF
-.ENDIF
-
-
-SHL1DEPN=
-SHL1IMPLIB= i$(TARGET)
-SHL1LIBS= $(SLB)$/$(TARGET).lib
-SHL1DEF= $(MISC)$/$(SHL1TARGET).def
-
-DEF1NAME= $(SHL1TARGET)
-DEF1EXPORTFILE= exports.dxp
-
-
-ALLTAR : $(MISC)$/$(TARGET).cppumaker.done
-
-
-.INCLUDE : target.mk
-
-ALLIDLFILES:= ..$/idl$/oletest.idl
-
-$(BIN)$/oletest.rdb: $(ALLIDLFILES)
- idlc -I$(PRJ) -I$(SOLARIDLDIR) -O$(BIN) $?
- regmerge $@ /UCR $(BIN)$/{$(?:f:s/.idl/.urd/)}
- touch $@
-
-$(MISC)$/$(TARGET).cppumaker.done: $(BIN)$/oletest.rdb
- $(CPPUMAKER) -O$(INCCOM) -BUCR $< -X$(SOLARBINDIR)/types.rdb
- $(TOUCH) $@
-
diff --git a/extensions/test/ole/cpnt/readme.txt b/extensions/test/ole/cpnt/readme.txt
deleted file mode 100644
index 46d525efb..000000000
--- a/extensions/test/ole/cpnt/readme.txt
+++ /dev/null
@@ -1,21 +0,0 @@
-cpnt.cxx contains a uno component that is uses to test the olebridge within a
-JavaScript context. In particular it has functions using out, in/out and
-sequence parameter that have to be specifically treated in JScript because they
-are represented by IDispatch objects. Other clients, such as VBScript, VB and
-C++ applications can also use this component for testing.
-The service name is oletest.OleTest.
-The uno types are also build in this folder. The idl file is in ..\idl. The
-types rdb is in wntmscixx.pro\bin\oletest.rdb
-
-The service is used by:
-OleTest.htm
-JScriptNewStyle.htm
-ScriptTest.html
-
-
-Prerequisites:
-
-The oletest.dll must be registered, for example in the services.rdb, using
-regcomp. Then the uno types contained in oletest.rdb (wntmscixx/bin) must be merged
-for example in the offapi.rdb. This is done with regmerge.
-
diff --git a/extensions/test/ole/cppToUno/makefile.mk b/extensions/test/ole/cppToUno/makefile.mk
deleted file mode 100644
index 19942030b..000000000
--- a/extensions/test/ole/cppToUno/makefile.mk
+++ /dev/null
@@ -1,65 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..$/..$/..
-
-PRJNAME=extensions
-TARGET=testcppuno
-TARGETTYPE=CUI
-LIBTARGET=NO
-
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings ---
-
-.INCLUDE : settings.mk
-
-# --- Files ---
-
-INCPRE+=-I$(ATL_INCLUDE)
-
-
-
-APP1TARGET= $(TARGET)
-APP1OBJS= $(OBJ)$/testcppuno.obj
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB) \
- $(USER32LIB) \
- $(KERNEL32LIB) \
- $(OLE32LIB) \
- $(OLEAUT32LIB) \
- $(UUIDLIB) \
- $(COMDLG32LIB) \
- $(GDI32LIB)
-
-APP1DEF= $(MISC)$/$(APP1TARGET).def
-
-# --- Targets ---
-.INCLUDE : target.mk
diff --git a/extensions/test/ole/cppToUno/readme.txt b/extensions/test/ole/cppToUno/readme.txt
deleted file mode 100644
index 1a57d8524..000000000
--- a/extensions/test/ole/cppToUno/readme.txt
+++ /dev/null
@@ -1,9 +0,0 @@
-testcppuno.exe currently tests the conversion of SAFEARRAYs. There is
-no output from the program. Just step through the code.
-
-To run the test, the service oletest.OleTest ( extensions/test/ole/cpnt)
-must be in the same directory as the office dlls and it must be registered
-at the applicat.rdb. Also the type information must have been merged with
-applicat.rdb. The program requires an office to be present. Put testcppuno
-into the Office/program folder and run it there.
- \ No newline at end of file
diff --git a/extensions/test/ole/cppToUno/testcppuno.cxx b/extensions/test/ole/cppToUno/testcppuno.cxx
deleted file mode 100644
index 2e6a442da..000000000
--- a/extensions/test/ole/cppToUno/testcppuno.cxx
+++ /dev/null
@@ -1,222 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#pragma warning(disable: 4917)
-#include <windows.h>
-#include <comdef.h>
-#include <tchar.h>
-#include <atlbase.h>
-#include<atlcom.h>
-#include <stdio.h>
-#include <com/sun/star/bridge/ModelDependent.hpp>
-#include <com/sun/star/bridge/XBridgeSupplier2.hpp>
-#include <com/sun/star/lang/XMultiServiceFactory.hpp>
-#include <com/sun/star/script/XInvocation.hpp>
-#include <oletest/XCallback.hpp>
-#include <rtl/process.h>
-#include <com/sun/star/uno/Reference.h>
-#include <cppuhelper/servicefactory.hxx>
-#include <rtl/string.h>
-
-
-
-using namespace com::sun::star::lang;
-using namespace com::sun::star::uno;
-using namespace com::sun::star::script;
-using namespace com::sun::star::bridge;
-using namespace com::sun::star::bridge::ModelDependent;
-using namespace cppu;
-
-HRESULT doTest();
-bool incrementMultidimensionalIndex(
- sal_Int32 dimensions,
- const sal_Int32 * parDimensionLengths,
- sal_Int32 * parMultidimensionalIndex);
-
-int SAL_CALL _tmain( int /*argc*/, _TCHAR * /*argv[]*/ )
-{
- HRESULT hr;
- if( FAILED( hr=CoInitialize(NULL)))
- {
- _tprintf(_T("CoInitialize failed \n"));
- return -1;
- }
-
-
- if( FAILED(hr=doTest()))
- {
- _com_error err( hr);
- const TCHAR * errMsg= err.ErrorMessage();
- MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
- }
-
- CoUninitialize();
- return 0;
-}
-
-
-
-
-HRESULT doTest()
-{
- HRESULT hr= S_OK;
- long j = 0;
- SAFEARRAY* par;
- CComDispatchDriver disp;
- CComVariant result;
- CComVariant param1;
- CComPtr<IUnknown> spUnkFactory;
- if( SUCCEEDED( spUnkFactory.CoCreateInstance(L"com.sun.star.ServiceManager")))
- {
- disp= spUnkFactory;
- param1= L"oletest.OleTest";
- disp.Invoke1( L"createInstance", &param1, &result);
-
- disp= result.pdispVal;
-
- // disp contains now oletest.OleTest
-
- // one dimensional array
- par= SafeArrayCreateVector( VT_UI1, 0, 5);
- unsigned char arbyte[]= { 1,2,3,4,5};
- for(long i= 0; i < 5;i++)
- hr= SafeArrayPutElement( par, &i, &arbyte[i]);
-
- result.Clear();
- param1.vt= VT_ARRAY| VT_UI1;
- param1.byref= par;
- disp.Invoke1(L"methodByte", &param1, &result);
- SafeArrayDestroy( par);
-
-
- // two dimensional array
- SAFEARRAYBOUND bounds[2];
- // least significant dimension first, Dimension 1
- bounds[0].cElements= 3;
- bounds[0].lLbound= 0;
- // Dimension 2
- bounds[1].cElements= 2;
- bounds[1].lLbound= 0;
- par= SafeArrayCreate( VT_I4, 2, bounds );
-
- long uBound1;
- long uBound2;
- hr= SafeArrayGetUBound( par, 1, &uBound1);
- hr= SafeArrayGetUBound( par, 2, &uBound2);
-
- long index2[2];
- memset( index2, 0, 2 * sizeof( long) );
- long dimLengths[]={3,2};
-
- long data;
- do
- {
- data= index2[1] * 3 + index2[0] +1;
- hr= SafeArrayPutElement( par, index2, &data);
- }while( incrementMultidimensionalIndex( 2, dimLengths, index2) );
-
- long* pdata;
- long (*dataL)[2][3];
- hr= SafeArrayAccessData( par, (void**)&pdata);
- dataL= (long(*)[2][3])pdata;
-
- for (long i= 0; i < 2; i ++)
- {
- for(long j= 0; j < 3; j++)
- data= (*dataL)[i][j];
- }
- hr= SafeArrayUnaccessData(par);
-
- result.Clear();
- param1.vt= VT_ARRAY | VT_I4;
- param1.byref= par;
- disp.Invoke1(L"methodSequence", &param1, &result);
-
- SAFEARRAY* arRet= result.parray;
-
- for(long i= 0; i < 2 ; i++)
- {
- CComVariant varx;
- varx.Clear();
- hr= SafeArrayGetElement( arRet, &i, &varx);
- SAFEARRAY* ari= varx.parray;
-
- for( j= 0; j < 3; j++)
- {
- CComVariant varj;
- varj.Clear();
- hr= SafeArrayGetElement( ari, &j, &varj);
- }
-
-
-
- }
- SafeArrayDestroy( par);
- }
-
- return hr;
-}
-
-// left index is least significant
-bool incrementMultidimensionalIndex(
- sal_Int32 dimensions,
- const sal_Int32 * parDimensionLengths,
- sal_Int32 * parMultidimensionalIndex)
-{
- if( dimensions < 1)
- return sal_False;
-
- bool ret= sal_True;
- bool carry= sal_True; // to get into the while loop
-
- sal_Int32 currentDimension= 0; //most significant is 1
- while( carry)
- {
- parMultidimensionalIndex[ currentDimension ]++;
- // if carryover, set index to 0 and handle carry on a level above
- if( parMultidimensionalIndex[ currentDimension] > (parDimensionLengths[ currentDimension] - 1))
- parMultidimensionalIndex[ currentDimension]= 0;
- else
- carry= sal_False;
-
- currentDimension ++;
- // if dimensions drops below 1 and carry is set than then all indices are 0 again
- // this is signalled by returning sal_False
- if( currentDimension > dimensions - 1 && carry)
- {
- carry= sal_False;
- ret= sal_False;
- }
- }
- return ret;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/cpptest/cpptest.cxx b/extensions/test/ole/cpptest/cpptest.cxx
deleted file mode 100644
index 9582415df..000000000
--- a/extensions/test/ole/cpptest/cpptest.cxx
+++ /dev/null
@@ -1,116 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-// cpptest.cpp : Defines the entry point for the console application.
-//
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-#pragma warning(disable: 4917)
-#include <comdef.h>
-#include <tchar.h>
-#include<atlbase.h>
-#include<atlcom.h>
-
-HRESULT doTest();
-
-int main(int /*argc*/, char** /*argv*/)
-{
- HRESULT hr;
- if( FAILED( hr=CoInitialize(NULL)))
- {
- _tprintf(_T("CoInitialize failed \n"));
- return -1;
- }
-
- if( FAILED(hr=doTest()))
- {
- _com_error err( hr);
- const TCHAR * errMsg= err.ErrorMessage();
- MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
- }
-
- CoUninitialize();
- return 0;
-}
-
-HRESULT doTest()
-{
- HRESULT hr;
- CComPtr<IUnknown> spUnkMgr;
-
-
- if( FAILED(hr= spUnkMgr.CoCreateInstance(L"com.sun.star.ServiceManager")))
- return hr;
-
- IDispatchPtr starManager;
- // var starManager=new ActiveXObject("com.sun.star.ServiceManager");
- if (FAILED(hr= starManager.CreateInstance(_T("com.sun.star.ServiceManager"))))
- {
- fprintf(stderr, "creating ServiceManager failed\n");
- return hr;
- }
- // var starDesktop=starManager.createInstance("com.sun.star.frame.Desktop");
- _variant_t varP1(L"com.sun.star.frame.Desktop");
- _variant_t varRet;
- CComDispatchDriver dispMgr(starManager);
- if (FAILED(hr= dispMgr.Invoke1(L"createInstance", &varP1, &varRet)))
- {
- fprintf(stderr,"createInstance of Desktop failed\n");
- return hr;
- }
- CComDispatchDriver dispDesk(varRet.pdispVal);
- varP1.Clear();
- varRet.Clear();
- // var bOK=new Boolean(true);
-
- // var noArgs=new Array();
- // var oDoc=starDesktop.loadComponentFromURL("private:factory/swriter", "Test", 40, noArgs);
- IDispatchPtr oDoc;
- SAFEARRAY* ar= SafeArrayCreateVector(VT_DISPATCH, 0, 0);
- _variant_t args[4];
- args[3]= _variant_t(L"private:factory/swriter");
- args[2]= _variant_t(L"Test");
- args[1]= _variant_t((long) 40);
- args[0].vt= VT_ARRAY | VT_DISPATCH;;
- args[0].parray= ar;
- if (FAILED(hr= dispDesk.InvokeN(L"loadComponentFromURL", args, 4, &varRet)))
- {
- fprintf(stderr,"loadComponentFromURL failed\n");
- return hr;
- }
- CComDispatchDriver dispDoc(varRet.pdispVal);
- varRet.Clear();
- return S_OK;
-
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/cpptest/makefile.mk b/extensions/test/ole/cpptest/makefile.mk
deleted file mode 100644
index af97b63c7..000000000
--- a/extensions/test/ole/cpptest/makefile.mk
+++ /dev/null
@@ -1,64 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..$/..$/..
-
-PRJNAME=extensions
-TARGET=cppTest
-TARGETTYPE=CUI
-LIBTARGET=NO
-
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings ---
-
-.INCLUDE : settings.mk
-
-# --- Files ---
-
-INCPRE+=-I$(ATL_INCLUDE)
-
-
-APP1TARGET= $(TARGET)
-APP1OBJS= $(OBJ)$/cppTest.obj
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB) \
- $(USER32LIB) \
- $(KERNEL32LIB) \
- $(OLE32LIB) \
- $(OLEAUT32LIB) \
- $(UUIDLIB) \
- $(COMDLG32LIB) \
- comsupp.lib
-
-APP1DEF= $(MISC)\$(APP1TARGET).def
-
-# --- Targets ---
-.INCLUDE : target.mk
diff --git a/extensions/test/ole/cpptest/readme.txt b/extensions/test/ole/cpptest/readme.txt
deleted file mode 100644
index 4af8cfee3..000000000
--- a/extensions/test/ole/cpptest/readme.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-Creates the com.sun.star.ServiceManager with CoCreateInstance in a cpp program.
-This little program can be used as starting point for further tests.
-
-
-It needs uwinapi.dll, which is in the program folder of OOo (URE\bin in
-OOo 3.0)
diff --git a/extensions/test/ole/idl/oletest.idl b/extensions/test/ole/idl/oletest.idl
deleted file mode 100644
index c62c236de..000000000
--- a/extensions/test/ole/idl/oletest.idl
+++ /dev/null
@@ -1,308 +0,0 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-#include <com/sun/star/uno/XInterface.idl>
-#include <com/sun/star/script/XInvocation.idl>
-#include <com/sun/star/beans/XPropertySet.idl>
-#include <com/sun/star/lang/XEventListener.idl>
-
-
-module oletest
-{
-
-interface XTestSequence: com::sun::star::uno::XInterface
-{
- sequence<byte> methodByte( [in] sequence<byte> aSeq );
- sequence<float> methodFloat( [in] sequence<float> aSeq);
- sequence<double> methodDouble( [in] sequence<double> aSeq);
- sequence<boolean> methodBool( [in] sequence<boolean> aSeq);
- sequence<short> methodShort( [in] sequence<short> aSeq);
- sequence<unsigned short> methodUShort( [in] sequence<unsigned short> aSeq);
- sequence<long> methodLong( [in] sequence<long> aSeq);
- sequence<unsigned long> methodULong( [in] sequence<unsigned long> aSeq);
- sequence<string> methodString( [in] sequence<string> aSeq);
- sequence<char> methodChar( [in] sequence<char> aSeq);
- sequence<any> methodAny ( [in] sequence<any> aSeq);
- sequence<type> methodType ( [in] sequence<type> aSeq);
- sequence<com::sun::star::uno::XInterface> methodXInterface ( [in] sequence<com::sun::star::uno::XInterface> aSeq);
- sequence< sequence <long> > methodSequence( [in] sequence< sequence< long > > aSeq);
- sequence< sequence <sequence <long> > > methodSequence2( [in] sequence< sequence< sequence<long> > > aSeq);
- sequence< com::sun::star::lang::XEventListener > methodXEventListeners( [in] sequence<com::sun::star::lang::XEventListener> aSeq);
- sequence< sequence< com::sun::star::lang::XEventListener > > methodXEventListenersMul( [in] sequence< sequence< com::sun::star::lang::XEventListener> > aSeq);
-
- [attribute] sequence<byte> AttrByte;
- [attribute] sequence<float> AttrFloat;
- [attribute] sequence<double> AttrDouble;
- [attribute] sequence<boolean> AttrBool;
- [attribute] sequence<short> AttrShort;
- [attribute] sequence<unsigned short> AttrUShort;
- [attribute] sequence<long> AttrLong;
- [attribute] sequence<unsigned long> AttrULong;
- [attribute] sequence<string> AttrString;
- [attribute] sequence<char> AttrChar;
- [attribute] sequence<any> AttrAny;
- [attribute] sequence<type> AttrType;
- [attribute] sequence< sequence<long> > AttrSequence;
- [attribute] sequence< sequence< sequence <long> > > AttrSequence2;
- [attribute] sequence< com::sun::star::uno::XInterface > AttrXInterface;
-
- [attribute] byte AByte;
- [attribute] float AFloat;
- [attribute] double ADouble;
- [attribute] boolean ABool;
- [attribute] short AShort;
- [attribute] unsigned short AUShort;
- [attribute] long ALong;
- [attribute] unsigned long AULong;
- [attribute] string AString;
- [attribute] char AChar;
- [attribute] any AAny;
- [attribute] type AType;
- [attribute] com::sun::star::uno::XInterface AXInterface;
- [attribute] com::sun::star::script::XInvocation AXInvocation;
-
- void testout_methodByte( [out] byte rOut );
- void testout_methodFloat( [out] float rOut);
- void testout_methodDouble( [out] double rOut);
- void testout_methodBool( [out] boolean rOut);
- void testout_methodShort( [out] short rOut);
- void testout_methodUShort( [out] unsigned short rOut);
- void testout_methodLong( [out] long rOut);
- void testout_methodULong( [out] unsigned long rOut);
- void testout_methodHyper( [out] hyper rOut);
- void testout_methodUHyper( [out] unsigned hyper rOut);
- void testout_methodString( [out] string rOut);
- void testout_methodChar( [out] char rOut);
- void testout_methodAny ( [out] any rOut);
- void testout_methodType ( [out] type rOut);
- void testout_methodSequence( [out] sequence< long > rOut);
- void testout_methodSequence2( [out] sequence < sequence< long > > rOut);
- void testout_methodXInterface( [out] com::sun::star::uno::XInterface rOut);
-
- void testout_methodMulParams1( [out] long rout1, [out] long rout2);
- void testout_methodMulParams2( [out] long rout1, [out] long rout2, [out] string rout3);
- void testout_methodMulParams3( [in] string sin, [out] string sout);
- void testout_methodMulParams4( [in] float in1, [out] float out1, [in] long in2, [out] long out2, [in] long in3);
-
- void testinout_methodByte( [inout] byte rOut );
- void testinout_methodFloat( [inout] float rOut);
- void testinout_methodDouble( [inout] double rOut);
- void testinout_methodBool( [inout] boolean rOut);
- void testinout_methodShort( [inout] short rOut);
- void testinout_methodUShort( [inout] unsigned short rOut);
- void testinout_methodLong( [inout] long rOut);
- void testinout_methodULong( [inout] unsigned long rOut);
- void testinout_methodHyper( [inout] hyper rOut);
- void testinout_methodUHyper( [inout] unsigned hyper rOut);
- void testinout_methodString( [inout] string rOut);
- void testinout_methodChar( [inout] char rOut);
- void testinout_methodAny ( [inout] any rOut);
- void testinout_methodType ( [inout] type rOut);
- void testinout_methodSequence( [inout] sequence< long > rOut);
- void testinout_methodSequence2( [inout] sequence < sequence< long > > rOut);
- void testinout_methodXInterface( [inout] com::sun::star::script::XInvocation rOut);
- void testinout_methodXInterface2( [inout] com::sun::star::uno::XInterface rOut);
-
- any methodAnyTest1( [in] any rIn);
- [attribute] any AttrAny2;
-
-};
-interface XTestStruct: com::sun::star::uno::XInterface
-{
-// Method taking structs as arguments
- void methodStruct( [in] com::sun::star::beans::Property aProp);
-// Methods returning structs
- com::sun::star::beans::Property retMethodStruct();
-// Attributes as structs
- [attribute] com::sun::star::beans::Property AttrStruct;
-
- com::sun::star::beans::Property methodStruct2( [in] com::sun::star::beans::Property aProp);
-};
-
-
-struct SimpleStruct
-{
- string message;
-};
-
-interface XTestInParameters: com::sun::star::uno::XInterface
-{
- byte in_methodByte( [in] byte rIn );
- float in_methodFloat( [in] float rIn);
- double in_methodDouble( [in] double rIn);
- boolean in_methodBool( [in] boolean rIn);
- short in_methodShort( [in] short rIn);
- unsigned short in_methodUShort( [in] unsigned short rIn);
- long in_methodLong( [in] long rIn);
- unsigned long in_methodULong( [in] unsigned long rIn);
- hyper in_methodHyper( [in] hyper rIn);
- unsigned hyper in_methodUHyper( [in] unsigned hyper rIn);
- string in_methodString( [in] string rIn);
- char in_methodChar( [in] char rIn);
- any in_methodAny ( [in] any rIn);
- type in_methodType ( [in] type rIn);
- com::sun::star::uno::XInterface in_methodXInterface([in] com::sun::star::uno::XInterface rIn);
- com::sun::star::script::XInvocation in_methodInvocation( [in] com::sun::star::script::XInvocation inv);
- SimpleStruct in_methodStruct( [in] SimpleStruct aStruct);
- void in_methodAll( [in] byte b, [in] float f, [in] double d, [in] boolean abool, [in]short sh,
- [in] unsigned short us, [in] long l, [in] unsigned long ul,
- [in] string s, [in] char c, [in] any a, [in] type t, [in] com::sun::star::script::XInvocation inv);
-};
-
-
-enum SimpleEnum
-{
- A,
- B,
- C
-};
-
-interface XTestOther: com::sun::star::uno::XInterface
-{
- // Any test
- void other_methodAnyIn( [in] any rAny);
- void other_methodAnyOut( [out] any rAny);
- any other_methodAnyRet();
- void in_float( [in] float val);
- //typeInAny determines what type must be in rAny. If rAny contains
- //a different type then an exception is being thrown
- any other_methodAny([in] any rAny, [in] string typeInAny);
-};
-
-
-interface XSimple: com::sun::star::uno::XInterface
-{
- void func( [in] string message);
- string getName();
-};
-
-interface XSimple2: com::sun::star::uno::XInterface
-{
- void func2( [in] string message);
- string getName2();
-};
-
-interface XSimple3: com::sun::star::uno::XInterface
-{
- void func3( [in] string message);
- string getName3();
-};
-
-
-interface XCallback: com::sun::star::uno::XInterface
-{
- void func1();
- oletest::XSimple returnInterface();
- void outInterface( [out] oletest::XSimple outInterface);
- void outStruct( [out] oletest::SimpleStruct outStruct);
- void outEnum( [out] oletest::SimpleEnum outEnum);
- void outSeqAny( [out] sequence<any> outSeqAny);
- void outSeqByte( [out] sequence<byte> outVal);
- void outAny( [out] any outAny);
- void outBool( [out] boolean outBool);
- void outChar( [out] char outChar);
- void outString( [out] string outString);
- void outFloat( [out] float outFloat);
- void outDouble( [out] double outDouble);
- void outByte( [out] byte outByte);
- void outShort( [out] short outShort);
- void outLong( [out] long outLong);
- void outValuesMixed( [in] long lval, [out] long outval, [in] string sval);
- void outValuesAll( [out] oletest::XSimple outInterface,
- [out] SimpleStruct outStruct ,
- [out] SimpleEnum outEnum,
- [out] sequence<any> outSeqAny,
- [out] any outAny,
- [out] boolean outBool,
- [out] char outChar,
- [out] string outString,
- [out] float outFloat,
- [out] double outDouble,
- [out] byte outByte,
- [out] short outShort,
- [out] long outLong);
-// IN OUT parameters
- void inoutInterface( [inout] oletest::XSimple inoutVal);
- void inoutStruct( [inout] oletest::SimpleStruct inoutVal);
- void inoutEnum( [inout] oletest::SimpleEnum inoutVal);
- void inoutSeqAny( [inout] sequence<any> inoutVal);
- void inoutAny( [inout] any inoutVal);
- void inoutBool( [inout] boolean inoutVal);
- void inoutChar( [inout] char inoutVal);
- void inoutString( [inout] string inoutVal);
- void inoutFloat( [inout] float inoutVal);
- void inoutDouble( [inout] double inoutVal);
- void inoutByte( [inout] byte inoutVal);
- void inoutShort( [inout] short inoutVal);
- void inoutLong( [inout] long inoutVal);
-
- void inoutValuesAll( [inout] oletest::XSimple aXSimple,
- [inout] oletest::SimpleStruct aStruct,
- [inout] oletest::SimpleEnum aEnum,
- [inout] sequence<any> aSeq,
- [inout] any aAny,
- [inout] boolean aBool,
- [inout] char aChar,
- [inout] string aString,
- [inout] float aFloat,
- [inout] double aDouble,
- [inout] byte aByte,
- [inout] short aShort,
- [inout] long aLong);
-
- // IN parameter
-
- void inValues( [in] char aChar, [in] long aLong, [in] string aString);
- void inSeqByte( [in] sequence<byte> val);
- void inSeqXEventListener( [in] sequence<com::sun::star::lang::XEventListener> listener, [in]
- sequence<com::sun::star::lang::EventObject> events);
-
- // Attributes
- [attribute] oletest::XSimple simple;
-
-
-
-
-};
-
-interface XTestInterfaces: com::sun::star::uno::XInterface
-{
- // Any test
- void testInterface( [in] oletest::XCallback xCallback, [in] long mode);
- void testInterface2( [in] oletest::XSimple xSimple, [in] long mode);
-};
-
-interface XIdentity: com::sun::star::uno::XInterface
-{
- void setObject([in] com::sun::star::uno::XInterface val);
- boolean isSame( [in] com::sun::star::uno::XInterface val);
-
- com::sun::star::uno::XInterface getThis();
-};
-
-}; // oletest
-
diff --git a/extensions/test/ole/unloading/makefile.mk b/extensions/test/ole/unloading/makefile.mk
deleted file mode 100644
index c45163813..000000000
--- a/extensions/test/ole/unloading/makefile.mk
+++ /dev/null
@@ -1,70 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-PRJ=..$/..$/..
-
-PRJNAME= extensions
-TARGET= unloadtest
-TARGETTYPE=CUI
-COMP1TYPELIST=$(TARGET1)
-
-ENABLE_EXCEPTIONS=TRUE
-
-USE_DEFFILE= TRUE
-
-# --- Settings -----------------------------------------------------
-
-.INCLUDE : settings.mk
-
-# ------------------------------------------------------------------
-
-APP1NOSAL=TRUE
-
-APP1TARGET= $(TARGET)
-
-APP1OBJS= $(OBJ)$/unloadTest.obj
-
-APP1STDLIBS= \
- $(SALLIB) \
- $(CPPUHELPERLIB) \
- $(CPPULIB)
-
-# all: \
-# $(BINDIR) \
-# $(BINDIR)$/test.ini \
-# ALLTAR
-
-# $(BINDIR) :
-# @@-$(MKDIR) $(BINDIR)
-
-# $(BINDIR)$/test.ini : .$/unloadtest.ini
-# -$(GNUCOPY) .$/unloadtest.ini $(BINDIR)
-
-# --- Targets ------------------------------------------------------
-
-.INCLUDE : target.mk
-
-
diff --git a/extensions/test/ole/unloading/readme.txt b/extensions/test/ole/unloading/readme.txt
deleted file mode 100644
index d8b467ddf..000000000
--- a/extensions/test/ole/unloading/readme.txt
+++ /dev/null
@@ -1,6 +0,0 @@
-This project builds a unloadtest.exe.
-
-Function: Tests if the unloading mechanism works with the olebrdg.dll.
-In several tests, all services are created and destroyed and rtl_unloadUnusedModules is called.
-
-Usage: copy into the <Office>\program directory and run there.
diff --git a/extensions/test/ole/unloading/unloadTest.cxx b/extensions/test/ole/unloading/unloadTest.cxx
deleted file mode 100644
index ed2f141db..000000000
--- a/extensions/test/ole/unloading/unloadTest.cxx
+++ /dev/null
@@ -1,216 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-
-#include<osl/module.hxx>
-#include <osl/time.h>
-#include <rtl/ustring.hxx>
-#include <cppuhelper/factory.hxx>
-#include <cppuhelper/servicefactory.hxx>
-#include <cppuhelper/bootstrap.hxx>
-#include <com/sun/star/lang/XMultiComponentFactory.hpp>
-#include <com/sun/star/lang/XSingleServiceFactory.hpp>
-#include <com/sun/star/lang/XServiceInfo.hpp>
-#include <com/sun/star/lang/XComponent.hpp>
-#include <com/sun/star/uno/XComponentContext.hpp>
-#include <com/sun/star/registry/XSimpleRegistry.hpp>
-
-#include <stdio.h>
-using namespace ::rtl;
-using namespace ::osl;
-using namespace ::com::sun::star::uno;
-using namespace ::com::sun::star::lang;
-using namespace ::cppu;
-using namespace ::com::sun::star::registry;
-
-
-sal_Bool test1();
-sal_Bool test2();
-sal_Bool test3();
-sal_Bool test4();
-
-int main(int, char**)
-{
- sal_Bool bTest1= test1();
- sal_Bool bTest2= test2();
- sal_Bool bTest3= test3();
- sal_Bool bTest4= test4();
-
- if( bTest1 && bTest2 && bTest3 && bTest4)
- printf("\n#########################\n Test was successful\n#######################\n");
-
- return 0;
-}
-
-sal_Bool test1()
-{
- printf("\n Test1: com.sun.star.bridge.oleautomation.BridgeSupplier\n");
- Reference<XSimpleRegistry> xreg= createSimpleRegistry();
- xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("services.rdb")),
- sal_False, sal_False );
-
- Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
- Reference<XMultiComponentFactory> fac= context->getServiceManager();
- OUString sService1( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.oleautomation.BridgeSupplier"));
- Reference<XInterface> xint1= fac->createInstanceWithContext( sService1, context);
-
- OUString sModule(
- RTL_CONSTASCII_USTRINGPARAM("oleautobridge.uno" SAL_DLLEXTENSION));
- oslModule hMod= osl_loadModule( sModule.pData, 0);
- osl_unloadModule( hMod);
-
- rtl_unloadUnusedModules( NULL);
-
- OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
- void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- // true, instance alive
- sal_Bool bTest1= pSymbol ? sal_True : sal_False;
-
- xint1=0;
- rtl_unloadUnusedModules( NULL);
- pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- sal_Bool bTest2= pSymbol ? sal_False : sal_True;
-
- Reference<XComponent> xcomp( context, UNO_QUERY);
- xcomp->dispose();
-
- return bTest2 && bTest1;
-}
-
-sal_Bool test2()
-{
- printf("Test2: com.sun.star.bridge.OleBridgeSupplierVar1\n");
- Reference<XSimpleRegistry> xreg= createSimpleRegistry();
- xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("services.rdb")),
- sal_False, sal_False );
-
- Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
- Reference<XMultiComponentFactory> fac= context->getServiceManager();
- OUString sService2( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.OleBridgeSupplierVar1"));
- Reference<XInterface> xint= fac->createInstanceWithContext( sService2, context);
-
- OUString sModule(
- RTL_CONSTASCII_USTRINGPARAM("oleautobridge.uno" SAL_DLLEXTENSION));
- oslModule hMod= osl_loadModule( sModule.pData, 0);
- osl_unloadModule( hMod);
-
- rtl_unloadUnusedModules( NULL);
- OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
- void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- // true, instance alive
- sal_Bool bTest1= pSymbol ? sal_True : sal_False;
-
- xint=0;
- rtl_unloadUnusedModules( NULL);
- pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- sal_Bool bTest2= pSymbol ? sal_False : sal_True;
-
- Reference<XComponent> xcomp( context, UNO_QUERY);
- xcomp->dispose();
- return bTest1 && bTest2;
-}
-
-sal_Bool test3()
-{
- printf("Test3: com.sun.star.bridge.oleautomation.Factory\n");
- Reference<XSimpleRegistry> xreg= createSimpleRegistry();
- xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("services.rdb")),
- sal_False, sal_False );
-
- Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
-
- Reference<XMultiComponentFactory> fac= context->getServiceManager();
- OUString sService( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.oleautomation.Factory"));
- Reference<XInterface> xint= fac->createInstanceWithContext( sService, context);
-
-
- OUString sModule(
- RTL_CONSTASCII_USTRINGPARAM("oleautobridge.uno" SAL_DLLEXTENSION));
- oslModule hMod= osl_loadModule( sModule.pData, 0);
- osl_unloadModule( hMod);
-
- rtl_unloadUnusedModules( NULL);
- OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
- void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- // true, instance alive
- sal_Bool bTest1= pSymbol ? sal_True : sal_False;
-
- xint=0;
- rtl_unloadUnusedModules( NULL);
- pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- sal_Bool bTest2= pSymbol ? sal_False : sal_True;
-
- Reference<XComponent> xcomp( context, UNO_QUERY);
- xcomp->dispose();
-
- return bTest1 && bTest2;
-}
-
-sal_Bool test4()
-{
- void* pSymbol= NULL;
- sal_Bool bTest1= sal_False;
- sal_Bool bTest2= sal_False;
- oslModule hMod= NULL;
- OUString sModule(
- RTL_CONSTASCII_USTRINGPARAM("oleautobridge.uno" SAL_DLLEXTENSION));
- OUString sFactoryFunc( RTL_CONSTASCII_USTRINGPARAM("component_getFactory"));
- {
- printf("Test4: com.sun.star.bridge.oleautomation.ApplicationRegistration\n");
- Reference<XSimpleRegistry> xreg= createSimpleRegistry();
- xreg->open( OUString( RTL_CONSTASCII_USTRINGPARAM("services.rdb")),
- sal_False, sal_False );
-
- Reference< XComponentContext > context= bootstrap_InitialComponentContext(xreg);
- Reference<XMultiComponentFactory> fac= context->getServiceManager();
- OUString sService4( RTL_CONSTASCII_USTRINGPARAM("com.sun.star.bridge.oleautomation.ApplicationRegistration"));
- Reference<XInterface> xint= fac->createInstanceWithContext( sService4, context);
-
- hMod= osl_loadModule( sModule.pData, 0);
- osl_unloadModule( hMod);
-
- rtl_unloadUnusedModules( NULL);
- void* pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- // true, instance alive
- bTest1= pSymbol ? sal_True : sal_False;
- // ApplicationRegistration is a one-instance-service, therefore kill service manager first
- Reference<XComponent> xcomp( context, UNO_QUERY);
- xcomp->dispose();
-
- }
- rtl_unloadUnusedModules( NULL);
- pSymbol= osl_getSymbol( hMod,sFactoryFunc.pData);
- bTest2= pSymbol ? sal_False : sal_True;
-
- return bTest1 && bTest2;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/Test/StdAfx.cpp b/extensions/test/ole/unoTocomCalls/Test/StdAfx.cpp
deleted file mode 100644
index 36ed10edd..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/StdAfx.cpp
+++ /dev/null
@@ -1,37 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// stdafx.cpp : source file that includes just the standard includes
-// Test.pch will be the pre-compiled header
-// stdafx.obj will contain the pre-compiled type information
-
-#include "stdafx.h"
-
-// TODO: reference any additional headers you need in STDAFX.H
-// and not in this file
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/Test/StdAfx.h b/extensions/test/ole/unoTocomCalls/Test/StdAfx.h
deleted file mode 100644
index 65fffc04c..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/StdAfx.h
+++ /dev/null
@@ -1,58 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently, but
-// are changed infrequently
-//
-
-#if !defined(AFX_STDAFX_H__180FF568_6F5C_11D4_8330_005004526AB4__INCLUDED_)
-#define AFX_STDAFX_H__180FF568_6F5C_11D4_8330_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#define WIN32_LEAN_AND_MEAN // Exclude rarely-used stuff from Windows headers
-
-#include <stdio.h>
-#include <windows.h>
-#include <comdef.h>
-#include <tchar.h>
-#include <atlbase.h>
-extern CComModule _Module;
-#include<atlcom.h>
-#include<atlimpl.cpp>
-
-// TODO: reference additional headers your program requires here
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__180FF568_6F5C_11D4_8330_005004526AB4__INCLUDED_)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/Test/Test.cpp b/extensions/test/ole/unoTocomCalls/Test/Test.cpp
deleted file mode 100644
index fcb121be6..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/Test.cpp
+++ /dev/null
@@ -1,249 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Test.cpp : Defines the entry point for the console application.
-//
-
-#include "stdafx.h"
-#include "../XCallback_Impl/XCallback_Impl.h"
-#include "../XCallback_Impl/XCallback_Impl_i.c"
-
-CComModule _Module;
-BEGIN_OBJECT_MAP(ObjectMap)
-END_OBJECT_MAP()
-
-HRESULT doTest();
-
-int main(int argc, char* argv[])
-{
- HRESULT hr;
- if( FAILED( hr=CoInitialize(NULL)))
- {
- _tprintf(_T("CoInitialize failed \n"));
- return -1;
- }
-
-
- _Module.Init( ObjectMap, GetModuleHandle( NULL));
-
- if( FAILED(hr=doTest()))
- {
- _com_error err( hr);
- const TCHAR * errMsg= err.ErrorMessage();
- MessageBox( NULL, errMsg, "Test failed", MB_ICONERROR);
- }
-
-
- _Module.Term();
- CoUninitialize();
-
-
- return 0;
-}
-
-
-HRESULT doTest()
-{
- HRESULT hr= S_OK;
-
- CComPtr<IUnknown> spUnk;
- hr= spUnk.CoCreateInstance(L"com.sun.star.ServiceManager");
- if( FAILED( hr))
- return hr;
-
- CComDispatchDriver manager( spUnk);
- CComVariant param( L"oletest.OleTest");
- CComVariant retVal;
- hr= manager.Invoke1((LPCOLESTR)L"createInstance", &param, &retVal );
-
- CComDispatchDriver oletest( retVal.punkVal);
-
- spUnk.Release();
-
- hr= spUnk.CoCreateInstance(L"XCallback_Impl.Callback");
- if( FAILED( hr))
- return hr;
-
- CComQIPtr<IDispatch> paramDisp(spUnk);
-
-
- //######################################################################
- // out parameters
- //######################################################################
- CComVariant param1( paramDisp);
- CComVariant param2(1);
-
- // oletest calls XCallback::func1
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::returnInterface
- param2= 2;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outInterface
- param2= 3;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outStruct
- param2= 4;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outEnum
- param2= 5;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outSeqAny
- param2= 6;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outAny
- param2= 7;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outBool
- param2= 8;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outChar
- param2= 9;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outString
- param2= 10;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outFloat
- param2= 11;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outDouble
- param2= 12;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outByte
- param2= 13;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outShort
- param2= 14;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outLong
- param2= 15;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outValuesMixed
- param2= 30;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::outValuesAll
- param2= 31;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- // XCallback::outSeqByte
- // Does not work currently because Sequences are always converted to
- // SAFEARRAY( VARIANT)
- // param2= 32;
- // hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- //######################################################################
- // in / out parameters
- //######################################################################
- // XCallback::inoutInterface
- param2= 100;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutStruct
- param2= 101;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutEnum
- param2= 102;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutSeqAny
- param2= 103;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutAny
- param2= 104;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutBool
- param2= 105;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutChar
- param2= 106;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutString
- param2= 107;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutFloat
- param2= 108;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutDouble
- param2= 109;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutByte
- param2= 110;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutShort
- param2= 111;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutLong
- param2= 112;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutValuesAll
- param2=120;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // in parameters
- //######################################################################
- // XCallback::inValues
- param2= 200;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inSeqByte
- // SAFEARRAY( VARIANT)
- param2= 201;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //XCallback::inSeqXEventListener
- param2= 202;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // The UNO test component OleTest calls on XCallback_Impl.Callback directly
- // that is the COM object has not been past a parameter but rather OleTest
- // creates the COM object itself
- //######################################################################
- // XCallback::outValuesAll
- // does not work currently
- param2= 300;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutValuesAll
- param2= 301;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- // XCallback::inoutValues
- param2= 302;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
-
- // XCallback::inValues
- param2= 303;
- hr= oletest.Invoke2(L"testInterface", &param1, &param2);
- //######################################################################
- // Test a COM object which implements several interfaces.
- //######################################################################
-
- CComQIPtr<IDispatch> dispSimple;
- hr= dispSimple.CoCreateInstance(L"XCallback_Impl.Simple");
- CComVariant varSimple( dispSimple);
- param2= 0;
- hr= oletest.Invoke2(L"testInterface2", &varSimple, &param2);
-
- return hr;
-}
-// VARIANT CComVariant VT_UNKNOWN VT_DISPATCH V_UI1 CComDispatchDriver WINAPI
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/Test/Test.dsp b/extensions/test/ole/unoTocomCalls/Test/Test.dsp
deleted file mode 100644
index d9ef4e865..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/Test.dsp
+++ /dev/null
@@ -1,114 +0,0 @@
-# Microsoft Developer Studio Project File - Name="Test" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Console Application" 0x0103
-
-CFG=Test - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "Test.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "Test.mak" CFG="Test - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "Test - Win32 Release" (based on "Win32 (x86) Console Application")
-!MESSAGE "Test - Win32 Debug" (based on "Win32 (x86) Console Application")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "Test - Win32 Release"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "Release"
-# PROP BASE Intermediate_Dir "Release"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "Release"
-# PROP Intermediate_Dir "Release"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /W3 /GX /O2 /D "WIN32" /D "NDEBUG" /D "_CONSOLE" /D "_MBCS" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /machine:I386
-
-!ELSEIF "$(CFG)" == "Test - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /W3 /Gm /GX /ZI /Od /D "WIN32" /D "_DEBUG" /D "_CONSOLE" /D "_MBCS" /FR /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:console /debug /machine:I386 /pdbtype:sept
-
-!ENDIF
-
-# Begin Target
-
-# Name "Test - Win32 Release"
-# Name "Test - Win32 Debug"
-# Begin Group "Source Files"
-
-# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
-# Begin Source File
-
-SOURCE=.\StdAfx.cpp
-# ADD CPP /Yc"stdafx.h"
-# End Source File
-# Begin Source File
-
-SOURCE=.\Test.cpp
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter "h;hpp;hxx;hm;inl"
-# Begin Source File
-
-SOURCE=.\StdAfx.h
-# End Source File
-# End Group
-# Begin Group "Resource Files"
-
-# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
-# End Group
-# Begin Source File
-
-SOURCE=.\ReadMe.txt
-# End Source File
-# End Target
-# End Project
-
diff --git a/extensions/test/ole/unoTocomCalls/Test/Test.sln b/extensions/test/ole/unoTocomCalls/Test/Test.sln
deleted file mode 100644
index 428b73625..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/Test.sln
+++ /dev/null
@@ -1,19 +0,0 @@
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "Test", "Test.vcproj", "{13AE4BE8-2467-4B35-800F-154379D54C24}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Win32 = Debug|Win32
- Release|Win32 = Release|Win32
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {13AE4BE8-2467-4B35-800F-154379D54C24}.Debug|Win32.ActiveCfg = Debug|Win32
- {13AE4BE8-2467-4B35-800F-154379D54C24}.Debug|Win32.Build.0 = Debug|Win32
- {13AE4BE8-2467-4B35-800F-154379D54C24}.Release|Win32.ActiveCfg = Release|Win32
- {13AE4BE8-2467-4B35-800F-154379D54C24}.Release|Win32.Build.0 = Release|Win32
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/unoTocomCalls/Test/Test.vcproj b/extensions/test/ole/unoTocomCalls/Test/Test.vcproj
deleted file mode 100644
index f31d1ffc4..000000000
--- a/extensions/test/ole/unoTocomCalls/Test/Test.vcproj
+++ /dev/null
@@ -1,247 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
- ProjectType="Visual C++"
- Version="9,00"
- Name="Test"
- ProjectGUID="{13AE4BE8-2467-4B35-800F-154379D54C24}"
- TargetFrameworkVersion="131072"
- >
- <Platforms>
- <Platform
- Name="Win32"
- />
- </Platforms>
- <ToolFiles>
- </ToolFiles>
- <Configurations>
- <Configuration
- Name="Debug|Win32"
- OutputDirectory=".\Debug"
- IntermediateDirectory=".\Debug"
- ConfigurationType="1"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\Debug/Test.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32,_DEBUG,_CONSOLE"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Debug/Test.pch"
- AssemblerListingLocation=".\Debug/"
- ObjectFile=".\Debug/"
- ProgramDataBaseFileName=".\Debug/"
- BrowseInformation="1"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\Debug/Test.exe"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\Debug/Test.pdb"
- SubSystem="1"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release|Win32"
- OutputDirectory=".\Release"
- IntermediateDirectory=".\Release"
- ConfigurationType="1"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\Release/Test.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32,NDEBUG,_CONSOLE"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Release/Test.pch"
- AssemblerListingLocation=".\Release/"
- ObjectFile=".\Release/"
- ProgramDataBaseFileName=".\Release/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\Release/Test.exe"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ProgramDatabaseFile=".\Release/Test.pdb"
- SubSystem="1"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- </Configurations>
- <References>
- </References>
- <Files>
- <Filter
- Name="Source Files"
- Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
- >
- <File
- RelativePath=".\StdAfx.cpp"
- >
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\Test.cpp"
- >
- </File>
- </Filter>
- <Filter
- Name="Header Files"
- Filter="h;hpp;hxx;hm;inl"
- >
- <File
- RelativePath=".\StdAfx.h"
- >
- </File>
- </Filter>
- <Filter
- Name="Resource Files"
- Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
- >
- </Filter>
- <File
- RelativePath=".\ReadMe.txt"
- >
- </File>
- </Files>
- <Globals>
- </Globals>
-</VisualStudioProject>
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Basic.rgs b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Basic.rgs
deleted file mode 100644
index bc1525d7e..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Basic.rgs
+++ /dev/null
@@ -1,27 +0,0 @@
-HKCR
-{
- XCallback_Impl.Basic.1 = s 'Basic Class'
- {
- CLSID = s '{A0F04CB7-8494-11D4-8335-005004526AB4}'
- }
- XCallback_Impl.Basic = s 'Basic Class'
- {
- CLSID = s '{A0F04CB7-8494-11D4-8335-005004526AB4}'
- CurVer = s 'XCallback_Impl.Basic.1'
- }
- NoRemove CLSID
- {
- ForceRemove {A0F04CB7-8494-11D4-8335-005004526AB4} = s 'Basic Class'
- {
- ProgID = s 'XCallback_Impl.Basic.1'
- VersionIndependentProgID = s 'XCallback_Impl.Basic'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{180FF553-6F5C-11D4-8330-005004526AB4}'
- }
- }
-}
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/BasicTest.rgs b/extensions/test/ole/unoTocomCalls/XCallback_Impl/BasicTest.rgs
deleted file mode 100644
index ee718304d..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/BasicTest.rgs
+++ /dev/null
@@ -1,27 +0,0 @@
-HKCR
-{
- XCallback_Impl.BasicTest.1 = s 'BasicTest Class'
- {
- CLSID = s '{A0F04CBD-8494-11D4-8335-005004526AB4}'
- }
- XCallback_Impl.BasicTest = s 'BasicTest Class'
- {
- CLSID = s '{A0F04CBD-8494-11D4-8335-005004526AB4}'
- CurVer = s 'XCallback_Impl.BasicTest.1'
- }
- NoRemove CLSID
- {
- ForceRemove {A0F04CBD-8494-11D4-8335-005004526AB4} = s 'BasicTest Class'
- {
- ProgID = s 'XCallback_Impl.BasicTest.1'
- VersionIndependentProgID = s 'XCallback_Impl.BasicTest'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{180FF553-6F5C-11D4-8330-005004526AB4}'
- }
- }
-}
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.cpp b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.cpp
deleted file mode 100644
index ea21a9695..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.cpp
+++ /dev/null
@@ -1,514 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Callback.cpp : Implementation of CCallback
-#include "stdafx.h"
-#include "XCallback_Impl.h"
-#include "Callback.h"
-
-/////////////////////////////////////////////////////////////////////////////
-// CCallback
-
-
-STDMETHODIMP CCallback::func1()
-{
- MessageBox( NULL, _T("Callback::func1 called"),_T(""), MB_OK);
- return S_OK;
-}
-
-STDMETHODIMP CCallback::returnInterface(IDispatch **ppdisp)
-{
- if( ! ppdisp)
- return E_POINTER;
- CComPtr<IDispatch> spDisp;
- spDisp.CoCreateInstance( L"XCallback_Impl.Simple");
- *ppdisp= spDisp;
- (*ppdisp)->AddRef();
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outInterface(IDispatch **ppdisp)
-{
-// return S_OK;
- if( ! ppdisp)
- return E_POINTER;
- CComPtr<IDispatch> spDisp;
- spDisp.CoCreateInstance( L"XCallback_Impl.Simple");
- *ppdisp= spDisp;
- (*ppdisp)->AddRef();
-
-// MessageBox( NULL, _T("CCallback::outInterface"), _T(""), MB_OK);
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outValuesMixed(long val, long *pval, BSTR string)
-{
- USES_CONVERSION;
- char buff[1024];
- *pval = val+1;
- sprintf( buff, "param1: %d, param2 out: %d, param3: %S", val, *pval, string);
- MessageBox( NULL, A2T(buff), A2T("XCallback_Impl.Callback"), MB_OK);
- return S_OK;
-}
-
-
-STDMETHODIMP CCallback::outValuesAll(
- /* [out] */ IDispatch __RPC_FAR *__RPC_FAR *ppdisp,
- /* [out] */ IDispatch __RPC_FAR *__RPC_FAR *ppSimpleStruct,
- /* [out] */ long __RPC_FAR *aSimpleEnum,
- /* [out] */ SAFEARRAY __RPC_FAR * __RPC_FAR *outSeq,
- /* [out] */ VARIANT __RPC_FAR *varAny,
- /* [out] */ VARIANT_BOOL __RPC_FAR *aBool,
- /* [out] */ short __RPC_FAR *aChar,
- /* [out] */ BSTR __RPC_FAR *aString,
- /* [out] */ float __RPC_FAR *aFloat,
- /* [out] */ double __RPC_FAR *aDouble,
- /* [out] */ unsigned char __RPC_FAR *aByte,
- /* [out] */ short __RPC_FAR *aShort,
- /* [out] */ long __RPC_FAR *aLong)
-//)
-{
-// if( ! ppdisp || ! ppSimpleStruct || ! aSimpleEnum ||
-// ! outSeq || !varAny ||! aBool || ! aChar ||
-// ! aString || ! aFloat || ! aDouble || ! aByte ||
-// ! aShort || ! aLong || ! aUShort || ! aULong)
-// return E_POINTER;
-
- HRESULT hr=S_OK;
- hr= outInterface( ppdisp);
- hr= outStruct( ppSimpleStruct);
- hr= outEnum( aSimpleEnum);
- hr= outSeqAny( outSeq);
- hr= outAny( varAny);
- hr= outBool( aBool);
- hr= outChar( aChar);
- hr= outString( aString);
- hr= outFloat( aFloat);
- hr= outDouble( aDouble);
- hr= outByte( aByte);
- hr= outShort( aShort);
- hr= outLong( aLong);
- return hr;
-}
-
-STDMETHODIMP CCallback::outStruct(IDispatch **outStruct)
-{
-// return S_OK;
- if( !outStruct)
- return E_POINTER;
- HRESULT hr= E_FAIL;
-// MessageBox( NULL, _T("CCallback::outStruct"), _T(""), MB_OK);
-
- CComPtr<IDispatch> _dispMgr;
- if( SUCCEEDED(hr= _dispMgr.CoCreateInstance(L"com.sun.star.ServiceManager")))
- {
- CComDispatchDriver manager( _dispMgr);
- CComVariant param1(L"com.sun.star.reflection.CoreReflection");
- CComVariant varRet;
- hr= manager.Invoke1( L"createInstance", &param1, &varRet);
-
- CComDispatchDriver reflection( varRet.pdispVal);
- param1= L"oletest.SimpleStruct";
- varRet.Clear();
- hr= reflection.Invoke1( L"forName", &param1, &varRet);
-
- CComDispatchDriver classSimpleStruct( varRet.pdispVal);
-
- CComPtr<IDispatch> dispStruct;
- param1.vt= VT_DISPATCH | VT_BYREF;
- param1.ppdispVal= &dispStruct;
- if( SUCCEEDED( hr= classSimpleStruct.Invoke1(L"createObject", &param1)))
- {
- // Set the value
- CComDispatchDriver simpleStruct( dispStruct);
- param1=L" this is a property string";
- hr= simpleStruct.PutPropertyByName(L"message", &param1);
- *outStruct= dispStruct;
- (*outStruct)->AddRef();
- hr= S_OK;
- }
- }
- return hr;
-}
-
-STDMETHODIMP CCallback::outEnum(long *outEnum)
-{
- if( !outEnum)
- return E_POINTER;
- *outEnum= 1;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outSeqAny(LPSAFEARRAY* outSeq)
-{
-// _CrtDbgBreak();
- SAFEARRAY* pArr= SafeArrayCreateVector( VT_VARIANT, 0, 3);
- CComVariant var[3];
- var[0]=L" variant 0";
- var[1]=L" variant 1";
- var[2]=L"variant 2";
- for( long i=0; i<3; i++)
- {
- SafeArrayPutElement( pArr, &i, (void*)&var[i]);
- }
-
- *outSeq= pArr;
- return S_OK;
-}
-
-// ATLASSERT //VT_EMPTY
-
-
-STDMETHODIMP CCallback::outAny(VARIANT *outAny)
-{
- if( ! outAny)
- return E_POINTER;
- outAny->vt= VT_BSTR;
- outAny->bstrVal= SysAllocString( L"This is a string in a VARIANT");
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outBool(VARIANT_BOOL *outBool)
-{
- if( ! outBool)
- return E_POINTER;
- *outBool= VARIANT_TRUE;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outChar(short *outChar)
-{
- if( !outChar)
- return E_POINTER;
- *outChar= (short)L'A';
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outString(BSTR *outString)
-{
- if( !outString)
- return E_POINTER;
- *outString= SysAllocString(L"This is a BSTR");
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outFloat(float *outFloat)
-{
- if( !outFloat)
- return E_POINTER;
- *outFloat= 3.14f;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outDouble(double *outDouble)
-{
- if(!outDouble)
- return E_POINTER;
-
- *outDouble= 3.145;
- return S_OK;
-}
-
-
-
-STDMETHODIMP CCallback::outShort(short *outShort)
-{
- if(!outShort)
- return E_POINTER;
- *outShort= -1;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outLong(long *outLong)
-{
- if(!outLong)
- return E_POINTER;
- *outLong= 0xffffffff;
- return S_OK;
-}
-
-
-
-STDMETHODIMP CCallback::outByte(unsigned char* outByte)
-{
- if(!outByte)
- return E_POINTER;
- *outByte= 0xff;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutInterface(IDispatch **ppdisp)
-{
- if( !ppdisp)
- return E_POINTER;
- CComDispatchDriver disp( *ppdisp);
- CComVariant param1(L"");
- disp.Invoke1(L"func", &param1);
-
- (*ppdisp)->Release();
-
- CComPtr<IDispatch> outDisp;
- outDisp.CoCreateInstance( L"XCallback_Impl.Simple");
- *ppdisp= outDisp;
- (*ppdisp)->AddRef();
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutStruct(IDispatch **inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- HRESULT hr= S_OK;
- USES_CONVERSION;
- CComVariant var;
- CComDispatchDriver disp( *inoutVal);
-
- hr= disp.GetPropertyByName(L"message", &var);
- MessageBox( NULL, W2T(var.bstrVal), _T("XCallback_Impl.Callback"), MB_OK);
-
- (*inoutVal)->Release();
-
- CComDispatchDriver dispStruct;
- hr= outStruct( &dispStruct.p);
- var.Clear();
- var= L"This struct was created in XCallback_Imp.Callback";
- hr= dispStruct.PutPropertyByName(L"message", &var);
-
- *inoutVal= dispStruct;
- (*inoutVal)->AddRef();
- return hr;
-}
-
-STDMETHODIMP CCallback::inoutEnum(long *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal= *inoutVal+1;
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutSeqAny(LPSAFEARRAY *pArray)
-{
- if( !pArray)
- return E_POINTER;
- HRESULT hr= S_OK;
- long lbound=0;
- long ubound=0;
- hr= SafeArrayGetLBound( *pArray, 1, &lbound);
- hr= SafeArrayGetUBound( *pArray, 1, &ubound);
- long count= ubound - lbound + 1;
-
- // the Array is supposet to contain variants
- CComVariant var;
- for( long i=0; i<count; i++)
- {
- var.Clear();
- hr= SafeArrayGetElement( *pArray, &i, (void*)&var);
- }
-
- SafeArrayDestroy( *pArray);
-
- outSeqAny( pArray);
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutAny(VARIANT *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- USES_CONVERSION;
- if( inoutVal->vt= VT_BSTR)
- MessageBox( NULL, W2T( inoutVal->bstrVal), _T("XCallback_Impl.Callback"), MB_OK);
-
- VariantClear( inoutVal);
- inoutVal->vt= VT_BSTR;
- inoutVal->bstrVal=SysAllocString( L" [string] XCallback_Impl.Callback inoutAny");
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutBool(VARIANT_BOOL *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
-
- *inoutVal= *inoutVal == VARIANT_TRUE ? VARIANT_FALSE : VARIANT_TRUE;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutChar(short *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- USES_CONVERSION;
- char buff[256];
- sprintf( buff, "character value: %C", *inoutVal);
- MessageBox( NULL, A2T(buff), _T("XCallback_Impl.Callback"), MB_OK);
- *inoutVal= L'B';
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutString(BSTR *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- USES_CONVERSION;
- MessageBox( NULL, W2T(*inoutVal), _T("XCallback_Impl.Callback"), MB_OK);
- SysFreeString(*inoutVal);
- *inoutVal= SysAllocString(L"a string from XCallback_Impl.Callback");
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutFloat(float *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal = *inoutVal+1;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutDouble(double *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal= *inoutVal+1;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutByte(unsigned char *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal= 0xff;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutShort(short *inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal= -1;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutLong(long* inoutVal)
-{
- if( !inoutVal)
- return E_POINTER;
- *inoutVal= 0xffffffff;
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inoutValuesAll(
- /* [out][in] */ IDispatch __RPC_FAR *__RPC_FAR *aXSimple,
- /* [out][in] */ IDispatch __RPC_FAR *__RPC_FAR *aStruct,
- /* [out][in] */ long __RPC_FAR *aEnum,
- /* [out][in] */ SAFEARRAY __RPC_FAR * __RPC_FAR *aSeq,
- /* [out][in] */ VARIANT __RPC_FAR *aAny,
- /* [out][in] */ VARIANT_BOOL __RPC_FAR *aBool,
- /* [out][in] */ short __RPC_FAR *aChar,
- /* [out][in] */ BSTR __RPC_FAR *aString,
- /* [out][in] */ float __RPC_FAR *aFloat,
- /* [out][in] */ double __RPC_FAR *aDouble,
- /* [out][in] */ unsigned char __RPC_FAR *aByte,
- /* [out][in] */ short __RPC_FAR *aShort,
- /* [out][in] */ long __RPC_FAR *aLong)
-{
- inoutInterface( aXSimple);
- inoutStruct( aStruct);
- inoutEnum( aEnum);
- inoutSeqAny( aSeq);
- inoutAny( aAny);
- inoutBool( aBool);
- inoutChar( aChar);
- inoutString( aString);
- inoutFloat( aFloat);
- inoutDouble( aDouble);
- inoutByte( aByte);
- inoutShort( aShort);
- inoutLong( aLong);
-
- return S_OK;
-}
-
-
-STDMETHODIMP CCallback::inValues(short aChar, long aLong, BSTR aString)
-{
- USES_CONVERSION;
- wchar_t _char= (wchar_t) aChar;
- char buff[1024];
- sprintf( buff, "Parameters: char= %C, long= %d, string= %s", _char, aLong, W2A(aString));
- MessageBox( NULL, A2T(buff), _T("XCallback_Impl.Callback"), MB_OK);
- return S_OK;
-}
-
-STDMETHODIMP CCallback::outSeqByte(LPSAFEARRAY * outVal)
-{
- // TODO: Add your implementation code here
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inSeqByte( LPSAFEARRAY listeners)
-{
-
- return S_OK;
-}
-
-STDMETHODIMP CCallback::inSeqXEventListener( LPSAFEARRAY listeners, LPSAFEARRAY events)
-{
- HRESULT hr= S_OK;
- long ubound= 0;
- long lbound= 0;
- long count= 0;
- hr= SafeArrayGetUBound( listeners, 1, &ubound);
- hr= SafeArrayGetLBound( listeners, 1, &lbound);
- count= ubound - lbound +1;
-
- // We assume thate the count of EventObjects in events is the same
- for( long i = 0; i < count; i++)
- {
- CComVariant varListener;
- CComVariant varEvent;
- hr= SafeArrayGetElement( listeners, &i, &varListener);
- hr= SafeArrayGetElement( events, &i, &varEvent);
- if( varListener.vt == VT_DISPATCH && varEvent.vt == VT_DISPATCH)
- {
- CComDispatchDriver disp( varListener.pdispVal);
- hr= disp.Invoke1(L"disposing", &varEvent);
- }
-
- }
-
- return S_OK;
-}
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.h b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.h
deleted file mode 100644
index 02cb6cff4..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.h
+++ /dev/null
@@ -1,138 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Callback.h : Declaration of the CCallback
-
-#ifndef __CALLBACK_H_
-#define __CALLBACK_H_
-
-#include "resource.h" // main symbols
-
-/////////////////////////////////////////////////////////////////////////////
-// CCallback
-class ATL_NO_VTABLE CCallback :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CCallback, &CLSID_Callback>,
- public IDispatchImpl<ICallback, &IID_ICallback, &LIBID_XCALLBACK_IMPLLib>
-{
-public:
- CCallback()
- {
- }
-
-DECLARE_REGISTRY_RESOURCEID(IDR_CALLBACK)
-
-DECLARE_PROTECT_FINAL_CONSTRUCT()
-
-BEGIN_COM_MAP(CCallback)
- COM_INTERFACE_ENTRY(ICallback)
- COM_INTERFACE_ENTRY(IDispatch)
-END_COM_MAP()
-
-// ICallback
-public:
- STDMETHOD(inSeqByte)(/*[in]*/ LPSAFEARRAY val);
- STDMETHOD(inSeqXEventListener)(/*[in]*/ LPSAFEARRAY listener, LPSAFEARRAY event);
- STDMETHOD(outSeqByte)(/*[out]*/ LPSAFEARRAY* outVal);
- STDMETHOD(inValues)(/*[in]*/short aChar, /*[in]*/ long aLong, /*[in]*/ BSTR aString);
- STDMETHOD(inoutLong)(/*[in,out]*/ long* inoutVal);
- STDMETHOD(inoutShort)(/*[in,out]*/ short* inoutVal);
- STDMETHOD(inoutByte)(/*[in,out]*/ unsigned char* inoutVal);
- STDMETHOD(inoutDouble)(/*[in,out]*/ double* inoutVal);
- STDMETHOD(inoutFloat)(/*[in,out]*/ float* inoutVal);
- STDMETHOD(inoutString)(/*[in,out]*/ BSTR *inoutVal);
- STDMETHOD(inoutChar)(/*[in,out]*/ short* inoutVal);
- STDMETHOD(inoutBool)(/*[in,out]*/ VARIANT_BOOL * inoutVal);
- STDMETHOD(inoutAny)(/*[in,out]*/ VARIANT* inoutVal);
- STDMETHOD(inoutSeqAny)(/*[in,out]*/ LPSAFEARRAY* pArray);
- STDMETHOD(inoutEnum)(/*[in,out]*/ long * inoutVal);
- STDMETHOD(inoutStruct)(/*[in,out]*/ IDispatch** inoutVal);
- STDMETHOD(inoutInterface)(/*[in,out]*/ IDispatch** ppdisp);
- STDMETHOD(inoutValuesAll)(
- /* [out][in] */ IDispatch __RPC_FAR *__RPC_FAR *aXSimple,
- /* [out][in] */ IDispatch __RPC_FAR *__RPC_FAR *aStruct,
- /* [out][in] */ long __RPC_FAR *aEnum,
- /* [out][in] */ SAFEARRAY __RPC_FAR * __RPC_FAR *aSeq,
- /* [out][in] */ VARIANT __RPC_FAR *aAny,
- /* [out][in] */ VARIANT_BOOL __RPC_FAR *aBool,
- /* [out][in] */ short __RPC_FAR *aChar,
- /* [out][in] */ BSTR __RPC_FAR *aString,
- /* [out][in] */ float __RPC_FAR *aFloat,
- /* [out][in] */ double __RPC_FAR *aDouble,
- /* [out][in] */ unsigned char __RPC_FAR *aByte,
- /* [out][in] */ short __RPC_FAR *aShort,
- /* [out][in] */ long __RPC_FAR *aLong);
-
- STDMETHOD(outByte)( unsigned char* outByte);
- STDMETHOD(outLong)(/*[out]*/ long* outLong);
- STDMETHOD(outShort)(/*[out]*/ short *outShort);
- STDMETHOD(outDouble)(/*[out]*/ double* outDouble);
- STDMETHOD(outFloat)(/*[out]*/ float* outFloat);
- STDMETHOD(outString)(/*[out]*/ BSTR * outString);
- STDMETHOD(outChar)(short* outChar);
- STDMETHOD(outBool)(VARIANT_BOOL* outBool);
- STDMETHOD(outAny)(VARIANT* outAny);
- STDMETHOD(outSeqAny)(/*[out]*/LPSAFEARRAY* outSeq);
- STDMETHOD(outEnum)(/*[out]*/ long* outEnum);
- STDMETHOD(outStruct)(/*[out]*/ IDispatch** outStruct);
- virtual /* [helpstring][id] */ HRESULT STDMETHODCALLTYPE outValuesAll(
- /* [out] */ IDispatch __RPC_FAR *__RPC_FAR *ppdisp,
- /* [out] */ IDispatch __RPC_FAR *__RPC_FAR *ppSimpleStruct,
- /* [out] */ long __RPC_FAR *aSimpleEnum,
- /* [out] */ LPSAFEARRAY* outSeq,
- /* [out] */ VARIANT __RPC_FAR *varAny,
- /* [out] */ VARIANT_BOOL __RPC_FAR *aBool,
- /* [out] */ short __RPC_FAR *aChar,
- /* [out] */ BSTR __RPC_FAR *aString,
- /* [out] */ float __RPC_FAR *aFloat,
- /* [out] */ double __RPC_FAR *aDouble,
- /* [out] */ unsigned char __RPC_FAR *aByte,
- /* [out] */ short __RPC_FAR *aShort,
- /* [out] */ long __RPC_FAR *aLong);
-// );
-//
-// STDMETHOD(outValuesAll)(
-// /*[out]*/ IDispatch** ppdisp,
-// /*[out]*/ IUnknown** ppSimpleStruct,
-// /*[out]*/ long* aSimpleEnum,
-// /*[out]*/ VARIANT* ArrayAny,
-// /*[out]*/ VARIANT* varAny,
-// /*[out]*/ VARIANT_BOOL * aBool,
-// /*[out]*/ unsigned short* aChar,
-// /*[out]*/ BSTR* aString, /*[out]*/ float* aFloat,
-// /*[out]*/ double* aDouble,
-// /*[out]*/ signed char* aByte, /*[out]*/ short* aShort, /*[out]*/long* aLong, /*[out]*/ unsigned short* aUShort, /*[out]*/ unsigned long* aULong);
- STDMETHOD(outValuesMixed)(/*[in]*/ long val, /*[out]*/ long* pval, /*[in]*/ BSTR string);
- STDMETHOD(outInterface)(/*[out]*/ IDispatch** ppdisp);
- STDMETHOD(returnInterface)(/*[out, retval]*/ IDispatch** ppdisp);
- STDMETHOD(func1)();
-};
-
-#endif //__CALLBACK_H_
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.rgs b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.rgs
deleted file mode 100644
index b3f9e071b..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Callback.rgs
+++ /dev/null
@@ -1,27 +0,0 @@
-HKCR
-{
- XCallback_Impl.Callback.1 = s 'Callback Class'
- {
- CLSID = s '{180FF560-6F5C-11D4-8330-005004526AB4}'
- }
- XCallback_Impl.Callback = s 'Callback Class'
- {
- CLSID = s '{180FF560-6F5C-11D4-8330-005004526AB4}'
- CurVer = s 'XCallback_Impl.Callback.1'
- }
- NoRemove CLSID
- {
- ForceRemove {180FF560-6F5C-11D4-8330-005004526AB4} = s 'Callback Class'
- {
- ProgID = s 'XCallback_Impl.Callback.1'
- VersionIndependentProgID = s 'XCallback_Impl.Callback'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{180FF553-6F5C-11D4-8330-005004526AB4}'
- }
- }
-}
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.cpp b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.cpp
deleted file mode 100644
index 34a5075db..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.cpp
+++ /dev/null
@@ -1,82 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Simple.cpp : Implementation of CSimple
-#include "stdafx.h"
-#include "XCallback_Impl.h"
-#include "Simple.h"
-
-/////////////////////////////////////////////////////////////////////////////
-// CSimple
-
-
-STDMETHODIMP CSimple::func(BSTR message)
-{
- USES_CONVERSION;
- MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
- return S_OK;
-}
-
-
-STDMETHODIMP CSimple::func2(BSTR message)
-{
- USES_CONVERSION;
- MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
- return S_OK;
-}
-
-STDMETHODIMP CSimple::func3(BSTR message)
-{
- USES_CONVERSION;
- MessageBox( NULL, W2T( message), _T("XCallback_Impl.Simple"), MB_OK);
- return S_OK;
-}
-
-
-STDMETHODIMP CSimple::get__implementedInterfaces(LPSAFEARRAY *pVal)
-{
- HRESULT hr= S_OK;
- SAFEARRAY *pArr= SafeArrayCreateVector( VT_BSTR, 0, 3);
- if( pArr)
- { long index=0;
- BSTR name1= SysAllocString(L"oletest.XSimple");
- BSTR name2= SysAllocString(L"oletest.XSimple2");
- BSTR name3= SysAllocString(L"oletest.XSimple3");
-
- hr= SafeArrayPutElement( pArr, & index, name1);
- index++;
- hr= SafeArrayPutElement( pArr, &index, name2);
- index++;
- hr= SafeArrayPutElement( pArr, &index, name3);
- *pVal= pArr;
-
- }
- *pVal= pArr;
- return S_OK;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.h b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.h
deleted file mode 100644
index e76795925..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.h
+++ /dev/null
@@ -1,67 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// Simple.h : Declaration of the CSimple
-
-#ifndef __SIMPLE_H_
-#define __SIMPLE_H_
-
-#include "resource.h" // main symbols
-
-/////////////////////////////////////////////////////////////////////////////
-// CSimple
-class ATL_NO_VTABLE CSimple :
- public CComObjectRootEx<CComSingleThreadModel>,
- public CComCoClass<CSimple, &CLSID_Simple>,
- public IDispatchImpl<ISimple, &IID_ISimple, &LIBID_XCALLBACK_IMPLLib>
-{
-public:
- CSimple()
- {
- }
-
-DECLARE_REGISTRY_RESOURCEID(IDR_SIMPLE)
-
-DECLARE_PROTECT_FINAL_CONSTRUCT()
-
-BEGIN_COM_MAP(CSimple)
- COM_INTERFACE_ENTRY(ISimple)
- COM_INTERFACE_ENTRY(IDispatch)
-END_COM_MAP()
-
-// ISimple
-public:
-
- STDMETHOD(get__implementedInterfaces)(/*[out, retval]*/ LPSAFEARRAY *pVal);
- STDMETHOD(func3)(/*[in]*/ BSTR message);
- STDMETHOD(func2)(/*[in]*/ BSTR message);
- STDMETHOD(func)( BSTR message);
-};
-
-#endif //__SIMPLE_H_
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.rgs b/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.rgs
deleted file mode 100644
index 19237bf36..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/Simple.rgs
+++ /dev/null
@@ -1,27 +0,0 @@
-HKCR
-{
- XCallback_Impl.Simple.1 = s 'Simple Class'
- {
- CLSID = s '{180FF565-6F5C-11D4-8330-005004526AB4}'
- }
- XCallback_Impl.Simple = s 'Simple Class'
- {
- CLSID = s '{180FF565-6F5C-11D4-8330-005004526AB4}'
- CurVer = s 'XCallback_Impl.Simple.1'
- }
- NoRemove CLSID
- {
- ForceRemove {180FF565-6F5C-11D4-8330-005004526AB4} = s 'Simple Class'
- {
- ProgID = s 'XCallback_Impl.Simple.1'
- VersionIndependentProgID = s 'XCallback_Impl.Simple'
- ForceRemove 'Programmable'
- InprocServer32 = s '%MODULE%'
- {
- val ThreadingModel = s 'Apartment'
- }
- 'TypeLib' = s '{180FF553-6F5C-11D4-8330-005004526AB4}'
- }
- }
-}
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.cpp b/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.cpp
deleted file mode 100644
index 902524bdf..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.cpp
+++ /dev/null
@@ -1,41 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// stdafx.cpp : source file that includes just the standard includes
-// stdafx.pch will be the pre-compiled header
-// stdafx.obj will contain the pre-compiled type information
-
-#include "stdafx.h"
-
-#ifdef _ATL_STATIC_REGISTRY
-#include <statreg.h>
-#include <statreg.cpp>
-#endif
-
-#include <atlimpl.cpp>
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.h b/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.h
deleted file mode 100644
index f692fae95..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/StdAfx.h
+++ /dev/null
@@ -1,59 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// stdafx.h : include file for standard system include files,
-// or project specific include files that are used frequently,
-// but are changed infrequently
-
-#if !defined(AFX_STDAFX_H__180FF556_6F5C_11D4_8330_005004526AB4__INCLUDED_)
-#define AFX_STDAFX_H__180FF556_6F5C_11D4_8330_005004526AB4__INCLUDED_
-
-#if _MSC_VER > 1000
-#pragma once
-#endif // _MSC_VER > 1000
-
-#define STRICT
-#ifndef _WIN32_WINNT
-#define _WIN32_WINNT 0x0400
-#endif
-#define _ATL_APARTMENT_THREADED
-
-#include <stdio.h>
-#include <atlbase.h>
-//You may derive a class from CComModule and use it if you want to override
-//something, but do not change the name of _Module
-extern CComModule _Module;
-#include <atlcom.h>
-#include <stdio.h>
-#include <tchar.h>
-
-//{{AFX_INSERT_LOCATION}}
-// Microsoft Visual C++ will insert additional declarations immediately before the previous line.
-
-#endif // !defined(AFX_STDAFX_H__180FF556_6F5C_11D4_8330_005004526AB4__INCLUDED)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.cpp b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.cpp
deleted file mode 100644
index 78585a01b..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.cpp
+++ /dev/null
@@ -1,103 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// XCallback_Impl.cpp : Implementation of DLL Exports.
-
-
-// Note: Proxy/Stub Information
-// To build a separate proxy/stub DLL,
-// run nmake -f XCallback_Implps.mk in the project directory.
-
-#include "stdafx.h"
-#include "resource.h"
-#include <initguid.h>
-#include "XCallback_Impl.h"
-
-#include "XCallback_Impl_i.c"
-#include "Callback.h"
-#include "Simple.h"
-
-
-CComModule _Module;
-
-BEGIN_OBJECT_MAP(ObjectMap)
-OBJECT_ENTRY(CLSID_Callback, CCallback)
-OBJECT_ENTRY(CLSID_Simple, CSimple)
-END_OBJECT_MAP()
-
-/////////////////////////////////////////////////////////////////////////////
-// DLL Entry Point
-
-extern "C"
-BOOL WINAPI DllMain(HINSTANCE hInstance, DWORD dwReason, LPVOID /*lpReserved*/)
-{
- if (dwReason == DLL_PROCESS_ATTACH)
- {
- _Module.Init(ObjectMap, hInstance, &LIBID_XCALLBACK_IMPLLib);
- DisableThreadLibraryCalls(hInstance);
- }
- else if (dwReason == DLL_PROCESS_DETACH)
- _Module.Term();
- return TRUE; // ok
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Used to determine whether the DLL can be unloaded by OLE
-
-STDAPI DllCanUnloadNow(void)
-{
- return (_Module.GetLockCount()==0) ? S_OK : S_FALSE;
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// Returns a class factory to create an object of the requested type
-
-STDAPI DllGetClassObject(REFCLSID rclsid, REFIID riid, LPVOID* ppv)
-{
- return _Module.GetClassObject(rclsid, riid, ppv);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllRegisterServer - Adds entries to the system registry
-
-STDAPI DllRegisterServer(void)
-{
- // registers object, typelib and all interfaces in typelib
- return _Module.RegisterServer(TRUE);
-}
-
-/////////////////////////////////////////////////////////////////////////////
-// DllUnregisterServer - Removes entries from the system registry
-
-STDAPI DllUnregisterServer(void)
-{
- return _Module.UnregisterServer(TRUE);
-}
-
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.def b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.def
deleted file mode 100644
index b2d5e9627..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.def
+++ /dev/null
@@ -1,10 +0,0 @@
-; XCallback_Impl.def : Declares the module parameters.
-
-LIBRARY "XCallback_Impl.DLL"
-
-EXPORTS
- DllCanUnloadNow PRIVATE
- DllGetClassObject PRIVATE
- DllRegisterServer PRIVATE
- DllUnregisterServer PRIVATE
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.dsp b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.dsp
deleted file mode 100644
index 6897d0d81..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.dsp
+++ /dev/null
@@ -1,337 +0,0 @@
-# Microsoft Developer Studio Project File - Name="XCallback_Impl" - Package Owner=<4>
-# Microsoft Developer Studio Generated Build File, Format Version 6.00
-# ** DO NOT EDIT **
-
-# TARGTYPE "Win32 (x86) Dynamic-Link Library" 0x0102
-
-CFG=XCallback_Impl - Win32 Debug
-!MESSAGE This is not a valid makefile. To build this project using NMAKE,
-!MESSAGE use the Export Makefile command and run
-!MESSAGE
-!MESSAGE NMAKE /f "XCallback_Impl.mak".
-!MESSAGE
-!MESSAGE You can specify a configuration when running NMAKE
-!MESSAGE by defining the macro CFG on the command line. For example:
-!MESSAGE
-!MESSAGE NMAKE /f "XCallback_Impl.mak" CFG="XCallback_Impl - Win32 Debug"
-!MESSAGE
-!MESSAGE Possible choices for configuration are:
-!MESSAGE
-!MESSAGE "XCallback_Impl - Win32 Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "XCallback_Impl - Win32 Unicode Debug" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "XCallback_Impl - Win32 Release MinSize" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "XCallback_Impl - Win32 Release MinDependency" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "XCallback_Impl - Win32 Unicode Release MinSize" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE "XCallback_Impl - Win32 Unicode Release MinDependency" (based on "Win32 (x86) Dynamic-Link Library")
-!MESSAGE
-
-# Begin Project
-# PROP AllowPerConfigDependencies 0
-# PROP Scc_ProjName ""
-# PROP Scc_LocalPath ""
-CPP=cl.exe
-MTL=midl.exe
-RSC=rc.exe
-
-!IF "$(CFG)" == "XCallback_Impl - Win32 Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "Debug"
-# PROP BASE Intermediate_Dir "Debug"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "Debug"
-# PROP Intermediate_Dir "Debug"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /FR /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\Debug
-TargetPath=.\Debug\XCallback_Impl.dll
-InputPath=.\Debug\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "XCallback_Impl - Win32 Unicode Debug"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 1
-# PROP BASE Output_Dir "DebugU"
-# PROP BASE Intermediate_Dir "DebugU"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 1
-# PROP Output_Dir "DebugU"
-# PROP Intermediate_Dir "DebugU"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD CPP /nologo /MTd /W3 /Gm /ZI /Od /D "WIN32" /D "_DEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /Yu"stdafx.h" /FD /GZ /c
-# ADD BASE RSC /l 0x409 /d "_DEBUG"
-# ADD RSC /l 0x409 /d "_DEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /debug /machine:I386 /pdbtype:sept
-# Begin Custom Build - Performing registration
-OutDir=.\DebugU
-TargetPath=.\DebugU\XCallback_Impl.dll
-InputPath=.\DebugU\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "XCallback_Impl - Win32 Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinSize"
-# PROP BASE Intermediate_Dir "ReleaseMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinSize"
-# PROP Intermediate_Dir "ReleaseMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinSize
-TargetPath=.\ReleaseMinSize\XCallback_Impl.dll
-InputPath=.\ReleaseMinSize\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "XCallback_Impl - Win32 Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseMinDependency"
-# PROP Intermediate_Dir "ReleaseMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_MBCS" /D "_USRDLL" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseMinDependency
-TargetPath=.\ReleaseMinDependency\XCallback_Impl.dll
-InputPath=.\ReleaseMinDependency\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "XCallback_Impl - Win32 Unicode Release MinSize"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinSize"
-# PROP BASE Intermediate_Dir "ReleaseUMinSize"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinSize"
-# PROP Intermediate_Dir "ReleaseUMinSize"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_DLL" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinSize
-TargetPath=.\ReleaseUMinSize\XCallback_Impl.dll
-InputPath=.\ReleaseUMinSize\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ELSEIF "$(CFG)" == "XCallback_Impl - Win32 Unicode Release MinDependency"
-
-# PROP BASE Use_MFC 0
-# PROP BASE Use_Debug_Libraries 0
-# PROP BASE Output_Dir "ReleaseUMinDependency"
-# PROP BASE Intermediate_Dir "ReleaseUMinDependency"
-# PROP BASE Target_Dir ""
-# PROP Use_MFC 0
-# PROP Use_Debug_Libraries 0
-# PROP Output_Dir "ReleaseUMinDependency"
-# PROP Intermediate_Dir "ReleaseUMinDependency"
-# PROP Target_Dir ""
-# ADD BASE CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /D "_ATL_MIN_CRT" /Yu"stdafx.h" /FD /c
-# ADD CPP /nologo /MT /W3 /O1 /D "WIN32" /D "NDEBUG" /D "_WINDOWS" /D "_USRDLL" /D "_UNICODE" /D "_ATL_STATIC_REGISTRY" /Yu"stdafx.h" /FD /c
-# ADD BASE RSC /l 0x409 /d "NDEBUG"
-# ADD RSC /l 0x409 /d "NDEBUG"
-BSC32=bscmake.exe
-# ADD BASE BSC32 /nologo
-# ADD BSC32 /nologo
-LINK32=link.exe
-# ADD BASE LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# ADD LINK32 kernel32.lib user32.lib gdi32.lib winspool.lib comdlg32.lib advapi32.lib shell32.lib ole32.lib oleaut32.lib uuid.lib odbc32.lib odbccp32.lib /nologo /subsystem:windows /dll /machine:I386
-# Begin Custom Build - Performing registration
-OutDir=.\ReleaseUMinDependency
-TargetPath=.\ReleaseUMinDependency\XCallback_Impl.dll
-InputPath=.\ReleaseUMinDependency\XCallback_Impl.dll
-SOURCE="$(InputPath)"
-
-"$(OutDir)\regsvr32.trg" : $(SOURCE) "$(INTDIR)" "$(OUTDIR)"
- if "%OS%"=="" goto NOTNT
- if not "%OS%"=="Windows_NT" goto NOTNT
- regsvr32 /s /c "$(TargetPath)"
- echo regsvr32 exec. time > "$(OutDir)\regsvr32.trg"
- goto end
- :NOTNT
- echo Warning : Cannot register Unicode DLL on Windows 95
- :end
-
-# End Custom Build
-
-!ENDIF
-
-# Begin Target
-
-# Name "XCallback_Impl - Win32 Debug"
-# Name "XCallback_Impl - Win32 Unicode Debug"
-# Name "XCallback_Impl - Win32 Release MinSize"
-# Name "XCallback_Impl - Win32 Release MinDependency"
-# Name "XCallback_Impl - Win32 Unicode Release MinSize"
-# Name "XCallback_Impl - Win32 Unicode Release MinDependency"
-# Begin Group "Source Files"
-
-# PROP Default_Filter "cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
-# Begin Source File
-
-SOURCE=.\Callback.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\Simple.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.cpp
-# ADD CPP /Yc"stdafx.h"
-# End Source File
-# Begin Source File
-
-SOURCE=.\XCallback_Impl.cpp
-# End Source File
-# Begin Source File
-
-SOURCE=.\XCallback_Impl.def
-# End Source File
-# Begin Source File
-
-SOURCE=.\XCallback_Impl.idl
-# ADD MTL /tlb ".\XCallback_Impl.tlb" /h "XCallback_Impl.h" /iid "XCallback_Impl_i.c" /Oicf
-# End Source File
-# Begin Source File
-
-SOURCE=.\XCallback_Impl.rc
-# End Source File
-# End Group
-# Begin Group "Header Files"
-
-# PROP Default_Filter "h;hpp;hxx;hm;inl"
-# Begin Source File
-
-SOURCE=.\Callback.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\Resource.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\Simple.h
-# End Source File
-# Begin Source File
-
-SOURCE=.\StdAfx.h
-# End Source File
-# End Group
-# Begin Group "Resource Files"
-
-# PROP Default_Filter "ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
-# Begin Source File
-
-SOURCE=.\Callback.rgs
-# End Source File
-# Begin Source File
-
-SOURCE=.\Simple.rgs
-# End Source File
-# End Group
-# End Target
-# End Project
-
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.idl b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.idl
deleted file mode 100644
index 553243213..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.idl
+++ /dev/null
@@ -1,151 +0,0 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-// XCallback_Impl.idl : IDL source for XCallback_Impl.dll
-//
-
-// This file will be processed by the MIDL tool to
-// produce the type library (XCallback_Impl.tlb) and marshalling code.
-
-import "oaidl.idl";
-import "ocidl.idl";
- [
- object,
- uuid(180FF55F-6F5C-11D4-8330-005004526AB4),
- dual,
- helpstring("ICallback Interface"),
- pointer_default(unique)
- ]
- interface ICallback : IDispatch
- {
- [id(1), helpstring("method func1")] HRESULT func1();
- [id(2), helpstring("method returnInterface")] HRESULT returnInterface([out, retval] IDispatch** ppdisp);
- [id(3), helpstring("method outInterface")] HRESULT outInterface([out] IDispatch** ppdisp);
- [id(4), helpstring("method outValuesMixed")] HRESULT outValuesMixed([in] long val, [out] long* pval, [in] BSTR string);
- [id(5), helpstring("method outValuesAll")] HRESULT outValuesAll([out] IDispatch** ppdisp, [out] IDispatch** ppSimpleStruct, [out] long* aSimpleEnum,
- [out] SAFEARRAY( VARIANT)* outSeq,
- [out] VARIANT* varAny,
- [out] VARIANT_BOOL * aBool,
- [out] short* aChar,
- [out] BSTR* aString ,
- [out] float* aFloat,
- [out] double* aDouble,
- [out] unsigned char* aByte,
- [out] short* aShort,
- [out]long* aLong);
-// );
- [id(6), helpstring("method outStruct")] HRESULT outStruct([out] IDispatch** outStruct);
- [id(7), helpstring("method outEnum")] HRESULT outEnum([out] long* outEnum);
- [id(8), helpstring("method outSeqAny")] HRESULT outSeqAny([out] SAFEARRAY( VARIANT)* outSeq);
- [id(9), helpstring("method outAny")] HRESULT outAny([out] VARIANT* outAny);
- [id(10), helpstring("method outBool")] HRESULT outBool([out]VARIANT_BOOL* outBool);
- [id(11), helpstring("method outChar")] HRESULT outChar([out] short* outChar);
- [id(12), helpstring("method outString")] HRESULT outString([out] BSTR * outString);
- [id(13), helpstring("method outFloat")] HRESULT outFloat([out] float* outFloat);
- [id(14), helpstring("method outDouble")] HRESULT outDouble([out] double* outDouble);
- [id(16), helpstring("method outShort")] HRESULT outShort([out] short *outShort);
- [id(17), helpstring("method outLong")] HRESULT outLong([out] long* outLong);
- [id(20), helpstring("method outByte")] HRESULT outByte([out] unsigned char* outByte);
- [id(21), helpstring("method inoutInterface")] HRESULT inoutInterface([in,out] IDispatch** ppdisp);
- [id(22), helpstring("method inoutStruct")] HRESULT inoutStruct([in,out] IDispatch** inoutVal);
- [id(23), helpstring("method inoutEnum")] HRESULT inoutEnum([in,out] long * inoutVal);
- [id(24), helpstring("method inoutSeqAny")] HRESULT inoutSeqAny([in,out] SAFEARRAY(VARIANT)* pArray);
- [id(25), helpstring("method inoutAny")] HRESULT inoutAny([in,out] VARIANT* inoutVal);
- [id(26), helpstring("method inoutBool")] HRESULT inoutBool([in,out] VARIANT_BOOL * inoutVal);
- [id(27), helpstring("method inoutChar")] HRESULT inoutChar([in,out] short* inoutVal);
- [id(28), helpstring("method inoutString")] HRESULT inoutString([in,out] BSTR *inoutVal);
- [id(29), helpstring("method inoutFloat")] HRESULT inoutFloat([in,out] float* inoutVal);
- [id(30), helpstring("method inoutDouble")] HRESULT inoutDouble([in,out] double* inoutVal);
- [id(31), helpstring("method inoutByte")] HRESULT inoutByte([in,out] unsigned char* inoutVal);
- [id(32), helpstring("method inoutShort")] HRESULT inoutShort([in,out] short* inoutVal);
- [id(33), helpstring("method inoutLong")] HRESULT inoutLong([in,out] long* inoutVal);
- [id(34), helpstring("method inoutValueAll")] HRESULT inoutValuesAll(
- [in,out] IDispatch** aXSimple,
- [in,out] IDispatch** aStruct,
- [in,out] long* aEnum,
- [in,out] SAFEARRAY( VARIANT)* aSeq,
- [in,out] VARIANT* aAny,
- [in,out] VARIANT_BOOL* aBool,
- [in,out] short* aChar,
- [in,out] BSTR* aString,
- [in,out] float* aFloat,
- [in,out] double* aDouble,
- [in,out] unsigned char* aByte,
- [in,out] short* aShort,
- [in,out] long* aLong);
- [id(35), helpstring("method inValues")] HRESULT inValues([in]short aChar, [in] long aLong, [in] BSTR aString);
- [id(36), helpstring("method outSeqByte")] HRESULT outSeqByte([out] SAFEARRAY(unsigned char)* outVal);
- [id(37), helpstring("method inSeqByte")] HRESULT inSeqByte([in] SAFEARRAY(VARIANT) val);
- [id(38), helpstring("method inSeqXEventListener")] HRESULT inSeqXEventListener([in] SAFEARRAY(VARIANT) listener,
- [in] SAFEARRAY(VARIANT) event);
-
- };
- [
- object,
- uuid(180FF564-6F5C-11D4-8330-005004526AB4),
- dual,
- helpstring("ISimple Interface"),
- pointer_default(unique)
- ]
- interface ISimple : IDispatch
- {
- [id(1), helpstring("method func")] HRESULT func( [in] BSTR message);
- [id(2), helpstring("method func2")] HRESULT func2([in] BSTR message);
- [id(3), helpstring("method func3")] HRESULT func3([in] BSTR message);
- [propget, id(4), helpstring("property _implementedInterfaces")] HRESULT _implementedInterfaces([out, retval] SAFEARRAY(BSTR) *pVal);
- };
-
-
-
-[
- uuid(180FF553-6F5C-11D4-8330-005004526AB4),
- version(1.0),
- helpstring("XCallback_Impl 1.0 Type Library")
-]
-library XCALLBACK_IMPLLib
-{
- importlib("stdole32.tlb");
- importlib("stdole2.tlb");
-
- [
- uuid(180FF560-6F5C-11D4-8330-005004526AB4),
- helpstring("Callback Class")
- ]
- coclass Callback
- {
- [default] interface ICallback;
- };
- [
- uuid(180FF565-6F5C-11D4-8330-005004526AB4),
- helpstring("Simple Class")
- ]
- coclass Simple
- {
- [default] interface ISimple;
- };
-};
-
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.rc b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.rc
deleted file mode 100644
index 32b485233..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.rc
+++ /dev/null
@@ -1,163 +0,0 @@
-/*************************************************************************
-*
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
-**************************************************************************/
-
-#include "resource.h"
-
-#define APSTUDIO_READONLY_SYMBOLS
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 2 resource.
-//
-#include "winres.h"
-
-/////////////////////////////////////////////////////////////////////////////
-#undef APSTUDIO_READONLY_SYMBOLS
-
-/////////////////////////////////////////////////////////////////////////////
-// German (Germany) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_DEU)
-#ifdef _WIN32
-LANGUAGE LANG_GERMAN, SUBLANG_GERMAN
-#pragma code_page(1252)
-#endif //_WIN32
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// REGISTRY
-//
-
-IDR_CALLBACK REGISTRY DISCARDABLE "Callback.rgs"
-IDR_SIMPLE REGISTRY DISCARDABLE "Simple.rgs"
-#endif // German (Germany) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-/////////////////////////////////////////////////////////////////////////////
-// English (U.S.) resources
-
-#if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_ENU)
-#ifdef _WIN32
-LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
-#pragma code_page(1252)
-#endif //_WIN32
-
-#ifdef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// TEXTINCLUDE
-//
-
-1 TEXTINCLUDE DISCARDABLE
-BEGIN
- "resource.h\0"
-END
-
-2 TEXTINCLUDE DISCARDABLE
-BEGIN
- "#include ""winres.h""\r\n"
- "\0"
-END
-
-3 TEXTINCLUDE DISCARDABLE
-BEGIN
- "1 TYPELIB ""XCallback_Impl.tlb""\r\n"
- "\0"
-END
-
-#endif // APSTUDIO_INVOKED
-
-
-#ifndef _MAC
-/////////////////////////////////////////////////////////////////////////////
-//
-// Version
-//
-
-VS_VERSION_INFO VERSIONINFO
- FILEVERSION 1,0,0,1
- PRODUCTVERSION 1,0,0,1
- FILEFLAGSMASK 0x3fL
-#ifdef _DEBUG
- FILEFLAGS 0x1L
-#else
- FILEFLAGS 0x0L
-#endif
- FILEOS 0x4L
- FILETYPE 0x2L
- FILESUBTYPE 0x0L
-BEGIN
- BLOCK "StringFileInfo"
- BEGIN
- BLOCK "040904B0"
- BEGIN
- VALUE "CompanyName", "\0"
- VALUE "FileDescription", "XCallback_Impl Module\0"
- VALUE "FileVersion", "1, 0, 0, 1\0"
- VALUE "InternalName", "XCallback_Impl\0"
- VALUE "LegalCopyright", "Copyright 2000\0"
- VALUE "OriginalFilename", "XCallback_Impl.DLL\0"
- VALUE "ProductName", "XCallback_Impl Module\0"
- VALUE "ProductVersion", "1, 0, 0, 1\0"
- VALUE "OLESelfRegister", "\0"
- END
- END
- BLOCK "VarFileInfo"
- BEGIN
- VALUE "Translation", 0x409, 1200
- END
-END
-
-#endif // !_MAC
-
-
-/////////////////////////////////////////////////////////////////////////////
-//
-// String Table
-//
-
-STRINGTABLE DISCARDABLE
-BEGIN
- IDS_PROJNAME "XCallback_Impl"
-END
-
-#endif // English (U.S.) resources
-/////////////////////////////////////////////////////////////////////////////
-
-
-
-#ifndef APSTUDIO_INVOKED
-/////////////////////////////////////////////////////////////////////////////
-//
-// Generated from the TEXTINCLUDE 3 resource.
-//
-1 TYPELIB "XCallback_Impl.tlb"
-
-/////////////////////////////////////////////////////////////////////////////
-#endif // not APSTUDIO_INVOKED
-
-
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.sln b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.sln
deleted file mode 100644
index 62b109fe4..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.sln
+++ /dev/null
@@ -1,31 +0,0 @@
-Microsoft Visual Studio Solution File, Format Version 10.00
-# Visual Studio 2008
-Project("{8BC9CEB8-8B4A-11D0-8D11-00A0C91BC942}") = "XCallback_Impl", "XCallback_Impl.vcproj", "{92A6B531-401E-4900-8217-169A96F4168D}"
-EndProject
-Global
- GlobalSection(SolutionConfigurationPlatforms) = preSolution
- Debug|Win32 = Debug|Win32
- Release MinDependency|Win32 = Release MinDependency|Win32
- Release MinSize|Win32 = Release MinSize|Win32
- Unicode Debug|Win32 = Unicode Debug|Win32
- Unicode Release MinDependency|Win32 = Unicode Release MinDependency|Win32
- Unicode Release MinSize|Win32 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(ProjectConfigurationPlatforms) = postSolution
- {92A6B531-401E-4900-8217-169A96F4168D}.Debug|Win32.ActiveCfg = Debug|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Debug|Win32.Build.0 = Debug|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Release MinDependency|Win32.ActiveCfg = Release MinDependency|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Release MinDependency|Win32.Build.0 = Release MinDependency|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Release MinSize|Win32.ActiveCfg = Release MinSize|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Release MinSize|Win32.Build.0 = Release MinSize|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Debug|Win32.ActiveCfg = Unicode Debug|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Debug|Win32.Build.0 = Unicode Debug|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Release MinDependency|Win32.ActiveCfg = Unicode Release MinDependency|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Release MinDependency|Win32.Build.0 = Unicode Release MinDependency|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Release MinSize|Win32.ActiveCfg = Unicode Release MinSize|Win32
- {92A6B531-401E-4900-8217-169A96F4168D}.Unicode Release MinSize|Win32.Build.0 = Unicode Release MinSize|Win32
- EndGlobalSection
- GlobalSection(SolutionProperties) = preSolution
- HideSolutionNode = FALSE
- EndGlobalSection
-EndGlobal
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.vcproj b/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.vcproj
deleted file mode 100644
index 1a9068d31..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/XCallback_Impl.vcproj
+++ /dev/null
@@ -1,816 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
- ProjectType="Visual C++"
- Version="9,00"
- Name="XCallback_Impl"
- ProjectGUID="{92A6B531-401E-4900-8217-169A96F4168D}"
- RootNamespace="XCallback_Impl"
- Keyword="AtlProj"
- TargetFrameworkVersion="131072"
- >
- <Platforms>
- <Platform
- Name="Win32"
- />
- </Platforms>
- <ToolFiles>
- </ToolFiles>
- <Configurations>
- <Configuration
- Name="Unicode Release MinSize|Win32"
- OutputDirectory=".\ReleaseUMinSize"
- IntermediateDirectory=".\ReleaseUMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinSize/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinSize/XCallback_Impl.pch"
- AssemblerListingLocation=".\ReleaseUMinSize/"
- ObjectFile=".\ReleaseUMinSize/"
- ProgramDataBaseFileName=".\ReleaseUMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseUMinSize/XCallback_Impl.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- ProgramDatabaseFile=".\ReleaseUMinSize/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinSize/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinSize|Win32"
- OutputDirectory=".\ReleaseMinSize"
- IntermediateDirectory=".\ReleaseMinSize"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- UseOfATL="2"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinSize/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinSize/XCallback_Impl.pch"
- AssemblerListingLocation=".\ReleaseMinSize/"
- ObjectFile=".\ReleaseMinSize/"
- ProgramDataBaseFileName=".\ReleaseMinSize/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseMinSize/XCallback_Impl.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- ProgramDatabaseFile=".\ReleaseMinSize/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinSize/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Release MinDependency|Win32"
- OutputDirectory=".\ReleaseUMinDependency"
- IntermediateDirectory=".\ReleaseUMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseUMinDependency/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="1"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseUMinDependency/XCallback_Impl.pch"
- AssemblerListingLocation=".\ReleaseUMinDependency/"
- ObjectFile=".\ReleaseUMinDependency/"
- ProgramDataBaseFileName=".\ReleaseUMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseUMinDependency/XCallback_Impl.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- ProgramDatabaseFile=".\ReleaseUMinDependency/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseUMinDependency/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Release MinDependency|Win32"
- OutputDirectory=".\ReleaseMinDependency"
- IntermediateDirectory=".\ReleaseMinDependency"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- UseOfATL="1"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\ReleaseMinDependency/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- InlineFunctionExpansion="1"
- PreprocessorDefinitions="WIN32;NDEBUG;_WINDOWS;_USRDLL"
- StringPooling="true"
- RuntimeLibrary="0"
- EnableFunctionLevelLinking="true"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\ReleaseMinDependency/XCallback_Impl.pch"
- AssemblerListingLocation=".\ReleaseMinDependency/"
- ObjectFile=".\ReleaseMinDependency/"
- ProgramDataBaseFileName=".\ReleaseMinDependency/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="NDEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\ReleaseMinDependency/XCallback_Impl.dll"
- LinkIncremental="1"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- ProgramDatabaseFile=".\ReleaseMinDependency/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\ReleaseMinDependency/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Unicode Debug|Win32"
- OutputDirectory=".\DebugU"
- IntermediateDirectory=".\DebugU"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="1"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="if &quot;%OS%&quot;==&quot;&quot; goto NOTNT&#x0D;&#x0A;if not &quot;%OS%&quot;==&quot;Windows_NT&quot; goto NOTNT&#x0D;&#x0A;regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;goto end&#x0D;&#x0A;:NOTNT&#x0D;&#x0A;echo Warning : Cannot register Unicode DLL on Windows 95&#x0D;&#x0A;:end&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\DebugU/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\DebugU/XCallback_Impl.pch"
- AssemblerListingLocation=".\DebugU/"
- ObjectFile=".\DebugU/"
- ProgramDataBaseFileName=".\DebugU/"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\DebugU/XCallback_Impl.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\DebugU/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\DebugU/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- <Configuration
- Name="Debug|Win32"
- OutputDirectory=".\Debug"
- IntermediateDirectory=".\Debug"
- ConfigurationType="2"
- InheritedPropertySheets="$(VCInstallDir)VCProjectDefaults\UpgradeFromVC70.vsprops"
- UseOfMFC="0"
- ATLMinimizesCRunTimeLibraryUsage="false"
- CharacterSet="2"
- >
- <Tool
- Name="VCPreBuildEventTool"
- />
- <Tool
- Name="VCCustomBuildTool"
- Description="Performing registration"
- CommandLine="regsvr32 /s /c &quot;$(TargetPath)&quot;&#x0D;&#x0A;echo regsvr32 exec. time &gt; &quot;$(OutDir)\regsvr32.trg&quot;&#x0D;&#x0A;"
- Outputs="$(OutDir)\regsvr32.trg"
- />
- <Tool
- Name="VCXMLDataGeneratorTool"
- />
- <Tool
- Name="VCWebServiceProxyGeneratorTool"
- />
- <Tool
- Name="VCMIDLTool"
- TypeLibraryName=".\Debug/XCallback_Impl.tlb"
- />
- <Tool
- Name="VCCLCompilerTool"
- AdditionalOptions="/D_CRT_SECURE_CPP_OVERLOAD_STANDARD_NAMES"
- Optimization="0"
- PreprocessorDefinitions="WIN32;_DEBUG;_WINDOWS;_USRDLL"
- BasicRuntimeChecks="3"
- RuntimeLibrary="1"
- UsePrecompiledHeader="2"
- PrecompiledHeaderThrough="stdafx.h"
- PrecompiledHeaderFile=".\Debug/XCallback_Impl.pch"
- AssemblerListingLocation=".\Debug/"
- ObjectFile=".\Debug/"
- ProgramDataBaseFileName=".\Debug/"
- BrowseInformation="1"
- WarningLevel="3"
- SuppressStartupBanner="true"
- DebugInformationFormat="4"
- />
- <Tool
- Name="VCManagedResourceCompilerTool"
- />
- <Tool
- Name="VCResourceCompilerTool"
- PreprocessorDefinitions="_DEBUG"
- Culture="1033"
- />
- <Tool
- Name="VCPreLinkEventTool"
- />
- <Tool
- Name="VCLinkerTool"
- AdditionalOptions="/MACHINE:I386"
- AdditionalDependencies="odbc32.lib odbccp32.lib"
- OutputFile=".\Debug/XCallback_Impl.dll"
- LinkIncremental="2"
- SuppressStartupBanner="true"
- ModuleDefinitionFile=".\XCallback_Impl.def"
- GenerateDebugInformation="true"
- ProgramDatabaseFile=".\Debug/XCallback_Impl.pdb"
- SubSystem="2"
- RandomizedBaseAddress="1"
- DataExecutionPrevention="0"
- ImportLibrary=".\Debug/XCallback_Impl.lib"
- />
- <Tool
- Name="VCALinkTool"
- />
- <Tool
- Name="VCManifestTool"
- />
- <Tool
- Name="VCXDCMakeTool"
- />
- <Tool
- Name="VCBscMakeTool"
- />
- <Tool
- Name="VCFxCopTool"
- />
- <Tool
- Name="VCAppVerifierTool"
- />
- <Tool
- Name="VCPostBuildEventTool"
- />
- </Configuration>
- </Configurations>
- <References>
- </References>
- <Files>
- <Filter
- Name="Source Files"
- Filter="cpp;c;cxx;rc;def;r;odl;idl;hpj;bat"
- >
- <File
- RelativePath=".\Callback.cpp"
- >
- </File>
- <File
- RelativePath=".\Simple.cpp"
- >
- </File>
- <File
- RelativePath=".\StdAfx.cpp"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCCLCompilerTool"
- UsePrecompiledHeader="1"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\XCallback_Impl.cpp"
- >
- </File>
- <File
- RelativePath=".\XCallback_Impl.def"
- >
- </File>
- <File
- RelativePath=".\XCallback_Impl.idl"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCMIDLTool"
- GenerateStublessProxies="true"
- TypeLibraryName=".\XCallback_Impl.tlb"
- HeaderFileName="XCallback_Impl.h"
- InterfaceIdentifierFileName="XCallback_Impl_i.c"
- />
- </FileConfiguration>
- </File>
- <File
- RelativePath=".\XCallback_Impl.rc"
- >
- <FileConfiguration
- Name="Unicode Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinSize|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Release MinDependency|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Unicode Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- <FileConfiguration
- Name="Debug|Win32"
- >
- <Tool
- Name="VCResourceCompilerTool"
- AdditionalIncludeDirectories="$(OUTDIR);$(NoInherit)"
- />
- </FileConfiguration>
- </File>
- </Filter>
- <Filter
- Name="Header Files"
- Filter="h;hpp;hxx;hm;inl"
- >
- <File
- RelativePath=".\Callback.h"
- >
- </File>
- <File
- RelativePath=".\Resource.h"
- >
- </File>
- <File
- RelativePath=".\Simple.h"
- >
- </File>
- <File
- RelativePath=".\StdAfx.h"
- >
- </File>
- </Filter>
- <Filter
- Name="Resource Files"
- Filter="ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"
- >
- <File
- RelativePath=".\Callback.rgs"
- >
- </File>
- <File
- RelativePath=".\Simple.rgs"
- >
- </File>
- </Filter>
- </Files>
- <Globals>
- </Globals>
-</VisualStudioProject>
diff --git a/extensions/test/ole/unoTocomCalls/XCallback_Impl/resource.h b/extensions/test/ole/unoTocomCalls/XCallback_Impl/resource.h
deleted file mode 100644
index d041b3790..000000000
--- a/extensions/test/ole/unoTocomCalls/XCallback_Impl/resource.h
+++ /dev/null
@@ -1,48 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-//{{NO_DEPENDENCIES}}
-// Microsoft Developer Studio generated include file.
-// Used by XCallback_Impl.rc
-//
-#define IDS_PROJNAME 100
-#define IDR_CALLBACK 101
-#define IDR_SIMPLE 102
-#define IDR_SIMPLESTRUCT 103
-
-// Next default values for new objects
-//
-#ifdef APSTUDIO_INVOKED
-#ifndef APSTUDIO_READONLY_SYMBOLS
-#define _APS_NEXT_RESOURCE_VALUE 201
-#define _APS_NEXT_COMMAND_VALUE 32768
-#define _APS_NEXT_CONTROL_VALUE 201
-#define _APS_NEXT_SYMED_VALUE 104
-#endif
-#endif
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/ole/unoTocomCalls/readme.txt b/extensions/test/ole/unoTocomCalls/readme.txt
deleted file mode 100644
index 40841cb0e..000000000
--- a/extensions/test/ole/unoTocomCalls/readme.txt
+++ /dev/null
@@ -1,9 +0,0 @@
-The directory XCallback_Impl contains a MSDEV project that
-creates a dll containing the ActiveX components
-XCallback_Impl.Simple and XCallback_Impl.Callback
-Callback implements functions defined in oletest.XCallback
-and Simple implements functions defined in oletest.XSimple.
-These interfaces are build in extensions/test/ole/cpnt
-
-The projects in unoToComCalls test the functionality of COM
-and JScript object which implement UNO interfaces.
diff --git a/extensions/test/pgp/TestPGP.java b/extensions/test/pgp/TestPGP.java
deleted file mode 100644
index 41f21f3b7..000000000
--- a/extensions/test/pgp/TestPGP.java
+++ /dev/null
@@ -1,146 +0,0 @@
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-
-import java.io.IOException;
-
-import com.sun.star.beans.PropertyValue;
-import com.sun.star.beans.PropertyState;
-
-import com.sun.star.bridge.XBridge;
-
-// import com.sun.star.comp.bootstrap.Bootstrap;
-
-import com.sun.star.connection.XConnector;
-import com.sun.star.connection.XConnection;
-
-import com.sun.star.io.BufferSizeExceededException;
-import com.sun.star.io.NotConnectedException;
-import com.sun.star.io.XInputStream;
-import com.sun.star.io.XOutputStream;
-
-import com.sun.star.frame.XComponentLoader;
-
-import com.sun.star.lang.XComponent;
-import com.sun.star.lang.XMultiServiceFactory;
-import com.sun.star.lang.XServiceInfo;
-
-import com.sun.star.text.XSimpleText;
-import com.sun.star.text.XText;
-import com.sun.star.text.XTextCursor;
-import com.sun.star.text.XTextDocument;
-import com.sun.star.text.XTextRange;
-
-import com.sun.star.uno.IBridge;
-import com.sun.star.uno.UnoRuntime;
-import com.sun.star.uno.XInterface;
-import com.sun.star.uno.XNamingService;
-import com.sun.star.container.*;
-import com.sun.star.lang.*;
-
-import com.sun.star.pgp.*;
-
-
-
-public class TestPGP {
-
-
- static void doSomething(Object r) throws com.sun.star.uno.Exception, IOException, Exception {
- XNamingService rName = (XNamingService)UnoRuntime.queryInterface(XNamingService.class, r);
-
- if(rName != null) {
- System.err.println("got the remote naming service !");
- Object rXsmgr = rName.getRegisteredObject("StarOffice.ServiceManager");
-
- XMultiServiceFactory rSmgr = (XMultiServiceFactory)UnoRuntime.queryInterface(XMultiServiceFactory.class, rXsmgr);
- if(rSmgr != null) {
- System.err.println("got the remote service manager !");
- }
-
- XSet set= (XSet)UnoRuntime.queryInterface(XSet.class, rSmgr);
- if( set == null) {
- System.err.println(" couldn't get XSet from ServiceFactory");
- return;
- }
-// try{
- SimplePGPMailerFactoryReg mailerReg= new SimplePGPMailerFactoryReg();
- XSingleServiceFactory factory= mailerReg.getServiceFactory(
- "com.sun.star.pgp.SimplePGPMailerImpl", rSmgr, null, null);
-
- if( factory == null) {
- System.err.println("couldn't create PGP factory !");
- return;
- }
- set.insert(factory );
- System.err.println("PGP factory inserted into service manager");
-
-// }catch(Exception e ){
-// System.err.println( "exception caught in TestPGP");
-// }
-
- }
- }
-
-
-
- static String neededServices[] = new String[] {
- "com.sun.star.comp.servicemanager.ServiceManager",
- "com.sun.star.comp.loader.JavaLoader",
- "com.sun.star.comp.connections.Connector",
- "com.sun.star.comp.connections.Acceptor"
- };
-
- public static void main(String argv[]) throws Exception {
- if(argv.length != 1) {
- System.err.println("usage : testoffice protocol:host:port");
- System.exit(-1);
- }
-
-// try {
- com.sun.star.comp.servicemanager.ServiceManager smgr = new com.sun.star.comp.servicemanager.ServiceManager();
- smgr.addFactories(neededServices, null);
-
- XConnector xConnector = (XConnector)smgr.createInstance("com.sun.star.connection.Connector");
- XConnection xConnection = xConnector.connect(argv[0]);
-
- String rootOid = "classic_uno";
- IBridge iBridge = UnoRuntime.getBridgeByName("java", null, "remote", null, new Object[]{"iiop", xConnection, null});
-
- Object rInitialObject = iBridge.mapInterfaceFrom(rootOid, XInterface.class);
-// Object rInitialObject = xBridge.getInstance("NamingService");
-
- if(rInitialObject != null) {
- System.err.println("got the remote object");
- doSomething(rInitialObject);
- }
-// }
-// catch (Exception exception) {
-// System.err.println("Exception thrown:" + exception);
-// }
- }
-}
-
diff --git a/extensions/test/pgp/makefile.mk b/extensions/test/pgp/makefile.mk
deleted file mode 100644
index 96b7883e9..000000000
--- a/extensions/test/pgp/makefile.mk
+++ /dev/null
@@ -1,71 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-
-PRJ=..$/..
-
-PRJNAME := extensions
-PACKAGE :=
-TARGET := test_com_sun_star_pgp
-
-# --- Settings -----------------------------------------------------
-
-.INCLUDE : settings.mk
-
-# Files --------------------------------------------------------
-
-APPLICATRDB := $(SOLARBINDIR)$/applicat.rdb
-RDB := $(APPLICATRDB)
-
-JARFILES= jurt.jar
-
-GENJAVACLASSFILES= \
- $(CLASSDIR)$/com$/sun$/star$/beans$/PropertyValue.class \
- $(CLASSDIR)$/com$/sun$/star$/beans$/PropertyState.class \
- $(CLASSDIR)$/com$/sun$/star$/container$/XSet.class \
-
-JAVACLASSFILES= \
- $(CLASSDIR)$/$(PACKAGE)$/TestPGP.class
-
-
-TYPES={$(subst,.class, $(subst,$/,. $(subst,$(CLASSDIR)$/,-T $(GENJAVACLASSFILES))))}
-GENJAVAFILES = {$(subst,.class,.java $(subst,$/class, $(GENJAVACLASSFILES)))}
-JAVAFILES= $(subst,$(CLASSDIR)$/$(PACKAGE)$/, $(subst,.class,.java $(JAVACLASSFILES))) $(GENJAVAFILES)
-
-# --- Targets ------------------------------------------------------
-
-.IF "$(depend)" == ""
-ALL : $(GENJAVAFILES) ALLTAR
-.ELSE
-ALL: ALLDEP
-.ENDIF
-
-.INCLUDE : target.mk
-
-$(GENJAVAFILES) : $(RDB)
- javamaker @$(mktmp -BUCR -O$(OUT) $(TYPES) $(RDB))
-
-$(JAVACLASSFILES) : $(GENJAVAFILES)
diff --git a/extensions/test/pgp/readme.txt b/extensions/test/pgp/readme.txt
deleted file mode 100644
index 899e3377f..000000000
--- a/extensions/test/pgp/readme.txt
+++ /dev/null
@@ -1,33 +0,0 @@
-The program TestPGP instantiates a SimplePGPMailerFactory and adds
- it to the ServiceManager obtained from a running StarOffice.
-Then PGP can be used from within StarOffice.
-
-Prerequisites:
-StarOffice needs an entry in Office/user/sofficerc under the Common
- section:
-
- Port2=socket:hamburg-11070:1111 // old style
-as of 569 m
-Connection=socket,hamburg-11070,port=1111;iiop;
-
-Please note the semicolons!
-
- hamburg-11070 is the host running the office and 1111 is a
- freely choosable port number.
-
-
- For the program to run make sure that the office has access
- to classes.zip, unoil.jar, jurt.jar, pgp.jar and swingall.jar.
-
- Therefore do the necessary entries in
- Office/user/config/javarc
- under SystemClasspath.
-
-There is a bug with jdk1.1.8, therfore use 1.2 instead.
-
-The TestPGP is called without ;iiop; :
-
-java TestPGP "socket,host=localhost,port=1111"
-
-
-
diff --git a/extensions/test/stm/datatest.cxx b/extensions/test/stm/datatest.cxx
deleted file mode 100644
index 720fdad04..000000000
--- a/extensions/test/stm/datatest.cxx
+++ /dev/null
@@ -1,1071 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-#include <smart/com/sun/star/test/XSimpleTest.hxx>
-#include <smart/com/sun/star/io/XObjectOutputStream.hxx>
-#include <smart/com/sun/star/io/XObjectInputStream.hxx>
-#include <smart/com/sun/star/io/XActiveDataSink.hxx>
-#include <smart/com/sun/star/io/XActiveDataSource.hxx>
-#include <smart/com/sun/star/io/XConnectable.hxx>
-#include <smart/com/sun/star/io/XMarkableStream.hxx>
-
-#include <smart/com/sun/star/lang/XServiceInfo.hxx>
-
-#include <smart/com/sun/star/beans/XPropertySet.hxx>
-
-#include <usr/services.hxx>
-#include <usr/factoryhlp.hxx>
-
-#include <usr/reflserv.hxx> // for EXTERN_SERVICE_CALLTYPE
-#include <usr/weak.hxx> // OWeakObject
-
-#include <osl/conditn.hxx>
-#include <osl/mutex.hxx>
-#include <osl/thread.hxx>
-
-#include <string.h>
-
-#include "testfactreg.hxx"
-
-using namespace usr;
-
-#define DATASTREAM_TEST_MAX_HANDLE 1
-
-/****
-* The following test class tests XDataInputStream and XDataOutputStream at equal terms,
-* so when errors occur, it may be in either one implementation.
-* The class also uses stardiv.uno.io.pipe. If problems occur, make sure to run also the
-* pipe test routines ( test.com.sun.star.io.pipe ).
-*
-*
-*****/
-
-class ODataStreamTest :
- public XSimpleTest,
- public OWeakObject
-{
-public:
- ODataStreamTest( const XMultiServiceFactoryRef & rFactory ) : m_rFactory( rFactory ){}
-
-public: // refcounting
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
- void acquire() { OWeakObject::acquire(); }
- void release() { OWeakObject::release(); }
- void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
-public:
- virtual void testInvariant(const UString& TestName, const XInterfaceRef& TestObject)
- THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual INT32 test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual BOOL testPassed(void) THROWS( ( UsrSystemException) );
- virtual Sequence< UString > getErrors(void) THROWS( (UsrSystemException) );
- virtual Sequence< UsrAny > getErrorExceptions(void) THROWS( (UsrSystemException) );
- virtual Sequence< UString > getWarnings(void) THROWS( (UsrSystemException) );
-
-private:
- void testSimple( const XDataInputStreamRef & , const XDataOutputStreamRef &);
-
-protected:
- Sequence<UsrAny> m_seqExceptions;
- Sequence<UString> m_seqErrors;
- Sequence<UString> m_seqWarnings;
-
- XMultiServiceFactoryRef m_rFactory;
-};
-
-
-BOOL ODataStreamTest::queryInterface( Uik uik , XInterfaceRef &rOut )
-{
- if( XSimpleTest::getSmartUik() == uik ) {
- rOut = (XSimpleTest *) this;
- }
- else {
- return OWeakObject::queryInterface( uik , rOut );
- }
- return TRUE;
-}
-
-
-void ODataStreamTest::testInvariant( const UString& TestName, const XInterfaceRef& TestObject )
- THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.DataInputStream" == TestName ) {
- XConnectableRef connect( TestObject , USR_QUERY );
- XActiveDataSinkRef active( TestObject , USR_QUERY );
- XInputStreamRef input( TestObject , USR_QUERY );
- XDataInputStreamRef dataInput( TestObject , USR_QUERY );
-
- WARNING_ASSERT( connect.is(), "XConnectable cannot be queried" );
- WARNING_ASSERT( active.is() , "XActiveDataSink cannot be queried" );
- ERROR_ASSERT( input.is() , "XInputStream cannot be queried" );
- ERROR_ASSERT( dataInput.is() , "XDataInputStream cannot be queried" );
-
-
- }
- else if( L"com.sun.star.io.DataInputStream" == TestName ) {
- XConnectableRef connect( TestObject , USR_QUERY );
- XActiveDataSourceRef active( TestObject , USR_QUERY );
- XOutputStreamRef output( TestObject , USR_QUERY );
- XDataOutputStreamRef dataOutput( TestObject , USR_QUERY );
-
- WARNING_ASSERT( connect.is(), "XConnectable cannot be queried" );
- WARNING_ASSERT( active.is() , "XActiveDataSink cannot be queried" );
- ERROR_ASSERT( output.is() , "XInputStream cannot be queried" );
- ERROR_ASSERT( dataOutput.is(), "XDataInputStream cannot be queried" );
-
- }
-
- XServiceInfoRef info( TestObject, USR_QUERY );
- ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
- if( info.is() )
- {
- ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
- ERROR_ASSERT( ! info->supportsService( L"bla bluzb" ) , "XServiceInfo test failed" );
- }
-
-}
-
-
-INT32 ODataStreamTest::test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.DataInputStream" == TestName ||
- L"com.sun.star.io.DataOutputStream" == TestName ) {
-
- try {
- if( 0 == hTestHandle ) {
- testInvariant( TestName , TestObject );
- }
- else {
- XActiveDataSinkRef rSink( TestObject, USR_QUERY );
- XActiveDataSourceRef rSource( TestObject , USR_QUERY );
-
- XDataInputStreamRef rInput( TestObject , USR_QUERY );
- XDataOutputStreamRef rOutput( TestObject , USR_QUERY );
-
-
- XInterfaceRef x = m_rFactory->createInstance( L"com.sun.star.io.Pipe");
-
- XInputStreamRef rPipeInput( x , USR_QUERY );
- XOutputStreamRef rPipeOutput( x , USR_QUERY );
-
- if( ! rSink.is() ) {
- x = m_rFactory->createInstance( L"com.sun.star.io.DataInputStream" );
- x->queryInterface( XDataInputStream::getSmartUik() , rInput );
- x->queryInterface( XActiveDataSink::getSmartUik() , rSink );
- }
- else if ( !rSource.is() ) {
-
- x = m_rFactory->createInstance( L"com.sun.star.io.DataOutputStream" );
- x->queryInterface( XDataOutputStream::getSmartUik() , rOutput );
- x->queryInterface( XActiveDataSource::getSmartUik() , rSource );
- }
-
- OSL_ASSERT( rPipeInput.is() );
- OSL_ASSERT( rPipeOutput.is() );
- rSink->setInputStream( rPipeInput );
- rSource->setOutputStream( rPipeOutput );
-
- OSL_ASSERT( rSink->getInputStream().is() );
- OSL_ASSERT( rSource->getOutputStream().is() );
-
- if( 1 == hTestHandle ) {
- testSimple( rInput , rOutput );
- }
- }
- }
- catch( Exception& e ) {
- BUILD_ERROR( 0 , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() );
- }
- catch(...) {
- BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
- }
-
- hTestHandle ++;
-
- if( hTestHandle >= 2) {
- // all tests finished.
- hTestHandle = -1;
- }
- }
- else {
- BUILD_ERROR( 0 , "service not supported by test." );
- }
- return hTestHandle;
-}
-
-
-
-BOOL ODataStreamTest::testPassed(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors.getLen() == 0;
-}
-
-
-Sequence< UString > ODataStreamTest::getErrors(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors;
-}
-
-
-Sequence< UsrAny > ODataStreamTest::getErrorExceptions(void) THROWS( (UsrSystemException) )
-{
- return m_seqExceptions;
-}
-
-
-Sequence< UString > ODataStreamTest::getWarnings(void) THROWS( (UsrSystemException) )
-{
- return m_seqWarnings;
-}
-
-void ODataStreamTest::testSimple( const XDataInputStreamRef &rInput,
- const XDataOutputStreamRef &rOutput )
-{
- rOutput->writeLong( 0x34ff3c );
- rOutput->writeLong( 0x34ff3d );
-
- ERROR_ASSERT( 0x34ff3c == rInput->readLong() , "long read/write mismatch" );
- ERROR_ASSERT( 0x34ff3d == rInput->readLong() , "long read/write mismatch" );
-
- rOutput->writeByte( 0x87 );
- ERROR_ASSERT( 0x87 == rInput->readByte() , "byte read/write mismatch" );
-
- rOutput->writeBoolean( 25 );
- ERROR_ASSERT( rInput->readBoolean() , "boolean read/write mismatch" );
-
- rOutput->writeBoolean( FALSE );
- ERROR_ASSERT( ! rInput->readBoolean() , "boolean read/write mismatch" );
-
- rOutput->writeFloat( (float) 42.42 );
- ERROR_ASSERT( rInput->readFloat() == ((float)42.42) , "float read/write mismatch" );
-
- rOutput->writeDouble( (double) 42.42 );
- ERROR_ASSERT( rInput->readDouble() == 42.42 , "double read/write mismatch" );
-
- rOutput->writeUTF( L"Live long and prosper !" );
- ERROR_ASSERT( rInput->readUTF() == L"Live long and prosper !" ,
- "UTF read/write mismatch" );
-
- Sequence<wchar_t> wc(0x10001);
- for( int i = 0 ; i < 0x10000 ; i ++ ) {
- wc.getArray()[i] = L'c';
- }
- wc.getArray()[0x10000] = 0;
- UString str( wc.getArray() , 0x10000 );
- rOutput->writeUTF( str );
- ERROR_ASSERT( rInput->readUTF() == str , "error reading 64k block" );
-
- rOutput->closeOutput();
- try {
- rInput->readLong();
- ERROR_ASSERT( 0 , "eof-exception does not occur !" );
- }
- catch ( IOException& e ){
- //ok
- e.getName();
- }
- catch(...) {
- ERROR_ASSERT( 0 , "wrong exception after reading beyond eof" );
- }
-
- ERROR_ASSERT( ! rInput->readBytes( Sequence<BYTE> (1) , 1 ),
- "stream must be on eof !" );
-
- rInput->closeInput();
-
- try {
- rOutput->writeByte( 1 );
- ERROR_ASSERT( 0 , "writing still possible though chain must be interrupted" );
- }
- catch( IOException& e )
- {
- e.getName();
- // ok
- }
- catch( ... ) {
- ERROR_ASSERT( 0 , "IOException expected, but another exception was thrown" );
- }
-
-}
-
-
-
-/**
-* for external binding
-*
-*
-**/
-XInterfaceRef ODataStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception))
-{
- ODataStreamTest *p = new ODataStreamTest( rSMgr );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-Sequence<UString> ODataStreamTest_getSupportedServiceNames( int i) THROWS( () )
-{
- Sequence<UString> aRet(1);
-
- aRet.getArray()[0] = ODataStreamTest_getImplementationName( i);
-
-
- return aRet;
-}
-
-UString ODataStreamTest_getServiceName( int i) THROWS( () )
-{
- if( 1 == i ) {
- return L"test.com.sun.star.io.DataInputStream";
- }
- else {
- return L"test.com.sun.star.io.DataOutputStream";
- }
-}
-
-UString ODataStreamTest_getImplementationName( int i) THROWS( () )
-{
- if( 1 == i ) {
- return L"test.com.sun.star.comp.extensions.stm.DataInputStream";
- }
- else {
- return L"test.com.sun.star.comp.extensions.stm.DataOutputStream";
- }
-}
-
-
-/**------------------------------------------------------
-*
-*
-*
-*
-*
-*------------------------------------------------------*/
-class MyPersistObject :
- public XPersistObject,
- public XPropertySet,
- public OWeakObject
-{
-public:
- MyPersistObject( ) : m_sServiceName( OMyPersistObject_getServiceName() )
- {}
- MyPersistObject( const UString & sServiceName ) : m_sServiceName( sServiceName )
- {}
- ~MyPersistObject()
- {}
-
-public:
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
- void acquire() { OWeakObject::acquire(); }
- void release() { OWeakObject::release(); }
- void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
-public:
- virtual UString getServiceName(void) const THROWS( (UsrSystemException) );
- virtual void write(const XObjectOutputStreamRef& OutStream) THROWS( (IOException, UsrSystemException) );
- virtual void read(const XObjectInputStreamRef& InStream) THROWS( (IOException, UsrSystemException) );
-
-public:
-
- virtual XPropertySetInfoRef getPropertySetInfo(void) const THROWS( (UsrSystemException) );
- virtual void setPropertyValue(const UString& aPropertyName, const UsrAny& aValue)
- THROWS( ( UnknownPropertyException,
- PropertyVetoException,
- IllegalArgumentException,
- WrappedTargetException,
- UsrSystemException) );
- virtual UsrAny getPropertyValue(const UString& PropertyName) const
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) );
- virtual void addPropertyChangeListener( const UString& aPropertyName,
- const XPropertyChangeListenerRef& xListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) );
- virtual void removePropertyChangeListener( const UString& aPropertyName,
- const XPropertyChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) );
- virtual void addVetoableChangeListener( const UString& PropertyName,
- const XVetoableChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) );
- virtual void removeVetoableChangeListener( const UString& PropertyName,
- const XVetoableChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) );
-
-public:
- INT32 m_l;
- float m_f;
- double m_d;
- BOOL m_b;
- BYTE m_byte;
- wchar_t m_c;
- UString m_s;
- XPersistObjectRef m_ref;
- UString m_sServiceName;
-};
-
-
-
-XPropertySetInfoRef MyPersistObject::getPropertySetInfo(void) const THROWS( (UsrSystemException) )
-{
- return XPropertySetInfoRef();
-}
-
-void MyPersistObject::setPropertyValue(const UString& aPropertyName, const UsrAny& aValue)
- THROWS( ( UnknownPropertyException,
- PropertyVetoException,
- IllegalArgumentException,
- WrappedTargetException,
- UsrSystemException) )
-{
- if( L"long" == aPropertyName ) {
- m_l = aValue.getINT32();
- }
- else if ( L"float" == aPropertyName ) {
- m_f = aValue.getFloat();
- }
- else if( L"double" == aPropertyName ) {
- m_d = aValue.getDouble();
- }
- else if( L"bool" == aPropertyName ) {
- m_b = aValue.getBOOL();
- }
- else if( L"byte" == aPropertyName ) {
- m_byte = aValue.getBYTE();
- }
- else if( L"char" == aPropertyName ) {
- m_c = aValue.getChar();
- }
- else if( L"string" == aPropertyName ) {
- m_s = aValue.getString();
- }
- else if( L"object" == aPropertyName ) {
- if( aValue.getReflection() == XPersistObject_getReflection() ) {
- XPersistObjectRef *pRef = (XPersistObjectRef*) aValue.get();
- if( pRef ) {
- m_ref = *pRef;
- }
- else {
- m_ref = 0;
- }
- }
- else
- {
- m_ref = 0;
- }
- }
-}
-
-
-UsrAny MyPersistObject::getPropertyValue(const UString& aPropertyName) const
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) )
-{
- UsrAny aValue;
- if( L"long" == aPropertyName ) {
- aValue.setINT32( m_l );
- }
- else if ( L"float" == aPropertyName ) {
- aValue.setFloat( m_f );
- }
- else if( L"double" == aPropertyName ) {
- aValue.setDouble( m_d );
- }
- else if( L"bool" == aPropertyName ) {
- aValue.setBOOL( m_b );
- }
- else if( L"byte" == aPropertyName ) {
- aValue.setBYTE( m_byte );
- }
- else if( L"char" == aPropertyName ) {
- aValue.setChar( m_c );
- }
- else if( L"string" == aPropertyName ) {
- aValue.setString( m_s );
- }
- else if( L"object" == aPropertyName ) {
- aValue.set( &m_ref , XPersistObject_getReflection() );
- }
- return aValue;
-}
-
-
-void MyPersistObject::addPropertyChangeListener( const UString& aPropertyName,
- const XPropertyChangeListenerRef& xListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) )
-{
-
-}
-
-void MyPersistObject::removePropertyChangeListener( const UString& aPropertyName,
- const XPropertyChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) )
-{
-}
-void MyPersistObject::addVetoableChangeListener(const UString& PropertyName,
- const XVetoableChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) )
-{
-
-}
-
-void MyPersistObject::removeVetoableChangeListener( const UString& PropertyName,
- const XVetoableChangeListenerRef& aListener)
- THROWS( ( UnknownPropertyException,
- WrappedTargetException,
- UsrSystemException) )
-{
-
-}
-
-
-
-BOOL MyPersistObject::queryInterface( Uik aUik , XInterfaceRef &rOut )
-{
- if( XPersistObject::getSmartUik() == aUik ) {
- rOut = ( XPersistObject * ) this;
- }
- else if( XPropertySet::getSmartUik() == aUik ) {
- rOut = ( XPropertySet * ) this;
- }
- else
- return OWeakObject::queryInterface( aUik , rOut );
-
- return TRUE;
-}
-
-UString MyPersistObject::getServiceName() const THROWS( (UsrSystemException) )
-{
- return m_sServiceName;
-}
-
-void MyPersistObject::write( const XObjectOutputStreamRef & rOut )
- THROWS( (IOException,UsrSystemException))
-{
- rOut->writeLong( m_l);
- rOut->writeFloat( m_f );
- rOut->writeDouble( m_d );
- rOut->writeBoolean( m_b );
- rOut->writeByte( m_byte );
- rOut->writeChar( m_c );
- rOut->writeUTF( m_s );
- rOut->writeObject( m_ref );
-}
-
-
-void MyPersistObject::read( const XObjectInputStreamRef & rIn )
- THROWS( (IOException, UsrSystemException) )
-{
- m_l = rIn->readLong();
- m_f = rIn->readFloat();
- m_d = rIn->readDouble();
- m_b = rIn->readBoolean();
- m_byte = rIn->readByte();
- m_c = rIn->readChar();
- m_s = rIn->readUTF();
- m_ref = rIn->readObject();
-}
-
-XInterfaceRef OMyPersistObject_CreateInstance( const XMultiServiceFactoryRef & rSMgr )
- THROWS((Exception))
-{
- MyPersistObject *p = new MyPersistObject( );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-Sequence<UString> OMyPersistObject_getSupportedServiceNames( ) THROWS( () )
-{
- Sequence<UString> aRet(1);
- aRet.getArray()[0] = OMyPersistObject_getImplementationName();
- return aRet;
-}
-
-UString OMyPersistObject_getServiceName( ) THROWS( () )
-{
- return L"test.com.sun.star.io.PersistTest";
-}
-
-UString OMyPersistObject_getImplementationName( ) THROWS( () )
-{
- return L"test.com.sun.star.io.PersistTest";
-}
-
-
-// ---------------------------------------------
-// -----------------------------------------------
-class OObjectStreamTest :
- public ODataStreamTest
-{
-public:
- OObjectStreamTest( const XMultiServiceFactoryRef &r) : ODataStreamTest(r) {}
-public: // refcounting
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
-
-public:
- virtual void testInvariant(const UString& TestName, const XInterfaceRef& TestObject)
- THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual INT32 test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
-
-private:
- void OObjectStreamTest::testObject( const XObjectOutputStreamRef &rOut,
- const XObjectInputStreamRef &rIn );
-
-private:
-};
-
-
-
-
-BOOL OObjectStreamTest::queryInterface( Uik uik , XInterfaceRef &rOut )
-{
- if( XSimpleTest::getSmartUik() == uik ) {
- rOut = (XSimpleTest *) this;
- }
- else {
- return ODataStreamTest::queryInterface( uik , rOut );
- }
- return TRUE;
-}
-
-
-void OObjectStreamTest::testInvariant( const UString& TestName, const XInterfaceRef& TestObject )
- THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
-
-
- if( L"com.sun.star.io.ObjectInputStream" == TestName ) {
- ODataStreamTest::testInvariant( TestName , TestObject );
- XObjectInputStreamRef dataInput( TestObject , USR_QUERY );
- XMarkableStreamRef markable( TestObject , USR_QUERY );
- ERROR_ASSERT( dataInput.is() , "XObjectInputStream cannot be queried" );
- ERROR_ASSERT( markable.is() , "XMarkableStream cannot be queried" );
- }
- else if( L"com.sun.star.io.ObjectOutputStream" == TestName ) {
- ODataStreamTest::testInvariant( TestName , TestObject );
- XMarkableStreamRef markable( TestObject , USR_QUERY );
- XObjectOutputStreamRef dataOutput( TestObject , USR_QUERY );
- ERROR_ASSERT( dataOutput.is(), "XObjectOutputStream cannot be queried" );
- ERROR_ASSERT( markable.is() , "XMarkableStream cannot be queried" );
- }
-
- XServiceInfoRef info( TestObject, USR_QUERY );
- ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
- if( info.is() )
- {
- ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
- ERROR_ASSERT( ! info->supportsService( L"bla bluzb" ) , "XServiceInfo test failed" );
- }
-
-}
-
-INT32 OObjectStreamTest::test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.ObjectInputStream" == TestName ||
- L"com.sun.star.io.ObjectOutputStream" == TestName ) {
-
- try {
- if( 0 == hTestHandle ) {
- testInvariant( TestName , TestObject );
- }
- else if( DATASTREAM_TEST_MAX_HANDLE >= hTestHandle ) {
- INT32 hOldHandle = hTestHandle;
- hTestHandle = ODataStreamTest::test( L"com.sun.star.io.DataInputStream" ,
- TestObject , hTestHandle );
- if( hTestHandle == -1 ){
- hTestHandle = hOldHandle;
- }
- }
- else {
-
- XActiveDataSinkRef rSink( TestObject, USR_QUERY );
- XActiveDataSourceRef rSource( TestObject , USR_QUERY );
-
- XObjectInputStreamRef rInput( TestObject , USR_QUERY );
- XObjectOutputStreamRef rOutput( TestObject , USR_QUERY );
-
-
- XInterfaceRef x = m_rFactory->createInstance( L"com.sun.star.io.Pipe");
-
- XInputStreamRef rPipeInput( x , USR_QUERY );
- XOutputStreamRef rPipeOutput( x , USR_QUERY );
-
- x = m_rFactory->createInstance( L"com.sun.star.io.MarkableInputStream" );
- XInputStreamRef markableInput( x , USR_QUERY );
- XActiveDataSinkRef markableSink( x , USR_QUERY );
-
- x = m_rFactory->createInstance( L"com.sun.star.io.MarkableOutputStream" );
- XOutputStreamRef markableOutput( x , USR_QUERY );
- XActiveDataSourceRef markableSource( x , USR_QUERY );
-
- OSL_ASSERT( markableInput.is() );
- OSL_ASSERT( markableOutput.is() );
- OSL_ASSERT( markableSink.is() );
- OSL_ASSERT( markableSource.is() );
-
- markableSink->setInputStream( rPipeInput );
- markableSource->setOutputStream( rPipeOutput );
-
- if( ! rSink.is() ) {
- x = m_rFactory->createInstance( L"com.sun.star.io.ObjectInputStream" );
- x->queryInterface( XObjectInputStream::getSmartUik() , rInput );
- x->queryInterface( XActiveDataSink::getSmartUik() , rSink );
- }
- else if ( !rSource.is() ) {
- x = m_rFactory->createInstance( L"com.sun.star.io.ObjectOutputStream" );
- x->queryInterface( XObjectOutputStream::getSmartUik() , rOutput );
- x->queryInterface( XActiveDataSource::getSmartUik() , rSource );
- }
-
- OSL_ASSERT( rPipeInput.is() );
- OSL_ASSERT( rPipeOutput.is() );
-
- rSink->setInputStream( markableInput );
- rSource->setOutputStream( markableOutput );
-
- OSL_ASSERT( rSink->getInputStream().is() );
- OSL_ASSERT( rSource->getOutputStream().is() );
-
- if( 1 + DATASTREAM_TEST_MAX_HANDLE == hTestHandle ) {
- testObject( rOutput , rInput);
- }
- rInput->closeInput();
- rOutput->closeOutput();
-
- }
- }
- catch( Exception& e ) {
- BUILD_ERROR( 0 , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() );
- }
- catch(...) {
- BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
- }
-
- hTestHandle ++;
-
- if( hTestHandle > 1 +DATASTREAM_TEST_MAX_HANDLE ) {
- // all tests finished.
- hTestHandle = -1;
- }
- }
- else {
- BUILD_ERROR( 0 , "service not supported by test." );
- }
- return hTestHandle;
-}
-
-
-BOOL compareMyPropertySet( XPropertySetRef &r1 , XPropertySetRef &r2 )
-{
- BOOL b = TRUE;
-
- if( r1->getPropertyValue( L"long" ).getReflection() == Void_getReflection() ||
- r2->getPropertyValue( L"long" ).getReflection() == Void_getReflection() ) {
-
- // one of the objects is not the correct propertyset !
- return FALSE;
- }
-
- b = b && ( r1->getPropertyValue( L"long" ).getINT32() ==
- r2->getPropertyValue( L"long" ).getINT32() );
-
- b = b && ( r1->getPropertyValue( L"float" ).getFloat() ==
- r2->getPropertyValue( L"float" ).getFloat() );
-
- b = b && ( r1->getPropertyValue( L"double" ).getDouble() ==
- r2->getPropertyValue( L"double" ).getDouble() );
-
- b = b && ( r1->getPropertyValue( L"bool" ).getBOOL() ==
- r2->getPropertyValue( L"bool" ).getBOOL() );
-
- b = b && ( r1->getPropertyValue( L"byte" ).getBYTE() ==
- r2->getPropertyValue( L"byte" ).getBYTE() );
-
- b = b && ( r1->getPropertyValue( L"char" ).getChar() ==
- r2->getPropertyValue( L"char" ).getChar() );
-
- b = b && ( r1->getPropertyValue( L"string" ).getString() ==
- r2->getPropertyValue( L"string" ).getString() );
-
- UsrAny o1 = r1->getPropertyValue( L"object" );
- UsrAny o2 = r2->getPropertyValue( L"object" );
-
- if( o1.getReflection() == XPersistObject_getReflection() ) {
-
- if( o2.getReflection() == XPersistObject_getReflection() ) {
- XPersistObjectRef rPersist1 = *((XPersistObjectRef*) o1.get());
- XPersistObjectRef rPersist2 = *((XPersistObjectRef*) o2.get());
- XPropertySetRef rProp1( rPersist1 , USR_QUERY );
- XPropertySetRef rProp2( rPersist2 , USR_QUERY );
-
- if( rProp1.is() && rProp2.is() && ! ( rProp1 == rProp2 )
- &&( rProp1 != r1 )) {
- compareMyPropertySet( rProp1 , rProp2 );
- }
- }
- else {
- b = FALSE;
- }
- }
- else {
- if( o2.getReflection() == XPersistObject_getReflection() ) {
- b = FALSE;
- }
- }
-
- return b;
-}
-
-void OObjectStreamTest::testObject( const XObjectOutputStreamRef &rOut,
- const XObjectInputStreamRef &rIn )
-{
- ERROR_ASSERT( rOut.is() , "no objectOutputStream" );
- ERROR_ASSERT( rIn.is() , "no objectInputStream" );
-
- XMultiServiceFactoryRef xProv = getProcessServiceManager();
- ERROR_ASSERT( xProv.is() , "no global service manager" );
-
-
- // tests, if saving an object with an unknown service name allows
- // reading the data behind the object !
- {
- XInterfaceRef x = * new MyPersistObject( L"bla blubs" );
-
- XPersistObjectRef persistRef( x , USR_QUERY );
- ERROR_ASSERT( persistRef.is() , "couldn't instantiate PersistTest object" );
-
- rOut->writeObject( persistRef );
- rOut->writeLong( (INT32) 0xdeadbeef );
-
- ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
-
- try
- {
- XPersistObjectRef xReadPersistRef = rIn->readObject();
- ERROR_ASSERT( 0 , "expected exception not thrown" );
- }
- catch( IOException& e )
- {
- // all is ok
- }
-
- ERROR_ASSERT( (INT32) 0xdeadbeef == rIn->readLong() ,
- "wrong data after object with unknown service name." );
- }
-
- {
- XInterfaceRef x = xProv->createInstance(L"test.com.sun.star.io.PersistTest");
- XPersistObjectRef persistRef( x , USR_QUERY );
-
- ERROR_ASSERT( persistRef.is() , "couldn't instantiate PersistTest object" );
-
- XPropertySetRef rProp( persistRef , USR_QUERY );
- ERROR_ASSERT( rProp.is() , "test object is no property set " );
-
- UsrAny any;
- any.setINT32( 0x83482 );
- rProp->setPropertyValue( L"long" , any );
-
- any.setFloat( 42.23 );
- rProp->setPropertyValue( L"float" , any );
-
- any.setDouble( 233.321412 );
- rProp->setPropertyValue( L"double" , any );
-
- any.setBOOL( TRUE );
- rProp->setPropertyValue( L"bool" , any );
-
- any.setBYTE( 130 );
- rProp->setPropertyValue( L"byte" , any );
-
- any.setChar( 'h' );
- rProp->setPropertyValue( L"char" , any );
-
- any.setString( L"hi du !" );
- rProp->setPropertyValue( L"string" , any );
-
- any.set( &persistRef, XPersistObject_getReflection() ); // try a self reference
- rProp->setPropertyValue( L"object" , any );
-
- // do read and write
- rOut->writeObject( persistRef );
- ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
- XPersistObjectRef xReadPersistRef = rIn->readObject( );
-
- XPropertySetRef rPropRead( xReadPersistRef , USR_QUERY );
- ERROR_ASSERT( compareMyPropertySet( rProp , rPropRead ) , "objects has not been read properly !" );
-
- // destroy selfreferences
- rProp->setPropertyValue( L"object", UsrAny() );
- rPropRead->setPropertyValue( L"object", UsrAny() );
- }
-
- {
- XMarkableStreamRef markableOut( rOut , USR_QUERY );
- ERROR_ASSERT( markableOut.is() , "markable stream cannot be queried" );
-
- // do the same thing multiple times to check if
- // buffering and marks work correctly
- for( int i = 0 ; i < 2000 ; i ++ ) {
-
- XInterfaceRef x = xProv->createInstance(L"test.com.sun.star.io.PersistTest");
- XPersistObjectRef persistRef( x , USR_QUERY );
-
- XPropertySetRef rProp( persistRef , USR_QUERY );
- ERROR_ASSERT( rProp.is() , "test object is no property set " );
-
- UsrAny any;
- any.setINT32( 0x83482 );
- rProp->setPropertyValue( L"long" , any );
-
- any.setFloat( 42.23 );
- rProp->setPropertyValue( L"float" , any );
-
- any.setDouble( 233.321412 );
- rProp->setPropertyValue( L"double" , any );
-
- any.setBOOL( TRUE );
- rProp->setPropertyValue( L"bool" , any );
-
- any.setBYTE( 130 );
- rProp->setPropertyValue( L"byte" , any );
-
- any.setChar( 'h' );
- rProp->setPropertyValue( L"char" , any );
-
- any.setString( L"hi du !" );
- rProp->setPropertyValue( L"string" , any );
-
-
- x = xProv->createInstance(L"test.com.sun.star.io.PersistTest");
- XPersistObjectRef persist2ndRef( x , USR_QUERY );
-
-
- // Note : persist2ndRef contains coincident values, but also coincident values must be
- // saved properly !
- any.set( &persist2ndRef, XPersistObject_getReflection() ); // try a self reference
- rProp->setPropertyValue( L"object" , any );
-
- // simply test, if markable operations and object operations do not interfere
- INT32 nMark = markableOut->createMark();
-
- // do read and write
- rOut->writeObject( persistRef );
-
- // further markable tests !
- INT32 nOffset = markableOut->offsetToMark( nMark );
- markableOut->jumpToMark( nMark );
- markableOut->deleteMark( nMark );
- markableOut->jumpToFurthest();
-
-
-
-
-
- ERROR_ASSERT( 0 != rIn->available() , "no data arrived at input" );
- XPersistObjectRef xReadPersistRef = rIn->readObject( );
-
- XPropertySetRef rProp1( persistRef , USR_QUERY );
- XPropertySetRef rProp2( xReadPersistRef , USR_QUERY );
- ERROR_ASSERT( compareMyPropertySet( rProp1, rProp2) , "objects has not been read properly !" );
- }
- }
-}
-
-
-XInterfaceRef OObjectStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception))
-{
- OObjectStreamTest *p = new OObjectStreamTest( rSMgr );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-Sequence<UString> OObjectStreamTest_getSupportedServiceNames( int i) THROWS( () )
-{
- Sequence<UString> aRet(1);
- aRet.getArray()[0] = OObjectStreamTest_getImplementationName( i);
- return aRet;
-}
-
-UString OObjectStreamTest_getServiceName( int i) THROWS( () )
-{
- if( 1 == i ) {
- return L"test.com.sun.star.io.ObjectInputStream";
- }
- else {
- return L"test.com.sun.star.io.ObjectOutputStream";
- }
-}
-
-UString OObjectStreamTest_getImplementationName( int i) THROWS( () )
-{
- if( 1 == i ) {
- return L"test.com.sun.star.comp.extensions.stm.ObjectInputStream";
- }
- else {
- return L"test.com.sun.star.comp.extensions.stm.ObjectOutputStream";
- }
-}
-
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/stm/exports.dxp b/extensions/test/stm/exports.dxp
deleted file mode 100644
index e4bc69d23..000000000
--- a/extensions/test/stm/exports.dxp
+++ /dev/null
@@ -1,2 +0,0 @@
-exService_writeRegEntry
-exService_getFactory
diff --git a/extensions/test/stm/makefile.mk b/extensions/test/stm/makefile.mk
deleted file mode 100644
index ac31f76fb..000000000
--- a/extensions/test/stm/makefile.mk
+++ /dev/null
@@ -1,61 +0,0 @@
-#*************************************************************************
-#
-# DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
-#
-# Copyright 2000, 2010 Oracle and/or its affiliates.
-#
-# OpenOffice.org - a multi-platform office productivity suite
-#
-# This file is part of OpenOffice.org.
-#
-# OpenOffice.org is free software: you can redistribute it and/or modify
-# it under the terms of the GNU Lesser General Public License version 3
-# only, as published by the Free Software Foundation.
-#
-# OpenOffice.org is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY; without even the implied warranty of
-# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
-# GNU Lesser General Public License version 3 for more details
-# (a copy is included in the LICENSE file that accompanied this code).
-#
-# You should have received a copy of the GNU Lesser General Public License
-# version 3 along with OpenOffice.org. If not, see
-# <http://www.openoffice.org/license.html>
-# for a copy of the LGPLv3 License.
-#
-#*************************************************************************
-PRJ=..$/..
-
-PRJNAME=extensions
-TARGET=teststm
-USE_DEFFILE=TRUE
-ENABLE_EXCEPTIONS=TRUE
-
-# --- Settings -----------------------------------------------------
-.INCLUDE : $(PRJ)$/util$/makefile.pmk
-
-# --- Files --------------------------------------------------------
-OBJFILES= $(SLO)$/pipetest.obj $(SLO)$/testfactreg.obj $(SLO)$/datatest.obj \
- $(SLO)$/marktest.obj
-
-SHL1TARGET= $(TARGET)$(DLLPOSTFIX)
-LIB1TARGET= $(SLB)$/$(TARGET).lib
-
-SHL1STDLIBS= \
- $(SALLIB) \
- $(TOOLSLIB)
-
-LIB1OBJFILES= $(OBJFILES)
-SHL1LIBS= $(LIB1TARGET)
-SHL1IMPLIB= i$(TARGET)
-SHL1DEPN= makefile.mk $(SHL1LIBS)
-SHL1DEF= $(MISC)$/$(SHL1TARGET).def
-
-DEF1NAME= $(SHL1TARGET)
-DEF1EXPORTFILE= exports.dxp
-
-
-# --- Targets ------------------------------------------------------
-
-.INCLUDE : target.mk
-.INCLUDE : $(PRJ)$/util$/target.pmk
diff --git a/extensions/test/stm/marktest.cxx b/extensions/test/stm/marktest.cxx
deleted file mode 100644
index a6121dee6..000000000
--- a/extensions/test/stm/marktest.cxx
+++ /dev/null
@@ -1,658 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-#include <smart/com/sun/star/test/XSimpleTest.hxx>
-#include <smart/com/sun/star/io/XMarkableStream.hxx>
-#include <smart/com/sun/star/io/XActiveDataSink.hxx>
-#include <smart/com/sun/star/io/XActiveDataSource.hxx>
-#include <smart/com/sun/star/io/XConnectable.hxx>
-
-#include <smart/com/sun/star/lang/XServiceInfo.hxx>
-
-
-#include <usr/factoryhlp.hxx>
-
-#include <usr/reflserv.hxx> // for EXTERN_SERVICE_CALLTYPE
-#include <usr/weak.hxx> // OWeakObject
-
-#include <osl/conditn.hxx>
-#include <osl/mutex.hxx>
-#include <osl/thread.hxx>
-
-#include <string.h>
-
-#include "testfactreg.hxx"
-
-
-using namespace usr;
-
-class OMarkableOutputStreamTest :
- public XSimpleTest,
- public OWeakObject
-{
-public:
- OMarkableOutputStreamTest( const XMultiServiceFactoryRef & rFactory );
- ~OMarkableOutputStreamTest();
-
-public: // refcounting
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
- void acquire() { OWeakObject::acquire(); }
- void release() { OWeakObject::release(); }
- void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
-public: // implementation names
- static Sequence< UString > getSupportedServiceNames_Static(void) THROWS( () );
- static UString getImplementationName_Static() THROWS( () );
-
-public:
- virtual void testInvariant(const UString& TestName, const XInterfaceRef& TestObject)
- THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual INT32 test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual BOOL testPassed(void) THROWS( ( UsrSystemException) );
- virtual Sequence< UString > getErrors(void) THROWS( (UsrSystemException) );
- virtual Sequence< UsrAny > getErrorExceptions(void) THROWS( (UsrSystemException) );
- virtual Sequence< UString > getWarnings(void) THROWS( (UsrSystemException) );
-
-private:
- void testSimple( const XOutputStreamRef &r, const XInputStreamRef &rInput );
-
-private:
- Sequence<UsrAny> m_seqExceptions;
- Sequence<UString> m_seqErrors;
- Sequence<UString> m_seqWarnings;
- XMultiServiceFactoryRef m_rFactory;
-
-};
-
-OMarkableOutputStreamTest::OMarkableOutputStreamTest( const XMultiServiceFactoryRef &rFactory )
- : m_rFactory( rFactory )
-{
-
-}
-
-OMarkableOutputStreamTest::~OMarkableOutputStreamTest()
-{
-
-}
-
-
-BOOL OMarkableOutputStreamTest::queryInterface( Uik uik , XInterfaceRef &rOut )
-{
- if( XSimpleTest::getSmartUik() == uik ) {
- rOut = (XSimpleTest *) this;
- }
- else {
- return OWeakObject::queryInterface( uik , rOut );
- }
- return TRUE;
-}
-
-
-void OMarkableOutputStreamTest::testInvariant( const UString& TestName, const XInterfaceRef& TestObject )
- THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- XServiceInfoRef info( TestObject, USR_QUERY );
- ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
- if( info.is() )
- {
- ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
- ERROR_ASSERT( ! info->supportsService( L"bla bluzb" ) , "XServiceInfo test failed" );
- }
-}
-
-
-INT32 OMarkableOutputStreamTest::test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.MarkableOutputStream" == TestName ) {
- try {
- if( 0 == hTestHandle ) {
- testInvariant( TestName , TestObject );
- }
- else {
- XInterfaceRef x = m_rFactory->createInstance( L"com.sun.star.io.Pipe");
- XOutputStreamRef rPipeOutput( x , USR_QUERY );
- XInputStreamRef rPipeInput( x , USR_QUERY );
-
- XActiveDataSourceRef source( TestObject , USR_QUERY );
- source->setOutputStream( rPipeOutput );
-
- XOutputStreamRef rOutput( TestObject , USR_QUERY );
-
- OSL_ASSERT( rPipeInput.is() );
- OSL_ASSERT( rOutput.is() );
- if( 1 == hTestHandle ) {
- // checks usual streaming
- testSimple( rOutput , rPipeInput );
- }
- }
-
- }
- catch( Exception& e ) {
- BUILD_ERROR( 0 , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() );
- }
- catch(...) {
- BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
- }
-
- hTestHandle ++;
-
- if( 2 == hTestHandle ) {
- // all tests finished.
- hTestHandle = -1;
- }
- }
- else {
- THROW( IllegalArgumentException() );
- }
- return hTestHandle;
-}
-
-
-
-BOOL OMarkableOutputStreamTest::testPassed(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors.getLen() == 0;
-}
-
-
-Sequence< UString > OMarkableOutputStreamTest::getErrors(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors;
-}
-
-
-Sequence< UsrAny > OMarkableOutputStreamTest::getErrorExceptions(void) THROWS( (UsrSystemException) )
-{
- return m_seqExceptions;
-}
-
-
-Sequence< UString > OMarkableOutputStreamTest::getWarnings(void) THROWS( (UsrSystemException) )
-{
- return m_seqWarnings;
-}
-
-
-void OMarkableOutputStreamTest::testSimple( const XOutputStreamRef &rOutput ,
- const XInputStreamRef &rInput )
-{
- XMarkableStreamRef rMarkable( rOutput , USR_QUERY );
-
- ERROR_ASSERT( rMarkable.is() , "no MarkableStream implemented" );
-
- // first check normal input/output facility
- char pcStr[] = "Live long and prosper !";
-
- Sequence<BYTE> seqWrite( strlen( pcStr )+1 );
- memcpy( seqWrite.getArray() , pcStr , seqWrite.getLen() );
-
- Sequence<BYTE> seqRead( seqWrite.getLen() );
-
- int nMax = 10,i;
-
- for( i = 0 ; i < nMax ; i ++ ) {
- rOutput->writeBytes( seqWrite );
- rInput->readBytes( seqRead , rInput->available() );
- ERROR_ASSERT( ! strcmp( (char *) seqWrite.getArray() , (char * )seqRead.getArray() ) ,
- "error during read/write/skip" );
- }
-
- // Check buffer resizing
- nMax = 3000;
- for( i = 0 ; i < nMax ; i ++ ) {
- rOutput->writeBytes( seqWrite );
- }
-
- for( i = 0 ; i < nMax ; i ++ ) {
- rInput->readBytes( seqRead , seqWrite.getLen() );
- ERROR_ASSERT( ! strcmp( (char *) seqWrite.getArray() , (char * )seqRead.getArray() ) ,
- "error during read/write" );
- }
-
- // Check creating marks !
- INT32 nMark = rMarkable->createMark();
-
- for( i = 0 ; i < nMax ; i ++ ) {
- rOutput->writeBytes( seqWrite );
- }
-
- ERROR_ASSERT( 0 == rInput->available() , "bytes available though mark is holded" );
-
- ERROR_ASSERT( nMax*seqWrite.getLen() == rMarkable->offsetToMark( nMark ) ,
- "offsetToMark failure" );
-
- rMarkable->deleteMark( nMark );
- ERROR_ASSERT( nMax*seqWrite.getLen() == rInput->available(),"bytes are not available though mark has been deleted" );
-
- rInput->skipBytes( nMax*seqWrite.getLen() );
- ERROR_ASSERT( 0 == rInput->available(), "skip bytes failure" );
-
- try {
- rMarkable->jumpToMark( nMark );
- ERROR_ASSERT( 0 , "jump to non existing mark possible !" );
- }
- catch ( IllegalArgumentException& e )
- {
- e;// ok, exception was thrown
- }
-
- // test putting marks not at the end of the stream!
- ERROR_ASSERT( 0 == rInput->available(), "stream isn't clean" );
- {
- Sequence< BYTE > aByte(256);
-
- for( i = 0 ; i < 256 ; i ++ )
- {
- aByte.getArray()[i] = i;
- }
- INT32 nMark1 = rMarkable->createMark();
-
- rOutput->writeBytes( aByte );
- rMarkable->jumpToMark( nMark1 );
- aByte.realloc( 10 );
- rOutput->writeBytes( aByte );
-
- INT32 nMark2 = rMarkable->createMark( );
-
- for( i = 0 ; i < 10 ; i ++ )
- {
- aByte.getArray()[i] = i+10;
- }
-
- rOutput->writeBytes( aByte );
-
- // allow the bytes to be written !
- rMarkable->jumpToFurthest();
- rMarkable->deleteMark( nMark1 );
- rMarkable->deleteMark( nMark2 );
-
- ERROR_ASSERT( 256 == rInput->available(), "in between mark failure" );
- rInput->readBytes( aByte ,256);
- for( i = 0 ; i < 256 ; i ++ )
- {
- ERROR_ASSERT( i == aByte.getArray()[i] , "in between mark failure" );
- }
- }
-
- {
- // now a more extensive mark test !
- Sequence<BYTE> as[4];
- INT32 an[4];
-
- for( i = 0 ; i < 4 ; i ++ ) {
- as[i].realloc(1);
- as[i].getArray()[0] = i;
- an[i] = rMarkable->createMark();
- rOutput->writeBytes( as[i] );
- }
-
- // check offset to mark
- for( i = 0 ; i < 4 ; i ++ ) {
- ERROR_ASSERT( rMarkable->offsetToMark( an[i] ) == 4-i , "offsetToMark failure" );
- }
-
- rMarkable->jumpToMark( an[1] );
- ERROR_ASSERT( rMarkable->offsetToMark( an[3] ) == -2 , "offsetToMark failure" );
-
- rMarkable->jumpToFurthest( );
- ERROR_ASSERT( rMarkable->offsetToMark( an[0] ) == 4 , "offsetToMark failure" );
-
- // now do a rewrite !
- for( i = 0 ; i < 4 ; i ++ ) {
- rMarkable->jumpToMark( an[3-i] );
- rOutput->writeBytes( as[i] );
- }
- // NOTE : CursorPos 1
-
- // now delete the marks !
- for( i = 0 ; i < 4 ; i ++ ) {
- rMarkable->deleteMark( an[i] );
- }
- ERROR_ASSERT( rInput->available() == 1 , "wrong number of bytes flushed" );
-
- rMarkable->jumpToFurthest();
-
- ERROR_ASSERT( rInput->available() == 4 , "wrong number of bytes flushed" );
-
- rInput->readBytes( seqRead , 4 );
-
- ERROR_ASSERT( 3 == seqRead.getArray()[0] , "rewrite didn't work" );
- ERROR_ASSERT( 2 == seqRead.getArray()[1] , "rewrite didn't work" );
- ERROR_ASSERT( 1 == seqRead.getArray()[2] , "rewrite didn't work" );
- ERROR_ASSERT( 0 == seqRead.getArray()[3] , "rewrite didn't work" );
-
- rOutput->closeOutput();
- rInput->closeInput();
- }
-
-}
-
-/**
-* for external binding
-**/
-XInterfaceRef OMarkableOutputStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception))
-{
- OMarkableOutputStreamTest *p = new OMarkableOutputStreamTest( rSMgr );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-
-
-Sequence<UString> OMarkableOutputStreamTest_getSupportedServiceNames(void) THROWS( () )
-{
- Sequence<UString> aRet(1);
- aRet.getArray()[0] = OMarkableOutputStreamTest_getImplementationName();
-
- return aRet;
-}
-
-UString OMarkableOutputStreamTest_getServiceName() THROWS( () )
-{
- return L"test.com.sun.star.io.MarkableOutputStream";
-}
-
-UString OMarkableOutputStreamTest_getImplementationName() THROWS( () )
-{
- return L"test.com.sun.starextensions.stm.MarkableOutputStream";
-}
-
-
-
-
-
-
-
-//-----------------------------------------------------
-// Input stream
-
-class OMarkableInputStreamTest :
- public XSimpleTest,
- public OWeakObject
-{
-public:
- OMarkableInputStreamTest( const XMultiServiceFactoryRef & rFactory );
- ~OMarkableInputStreamTest();
-
-public: // refcounting
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
- void acquire() { OWeakObject::acquire(); }
- void release() { OWeakObject::release(); }
- void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
-public: // implementation names
- static Sequence< UString > getSupportedServiceNames_Static(void) THROWS( () );
- static UString getImplementationName_Static() THROWS( () );
-
-public:
- virtual void testInvariant(const UString& TestName, const XInterfaceRef& TestObject)
- THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual INT32 test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual BOOL testPassed(void) THROWS( ( UsrSystemException) );
- virtual Sequence< UString > getErrors(void) THROWS( (UsrSystemException) );
- virtual Sequence< UsrAny > getErrorExceptions(void) THROWS( (UsrSystemException) );
- virtual Sequence< UString > getWarnings(void) THROWS( (UsrSystemException) );
-
-private:
- void testSimple( const XOutputStreamRef &r, const XInputStreamRef &rInput );
-
-private:
- Sequence<UsrAny> m_seqExceptions;
- Sequence<UString> m_seqErrors;
- Sequence<UString> m_seqWarnings;
- XMultiServiceFactoryRef m_rFactory;
-
-};
-
-OMarkableInputStreamTest::OMarkableInputStreamTest( const XMultiServiceFactoryRef &rFactory )
- : m_rFactory( rFactory )
-{
-
-}
-
-OMarkableInputStreamTest::~OMarkableInputStreamTest()
-{
-
-}
-
-
-BOOL OMarkableInputStreamTest::queryInterface( Uik uik , XInterfaceRef &rOut )
-{
- if( XSimpleTest::getSmartUik() == uik ) {
- rOut = (XSimpleTest *) this;
- }
- else {
- return OWeakObject::queryInterface( uik , rOut );
- }
- return TRUE;
-}
-
-
-void OMarkableInputStreamTest::testInvariant( const UString& TestName, const XInterfaceRef& TestObject )
- THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.MarkableInputStream" == TestName ) {
- XServiceInfoRef info( TestObject, USR_QUERY );
- ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
- if( info.is() )
- {
- ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
- ERROR_ASSERT( ! info->supportsService( L"bla bluzb" ) , "XServiceInfo test failed" );
- }
- }
- else {
- THROW( IllegalArgumentException() );
- }
-}
-
-
-INT32 OMarkableInputStreamTest::test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.MarkableInputStream" == TestName ) {
- try {
- if( 0 == hTestHandle ) {
- testInvariant( TestName , TestObject );
- }
- else {
- XInterfaceRef x = m_rFactory->createInstance( L"com.sun.star.io.Pipe");
- XOutputStreamRef rPipeOutput( x , USR_QUERY );
- XInputStreamRef rPipeInput( x , USR_QUERY );
-
- XActiveDataSinkRef sink( TestObject , USR_QUERY );
- sink->setInputStream( rPipeInput );
-
- XInputStreamRef rInput( TestObject , USR_QUERY );
-
- OSL_ASSERT( rPipeOutput.is() );
- OSL_ASSERT( rInput.is() );
- if( 1 == hTestHandle ) {
- // checks usual streaming
- testSimple( rPipeOutput , rInput );
- }
- }
-
- }
- catch( Exception& e ) {
- BUILD_ERROR( 0 , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() );
- }
- catch(...) {
- BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
- }
-
- hTestHandle ++;
-
- if( 2 == hTestHandle ) {
- // all tests finished.
- hTestHandle = -1;
- }
- }
- else {
- THROW( IllegalArgumentException() );
- }
- return hTestHandle;
-}
-
-
-
-BOOL OMarkableInputStreamTest::testPassed(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors.getLen() == 0;
-}
-
-
-Sequence< UString > OMarkableInputStreamTest::getErrors(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors;
-}
-
-
-Sequence< UsrAny > OMarkableInputStreamTest::getErrorExceptions(void) THROWS( (UsrSystemException) )
-{
- return m_seqExceptions;
-}
-
-
-Sequence< UString > OMarkableInputStreamTest::getWarnings(void) THROWS( (UsrSystemException) )
-{
- return m_seqWarnings;
-}
-
-
-void OMarkableInputStreamTest::testSimple( const XOutputStreamRef &rOutput ,
- const XInputStreamRef &rInput )
-{
- XMarkableStreamRef rMarkable( rInput , USR_QUERY );
-
- Sequence<BYTE> seqWrite( 256 );
- Sequence<BYTE> seqRead(10);
-
- for( int i = 0 ; i < 256 ; i ++ )
- {
- seqWrite.getArray()[i] = i;
- }
-
- rOutput->writeBytes( seqWrite );
- ERROR_ASSERT( 256 == rInput->available() , "basic read/write failure" );
-
- rInput->readBytes( seqRead , 10 );
- ERROR_ASSERT( 9 == seqRead.getArray()[9] , "basic read/write failure" );
-
- INT32 nMark = rMarkable->createMark();
-
- rInput->skipBytes( 50 );
- ERROR_ASSERT( 256-10-50 == rInput->available() , "marking error" );
- ERROR_ASSERT( 50 == rMarkable->offsetToMark( nMark ) , "marking error" );
-
- rMarkable->jumpToMark( nMark );
- ERROR_ASSERT( 256-10 == rInput->available() , "marking error" );
-
- rInput->readBytes( seqRead , 10 );
- ERROR_ASSERT( 10 == seqRead.getArray()[0] , "marking error" );
-
- // pos 20
- {
- INT32 nInBetweenMark = rMarkable->createMark( );
- rMarkable->jumpToMark( nMark );
- rMarkable->jumpToMark( nInBetweenMark );
-
- rInput->readBytes( seqRead , 10 );
- ERROR_ASSERT( 20 == seqRead.getArray()[0] , "Inbetween mark failed!\n" );
-
- rMarkable->deleteMark( nMark );
-
- // Check if releasing the first bytes works correct.
- rMarkable->jumpToMark( nInBetweenMark);
- rInput->readBytes( seqRead , 10 );
- ERROR_ASSERT( 20 == seqRead.getArray()[0] , "Inbetween mark failed!\n" );
-
- rMarkable->deleteMark( nInBetweenMark );
- }
-
- rMarkable->jumpToFurthest();
- ERROR_ASSERT( 256-10-50 == rInput->available() , "marking error" );
-
-
- ERROR_ASSERT( 100 == rInput->readSomeBytes( seqRead , 100 ) , "wrong results using readSomeBytes" );
- ERROR_ASSERT( 96 == rInput->readSomeBytes( seqRead , 1000) , "wrong results using readSomeBytes" );
- rOutput->closeOutput();
- rInput->closeInput();
-}
-
-/**
-* for external binding
-**/
-XInterfaceRef OMarkableInputStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception))
-{
- OMarkableInputStreamTest *p = new OMarkableInputStreamTest( rSMgr );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-
-
-Sequence<UString> OMarkableInputStreamTest_getSupportedServiceNames(void) THROWS( () )
-{
- Sequence<UString> aRet(1);
- aRet.getArray()[0] = OMarkableInputStreamTest_getImplementationName();
-
- return aRet;
-}
-
-UString OMarkableInputStreamTest_getServiceName() THROWS( () )
-{
- return L"test.com.sun.star.io.MarkableInputStream";
-}
-
-UString OMarkableInputStreamTest_getImplementationName() THROWS( () )
-{
- return L"test.com.sun.star.extensions.stm.MarkableInputStream";
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/stm/pipetest.cxx b/extensions/test/stm/pipetest.cxx
deleted file mode 100644
index d40b3e077..000000000
--- a/extensions/test/stm/pipetest.cxx
+++ /dev/null
@@ -1,448 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-#include <smart/com/sun/star/test/XSimpleTest.hxx>
-#include <smart/com/sun/star/io/XOutputStream.hxx>
-#include <smart/com/sun/star/io/XInputStream.hxx>
-
-#include <smart/com/sun/star/lang/XServiceInfo.hxx>
-
-#include <usr/factoryhlp.hxx>
-
-#include <usr/reflserv.hxx> // for EXTERN_SERVICE_CALLTYPE
-#include <usr/weak.hxx> // OWeakObject
-
-#include <osl/conditn.hxx>
-#include <osl/mutex.hxx>
-#include <osl/thread.hxx>
-
-#include <string.h>
-
-#include "testfactreg.hxx"
-#define IMPLEMENTATION_NAME L"test.com.sun.star.comp.extensions.stm.Pipe"
-#define SERVICE_NAME L"test.com.sun.star.io.Pipe"
-
-using namespace usr;
-
-class WriteToStreamThread :
- public osl::Thread
-{
-
-public:
-
- WriteToStreamThread( XOutputStreamRef xOutput , int iMax )
- {
- m_output = xOutput;
- m_iMax = iMax;
- }
-
- virtual ~WriteToStreamThread() {}
-
-
-protected:
-
- /// Working method which should be overridden.
- virtual void run() {
- for( int i = 0 ; i < m_iMax ; i ++ ) {
- m_output->writeBytes( createIntSeq(i) );
- }
- m_output->closeOutput();
- }
-
- /** Called when run() is done.
- * You might want to override it to do some cleanup.
- */
- virtual void onTerminated()
- {
- delete this;
- }
-
-
-private:
-
- XOutputStreamRef m_output;
- int m_iMax;
-};
-
-
-
-class OPipeTest :
- public XSimpleTest,
- public OWeakObject
-{
-public:
- OPipeTest( const XMultiServiceFactoryRef & rFactory );
- ~OPipeTest();
-
-public: // refcounting
- BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
- void acquire() { OWeakObject::acquire(); }
- void release() { OWeakObject::release(); }
- void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
-
-public: // implementation names
- static Sequence< UString > getSupportedServiceNames_Static(void) THROWS( () );
- static UString getImplementationName_Static() THROWS( () );
-
-public:
- virtual void testInvariant(const UString& TestName, const XInterfaceRef& TestObject)
- THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual INT32 test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) );
-
- virtual BOOL testPassed(void) THROWS( ( UsrSystemException) );
- virtual Sequence< UString > getErrors(void) THROWS( (UsrSystemException) );
- virtual Sequence< UsrAny > getErrorExceptions(void) THROWS( (UsrSystemException) );
- virtual Sequence< UString > getWarnings(void) THROWS( (UsrSystemException) );
-
-private:
- void testSimple( const XInterfaceRef & );
- void testBufferResizing( const XInterfaceRef & );
- void testMultithreading( const XInterfaceRef & );
-
-private:
- Sequence<UsrAny> m_seqExceptions;
- Sequence<UString> m_seqErrors;
- Sequence<UString> m_seqWarnings;
-
-};
-
-
-
-OPipeTest::OPipeTest( const XMultiServiceFactoryRef &rFactory )
-{
-
-}
-
-OPipeTest::~OPipeTest()
-{
-
-}
-
-
-BOOL OPipeTest::queryInterface( Uik uik , XInterfaceRef &rOut )
-{
- if( XSimpleTest::getSmartUik() == uik ) {
- rOut = (XSimpleTest *) this;
- }
- else {
- return OWeakObject::queryInterface( uik , rOut );
- }
- return TRUE;
-}
-
-
-void OPipeTest::testInvariant( const UString& TestName, const XInterfaceRef& TestObject )
- THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- XServiceInfoRef info( TestObject, USR_QUERY );
- ERROR_ASSERT( info.is() , "XServiceInfo not supported !" );
- if( info.is() )
- {
- ERROR_ASSERT( info->supportsService( TestName ), "XServiceInfo test failed" );
- ERROR_ASSERT( ! info->supportsService( L"bla bluzb" ) , "XServiceInfo test failed" );
- }
-
-}
-
-
-INT32 OPipeTest::test( const UString& TestName,
- const XInterfaceRef& TestObject,
- INT32 hTestHandle) THROWS( ( IllegalArgumentException,
- UsrSystemException) )
-{
- if( L"com.sun.star.io.Pipe" == TestName ) {
- try {
- if( 0 == hTestHandle ) {
- testInvariant( TestName , TestObject );
- }
- else if( 1 == hTestHandle ) {
- testSimple( TestObject );
- }
- else if( 2 == hTestHandle ) {
- testBufferResizing( TestObject );
- }
- else if( 3 == hTestHandle ) {
- testMultithreading( TestObject );
- }
- }
- catch( Exception& e ) {
- BUILD_ERROR( 0 , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() );
- }
- catch(...) {
- BUILD_ERROR( 0 , "unknown exception (Exception is not base class)" );
- }
-
- hTestHandle ++;
-
- if( 4 == hTestHandle ) {
- // all tests finished.
- hTestHandle = -1;
- }
- }
- else {
- THROW( IllegalArgumentException() );
- }
- return hTestHandle;
-}
-
-
-
-BOOL OPipeTest::testPassed(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors.getLen() == 0;
-}
-
-
-Sequence< UString > OPipeTest::getErrors(void) THROWS( (UsrSystemException) )
-{
- return m_seqErrors;
-}
-
-
-Sequence< UsrAny > OPipeTest::getErrorExceptions(void) THROWS( (UsrSystemException) )
-{
- return m_seqExceptions;
-}
-
-
-Sequence< UString > OPipeTest::getWarnings(void) THROWS( (UsrSystemException) )
-{
- return m_seqWarnings;
-}
-
-
-/***
-* the test methods
-*
-****/
-
-
-void OPipeTest::testSimple( const XInterfaceRef &r )
-{
-
- XInputStreamRef input( r , USR_QUERY );
- XOutputStreamRef output( r , USR_QUERY );
-
- ERROR_ASSERT( input.is() , "queryInterface on XInputStream failed" );
- ERROR_ASSERT( output.is() , "queryInterface onXOutputStream failed" );
-
- // basic read/write
- Sequence<BYTE> seqWrite = createSeq( "Hallo, du Ei !" );
-
- Sequence<BYTE> seqRead;
- for( int i = 0 ; i < 5000 ; i ++ ) {
- output->writeBytes( seqWrite );
- input->readBytes( seqRead , input->available() );
-
- ERROR_ASSERT( ! strcmp( (char *) seqWrite.getArray() , (char * )seqRead.getArray() ) ,
- "error during read/write/skip" );
- ERROR_ASSERT( 0 == input->available() ,
- "error during read/write/skip" );
-
- // available shouldn't return a negative value
- input->skipBytes( seqWrite.getLen() - 5 );
- ERROR_ASSERT( 0 == input->available() , "wrong available after skip" );
-
- // 5 bytes should be available
- output->writeBytes( seqWrite );
- ERROR_ASSERT( 5 == input->available() , "wrong available after skip/write " );
-
- input->readBytes( seqRead , 5 );
- ERROR_ASSERT( ! strcmp( (char*) seqRead.getArray() ,
- (char*) &( seqWrite.getArray()[seqWrite.getLen()-5] ) ),
- "write/read mismatich" );
-
- }
-
- output->writeBytes( seqWrite );
- ERROR_ASSERT( seqWrite.getLen() == input->available(), "wrong available() after write" );
-
- ERROR_ASSERT( 10 == input->readSomeBytes( seqRead , 10 ) , "maximal number of bytes ignored" );
- ERROR_ASSERT( seqWrite.getLen() -10 == input->readSomeBytes( seqRead , 100 ) ,
- "something wrong with readSomeBytes" );
-
-
- output->closeOutput();
- try {
- output->writeBytes( Sequence<BYTE> (100) );
- ERROR_ASSERT( 0 , "writing on a closed stream does not cause an exception" );
- }
- catch (IOException& e ) {
- e; // just to suppress warning during compile
- }
-
- ERROR_ASSERT(! input->readBytes( seqRead , 1 ), "eof not found !" );
-
- input->closeInput();
- try {
- input->readBytes( seqRead , 1 );
- ERROR_ASSERT( 0 , "reading from a closed stream does not cause an exception" );
- }
- catch( IOException& e ) {
- e; // just to suppress warning during compile
- }
-
-}
-
-void OPipeTest::testBufferResizing( const XInterfaceRef &r )
-{
-
- int iMax = 20000;
- XInputStreamRef input( r , USR_QUERY );
- XOutputStreamRef output( r , USR_QUERY );
-
- ERROR_ASSERT( input.is() , "queryInterface on XInputStream failed" );
- ERROR_ASSERT( output.is() , "queryInterface on XOutputStream failed" );
-
- Sequence<BYTE> seqRead;
-
- // this is just to better check the
- // internal buffers
- output->writeBytes( Sequence<BYTE>(100) );
- input->readBytes( Sequence<BYTE>() , 100);
-
- for( int i = 0 ; i < iMax ; i ++ ) {
- output->writeBytes( createIntSeq( i ) );
- }
-
- for( i = 0 ; i < iMax ; i ++ ) {
- input->readBytes( seqRead, createIntSeq(i).getLen() );
- ERROR_ASSERT( ! strcmp( (char*) seqRead.getArray() ,
- (char*) createIntSeq(i).getArray() ) ,
- "written/read mismatch\n" );
- }
-
- output->closeOutput();
- ERROR_ASSERT( ! input->readBytes( seqRead , 1 ) , "eof not reached !" );
- input->closeInput();
-}
-
-
-
-void OPipeTest::testMultithreading( const XInterfaceRef &r )
-{
-
-
- int iMax = 30000;
-
- XInputStreamRef input( r , USR_QUERY );
- XOutputStreamRef output( r , USR_QUERY );
-
- ERROR_ASSERT( input.is() , "queryInterface on XInputStream failed" );
- ERROR_ASSERT( output.is() , "queryInterface on XOutputStream failed" );
-
- Sequence<BYTE> seqRead;
-
- // deletes itself
- osl::Thread *p = new WriteToStreamThread( output, iMax );
-
- ERROR_ASSERT( p , "couldn't create thread for testing !\n" );
-
- p->create();
-
- for(int i = 0 ; TRUE ; i ++ ) {
- if( 0 == input->readBytes( seqRead, createIntSeq(i).getLen() ) ) {
- // eof reached !
- break;
- }
-
- ERROR_ASSERT( ! strcmp( (char*) seqRead.getArray() ,
- (char*) createIntSeq(i).getArray() ) ,
- "written/read mismatch\n" );
- }
-
- ERROR_ASSERT( i == iMax , "less elements read than written !");
- input->closeInput();
-}
-
-/* {
- try {
- XInterfaceRef x = xSMgr->createInstance( strService );
-
- XInputStreamRef input( x , USR_QUERY );
- XOutputStreamRef output( x , USR_QUERY );
-
- OSL_ASSERT( output.is() );
- while( TRUE ) {
- // basic read/write
- Sequence<BYTE> seqWrite( 500 );
- output->writeBytes( seqWrite );
-
- }
- }
- catch( IOException& e ) {
- printf( "%s %s\n" , UStringToString( e.getName() , CHARSET_SYSTEM ).GetCharStr() ,
- UStringToString( e.Message , CHARSET_SYSTEM ).GetCharStr() );
- }
- }
-*/
-
-
-
-
-/**
-* for external binding
-*
-*
-**/
-XInterfaceRef OPipeTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception))
-{
- OPipeTest *p = new OPipeTest( rSMgr );
- XInterfaceRef xService = *p;
- return xService;
-}
-
-
-
-Sequence<UString> OPipeTest_getSupportedServiceNames(void) THROWS( () )
-{
- Sequence<UString> aRet(1);
- aRet.getArray()[0] = OPipeTest_getImplementationName();
-
- return aRet;
-}
-
-UString OPipeTest_getServiceName() THROWS( () )
-{
- return SERVICE_NAME;
-}
-
-UString OPipeTest_getImplementationName() THROWS( () )
-{
- return IMPLEMENTATION_NAME;
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/stm/testfactreg.cxx b/extensions/test/stm/testfactreg.cxx
deleted file mode 100644
index 8817679b8..000000000
--- a/extensions/test/stm/testfactreg.cxx
+++ /dev/null
@@ -1,171 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-
-// MARKER(update_precomp.py): autogen include statement, do not remove
-#include "precompiled_extensions.hxx"
-#include <string.h>
-
-#include <usr/reflserv.hxx> // for EXTERN_SERVICE_CALLTYPE
-
-#include <usr/factoryhlp.hxx>
-#include "testfactreg.hxx"
-
-
-using namespace usr;
-
-#ifdef __cplusplus
-extern "C"
-{
-#endif
-
-BOOL EXTERN_SERVICE_CALLTYPE exService_writeRegEntry(
- const UNO_INTERFACE(XRegistryKey)* xUnoKey)
-
-{
- XRegistryKeyRef xKey;
- uno2smart(xKey, *xUnoKey);
-
- UString str = UString( L"/" ) + OPipeTest_getImplementationName() + UString( L"/UNO/SERVICES" );
- XRegistryKeyRef xNewKey = xKey->createKey( str );
- xNewKey->createKey( OPipeTest_getServiceName() );
-
- str = UString( L"/" ) + ODataStreamTest_getImplementationName(1) + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( ODataStreamTest_getServiceName(1) );
-
- str = UString( L"/" ) + ODataStreamTest_getImplementationName(2) + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( ODataStreamTest_getServiceName(2) );
-
- str = UString( L"/" ) + OObjectStreamTest_getImplementationName(1) + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( OObjectStreamTest_getServiceName(1) );
-
- str = UString( L"/" ) + OObjectStreamTest_getImplementationName(2) + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( OObjectStreamTest_getServiceName(2) );
-
- str = UString( L"/" ) + OMarkableOutputStreamTest_getImplementationName() + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( OMarkableOutputStreamTest_getServiceName() );
-
- str = UString( L"/" ) + OMarkableInputStreamTest_getImplementationName() + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( OMarkableInputStreamTest_getServiceName() );
-
- str = UString( L"/" ) + OMyPersistObject_getImplementationName() + UString( L"/UNO/SERVICES" );
- xNewKey = xKey->createKey( str );
- xNewKey->createKey( OMyPersistObject_getServiceName() );
-
- return TRUE;
-}
-
-
-UNO_INTERFACE(XInterface) EXTERN_SERVICE_CALLTYPE exService_getFactory
-(
- const wchar_t* implementationName,
- const UNO_INTERFACE(XMultiServiceFactory)* xUnoFact,
- const UNO_INTERFACE(XRegistryKey)*
-)
-{
- UNO_INTERFACE(XInterface) xUnoRet = {0, 0};
-
- XInterfaceRef xRet;
- XMultiServiceFactoryRef xSMgr;
- UString aImplementationName(implementationName);
-
- uno2smart(xSMgr, *xUnoFact);
-
- if (aImplementationName == OPipeTest_getImplementationName() )
- {
- xRet = createSingleFactory( xSMgr, implementationName,
- OPipeTest_CreateInstance,
- OPipeTest_getSupportedServiceNames() );
- }
- else if( aImplementationName == ODataStreamTest_getImplementationName(1) ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- ODataStreamTest_CreateInstance,
- ODataStreamTest_getSupportedServiceNames(1) );
- }
- else if( aImplementationName == ODataStreamTest_getImplementationName(2) ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- ODataStreamTest_CreateInstance,
- ODataStreamTest_getSupportedServiceNames(2) );
- }
- else if( aImplementationName == OObjectStreamTest_getImplementationName(1) ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- OObjectStreamTest_CreateInstance,
- OObjectStreamTest_getSupportedServiceNames(1) );
- }
- else if( aImplementationName == OObjectStreamTest_getImplementationName(2) ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- OObjectStreamTest_CreateInstance,
- OObjectStreamTest_getSupportedServiceNames(2) );
- }
- else if( aImplementationName == OMarkableOutputStreamTest_getImplementationName() ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- OMarkableOutputStreamTest_CreateInstance,
- OMarkableOutputStreamTest_getSupportedServiceNames() );
- }
- else if( aImplementationName == OMarkableInputStreamTest_getImplementationName() ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- OMarkableInputStreamTest_CreateInstance,
- OMarkableInputStreamTest_getSupportedServiceNames() );
- }
- else if( aImplementationName == OMyPersistObject_getImplementationName() ) {
- xRet = createSingleFactory( xSMgr , implementationName,
- OMyPersistObject_CreateInstance,
- OMyPersistObject_getSupportedServiceNames() );
- }
- if (xRet.is())
- {
- smart2uno(xRet, xUnoRet);
- }
-
- return xUnoRet;
-}
-
-#ifdef __cplusplus
-}
-#endif
-
-Sequence<BYTE> createSeq( char * p )
-{
- Sequence<BYTE> seq( strlen( p )+1 );
- strcpy( (char * ) seq.getArray() , p );
- return seq;
-}
-
-Sequence<BYTE> createIntSeq( INT32 i )
-{
- char pcCount[20];
- sprintf( pcCount , "%d" , i );
- return createSeq( pcCount );
-}
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
diff --git a/extensions/test/stm/testfactreg.hxx b/extensions/test/stm/testfactreg.hxx
deleted file mode 100644
index 07e192a94..000000000
--- a/extensions/test/stm/testfactreg.hxx
+++ /dev/null
@@ -1,113 +0,0 @@
-/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
-/*************************************************************************
- *
- * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
- *
- * Copyright 2000, 2010 Oracle and/or its affiliates.
- *
- * OpenOffice.org - a multi-platform office productivity suite
- *
- * This file is part of OpenOffice.org.
- *
- * OpenOffice.org is free software: you can redistribute it and/or modify
- * it under the terms of the GNU Lesser General Public License version 3
- * only, as published by the Free Software Foundation.
- *
- * OpenOffice.org is distributed in the hope that it will be useful,
- * but WITHOUT ANY WARRANTY; without even the implied warranty of
- * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- * GNU Lesser General Public License version 3 for more details
- * (a copy is included in the LICENSE file that accompanied this code).
- *
- * You should have received a copy of the GNU Lesser General Public License
- * version 3 along with OpenOffice.org. If not, see
- * <http://www.openoffice.org/license.html>
- * for a copy of the LGPLv3 License.
- *
- ************************************************************************/
-XInterfaceRef OPipeTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> OPipeTest_getSupportedServiceNames(void) THROWS( () );
-UString OPipeTest_getServiceName() THROWS( () );
-UString OPipeTest_getImplementationName() THROWS( () );
-
-XInterfaceRef ODataStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> ODataStreamTest_getSupportedServiceNames( int i) THROWS( () );
-UString ODataStreamTest_getServiceName( int i) THROWS( ( ) );
-UString ODataStreamTest_getImplementationName( int i) THROWS( () );
-
-XInterfaceRef OMarkableOutputStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> OMarkableOutputStreamTest_getSupportedServiceNames(void) THROWS( () );
-UString OMarkableOutputStreamTest_getServiceName() THROWS( () );
-UString OMarkableOutputStreamTest_getImplementationName() THROWS( () );
-
-XInterfaceRef OMarkableInputStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> OMarkableInputStreamTest_getSupportedServiceNames(void) THROWS( () );
-UString OMarkableInputStreamTest_getServiceName() THROWS( () );
-UString OMarkableInputStreamTest_getImplementationName() THROWS( () );
-
-XInterfaceRef OObjectStreamTest_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> OObjectStreamTest_getSupportedServiceNames( int i) THROWS( () );
-UString OObjectStreamTest_getServiceName( int i) THROWS( () );
-UString OObjectStreamTest_getImplementationName( int i) THROWS( () );
-
-XInterfaceRef OMyPersistObject_CreateInstance( const XMultiServiceFactoryRef & rSMgr ) THROWS((Exception));
-Sequence<UString> OMyPersistObject_getSupportedServiceNames( ) THROWS( () );
-UString OMyPersistObject_getServiceName( ) THROWS( () );
-UString OMyPersistObject_getImplementationName( ) THROWS( () );
-
-Sequence<BYTE> createSeq( char * p );
-Sequence<BYTE> createIntSeq( INT32 i );
-
-#define BUILD_ERROR(expr, Message)\
- {\
- m_seqErrors.realloc( m_seqErrors.getLen() + 1 ); \
- m_seqExceptions.realloc( m_seqExceptions.getLen() + 1 ); \
- String str; \
- str += __FILE__;\
- str += " "; \
- str += "(" ; \
- str += __LINE__ ;\
- str += ")\n";\
- str += "[ " ; \
- str += #expr; \
- str += " ] : " ; \
- str += Message; \
- m_seqErrors.getArray()[ m_seqErrors.getLen()-1] = StringToOUString( str , CHARSET_SYSTEM ); \
- }\
- ((void)0)
-
-
-#define WARNING_ASSERT(expr, Message) \
- if( ! (expr) ) { \
- m_seqWarnings.realloc( m_seqErrors.getLen() +1 ); \
- String str;\
- str += __FILE__;\
- str += " "; \
- str += "(" ; \
- str += __LINE__ ;\
- str += ")\n";\
- str += "[ " ; \
- str += #expr; \
- str += " ] : " ; \
- str += Message; \
- m_seqWarnings.getArray()[ m_seqWarnings.getLen()-1] = StringToOUString( str , CHARSET_SYSTEM ); \
- return; \
- }\
- ((void)0)
-
-#define ERROR_ASSERT(expr, Message) \
- if( ! (expr) ) { \
- BUILD_ERROR(expr, Message );\
- return; \
- }\
- ((void)0)
-
-#define ERROR_EXCEPTION_ASSERT(expr, Message, Exception) \
- if( !(expr)) { \
- BUILD_ERROR(expr,Message);\
- m_seqExceptions.getArray()[ m_seqExceptions.getLen()-1] = UsrAny( Exception );\
- return; \
- } \
- ((void)0)
-
-/* vim:set shiftwidth=4 softtabstop=4 expandtab: */