1*b1cdbd2cSJim Jagielski /**************************************************************
2*b1cdbd2cSJim Jagielski *
3*b1cdbd2cSJim Jagielski * Licensed to the Apache Software Foundation (ASF) under one
4*b1cdbd2cSJim Jagielski * or more contributor license agreements. See the NOTICE file
5*b1cdbd2cSJim Jagielski * distributed with this work for additional information
6*b1cdbd2cSJim Jagielski * regarding copyright ownership. The ASF licenses this file
7*b1cdbd2cSJim Jagielski * to you under the Apache License, Version 2.0 (the
8*b1cdbd2cSJim Jagielski * "License"); you may not use this file except in compliance
9*b1cdbd2cSJim Jagielski * with the License. You may obtain a copy of the License at
10*b1cdbd2cSJim Jagielski *
11*b1cdbd2cSJim Jagielski * http://www.apache.org/licenses/LICENSE-2.0
12*b1cdbd2cSJim Jagielski *
13*b1cdbd2cSJim Jagielski * Unless required by applicable law or agreed to in writing,
14*b1cdbd2cSJim Jagielski * software distributed under the License is distributed on an
15*b1cdbd2cSJim Jagielski * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16*b1cdbd2cSJim Jagielski * KIND, either express or implied. See the License for the
17*b1cdbd2cSJim Jagielski * specific language governing permissions and limitations
18*b1cdbd2cSJim Jagielski * under the License.
19*b1cdbd2cSJim Jagielski *
20*b1cdbd2cSJim Jagielski *************************************************************/
21*b1cdbd2cSJim Jagielski
22*b1cdbd2cSJim Jagielski
23*b1cdbd2cSJim Jagielski #include "vbasystem.hxx"
24*b1cdbd2cSJim Jagielski #include <vbahelper/vbahelper.hxx>
25*b1cdbd2cSJim Jagielski #include <ooo/vba/word/WdCursorType.hpp>
26*b1cdbd2cSJim Jagielski #include <tools/diagnose_ex.h>
27*b1cdbd2cSJim Jagielski #include <tools/config.hxx>
28*b1cdbd2cSJim Jagielski #include <tools/string.hxx>
29*b1cdbd2cSJim Jagielski #include <osl/file.hxx>
30*b1cdbd2cSJim Jagielski #include <tools/urlobj.hxx>
31*b1cdbd2cSJim Jagielski #include <tools/string.hxx>
32*b1cdbd2cSJim Jagielski
33*b1cdbd2cSJim Jagielski using namespace ::ooo::vba;
34*b1cdbd2cSJim Jagielski using namespace ::com::sun::star;
35*b1cdbd2cSJim Jagielski
~PrivateProfileStringListener()36*b1cdbd2cSJim Jagielski PrivateProfileStringListener::~PrivateProfileStringListener()
37*b1cdbd2cSJim Jagielski {
38*b1cdbd2cSJim Jagielski }
39*b1cdbd2cSJim Jagielski
Initialize(const rtl::OUString & rFileName,const ByteString & rGroupName,const ByteString & rKey)40*b1cdbd2cSJim Jagielski void PrivateProfileStringListener::Initialize( const rtl::OUString& rFileName, const ByteString& rGroupName, const ByteString& rKey )
41*b1cdbd2cSJim Jagielski {
42*b1cdbd2cSJim Jagielski maFileName = rFileName;
43*b1cdbd2cSJim Jagielski maGroupName = rGroupName;
44*b1cdbd2cSJim Jagielski maKey = rKey;
45*b1cdbd2cSJim Jagielski }
46*b1cdbd2cSJim Jagielski
getValueEvent()47*b1cdbd2cSJim Jagielski uno::Any PrivateProfileStringListener::getValueEvent()
48*b1cdbd2cSJim Jagielski {
49*b1cdbd2cSJim Jagielski // get the private profile string
50*b1cdbd2cSJim Jagielski Config aCfg( maFileName );
51*b1cdbd2cSJim Jagielski aCfg.SetGroup( maGroupName );
52*b1cdbd2cSJim Jagielski rtl::OUString sValue = String( aCfg.ReadKey( maKey ), RTL_TEXTENCODING_DONTKNOW );
53*b1cdbd2cSJim Jagielski
54*b1cdbd2cSJim Jagielski return uno::makeAny( sValue );
55*b1cdbd2cSJim Jagielski }
56*b1cdbd2cSJim Jagielski
setValueEvent(const css::uno::Any & value)57*b1cdbd2cSJim Jagielski void PrivateProfileStringListener::setValueEvent( const css::uno::Any& value )
58*b1cdbd2cSJim Jagielski {
59*b1cdbd2cSJim Jagielski // set the private profile string
60*b1cdbd2cSJim Jagielski Config aCfg( maFileName );
61*b1cdbd2cSJim Jagielski aCfg.SetGroup( maGroupName );
62*b1cdbd2cSJim Jagielski
63*b1cdbd2cSJim Jagielski rtl::OUString aValue;
64*b1cdbd2cSJim Jagielski value >>= aValue;
65*b1cdbd2cSJim Jagielski aCfg.WriteKey( maKey, ByteString( aValue.getStr(), RTL_TEXTENCODING_DONTKNOW ) );
66*b1cdbd2cSJim Jagielski }
67*b1cdbd2cSJim Jagielski
SwVbaSystem(uno::Reference<uno::XComponentContext> & xContext)68*b1cdbd2cSJim Jagielski SwVbaSystem::SwVbaSystem( uno::Reference<uno::XComponentContext >& xContext ): SwVbaSystem_BASE( uno::Reference< XHelperInterface >(), xContext )
69*b1cdbd2cSJim Jagielski {
70*b1cdbd2cSJim Jagielski }
71*b1cdbd2cSJim Jagielski
~SwVbaSystem()72*b1cdbd2cSJim Jagielski SwVbaSystem::~SwVbaSystem()
73*b1cdbd2cSJim Jagielski {
74*b1cdbd2cSJim Jagielski }
75*b1cdbd2cSJim Jagielski
76*b1cdbd2cSJim Jagielski sal_Int32 SAL_CALL
getCursor()77*b1cdbd2cSJim Jagielski SwVbaSystem::getCursor() throw (uno::RuntimeException)
78*b1cdbd2cSJim Jagielski {
79*b1cdbd2cSJim Jagielski sal_Int32 nPointerStyle = getPointerStyle( getCurrentWordDoc(mxContext) );
80*b1cdbd2cSJim Jagielski
81*b1cdbd2cSJim Jagielski switch( nPointerStyle )
82*b1cdbd2cSJim Jagielski {
83*b1cdbd2cSJim Jagielski case POINTER_ARROW:
84*b1cdbd2cSJim Jagielski return word::WdCursorType::wdCursorNorthwestArrow;
85*b1cdbd2cSJim Jagielski case POINTER_NULL:
86*b1cdbd2cSJim Jagielski return word::WdCursorType::wdCursorNormal;
87*b1cdbd2cSJim Jagielski case POINTER_WAIT:
88*b1cdbd2cSJim Jagielski return word::WdCursorType::wdCursorWait;
89*b1cdbd2cSJim Jagielski case POINTER_TEXT:
90*b1cdbd2cSJim Jagielski return word::WdCursorType::wdCursorIBeam;
91*b1cdbd2cSJim Jagielski default:
92*b1cdbd2cSJim Jagielski return word::WdCursorType::wdCursorNormal;
93*b1cdbd2cSJim Jagielski }
94*b1cdbd2cSJim Jagielski }
95*b1cdbd2cSJim Jagielski
96*b1cdbd2cSJim Jagielski void SAL_CALL
setCursor(sal_Int32 _cursor)97*b1cdbd2cSJim Jagielski SwVbaSystem::setCursor( sal_Int32 _cursor ) throw (uno::RuntimeException)
98*b1cdbd2cSJim Jagielski {
99*b1cdbd2cSJim Jagielski try
100*b1cdbd2cSJim Jagielski {
101*b1cdbd2cSJim Jagielski switch( _cursor )
102*b1cdbd2cSJim Jagielski {
103*b1cdbd2cSJim Jagielski case word::WdCursorType::wdCursorNorthwestArrow:
104*b1cdbd2cSJim Jagielski {
105*b1cdbd2cSJim Jagielski const Pointer& rPointer( POINTER_ARROW );
106*b1cdbd2cSJim Jagielski setCursorHelper( getCurrentWordDoc(mxContext), rPointer, sal_False );
107*b1cdbd2cSJim Jagielski break;
108*b1cdbd2cSJim Jagielski }
109*b1cdbd2cSJim Jagielski case word::WdCursorType::wdCursorWait:
110*b1cdbd2cSJim Jagielski {
111*b1cdbd2cSJim Jagielski const Pointer& rPointer( static_cast< PointerStyle >( POINTER_WAIT ) );
112*b1cdbd2cSJim Jagielski //It will set the edit window, toobar and statusbar's mouse pointer.
113*b1cdbd2cSJim Jagielski setCursorHelper( getCurrentWordDoc(mxContext), rPointer, sal_True );
114*b1cdbd2cSJim Jagielski break;
115*b1cdbd2cSJim Jagielski }
116*b1cdbd2cSJim Jagielski case word::WdCursorType::wdCursorIBeam:
117*b1cdbd2cSJim Jagielski {
118*b1cdbd2cSJim Jagielski const Pointer& rPointer( static_cast< PointerStyle >( POINTER_TEXT ) );
119*b1cdbd2cSJim Jagielski //It will set the edit window, toobar and statusbar's mouse pointer.
120*b1cdbd2cSJim Jagielski setCursorHelper( getCurrentWordDoc( mxContext ), rPointer, sal_True );
121*b1cdbd2cSJim Jagielski break;
122*b1cdbd2cSJim Jagielski }
123*b1cdbd2cSJim Jagielski case word::WdCursorType::wdCursorNormal:
124*b1cdbd2cSJim Jagielski {
125*b1cdbd2cSJim Jagielski const Pointer& rPointer( POINTER_NULL );
126*b1cdbd2cSJim Jagielski setCursorHelper( getCurrentWordDoc( mxContext ), rPointer, sal_False );
127*b1cdbd2cSJim Jagielski break;
128*b1cdbd2cSJim Jagielski }
129*b1cdbd2cSJim Jagielski default:
130*b1cdbd2cSJim Jagielski throw uno::RuntimeException( rtl::OUString(
131*b1cdbd2cSJim Jagielski RTL_CONSTASCII_USTRINGPARAM("Unknown value for Cursor pointer")), uno::Reference< uno::XInterface >() );
132*b1cdbd2cSJim Jagielski // TODO: isn't this a flaw in the API? It should be allowed to throw an
133*b1cdbd2cSJim Jagielski // IllegalArgumentException, or so
134*b1cdbd2cSJim Jagielski }
135*b1cdbd2cSJim Jagielski }
136*b1cdbd2cSJim Jagielski catch( const uno::Exception& )
137*b1cdbd2cSJim Jagielski {
138*b1cdbd2cSJim Jagielski DBG_UNHANDLED_EXCEPTION();
139*b1cdbd2cSJim Jagielski }
140*b1cdbd2cSJim Jagielski }
141*b1cdbd2cSJim Jagielski
142*b1cdbd2cSJim Jagielski uno::Any SAL_CALL
PrivateProfileString(const rtl::OUString & rFilename,const rtl::OUString & rSection,const rtl::OUString & rKey)143*b1cdbd2cSJim Jagielski SwVbaSystem::PrivateProfileString( const rtl::OUString& rFilename, const rtl::OUString& rSection, const rtl::OUString& rKey ) throw ( uno::RuntimeException )
144*b1cdbd2cSJim Jagielski {
145*b1cdbd2cSJim Jagielski if( rFilename.getLength() == 0 )
146*b1cdbd2cSJim Jagielski throw uno::RuntimeException( rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "Failed to access document from shell" ) ), uno::Reference< uno::XInterface >() );
147*b1cdbd2cSJim Jagielski
148*b1cdbd2cSJim Jagielski // FIXME: need to detect whether it is a relative file path
149*b1cdbd2cSJim Jagielski // we need to detect if this is a URL, if not then assume its a file path
150*b1cdbd2cSJim Jagielski rtl::OUString sFileUrl;
151*b1cdbd2cSJim Jagielski INetURLObject aObj;
152*b1cdbd2cSJim Jagielski aObj.SetURL( rFilename );
153*b1cdbd2cSJim Jagielski bool bIsURL = aObj.GetProtocol() != INET_PROT_NOT_VALID;
154*b1cdbd2cSJim Jagielski if ( bIsURL )
155*b1cdbd2cSJim Jagielski sFileUrl = rFilename;
156*b1cdbd2cSJim Jagielski else
157*b1cdbd2cSJim Jagielski osl::FileBase::getFileURLFromSystemPath( rFilename, sFileUrl);
158*b1cdbd2cSJim Jagielski
159*b1cdbd2cSJim Jagielski ByteString aGroupName = ByteString( rSection.getStr(), RTL_TEXTENCODING_DONTKNOW);
160*b1cdbd2cSJim Jagielski ByteString aKey = ByteString( rKey.getStr(), RTL_TEXTENCODING_DONTKNOW);
161*b1cdbd2cSJim Jagielski maPrivateProfileStringListener.Initialize( sFileUrl, aGroupName, aKey );
162*b1cdbd2cSJim Jagielski
163*b1cdbd2cSJim Jagielski return uno::makeAny( uno::Reference< XPropValue > ( new ScVbaPropValue( &maPrivateProfileStringListener ) ) );
164*b1cdbd2cSJim Jagielski }
165*b1cdbd2cSJim Jagielski
166*b1cdbd2cSJim Jagielski rtl::OUString&
getServiceImplName()167*b1cdbd2cSJim Jagielski SwVbaSystem::getServiceImplName()
168*b1cdbd2cSJim Jagielski {
169*b1cdbd2cSJim Jagielski static rtl::OUString sImplName( RTL_CONSTASCII_USTRINGPARAM("SwVbaSystem") );
170*b1cdbd2cSJim Jagielski return sImplName;
171*b1cdbd2cSJim Jagielski }
172*b1cdbd2cSJim Jagielski
173*b1cdbd2cSJim Jagielski uno::Sequence< rtl::OUString >
getServiceNames()174*b1cdbd2cSJim Jagielski SwVbaSystem::getServiceNames()
175*b1cdbd2cSJim Jagielski {
176*b1cdbd2cSJim Jagielski static uno::Sequence< rtl::OUString > aServiceNames;
177*b1cdbd2cSJim Jagielski if ( aServiceNames.getLength() == 0 )
178*b1cdbd2cSJim Jagielski {
179*b1cdbd2cSJim Jagielski aServiceNames.realloc( 1 );
180*b1cdbd2cSJim Jagielski aServiceNames[ 0 ] = rtl::OUString( RTL_CONSTASCII_USTRINGPARAM("ooo.vba.word.System" ) );
181*b1cdbd2cSJim Jagielski }
182*b1cdbd2cSJim Jagielski return aServiceNames;
183*b1cdbd2cSJim Jagielski }
184