2010-10-12 08:57:08 -05:00
|
|
|
/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
|
re-base on ALv2 code. Includes (at least) relevant parts of:
linecap: Reintegrating finished LineCap feature
Patch contributed by Regina Henschel
http://svn.apache.org/viewvc?view=revision&revision=1232507
Patches contributed by Sven Jacobi
impress212: #i81610# fixed animation export
http://svn.apache.org/viewvc?view=revision&revision=1167620
impress212: drawinglayer gbuild environment changes
http://svn.apache.org/viewvc?view=revision&revision=1167627
http://svn.apache.org/viewvc?view=revision&revision=1167628
impress212: DffPropSet -> minor code improvements, removing table
http://svn.apache.org/viewvc?view=revision&revision=1167634
impress212: #158494# fixed excel import (text rotation)
http://svn.apache.org/viewvc?view=revision&revision=1167638
Patches contributed by Armin Le Grand
Svg: Reintegrated Svg replacement from /branches/alg/svgreplavement
http://svn.apache.org/viewvc?view=revision&revision=1220836
#118728# changed indentifying definitions for Svg file detection
http://svn.apache.org/viewvc?view=revision&revision=1229961
#118838# LineGeometry creation for complicated cases optimized to
create single Polygons
http://svn.apache.org/viewvc?view=revision&revision=1236232
#119176# corrected file type detection for SVG for svg files
without xml header
http://svn.apache.org/viewvc?view=revision&revision=1309445
#118728# Extended Svg file detection
http://svn.apache.org/viewvc?view=revision&revision=1230531
#118529# solve break converters and convert commands for OLEs and images
http://svn.apache.org/viewvc?view=revision&revision=1186168
svg: added WaE changes from branch svgreplacement to trunc
http://svn.apache.org/viewvc?view=revision&revision=1222974
svg: corrected missing member initialization
http://svn.apache.org/viewvc?view=revision&revision=1226134
fix for #118525#: Using primitives for chart sub-geometry visualisation
http://svn.apache.org/viewvc?view=revision&revision=1226879
#118898# Adapted ImpGraphic::ImplGetBitmap to correctly convert
metafiles to bitmapEx ...
http://svn.apache.org/viewvc?view=revision&revision=1293316
fix for #118525#: removed no longer used variable maOriginalMapMode, one
more exception eliminated
http://svn.apache.org/viewvc?view=revision&revision=1227097
#16758# Added buffering to the VDev usages of the VclProcessor2D derivates...
http://svn.apache.org/viewvc?view=revision&revision=1229521
#116758# Secured VDev buffer device to Vcl deinit
http://svn.apache.org/viewvc?view=revision&revision=1230574
#116758# added remembering allocated VDevs for VDevBuffer to be able to also
delete these when vcl goes down; it should never happen, but You never know
http://svn.apache.org/viewvc?view=revision&revision=1230927
#118730# Changed SvgClipPathNode to use MaskPrimitive2D for primitive
representation instead of TransparencePrimitive2D
http://svn.apache.org/viewvc?view=revision&revision=1231198
#118822# secured 3D geometry creation (slices) by subdividing the 2D
source polyPolygon early
http://svn.apache.org/viewvc?view=revision&revision=1234749
#118829# enhanced Svg gradient quality, obstacles avoided
http://svn.apache.org/viewvc?view=revision&revision=1235361
#118834# Unified usage of TextBreakupHelper as single tooling class
for i18n text primitive breakup
http://svn.apache.org/viewvc?view=revision&revision=1236110
#118853# added square pixel size limit to conversion of
TransparencePrimitive2D to Metafile action
http://svn.apache.org/viewvc?view=revision&revision=1237656
#118824# coreccted mirroring and boundrect when the graphicmanager
is used for bitmap output
http://svn.apache.org/viewvc?view=revision&revision=1240097
#115092# Corrected VclProcessor2D::RenderPolygonStrokePrimitive2D for
various optimization scenarios
http://svn.apache.org/viewvc?view=revision&revision=1241434
#118783# Corrected errors in ID strings, corrected Svg line/fill export,
corrected polygon close state
http://svn.apache.org/viewvc?view=revision&revision=1232006
#118796# corrected null-pointer usage in SVG text exporter
http://svn.apache.org/viewvc?view=revision&revision=1240262
#118729# Use GraphicStreamUrl and GraphicUrl to allow multi image
import with linked graphics, too
http://svn.apache.org/viewvc?view=revision&revision=1229962
#118898# corrected error in GDIMetaFile::GetBoundRect in handling
MetaFloatTransparentAction
http://svn.apache.org/viewvc?view=revision&revision=1293349
#118855# Corrected handling of possibly created empty clipRegions
after PolyPolygon clipping
http://svn.apache.org/viewvc?view=revision&revision=1237725
#115962# Better (but not yet optimal, see comments in task) handling
of MetaFloatTransparentAction in PDF export
http://svn.apache.org/viewvc?view=revision&revision=1241078
IP clearance: #118466# This patch removes librsvg, libcroco, libgsf, ...
http://svn.apache.org/viewvc?view=revision&revision=1200879
118779# Added svg content streaming in/out to ImpGraphic stream operators
http://svn.apache.org/viewvc?view=revision&revision=1231908
linecap: correctons for WaE and mac drawing
http://svn.apache.org/viewvc?view=revision&revision=1232793
svg: uses current system Dpi for Svg replacement image creation
http://svn.apache.org/viewvc?view=revision&revision=1233948
Patches contributed by Mathias Bauer (and others)
gnumake4 work variously
http://svn.apache.org/viewvc?view=revision&revision=1394326
http://svn.apache.org/viewvc?view=revision&revision=1396797
http://svn.apache.org/viewvc?view=revision&revision=1397315
http://svn.apache.org/viewvc?view=revision&revision=1394326
Remove duplicate header includes.
cws mba34issues01: #i117720#: convert assertion into warning
http://svn.apache.org/viewvc?view=revision&revision=1172352
118485 - Styles for OLEs are not saved. Submitted by Armin Le Grand.
http://svn.apache.org/viewvc?view=revision&revision=1182166
cws mba34issues01: #i117714#: remove assertion
http://svn.apache.org/viewvc?view=revision&revision=1172357
Patch contributed by Jurgen Schmidt
add some additional checks to ensure proper reading operations
http://svn.apache.org/viewvc?view=revision&revision=1209022
mostly prefer our stream / bounds checking work.
Patches contributed by Herbert Duerr
#i118816# add clarifying comment regarding Font::*Color*() methods
http://svn.apache.org/viewvc?view=revision&revision=1233833
extend macro->string handling for empty strings
http://svn.apache.org/viewvc?view=revision&revision=1175801
avoid magic constants for SALCOLOR_NONE
http://svn.apache.org/viewvc?view=revision&revision=1177543
initialize slant properly in ImplFontMetricData constructor (author=iorsh)
http://svn.apache.org/viewvc?view=revision&revision=1177551
#i118675# make check for extension updates more stable
http://svn.apache.org/viewvc?view=revision&revision=1214797
#a118617# remove VBasicEventListener.dll binary
There are no known users depending on its CLSID
http://svn.apache.org/viewvc?view=revision&revision=1203697
Patches contributed by Ariel Constenla-Haile
Fix build breaker on Linux/gcc
http://svn.apache.org/viewvc?view=revision&revision=1221104
Fix crash when trying to instantiate css.graphic.GraphicRasterizer_RSVG
http://svn.apache.org/viewvc?view=revision&revision=1215559
Patches contributed by Oliver-Rainer Wittmann
sw34bf06: #i117962# - method <SwFlyFrm::IsPaint(..)> - consider
instances of <SwFlyDrawObj>
http://svn.apache.org/viewvc?view=revision&revision=1172120
sw34bf06: #i117783# - Writer's implementation of XPagePrintable -
apply print settings to new printing routines
http://svn.apache.org/viewvc?view=revision&revision=1172115
gnumake4 work variously from Hans-Joachim Lankenau
http://svn.apache.org/viewvc?view=revision&revision=1397315
http://svn.apache.org/viewvc?view=revision&revision=1396797
http://svn.apache.org/viewvc?view=revision&revision=1396782
http://svn.apache.org/viewvc?view=revision&revision=1394707
plus some amount of re-splitting of legacy headers.
Patch contributed by Pavel Janik
WaE: Remove unused variables.
http://svn.apache.org/viewvc?view=revision&revision=1230697
Patches contributed by Takashi Ono
mingwport35: i#117795: MinGW port fix for vcl2gnumake
http://svn.apache.org/viewvc?view=revision&revision=1172091
mingwport35: i#117795: MinGW port fix for vcl2gnumake
http://svn.apache.org/viewvc?view=revision&revision=1172091
Patch contributed by Christian Lippka
impress212: #i98044# re enable Text menu for outline and title shapes
http://svn.apache.org/viewvc?view=revision&revision=1167639
Patch contributed by Andre Fischer
118674: Made category B code optional and disabled by default.
http://svn.apache.org/viewvc?view=revision&revision=1215131
118881: Ignore empty paragraphs after bullets.
http://svn.apache.org/viewvc?view=revision&revision=1296205
Patches contributed by Philipp Lohmann
ooo340fixes: #i117780# use rtl allocator
http://svn.apache.org/viewvc?view=revision&revision=1172087
ooo34gsl02: #i117807# fix an off by one error (index actually
inside the pfb section header)
http://svn.apache.org/viewvc?view=revision&revision=1167576
various cleanups, related compilation fixes, warning cleanups, re-working
of obsolete stl template pieces to use boost instead, changed string
classes, re-adapt KDE about data, about dialog, fixing warnings,
and other fixes & improvements.
Disable svg import / render for about/ branding code-paths for now.
Restore full icon theme set.
Remove OS/2 conditionals and sources.
Remove conflicting gtk/full-screen monitors support.
Retain existing svg rasterizer files - temporarily disabled.
Standardize stringificaiton and fixup dllpostfix issues.
Rename SvgGradientHelper::== to equalTo to avoid overloading issues.
Use the flat GdiPlus API for LineCaps calls.
2012-10-09 06:22:23 -05:00
|
|
|
/*
|
|
|
|
* This file is part of the LibreOffice project.
|
|
|
|
*
|
|
|
|
* This Source Code Form is subject to the terms of the Mozilla Public
|
|
|
|
* License, v. 2.0. If a copy of the MPL was not distributed with this
|
|
|
|
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
|
|
|
|
*
|
|
|
|
* This file incorporates work covered by the following license notice:
|
|
|
|
*
|
|
|
|
* Licensed to the Apache Software Foundation (ASF) under one or more
|
|
|
|
* contributor license agreements. See the NOTICE file distributed
|
|
|
|
* with this work for additional information regarding copyright
|
|
|
|
* ownership. The ASF licenses this file to you under the Apache
|
|
|
|
* License, Version 2.0 (the "License"); you may not use this file
|
|
|
|
* except in compliance with the License. You may obtain a copy of
|
|
|
|
* the License at http://www.apache.org/licenses/LICENSE-2.0 .
|
|
|
|
*/
|
2006-09-16 07:35:11 -05:00
|
|
|
|
2000-09-18 10:18:56 -05:00
|
|
|
#include <stdio.h>
|
|
|
|
#include <stardiv/uno/repos/implementationregistration.hxx>
|
|
|
|
#include <stardiv/uno/script/script.hxx>
|
|
|
|
#include <stardiv/uno/beans/exactname.hxx>
|
|
|
|
|
|
|
|
#include <rtl/ustring.hxx>
|
2010-10-10 19:46:46 -05:00
|
|
|
#include <osl/diagnose.h>
|
2000-09-18 10:18:56 -05:00
|
|
|
#include <usr/services.hxx>
|
|
|
|
#include <vcl/svapp.hxx>
|
|
|
|
#include <usr/ustring.hxx>
|
|
|
|
#include <usr/weak.hxx>
|
|
|
|
#include <tools/string.hxx>
|
2010-10-11 16:11:20 -05:00
|
|
|
#include <osl/conditn.hxx>
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
using namespace usr;
|
|
|
|
|
2011-02-25 18:14:41 -06:00
|
|
|
using ::rtl::StringToOUString;
|
|
|
|
using ::rtl::OUStringToString;
|
|
|
|
|
2000-09-18 10:18:56 -05:00
|
|
|
#define PCHAR_TO_USTRING(x) StringToOUString(String(x),CHARSET_SYSTEM)
|
|
|
|
#define USTRING_TO_PCHAR(x) OUStringToString(x , CHARSET_DONTKNOW ).GetCharStr()
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*****
|
|
|
|
*
|
|
|
|
* A Test root object !
|
|
|
|
*
|
|
|
|
*****/
|
|
|
|
class MyPythonRoot :
|
|
|
|
public XInvokation,
|
|
|
|
public OWeakObject
|
|
|
|
{
|
|
|
|
public:
|
|
|
|
MyPythonRoot() { m_iTestValue = 15; }
|
|
|
|
BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
|
|
|
|
void acquire() { OWeakObject::acquire(); }
|
|
|
|
void release() { OWeakObject::release(); }
|
|
|
|
void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
|
|
|
|
|
|
|
|
public:
|
|
|
|
XIntrospectionAccessRef getIntrospection(void) const THROWS( (UsrSystemException) )
|
|
|
|
{ return XIntrospectionAccessRef(); }
|
|
|
|
|
|
|
|
UsrAny invoke( const UString& FunctionName,
|
|
|
|
const Sequence< UsrAny >& Params,
|
|
|
|
Sequence< INT16 >& OutParamIndex,
|
|
|
|
Sequence< UsrAny >& OutParam)
|
|
|
|
THROWS( ( IllegalArgumentException,
|
|
|
|
CannotConvertException,
|
|
|
|
InvocationTargetException,
|
|
|
|
UsrSystemException) );
|
|
|
|
void setValue(const UString& PropertyName, const UsrAny& Value)
|
|
|
|
THROWS( ( UnknownPropertyException,
|
|
|
|
CannotConvertException,
|
|
|
|
InvocationTargetException,
|
|
|
|
UsrSystemException) );
|
|
|
|
|
|
|
|
UsrAny getValue(const UString& PropertyName)
|
|
|
|
THROWS( ( UnknownPropertyException,
|
|
|
|
UsrSystemException) );
|
|
|
|
BOOL hasMethod(const UString& Name) const THROWS( (UsrSystemException) );
|
|
|
|
BOOL hasProperty(const UString& Name) const THROWS( (UsrSystemException) );
|
|
|
|
|
|
|
|
|
|
|
|
void getTestValueViaInout( int &inout )
|
|
|
|
{ inout = m_iTestValue; }
|
|
|
|
|
|
|
|
INT32 getTestValue() const
|
|
|
|
{ return m_iTestValue; }
|
|
|
|
|
|
|
|
void setTestValue( INT32 i )
|
|
|
|
{ m_iTestValue = i; }
|
|
|
|
|
|
|
|
void printTestValue()
|
|
|
|
{ fprintf( stderr, "TestValue : %d\n" , getTestValue() ); }
|
|
|
|
|
|
|
|
void addTestValue( INT32 i )
|
|
|
|
{ m_iTestValue += i; }
|
|
|
|
|
|
|
|
private:
|
|
|
|
|
|
|
|
INT32 m_iTestValue;
|
|
|
|
};
|
|
|
|
|
|
|
|
BOOL MyPythonRoot::queryInterface( Uik aUik, XInterfaceRef &rOut )
|
|
|
|
{
|
|
|
|
if( aUik == XInvokation::getSmartUik() ) {
|
|
|
|
rOut = ( XInvokation * ) this;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return OWeakObject::queryInterface( aUik , rOut );
|
|
|
|
}
|
|
|
|
return TRUE;
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
UsrAny MyPythonRoot::invoke( const UString& FunctionName,
|
|
|
|
const Sequence< UsrAny >& Params,
|
|
|
|
Sequence< INT16 >& OutParamIndex,
|
|
|
|
Sequence< UsrAny >& OutParam)
|
|
|
|
THROWS( ( IllegalArgumentException,
|
|
|
|
CannotConvertException,
|
|
|
|
InvocationTargetException,
|
|
|
|
UsrSystemException) )
|
|
|
|
{
|
|
|
|
if( L"printTestValue" == FunctionName ) {
|
|
|
|
printTestValue();
|
|
|
|
}
|
|
|
|
else if( L"addTestValue" == FunctionName ) {
|
|
|
|
addTestValue( Params.getConstArray()[0].getINT32() );
|
|
|
|
}
|
|
|
|
else if( L"getTestValueViaInout" == FunctionName ) {
|
|
|
|
int i = Params.getConstArray()[0].getINT32();
|
|
|
|
getTestValueViaInout( i );
|
|
|
|
OutParam.getArray()[0].setINT32( i );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
THROW( InvocationTargetException() );
|
|
|
|
}
|
|
|
|
|
|
|
|
return UsrAny();
|
|
|
|
}
|
|
|
|
|
|
|
|
void MyPythonRoot::setValue(const UString& PropertyName, const UsrAny& Value)
|
|
|
|
THROWS( ( UnknownPropertyException,
|
|
|
|
CannotConvertException,
|
|
|
|
InvocationTargetException,
|
|
|
|
UsrSystemException) )
|
|
|
|
{
|
|
|
|
if( L"TestValue" == PropertyName ) {
|
|
|
|
setTestValue( Value.getINT32() );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
THROW( UnknownPropertyException() );
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
UsrAny MyPythonRoot::getValue(const UString& PropertyName)
|
|
|
|
THROWS( ( UnknownPropertyException,
|
|
|
|
UsrSystemException) )
|
|
|
|
{
|
|
|
|
UsrAny aRet;
|
|
|
|
|
|
|
|
if( L"TestValue" == PropertyName ) {
|
|
|
|
aRet.setINT32( getTestValue() );
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
THROW( UnknownPropertyException() );
|
|
|
|
}
|
|
|
|
|
|
|
|
return aRet;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
BOOL MyPythonRoot::hasMethod(const UString& Name) const THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
if( L"printTestValue" == Name ) {
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
else if( L"addTestValue" == Name ) {
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
else if( L"getTestValueViaInout" == Name ) {
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
BOOL MyPythonRoot::hasProperty(const UString& Name) const THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
if( L"TestValue" == Name ) {
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*****
|
|
|
|
*
|
|
|
|
* A test engine listener to check the debug interface
|
|
|
|
*
|
|
|
|
*****/
|
|
|
|
class TestListener :
|
|
|
|
public XEngineListener,
|
|
|
|
public OWeakObject
|
|
|
|
{
|
|
|
|
public:
|
|
|
|
|
|
|
|
TestListener()
|
|
|
|
{
|
|
|
|
m_pDebuggingRef = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
TestListener( XDebuggingRef *p )
|
|
|
|
{
|
|
|
|
attach( p );
|
|
|
|
}
|
|
|
|
|
|
|
|
~TestListener()
|
|
|
|
{
|
|
|
|
if( m_pDebuggingRef ) {
|
|
|
|
detach();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
|
|
|
|
void acquire() { OWeakObject::acquire(); }
|
|
|
|
void release() { OWeakObject::release(); }
|
|
|
|
void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
|
|
|
|
|
|
|
|
|
|
|
|
void attach( XDebuggingRef *p )
|
|
|
|
{
|
|
|
|
m_pDebuggingRef = p;
|
|
|
|
}
|
|
|
|
|
|
|
|
void detach( );
|
|
|
|
|
|
|
|
|
|
|
|
virtual void disposing( const EventObject &o )
|
|
|
|
{
|
|
|
|
if( m_pDebuggingRef ) {
|
|
|
|
detach();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
virtual void interrupt(const InterruptEngineEvent& Evt) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual void running(const EventObject& Evt) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
(*m_pDebuggingRef)->stop();
|
|
|
|
|
|
|
|
m_aDebugCondition.set();
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual void finished(const FinishEngineEvent& Evt) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
m_aDebugCondition.set();
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void cmdLine();
|
|
|
|
protected:
|
|
|
|
|
2010-10-11 16:11:20 -05:00
|
|
|
osl::Condition m_aDebugCondition;
|
2000-09-18 10:18:56 -05:00
|
|
|
XDebuggingRef *m_pDebuggingRef;
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
void TestListener::cmdLine()
|
|
|
|
{
|
|
|
|
// Condition is set by running listener
|
|
|
|
m_aDebugCondition.wait();
|
|
|
|
m_aDebugCondition.reset();
|
|
|
|
(*m_pDebuggingRef)->doContinue();
|
|
|
|
m_aDebugCondition.wait();
|
|
|
|
}
|
|
|
|
|
|
|
|
void TestListener::detach()
|
|
|
|
{
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( m_pDebuggingRef );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
m_pDebuggingRef = 0;
|
|
|
|
}
|
|
|
|
|
|
|
|
BOOL TestListener::queryInterface( Uik aUik, XInterfaceRef & rOut )
|
|
|
|
{
|
|
|
|
if( aUik == XEngineListener::getSmartUik() )
|
|
|
|
rOut = (XEngineListener*)this;
|
|
|
|
else
|
|
|
|
return OWeakObject::queryInterface( aUik, rOut );
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
void checkInvokation( const XInvokationRef &xInvoke )
|
|
|
|
{
|
|
|
|
UsrAny anyList;
|
|
|
|
|
|
|
|
// check exporting an object as an invokation
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xInvoke->hasProperty( L"list" ) );
|
2000-09-18 10:18:56 -05:00
|
|
|
anyList = xInvoke->getValue( L"list" );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( anyList.getReflection() == XInvokation_getReflection() );
|
2000-09-18 10:18:56 -05:00
|
|
|
XInvokationRef *pRef = ( XInvokationRef * ) anyList.get();
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( (*pRef).is() );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( (*pRef)->hasMethod( L"append" ) );
|
|
|
|
OSL_ASSERT( (*pRef)->hasMethod( L"count" ) );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
Sequence<UsrAny> seq(1);
|
|
|
|
UsrAny any( (INT32) 1);
|
|
|
|
(seq.getArray())[0] = any;
|
|
|
|
|
|
|
|
any = (*pRef)->invoke( L"count" , seq , Sequence<INT16>(), Sequence<UsrAny>() );
|
|
|
|
int nOldSize = any.getINT32();
|
|
|
|
|
|
|
|
any = (*pRef)->invoke( L"append" , seq , Sequence<INT16>(), Sequence<UsrAny>() );
|
|
|
|
any = (*pRef)->invoke( L"count" , seq , Sequence<INT16>(), Sequence<UsrAny>() );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( nOldSize + 1 == any.getINT32() );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// just for testing !
|
|
|
|
class PythonCodeLibrary :
|
|
|
|
public XLibraryAccess,
|
|
|
|
public OWeakObject
|
|
|
|
{
|
|
|
|
|
|
|
|
BOOL queryInterface( Uik aUik, XInterfaceRef & rOut );
|
|
|
|
void acquire() { OWeakObject::acquire(); }
|
|
|
|
void release() { OWeakObject::release(); }
|
|
|
|
void* getImplementation(Reflection *p) { return OWeakObject::getImplementation(p); }
|
|
|
|
|
|
|
|
|
|
|
|
virtual BOOL isFunction(const UString& FunctionName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual BOOL isValidPath(const UString& PathName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return FALSE;
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual Sequence< UString > getModuleNames(void) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return Sequence<UString> ();
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual UString getModuleSource(const UString& ModulName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
if( ModulName == L"testmodul" ) {
|
|
|
|
return UString( L"def testmethod():\n"
|
|
|
|
L" return 42\n");
|
|
|
|
}
|
|
|
|
return UString();
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual Sequence< BYTE > getModuleCode(const UString& ModuleName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return Sequence< BYTE > ();
|
|
|
|
}
|
|
|
|
|
|
|
|
virtual UString getFunctionSource(const UString& FunctionName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return UString();
|
|
|
|
}
|
|
|
|
virtual Sequence< BYTE > getFunctionCode(const UString& FunctionName) THROWS( (UsrSystemException) )
|
|
|
|
{
|
|
|
|
return Sequence< BYTE > ();
|
|
|
|
}
|
|
|
|
};
|
|
|
|
|
|
|
|
BOOL PythonCodeLibrary::queryInterface( Uik aUik, XInterfaceRef & rOut )
|
|
|
|
{
|
|
|
|
if( XLibraryAccess::getSmartUik() == aUik ) {
|
|
|
|
rOut = (XLibraryAccess* ) this;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
return OWeakObject::queryInterface( aUik , rOut );
|
|
|
|
}
|
|
|
|
|
|
|
|
return TRUE;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
/*
|
|
|
|
* main.
|
|
|
|
*/
|
2012-12-09 12:08:10 -06:00
|
|
|
int SAL_CALL main (int argc, char **argv)
|
2000-09-18 10:18:56 -05:00
|
|
|
{
|
|
|
|
// necessary startup code
|
|
|
|
XMultiServiceFactoryRef xSMgr = createRegistryServiceManager();
|
|
|
|
registerUsrServices( xSMgr );
|
|
|
|
setProcessServiceManager( xSMgr );
|
|
|
|
|
|
|
|
XInterfaceRef x = xSMgr->createInstance( L"stardiv.uno.repos.ImplementationRegistration" );
|
|
|
|
XImplementationRegistrationRef xReg( x, USR_QUERY );
|
|
|
|
sal_Char szBuf[1024];
|
|
|
|
|
|
|
|
ORealDynamicLoader::computeModuleName( "pythonengine", szBuf, 1024 );
|
|
|
|
UString aDllName( StringToOUString( szBuf, CHARSET_SYSTEM ) );
|
|
|
|
xReg->registerImplementation( L"stardiv.loader.SharedLibrary", aDllName, XSimpleRegistryRef() );
|
|
|
|
|
|
|
|
x = xSMgr->createInstance( L"stardiv.script.Python" );
|
|
|
|
XEngineRef xEngine( x, USR_QUERY );
|
|
|
|
XInvokationRef xInvoke( x, USR_QUERY );
|
|
|
|
XDebuggingRef xDebug( x , USR_QUERY );
|
|
|
|
|
|
|
|
XInterfaceRef rRoot( (XInvokation * )new MyPythonRoot , USR_QUERY );
|
|
|
|
xEngine->setRoot( rRoot );
|
|
|
|
|
|
|
|
|
|
|
|
// execute a simple script
|
|
|
|
xEngine->run( L"nIntTest = 5\n"
|
|
|
|
L"list = [2,3,4]\n" , XInterfaceRef(), Sequence<UsrAny> () );
|
|
|
|
|
|
|
|
/****
|
|
|
|
*
|
|
|
|
* Xinvokation - Test
|
|
|
|
*
|
|
|
|
*****/
|
|
|
|
// get/set an int !
|
|
|
|
{
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xInvoke->hasProperty( L"nIntTest" ) );
|
2000-09-18 10:18:56 -05:00
|
|
|
UsrAny any = xInvoke->getValue( L"nIntTest" );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_LONG );
|
|
|
|
OSL_ASSERT( any.getINT32() == 5 );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
// simple test: set an int !
|
|
|
|
xInvoke->setValue( L"nIntTest" , UsrAny( (INT32) 10 ) );
|
|
|
|
any = xInvoke->getValue( L"nIntTest" );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_LONG );
|
|
|
|
OSL_ASSERT( any.getINT32() == 10 );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// call a python method !
|
|
|
|
{
|
|
|
|
xEngine->run( L"def foo():\n"
|
|
|
|
L" return 'this is foo'\n" , XInterfaceRef() , Sequence<UsrAny> () );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xInvoke->hasMethod( L"foo" ) );
|
2000-09-18 10:18:56 -05:00
|
|
|
UsrAny any = xInvoke->invoke( L"foo" ,
|
|
|
|
Sequence<UsrAny>(),
|
|
|
|
Sequence<INT16>() ,
|
|
|
|
Sequence<UsrAny> () );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getString() == L"this is foo" );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// check exception handling !
|
|
|
|
{
|
2004-02-04 05:26:15 -06:00
|
|
|
try {
|
2000-09-18 10:18:56 -05:00
|
|
|
xInvoke->invoke( L"foo" , Sequence<UsrAny>(1) , Sequence<INT16>(), Sequence<UsrAny> () );
|
|
|
|
// wrong number of arguments
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( 0 );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
2004-02-04 05:26:15 -06:00
|
|
|
catch ( IllegalArgumentException& e ) {
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
2004-02-04 05:26:15 -06:00
|
|
|
catch ( InvocationTargetException& e ) {
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
2004-02-04 05:26:15 -06:00
|
|
|
catch ( CannotConvertException& e ) {
|
2000-09-18 10:18:56 -05:00
|
|
|
// empty any cannot be converted
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
// check InOut-Parameter
|
|
|
|
checkInvokation( xInvoke );
|
|
|
|
|
|
|
|
/*******
|
|
|
|
*
|
|
|
|
* Check Introspection Access
|
|
|
|
*
|
|
|
|
*******/
|
|
|
|
{
|
|
|
|
XIntrospectionAccessRef xIntrospection = xInvoke->getIntrospection();
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xIntrospection.is() );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
// no further test, simply call them
|
|
|
|
xIntrospection->getMethods(0);
|
|
|
|
xIntrospection->getProperties(0);
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xIntrospection->getSuppliedMethodConcepts() == 0 );
|
|
|
|
OSL_ASSERT( xIntrospection->getSuppliedPropertyConcepts() == 0 );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
Property prop = xIntrospection->getProperty( L"nIntTest" ,0 );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( prop.Name == L"nIntTest" );
|
|
|
|
OSL_ASSERT( prop.Type->getTypeClass() == TypeClass_LONG );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
XIdlMethodRef method = xIntrospection->getMethod( L"foo" , 0 );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( method->getName() == L"foo" );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/******
|
|
|
|
*
|
|
|
|
* Multithreading test
|
|
|
|
*
|
|
|
|
*******/
|
|
|
|
|
|
|
|
/******
|
|
|
|
*
|
|
|
|
* XDebuggingTest
|
|
|
|
*
|
|
|
|
******/
|
|
|
|
// stop/doContinue + runAsync listener
|
|
|
|
{
|
|
|
|
// test hangs, if something is wrong
|
|
|
|
|
|
|
|
TestListener *pListener = new TestListener( &xDebug );
|
|
|
|
XEngineListenerRef ref( (XEngineListener * ) pListener , USR_QUERY );
|
|
|
|
|
|
|
|
// single listener check !
|
|
|
|
xEngine->runAsync( L"pass\n"
|
|
|
|
, XInterfaceRef() , Sequence<UsrAny> () , ref );
|
|
|
|
pListener->cmdLine();
|
|
|
|
}
|
|
|
|
|
|
|
|
// ListenerAdministration check !
|
|
|
|
{
|
|
|
|
// test hangs, if something is wrong
|
|
|
|
|
|
|
|
TestListener *pListener = new TestListener( &xDebug );
|
|
|
|
XEngineListenerRef ref( (XEngineListener * ) pListener , USR_QUERY );
|
|
|
|
|
|
|
|
// engine listener check !
|
|
|
|
xEngine->addEngineListener( ref );
|
|
|
|
xEngine->runAsync( L"pass\n"
|
|
|
|
, XInterfaceRef() , Sequence<UsrAny> () , XEngineListenerRef() );
|
|
|
|
pListener->cmdLine();
|
|
|
|
xEngine->removeEngineListener( ref);
|
|
|
|
|
|
|
|
}
|
|
|
|
|
|
|
|
// check the import mechanism
|
|
|
|
{
|
|
|
|
XLibraryAccessRef xLibrary( ( XLibraryAccess * ) new PythonCodeLibrary , USR_QUERY );
|
|
|
|
xEngine->setLibraryAccess( xLibrary );
|
|
|
|
|
|
|
|
xEngine->run( L"import testmodul\n"
|
|
|
|
L"x = testmodul.testmethod()\n" , XInterfaceRef() , Sequence<UsrAny>() );
|
|
|
|
UsrAny any = xInvoke->getValue( L"x" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_LONG );
|
|
|
|
OSL_ASSERT( any.getINT32() == 42 );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// check other imports
|
|
|
|
{
|
|
|
|
// Check, if the libraries are available at run time
|
|
|
|
xEngine->run( L"import math\n"
|
|
|
|
L"dMathTest = math.exp(0)\n" , XInterfaceRef() , Sequence<UsrAny> () );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( xInvoke->hasProperty( L"dMathTest" ) );
|
2000-09-18 10:18:56 -05:00
|
|
|
UsrAny any = xInvoke->getValue( L"dMathTest" );
|
|
|
|
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_DOUBLE );
|
|
|
|
OSL_ASSERT( any.getDouble() == 1. );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// Test connection to root object !
|
|
|
|
{
|
|
|
|
xEngine->run( L"x = stardiv.root.TestValue\n"
|
|
|
|
L"y = stardiv.inout(5)\n"
|
|
|
|
L"stardiv.root.getTestValueViaInout(y)\n"
|
|
|
|
L"z = y.value\n" , XInterfaceRef() , Sequence<UsrAny> () );
|
|
|
|
|
|
|
|
UsrAny any = xInvoke->getValue( L"x" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_LONG );
|
|
|
|
OSL_ASSERT( any.getINT32() == 15 );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
any = xInvoke->getValue( L"z" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_LONG );
|
|
|
|
OSL_ASSERT( any.getINT32() == 15 );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
// Test exactName interface
|
|
|
|
{
|
|
|
|
UsrAny any = xInvoke->getValue( L"__builtins__" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( any.getReflection()->getTypeClass() == TypeClass_INTERFACE );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
XInvokationRef rInv( *((XInterfaceRef *) any.get() ), USR_QUERY );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( rInv.is() );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
XExactNameRef rName( *((XInterfaceRef*) any.get() ), USR_QUERY );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( rName.is() );
|
2000-09-18 10:18:56 -05:00
|
|
|
|
|
|
|
UString str = rName->getExactName( L"SYNTAXERROR" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( str.len() );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
// Test exactName interface of the engine itself
|
|
|
|
{
|
|
|
|
XExactNameRef rName( xInvoke , USR_QUERY );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( rName.is() );
|
2000-09-18 10:18:56 -05:00
|
|
|
UString str = rName->getExactName( L"STARDIV" );
|
2009-07-10 07:03:42 -05:00
|
|
|
OSL_ASSERT( str.len() );
|
2000-09-18 10:18:56 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
return 0;
|
|
|
|
}
|
|
|
|
|
2010-10-12 08:57:08 -05:00
|
|
|
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
|