basic/source/classes/errobject.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include "errobject.hxx"
  21
  22 #include <cppuhelper/implbase2.hxx>
  23 #include <com/sun/star/script/XDefaultProperty.hpp>
  24 #include "sbintern.hxx"
  25 #include "runtime.hxx"
  26
  27 using namespace ::com::sun::star;
  28 using namespace ::ooo;
  29
  30 typedef ::cppu::WeakImplHelper2< vba::XErrObject, script::XDefaultProperty > ErrObjectImpl_BASE;
  31
  32 class ErrObject : public ErrObjectImpl_BASE
  33 {
  34     OUString m_sHelpFile;
  35     OUString m_sSource;
  36     OUString m_sDescription;
  37     sal_Int32 m_nNumber;
  38     sal_Int32 m_nHelpContext;
  39
  40 public:
  41     ErrObject();
  42     ~ErrObject();
  43     // Attributes
  44     virtual ::sal_Int32 SAL_CALL getNumber() throw (uno::RuntimeException);
  45     virtual void SAL_CALL setNumber( ::sal_Int32 _number ) throw (uno::RuntimeException);
  46     virtual ::sal_Int32 SAL_CALL getHelpContext() throw (uno::RuntimeException);
  47     virtual void SAL_CALL setHelpContext( ::sal_Int32 _helpcontext ) throw (uno::RuntimeException);
  48     virtual OUString SAL_CALL getHelpFile() throw (uno::RuntimeException);
  49     virtual void SAL_CALL setHelpFile( const OUString& _helpfile ) throw (uno::RuntimeException);
  50     virtual OUString SAL_CALL getDescription() throw (uno::RuntimeException);
  51     virtual void SAL_CALL setDescription( const OUString& _description ) throw (uno::RuntimeException);
  52     virtual OUString SAL_CALL getSource() throw (uno::RuntimeException);
  53     virtual void SAL_CALL setSource( const OUString& _source ) throw (uno::RuntimeException);
  54
  55     // Methods
  56     virtual void SAL_CALL Clear(  ) throw (uno::RuntimeException);
  57     virtual void SAL_CALL Raise( const uno::Any& Number, const uno::Any& Source, const uno::Any& Description, const uno::Any& HelpFile, const uno::Any& HelpContext ) throw (uno::RuntimeException);
  58     // XDefaultProperty
  59     virtual OUString SAL_CALL getDefaultPropertyName(  ) throw (uno::RuntimeException);
  60
  61     // Helper method
  62     void setData( const uno::Any& Number, const uno::Any& Source, const uno::Any& Description,
  63         const uno::Any& HelpFile, const uno::Any& HelpContext ) throw (uno::RuntimeException);
  64 };
  65
  66
  67 ErrObject::~ErrObject()
  68 {
  69 }
  70
  71 ErrObject::ErrObject() : m_nNumber(0), m_nHelpContext(0)
  72 {
  73 }
  74
  75 sal_Int32 SAL_CALL
  76 ErrObject::getNumber() throw (uno::RuntimeException)
  77 {
  78     return m_nNumber;
  79 }
  80
  81 void SAL_CALL
  82 ErrObject::setNumber( ::sal_Int32 _number ) throw (uno::RuntimeException)
  83 {
  84     GetSbData()->pInst->setErrorVB( _number, String() );
  85     OUString _description = GetSbData()->pInst->GetErrorMsg();
  86     setData( uno::makeAny( _number ), uno::Any(), uno::makeAny( _description ), uno::Any(), uno::Any() );
  87 }
  88
  89 ::sal_Int32 SAL_CALL
  90 ErrObject::getHelpContext() throw (uno::RuntimeException)
  91 {
  92     return m_nHelpContext;
  93 }
  94 void SAL_CALL
  95 ErrObject::setHelpContext( ::sal_Int32 _helpcontext ) throw (uno::RuntimeException)
  96 {
  97     m_nHelpContext = _helpcontext;
  98 }
  99
 100 OUString SAL_CALL
 101 ErrObject::getHelpFile() throw (uno::RuntimeException)
 102 {
 103     return m_sHelpFile;
 104 }
 105
 106 void SAL_CALL
 107 ErrObject::setHelpFile( const OUString& _helpfile ) throw (uno::RuntimeException)
 108 {
 109     m_sHelpFile = _helpfile;
 110 }
 111
 112 OUString SAL_CALL
 113 ErrObject::getDescription() throw (uno::RuntimeException)
 114 {
 115     return m_sDescription;
 116 }
 117
 118 void SAL_CALL
 119 ErrObject::setDescription( const OUString& _description ) throw (uno::RuntimeException)
 120 {
 121     m_sDescription = _description;
 122 }
 123
 124 OUString SAL_CALL
 125 ErrObject::getSource() throw (uno::RuntimeException)
 126 {
 127     return m_sSource;
 128 }
 129
 130 void SAL_CALL
 131 ErrObject::setSource( const OUString& _source ) throw (uno::RuntimeException)
 132 {
 133     m_sSource = _source;
 134 }
 135
 136 // Methods
 137 void SAL_CALL
 138 ErrObject::Clear(  ) throw (uno::RuntimeException)
 139 {
 140     m_sHelpFile = OUString();
 141     m_sSource = m_sHelpFile;
 142     m_sDescription = m_sSource;
 143     m_nNumber = 0;
 144     m_nHelpContext = 0;
 145 }
 146
 147 void SAL_CALL
 148 ErrObject::Raise( const uno::Any& Number, const uno::Any& Source, const uno::Any& Description, const uno::Any& HelpFile, const uno::Any& HelpContext ) throw (uno::RuntimeException)
 149 {
 150     setData( Number, Source, Description, HelpFile, HelpContext );
 151     if ( m_nNumber )
 152         GetSbData()->pInst->ErrorVB( m_nNumber, m_sDescription );
 153 }
 154
 155 // XDefaultProperty
 156 OUString SAL_CALL
 157 ErrObject::getDefaultPropertyName(  ) throw (uno::RuntimeException)
 158 {
 159     static OUString sDfltPropName( "Number" );
 160     return sDfltPropName;
 161 }
 162
 163 void ErrObject::setData( const uno::Any& Number, const uno::Any& Source, const uno::Any& Description, const uno::Any& HelpFile, const uno::Any& HelpContext )
 164     throw (uno::RuntimeException)
 165 {
 166     if ( !Number.hasValue() )
 167         throw uno::RuntimeException( OUString("Missing Required Parameter"), uno::Reference< uno::XInterface >() );
 168     Number >>= m_nNumber;
 169     Description >>= m_sDescription;
 170     Source >>= m_sSource;
 171     HelpFile >>= m_sHelpFile;
 172     HelpContext >>= m_nHelpContext;
 173 }
 174
 175 // SbxErrObject
 176 SbxErrObject::SbxErrObject( const OUString& rName, const uno::Any& rUnoObj )
 177     : SbUnoObject( rName, rUnoObj )
 178     , m_pErrObject( NULL )
 179 {
 180     OSL_TRACE("SbxErrObject::SbxErrObject ctor");
 181     rUnoObj >>= m_xErr;
 182     if ( m_xErr.is() )
 183     {
 184         SetDfltProperty( uno::Reference< script::XDefaultProperty >( m_xErr, uno::UNO_QUERY_THROW )->getDefaultPropertyName() ) ;
 185         m_pErrObject = static_cast< ErrObject* >( m_xErr.get() );
 186     }
 187 }
 188
 189 SbxErrObject::~SbxErrObject()
 190 {
 191     OSL_TRACE("SbxErrObject::~SbxErrObject dtor");
 192 }
 193
 194 uno::Reference< vba::XErrObject >
 195 SbxErrObject::getUnoErrObject()
 196 {
 197     SbxVariable* pVar = getErrObject();
 198     SbxErrObject* pGlobErr = static_cast< SbxErrObject* >(  pVar );
 199     return pGlobErr->m_xErr;
 200 }
 201
 202 SbxVariableRef
 203 SbxErrObject::getErrObject()
 204 {
 205     static SbxVariableRef pGlobErr = new SbxErrObject( OUString("Err"), uno::makeAny( uno::Reference< vba::XErrObject >( new ErrObject() ) ) );
 206     return pGlobErr;
 207 }
 208
 209 void SbxErrObject::setNumberAndDescription( ::sal_Int32 _number, const OUString& _description )
 210     throw (uno::RuntimeException)
 211 {
 212     if( m_pErrObject != NULL )
 213     {
 214         m_pErrObject->setData( uno::makeAny( _number ), uno::Any(), uno::makeAny( _description ), uno::Any(), uno::Any() );
 215     }
 216 }
 217
 218 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */