xmlscript/source/xmlflat_imexp/xmlbas_import.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*************************************************************************
   3  *
   4  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   5  *
   6  * Copyright 2000, 2010 Oracle and/or its affiliates.
   7  *
   8  * OpenOffice.org - a multi-platform office productivity suite
   9  *
  10  * This file is part of OpenOffice.org.
  11  *
  12  * OpenOffice.org is free software: you can redistribute it and/or modify
  13  * it under the terms of the GNU Lesser General Public License version 3
  14  * only, as published by the Free Software Foundation.
  15  *
  16  * OpenOffice.org is distributed in the hope that it will be useful,
  17  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  18  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  19  * GNU Lesser General Public License version 3 for more details
  20  * (a copy is included in the LICENSE file that accompanied this code).
  21  *
  22  * You should have received a copy of the GNU Lesser General Public License
  23  * version 3 along with OpenOffice.org.  If not, see
  24  * <http://www.openoffice.org/license.html>
  25  * for a copy of the LGPLv3 License.
  26  *
  27  ************************************************************************/
  28
  29 #include "xmlbas_import.hxx"
  30 #include "xmlscript/xmlns.h"
  31 #include "xmlscript/xml_helper.hxx"
  32 #include <com/sun/star/beans/XPropertySet.hpp>
  33 #include <com/sun/star/lang/XMultiComponentFactory.hpp>
  34 #include <com/sun/star/script/XLibraryContainerPassword.hpp>
  35 #include <com/sun/star/document/XEmbeddedScripts.hpp>
  36 #include <cppuhelper/implementationentry.hxx>
  37
  38 using namespace ::com::sun::star;
  39 using namespace ::com::sun::star::lang;
  40 using namespace ::com::sun::star::uno;
  41
  42
  43 //.........................................................................
  44 namespace xmlscript
  45 {
  46 //.........................................................................
  47
  48     // =============================================================================
  49     // BasicElementBase
  50     // =============================================================================
  51
  52     BasicElementBase::BasicElementBase( const ::rtl::OUString& rLocalName,
  53             const Reference< xml::input::XAttributes >& xAttributes,
  54             BasicElementBase* pParent, BasicImport* pImport )
  55         :m_pImport( pImport )
  56         ,m_pParent( pParent )
  57         ,m_aLocalName( rLocalName )
  58         ,m_xAttributes( xAttributes )
  59     {
  60         if ( m_pImport )
  61             m_pImport->acquire();
  62         if ( m_pParent )
  63             m_pParent->acquire();
  64     }
  65
  66     // -----------------------------------------------------------------------------
  67
  68     BasicElementBase::~BasicElementBase()
  69     {
  70         if ( m_pImport )
  71             m_pImport->release();
  72         if ( m_pParent )
  73             m_pParent->release();
  74     }
  75
  76     // -----------------------------------------------------------------------------
  77
  78     bool BasicElementBase::getBoolAttr( sal_Bool* pRet, const ::rtl::OUString& rAttrName,
  79         const ::com::sun::star::uno::Reference< ::com::sun::star::xml::input::XAttributes >& xAttributes,
  80         sal_Int32 nUid )
  81     {
  82         if ( xAttributes.is() )
  83         {
  84             ::rtl::OUString aValue( xAttributes->getValueByUidName( nUid, rAttrName ) );
  85             if ( !aValue.isEmpty() )
  86             {
  87                 if ( aValue == "true" )
  88                 {
  89                     *pRet = sal_True;
  90                     return true;
  91                 }
  92                 else if ( aValue == "false" )
  93                 {
  94                     *pRet = sal_False;
  95                     return true;
  96                 }
  97                 else
  98                 {
  99                     throw xml::sax::SAXException(
 100                         rAttrName + ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( ": no boolean value (true|false)!" ) ),
 101                         Reference< XInterface >(), Any() );
 102                 }
 103             }
 104         }
 105         return false;
 106     }
 107
 108     // -----------------------------------------------------------------------------
 109     // XElement
 110     // -----------------------------------------------------------------------------
 111
 112     Reference< xml::input::XElement > BasicElementBase::getParent()
 113         throw (RuntimeException)
 114     {
 115         return static_cast< xml::input::XElement* >( m_pParent );
 116     }
 117
 118     // -----------------------------------------------------------------------------
 119
 120     ::rtl::OUString BasicElementBase::getLocalName()
 121         throw (RuntimeException)
 122     {
 123         return m_aLocalName;
 124     }
 125
 126     // -----------------------------------------------------------------------------
 127
 128     sal_Int32 BasicElementBase::getUid()
 129         throw (RuntimeException)
 130     {
 131         sal_Int32 nId = -1;
 132         if ( m_pImport )
 133             nId = m_pImport->XMLNS_UID;
 134         return nId;
 135     }
 136
 137     // -----------------------------------------------------------------------------
 138
 139     Reference< xml::input::XAttributes > BasicElementBase::getAttributes()
 140         throw (RuntimeException)
 141     {
 142         return m_xAttributes;
 143     }
 144
 145     // -----------------------------------------------------------------------------
 146
 147     Reference< xml::input::XElement > BasicElementBase::startChildElement(
 148         sal_Int32 /*nUid*/, const ::rtl::OUString& /*rLocalName*/,
 149         const Reference< xml::input::XAttributes >& /*xAttributes*/ )
 150         throw (xml::sax::SAXException, RuntimeException)
 151     {
 152         throw xml::sax::SAXException(
 153             ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "unexpected element!" ) ),
 154             Reference< XInterface >(), Any() );
 155     }
 156
 157     // -----------------------------------------------------------------------------
 158
 159 void BasicElementBase::characters( const ::rtl::OUString& /*rChars*/ )
 160         throw (xml::sax::SAXException, RuntimeException)
 161     {
 162         // not used, all characters ignored
 163     }
 164
 165     // -----------------------------------------------------------------------------
 166
 167 void BasicElementBase::ignorableWhitespace( const ::rtl::OUString& /*rWhitespaces*/ )
 168         throw (xml::sax::SAXException, RuntimeException)
 169     {
 170     }
 171
 172     // -----------------------------------------------------------------------------
 173
 174 void BasicElementBase::processingInstruction( const ::rtl::OUString& /*rTarget*/, const ::rtl::OUString& /*rData*/ )
 175         throw (xml::sax::SAXException, RuntimeException)
 176     {
 177     }
 178
 179     // -----------------------------------------------------------------------------
 180
 181     void BasicElementBase::endElement()
 182         throw (xml::sax::SAXException, RuntimeException)
 183     {
 184     }
 185
 186
 187     // =============================================================================
 188     // BasicLibrariesElement
 189     // =============================================================================
 190
 191     BasicLibrariesElement::BasicLibrariesElement( const ::rtl::OUString& rLocalName,
 192             const Reference< xml::input::XAttributes >& xAttributes,
 193             BasicElementBase* pParent, BasicImport* pImport,
 194             const Reference< script::XLibraryContainer2 >& rxLibContainer )
 195         :BasicElementBase( rLocalName, xAttributes, pParent, pImport )
 196         ,m_xLibContainer( rxLibContainer )
 197     {
 198     }
 199
 200     // -----------------------------------------------------------------------------
 201     // XElement
 202     // -----------------------------------------------------------------------------
 203
 204     Reference< xml::input::XElement > BasicLibrariesElement::startChildElement(
 205             sal_Int32 nUid, const ::rtl::OUString& rLocalName,
 206             const Reference< xml::input::XAttributes >& xAttributes )
 207         throw (xml::sax::SAXException, RuntimeException)
 208     {
 209         Reference< xml::input::XElement > xElement;
 210
 211         if ( nUid != m_pImport->XMLNS_UID )
 212         {
 213             throw xml::sax::SAXException(
 214                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal namespace!" ) ),
 215                 Reference< XInterface >(), Any() );
 216         }
 217         else if ( rLocalName == "library-linked" )
 218         {
 219             if ( xAttributes.is() )
 220             {
 221                 ::rtl::OUString aName = xAttributes->getValueByUidName(
 222                     m_pImport->XMLNS_UID,
 223                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "name" ) ) );
 224
 225                 ::rtl::OUString aStorageURL = xAttributes->getValueByUidName(
 226                     m_pImport->XMLNS_XLINK_UID,
 227                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "href" ) ) );
 228
 229                 sal_Bool bReadOnly = sal_False;
 230                 getBoolAttr( &bReadOnly,
 231                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "readonly" ) ),
 232                     xAttributes, m_pImport->XMLNS_UID );
 233
 234                 if ( m_xLibContainer.is() )
 235                 {
 236                     try
 237                     {
 238                         Reference< container::XNameAccess > xLib(
 239                             m_xLibContainer->createLibraryLink( aName, aStorageURL, bReadOnly ) );
 240                         if ( xLib.is() )
 241                             xElement.set( new BasicElementBase( rLocalName, xAttributes, this, m_pImport ) );
 242                     }
 243                     catch ( const container::ElementExistException& e )
 244                     {
 245                         OSL_TRACE( "BasicLibrariesElement::startChildElement: caught ElementExceptionExist reason %s",
 246                             ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 247                     }
 248                     catch ( const lang::IllegalArgumentException& e )
 249                     {
 250                         OSL_TRACE( "BasicLibrariesElement::startChildElement: caught IllegalArgumentException reason %s",
 251                             ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 252                     }
 253                 }
 254             }
 255         }
 256         else if ( rLocalName == "library-embedded" )
 257         {
 258             // TODO: create password protected libraries
 259
 260             if ( xAttributes.is() )
 261             {
 262                 ::rtl::OUString aName = xAttributes->getValueByUidName(
 263                     m_pImport->XMLNS_UID,
 264                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "name" ) ) );
 265
 266                 sal_Bool bReadOnly = sal_False;
 267                 getBoolAttr( &bReadOnly,
 268                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "readonly" ) ),
 269                     xAttributes, m_pImport->XMLNS_UID );
 270
 271                 if ( m_xLibContainer.is() )
 272                 {
 273                     try
 274                     {
 275                         Reference< container::XNameContainer > xLib;
 276                         if ( m_xLibContainer->hasByName( aName ) )
 277                         {
 278                             // Standard library
 279                             m_xLibContainer->getByName( aName ) >>= xLib;
 280                         }
 281                         else
 282                         {
 283                             xLib.set( m_xLibContainer->createLibrary( aName ) );
 284                         }
 285
 286                         if ( xLib.is() )
 287                             xElement.set( new BasicEmbeddedLibraryElement( rLocalName, xAttributes, this, m_pImport, m_xLibContainer, aName, bReadOnly ) );
 288                     }
 289                     catch ( const lang::IllegalArgumentException& e )
 290                     {
 291                         OSL_TRACE( "BasicLibrariesElement::startChildElement: caught IllegalArgumentException reason %s",
 292                             ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 293                     }
 294                 }
 295             }
 296         }
 297         else
 298         {
 299             throw xml::sax::SAXException(
 300                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "expected library-linked or library-embedded element!" ) ),
 301                 Reference< XInterface >(), Any() );
 302         }
 303
 304         return xElement;
 305     }
 306
 307     // -----------------------------------------------------------------------------
 308
 309     void BasicLibrariesElement::endElement()
 310         throw (xml::sax::SAXException, RuntimeException)
 311     {
 312     }
 313
 314
 315     // =============================================================================
 316     // BasicEmbeddedLibraryElement
 317     // =============================================================================
 318
 319     BasicEmbeddedLibraryElement::BasicEmbeddedLibraryElement( const ::rtl::OUString& rLocalName,
 320             const Reference< xml::input::XAttributes >& xAttributes,
 321             BasicElementBase* pParent, BasicImport* pImport,
 322             const Reference< script::XLibraryContainer2 >& rxLibContainer,
 323             const ::rtl::OUString& rLibName, bool bReadOnly )
 324         :BasicElementBase( rLocalName, xAttributes, pParent, pImport )
 325         ,m_xLibContainer( rxLibContainer )
 326         ,m_aLibName( rLibName )
 327         ,m_bReadOnly( bReadOnly )
 328     {
 329         try
 330         {
 331             if ( m_xLibContainer.is() && m_xLibContainer->hasByName( m_aLibName ) )
 332                 m_xLibContainer->getByName( m_aLibName ) >>= m_xLib;
 333         }
 334         catch ( const lang::WrappedTargetException& e )
 335         {
 336             OSL_TRACE( "BasicEmbeddedLibraryElement CTOR: caught WrappedTargetException reason %s",
 337                 ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 338         }
 339     }
 340
 341     // -----------------------------------------------------------------------------
 342     // XElement
 343     // -----------------------------------------------------------------------------
 344
 345     Reference< xml::input::XElement > BasicEmbeddedLibraryElement::startChildElement(
 346             sal_Int32 nUid, const ::rtl::OUString& rLocalName,
 347             const Reference< xml::input::XAttributes >& xAttributes )
 348         throw (xml::sax::SAXException, RuntimeException)
 349     {
 350         Reference< xml::input::XElement > xElement;
 351
 352         if ( nUid != m_pImport->XMLNS_UID )
 353         {
 354             throw xml::sax::SAXException(
 355                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal namespace!" ) ),
 356                 Reference< XInterface >(), Any() );
 357         }
 358         else if ( rLocalName == "module" )
 359         {
 360             if ( xAttributes.is() )
 361             {
 362                 ::rtl::OUString aName = xAttributes->getValueByUidName(
 363                     m_pImport->XMLNS_UID,
 364                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "name" ) ) );
 365
 366                 if ( m_xLib.is() && !aName.isEmpty() )
 367                     xElement.set( new BasicModuleElement( rLocalName, xAttributes, this, m_pImport, m_xLib, aName ) );
 368             }
 369         }
 370         else
 371         {
 372             throw xml::sax::SAXException(
 373                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "expected module element!" ) ),
 374                 Reference< XInterface >(), Any() );
 375         }
 376
 377         return xElement;
 378     }
 379
 380     // -----------------------------------------------------------------------------
 381
 382     void BasicEmbeddedLibraryElement::endElement()
 383         throw (xml::sax::SAXException, RuntimeException)
 384     {
 385         if ( m_xLibContainer.is() && m_xLibContainer->hasByName( m_aLibName ) && m_bReadOnly )
 386             m_xLibContainer->setLibraryReadOnly( m_aLibName, m_bReadOnly );
 387     }
 388
 389
 390     // =============================================================================
 391     // BasicModuleElement
 392     // =============================================================================
 393
 394     BasicModuleElement::BasicModuleElement( const ::rtl::OUString& rLocalName,
 395             const Reference< xml::input::XAttributes >& xAttributes,
 396             BasicElementBase* pParent, BasicImport* pImport,
 397             const Reference< container::XNameContainer >& rxLib, const ::rtl::OUString& rName )
 398         :BasicElementBase( rLocalName, xAttributes, pParent, pImport )
 399         ,m_xLib( rxLib )
 400         ,m_aName( rName )
 401     {
 402     }
 403
 404     // -----------------------------------------------------------------------------
 405     // XElement
 406     // -----------------------------------------------------------------------------
 407
 408     Reference< xml::input::XElement > BasicModuleElement::startChildElement(
 409             sal_Int32 nUid, const ::rtl::OUString& rLocalName,
 410             const Reference< xml::input::XAttributes >& xAttributes )
 411         throw (xml::sax::SAXException, RuntimeException)
 412     {
 413         // TODO: <byte-code>
 414
 415         Reference< xml::input::XElement > xElement;
 416
 417         if ( nUid != m_pImport->XMLNS_UID )
 418         {
 419             throw xml::sax::SAXException(
 420                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal namespace!" ) ),
 421                 Reference< XInterface >(), Any() );
 422         }
 423         else if ( rLocalName == "source-code" )
 424         {
 425             // TODO: password protected libraries
 426
 427             if ( xAttributes.is() )
 428             {
 429                 if ( m_xLib.is() && !m_aName.isEmpty() )
 430                     xElement.set( new BasicSourceCodeElement( rLocalName, xAttributes, this, m_pImport, m_xLib, m_aName ) );
 431             }
 432         }
 433         else
 434         {
 435             throw xml::sax::SAXException(
 436                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "expected source-code element!" ) ),
 437                 Reference< XInterface >(), Any() );
 438         }
 439
 440         return xElement;
 441     }
 442
 443     // -----------------------------------------------------------------------------
 444
 445     void BasicModuleElement::endElement()
 446         throw (xml::sax::SAXException, RuntimeException)
 447     {
 448     }
 449
 450
 451     // =============================================================================
 452     // BasicSourceCodeElement
 453     // =============================================================================
 454
 455     BasicSourceCodeElement::BasicSourceCodeElement( const ::rtl::OUString& rLocalName,
 456             const Reference< xml::input::XAttributes >& xAttributes,
 457             BasicElementBase* pParent, BasicImport* pImport,
 458             const Reference< container::XNameContainer >& rxLib, const ::rtl::OUString& rName )
 459         :BasicElementBase( rLocalName, xAttributes, pParent, pImport )
 460         ,m_xLib( rxLib )
 461         ,m_aName( rName )
 462     {
 463     }
 464
 465     // -----------------------------------------------------------------------------
 466     // XElement
 467     // -----------------------------------------------------------------------------
 468
 469     void BasicSourceCodeElement::characters( const ::rtl::OUString& rChars )
 470         throw (xml::sax::SAXException, RuntimeException)
 471     {
 472         m_aBuffer.append( rChars );
 473     }
 474
 475     // -----------------------------------------------------------------------------
 476
 477     void BasicSourceCodeElement::endElement()
 478         throw (xml::sax::SAXException, RuntimeException)
 479     {
 480         try
 481         {
 482             if ( m_xLib.is() && !m_aName.isEmpty() )
 483             {
 484                 Any aElement;
 485                 aElement <<= m_aBuffer.makeStringAndClear();
 486                 m_xLib->insertByName( m_aName, aElement );
 487             }
 488         }
 489         catch ( const container::ElementExistException& e )
 490         {
 491             OSL_TRACE( "BasicSourceCodeElement::endElement: caught ElementExceptionExist reason %s",
 492                 ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 493         }
 494         catch ( const lang::IllegalArgumentException& e )
 495         {
 496             OSL_TRACE( "BasicSourceCodeElement::endElement: caught IllegalArgumentException reason %s",
 497                 ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 498         }
 499         catch ( const lang::WrappedTargetException& e )
 500         {
 501             OSL_TRACE( "BasicSourceCodeElement::endElement: caught WrappedTargetException reason %s",
 502                 ::rtl::OUStringToOString( e.Message, RTL_TEXTENCODING_ASCII_US ).pData->buffer );
 503         }
 504     }
 505
 506
 507     // =============================================================================
 508     // BasicImport
 509     // =============================================================================
 510
 511     BasicImport::BasicImport( const Reference< frame::XModel >& rxModel, sal_Bool bOasis )
 512         :m_xModel( rxModel )
 513         ,m_bOasis( bOasis )
 514     {
 515     }
 516
 517     // -----------------------------------------------------------------------------
 518
 519     BasicImport::~BasicImport()
 520     {
 521     }
 522
 523     // -----------------------------------------------------------------------------
 524     // XRoot
 525     // -----------------------------------------------------------------------------
 526
 527     void BasicImport::startDocument( const Reference< xml::input::XNamespaceMapping >& xNamespaceMapping )
 528         throw (xml::sax::SAXException, RuntimeException)
 529     {
 530         if ( xNamespaceMapping.is() )
 531         {
 532             ::rtl::OUString aURI;
 533             if ( m_bOasis )
 534                 aURI = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( XMLNS_OOO_URI ) );
 535             else
 536                 aURI = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( XMLNS_SCRIPT_URI ) );
 537             XMLNS_UID = xNamespaceMapping->getUidByUri( aURI );
 538             XMLNS_XLINK_UID = xNamespaceMapping->getUidByUri( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( XMLNS_XLINK_URI ) ) );
 539         }
 540     }
 541
 542     // -----------------------------------------------------------------------------
 543
 544     void BasicImport::endDocument()
 545         throw (xml::sax::SAXException, RuntimeException)
 546     {
 547     }
 548
 549     // -----------------------------------------------------------------------------
 550
 551 void BasicImport::processingInstruction( const ::rtl::OUString& /*rTarget*/, const ::rtl::OUString& /*rData*/ )
 552         throw (xml::sax::SAXException, RuntimeException)
 553     {
 554     }
 555
 556     // -----------------------------------------------------------------------------
 557
 558 void BasicImport::setDocumentLocator( const Reference< xml::sax::XLocator >& /*xLocator*/ )
 559         throw (xml::sax::SAXException, RuntimeException)
 560     {
 561     }
 562
 563     // -----------------------------------------------------------------------------
 564
 565     Reference< xml::input::XElement > BasicImport::startRootElement( sal_Int32 nUid, const ::rtl::OUString& rLocalName,
 566             Reference< xml::input::XAttributes > const & xAttributes )
 567         throw (xml::sax::SAXException, RuntimeException)
 568     {
 569         Reference< xml::input::XElement > xElement;
 570
 571         if ( nUid != XMLNS_UID )
 572         {
 573             throw xml::sax::SAXException(
 574                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal namespace!" ) ),
 575                 Reference< XInterface >(), Any() );
 576         }
 577         else if ( rLocalName == "libraries" )
 578         {
 579             Reference< script::XLibraryContainer2 > xLibContainer;
 580
 581             // try the XEmbeddedScripts interface
 582             Reference< document::XEmbeddedScripts > xDocumentScripts( m_xModel, UNO_QUERY );
 583             if ( xDocumentScripts.is() )
 584                 xLibContainer.set( xDocumentScripts->getBasicLibraries().get() );
 585
 586             if ( !xLibContainer.is() )
 587             {
 588                 // try the "BasicLibraries" property (old-style, for compatibility)
 589                 Reference< beans::XPropertySet > xPSet( m_xModel, UNO_QUERY );
 590                 if ( xPSet.is() )
 591                     xPSet->getPropertyValue( ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "BasicLibraries" ) ) ) >>= xLibContainer;
 592             }
 593
 594             OSL_ENSURE( xLibContainer.is(), "BasicImport::startRootElement: nowhere to import to!" );
 595
 596             if ( xLibContainer.is() )
 597             {
 598                 xElement.set( new BasicLibrariesElement( rLocalName, xAttributes, 0, this, xLibContainer ) );
 599             }
 600         }
 601         else
 602         {
 603             throw xml::sax::SAXException(
 604                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "illegal root element (expected libraries) given: " ) ) +
 605                 rLocalName, Reference< XInterface >(), Any() );
 606         }
 607
 608         return xElement;
 609     }
 610
 611
 612     // =============================================================================
 613     // component operations
 614     // =============================================================================
 615
 616     ::rtl::OUString getImplementationName_XMLBasicImporter()
 617     {
 618         static ::rtl::OUString* pImplName = 0;
 619         if ( !pImplName )
 620         {
 621             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
 622             if ( !pImplName )
 623             {
 624                 static ::rtl::OUString aImplName( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.xmlscript.XMLBasicImporter" ) );
 625                 pImplName = &aImplName;
 626             }
 627         }
 628         return *pImplName;
 629     }
 630
 631     // -----------------------------------------------------------------------------
 632
 633     Sequence< ::rtl::OUString > getSupportedServiceNames_XMLBasicImporter()
 634     {
 635         static Sequence< ::rtl::OUString >* pNames = 0;
 636         if ( !pNames )
 637         {
 638             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
 639             if ( !pNames )
 640             {
 641                 static Sequence< ::rtl::OUString > aNames(1);
 642                 aNames.getArray()[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.document.XMLBasicImporter" ) );
 643                 pNames = &aNames;
 644             }
 645         }
 646         return *pNames;
 647     }
 648
 649     // -----------------------------------------------------------------------------
 650
 651     ::rtl::OUString getImplementationName_XMLOasisBasicImporter()
 652     {
 653         static ::rtl::OUString* pImplName = 0;
 654         if ( !pImplName )
 655         {
 656             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
 657             if ( !pImplName )
 658             {
 659                 static ::rtl::OUString aImplName( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.comp.xmlscript.XMLOasisBasicImporter" ) );
 660                 pImplName = &aImplName;
 661             }
 662         }
 663         return *pImplName;
 664     }
 665
 666     // -----------------------------------------------------------------------------
 667
 668     Sequence< ::rtl::OUString > getSupportedServiceNames_XMLOasisBasicImporter()
 669     {
 670         static Sequence< ::rtl::OUString >* pNames = 0;
 671         if ( !pNames )
 672         {
 673             ::osl::MutexGuard aGuard( ::osl::Mutex::getGlobalMutex() );
 674             if ( !pNames )
 675             {
 676                 static Sequence< ::rtl::OUString > aNames(1);
 677                 aNames.getArray()[0] = ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.document.XMLOasisBasicImporter" ) );
 678                 pNames = &aNames;
 679             }
 680         }
 681         return *pNames;
 682     }
 683
 684
 685     // =============================================================================
 686     // XMLBasicImporterBase
 687     // =============================================================================
 688
 689     XMLBasicImporterBase::XMLBasicImporterBase( const Reference< XComponentContext >& rxContext, sal_Bool bOasis )
 690         :m_xContext( rxContext )
 691         ,m_bOasis( bOasis )
 692     {
 693     }
 694
 695     // -----------------------------------------------------------------------------
 696
 697     XMLBasicImporterBase::~XMLBasicImporterBase()
 698     {
 699     }
 700
 701     // -----------------------------------------------------------------------------
 702     // XServiceInfo
 703     // -----------------------------------------------------------------------------
 704
 705     sal_Bool XMLBasicImporterBase::supportsService( const ::rtl::OUString& rServiceName ) throw (RuntimeException)
 706     {
 707         Sequence< ::rtl::OUString > aNames( getSupportedServiceNames() );
 708         const ::rtl::OUString* pNames = aNames.getConstArray();
 709         const ::rtl::OUString* pEnd = pNames + aNames.getLength();
 710         for ( ; pNames != pEnd && !pNames->equals( rServiceName ); ++pNames )
 711             ;
 712
 713         return pNames != pEnd;
 714     }
 715
 716     // -----------------------------------------------------------------------------
 717     // XImporter
 718     // -----------------------------------------------------------------------------
 719
 720     void XMLBasicImporterBase::setTargetDocument( const Reference< XComponent >& rxDoc )
 721         throw (IllegalArgumentException, RuntimeException)
 722     {
 723         ::osl::MutexGuard aGuard( m_aMutex );
 724
 725         m_xModel.set( rxDoc, UNO_QUERY );
 726
 727         if ( !m_xModel.is() )
 728         {
 729             throw IllegalArgumentException(
 730                 ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "XMLBasicExporter::setTargetDocument: no document model!" ) ),
 731                 Reference< XInterface >(), 1 );
 732         }
 733
 734         if ( m_xContext.is() )
 735         {
 736             Reference< XMultiComponentFactory > xSMgr( m_xContext->getServiceManager() );
 737             if ( xSMgr.is() )
 738             {
 739                 Reference < xml::input::XRoot > xRoot( new BasicImport( m_xModel, m_bOasis ) );
 740                 Sequence < Any > aArgs( 1 );
 741                 aArgs[0] <<= xRoot;
 742                 m_xHandler.set( xSMgr->createInstanceWithArgumentsAndContext(
 743                     ::rtl::OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.xml.input.SaxDocumentHandler" ) ),
 744                     aArgs, m_xContext ), UNO_QUERY );
 745             }
 746         }
 747     }
 748
 749     // -----------------------------------------------------------------------------
 750     // XDocumentHandler
 751     // -----------------------------------------------------------------------------
 752
 753     void XMLBasicImporterBase::startDocument()
 754         throw (xml::sax::SAXException, RuntimeException)
 755     {
 756         ::osl::MutexGuard aGuard( m_aMutex );
 757
 758         if ( m_xHandler.is() )
 759             m_xHandler->startDocument();
 760     }
 761
 762     // -----------------------------------------------------------------------------
 763
 764     void XMLBasicImporterBase::endDocument()
 765         throw (xml::sax::SAXException, RuntimeException)
 766     {
 767         ::osl::MutexGuard aGuard( m_aMutex );
 768
 769         if ( m_xHandler.is() )
 770             m_xHandler->endDocument();
 771     }
 772
 773     // -----------------------------------------------------------------------------
 774
 775     void XMLBasicImporterBase::startElement( const ::rtl::OUString& aName,
 776             const Reference< xml::sax::XAttributeList >& xAttribs )
 777         throw (xml::sax::SAXException, RuntimeException)
 778     {
 779         ::osl::MutexGuard aGuard( m_aMutex );
 780
 781         if ( m_xHandler.is() )
 782             m_xHandler->startElement( aName, xAttribs );
 783     }
 784
 785     // -----------------------------------------------------------------------------
 786
 787     void XMLBasicImporterBase::endElement( const ::rtl::OUString& aName )
 788         throw (xml::sax::SAXException, RuntimeException)
 789     {
 790         ::osl::MutexGuard aGuard( m_aMutex );
 791
 792         if ( m_xHandler.is() )
 793             m_xHandler->endElement( aName );
 794     }
 795
 796     // -----------------------------------------------------------------------------
 797
 798     void XMLBasicImporterBase::characters( const ::rtl::OUString& aChars )
 799         throw (xml::sax::SAXException, RuntimeException)
 800     {
 801         ::osl::MutexGuard aGuard( m_aMutex );
 802
 803         if ( m_xHandler.is() )
 804             m_xHandler->characters( aChars );
 805     }
 806
 807     // -----------------------------------------------------------------------------
 808
 809     void XMLBasicImporterBase::ignorableWhitespace( const ::rtl::OUString& aWhitespaces )
 810         throw (xml::sax::SAXException, RuntimeException)
 811     {
 812         ::osl::MutexGuard aGuard( m_aMutex );
 813
 814         if ( m_xHandler.is() )
 815             m_xHandler->ignorableWhitespace( aWhitespaces );
 816     }
 817
 818     // -----------------------------------------------------------------------------
 819
 820     void XMLBasicImporterBase::processingInstruction( const ::rtl::OUString& aTarget,
 821             const ::rtl::OUString& aData )
 822         throw (xml::sax::SAXException, RuntimeException)
 823     {
 824         ::osl::MutexGuard aGuard( m_aMutex );
 825
 826         if ( m_xHandler.is() )
 827             m_xHandler->processingInstruction( aTarget, aData );
 828     }
 829
 830     // -----------------------------------------------------------------------------
 831
 832     void XMLBasicImporterBase::setDocumentLocator( const Reference< xml::sax::XLocator >& xLocator )
 833         throw (xml::sax::SAXException, RuntimeException)
 834     {
 835         ::osl::MutexGuard aGuard( m_aMutex );
 836
 837         if ( m_xHandler.is() )
 838             m_xHandler->setDocumentLocator( xLocator );
 839     }
 840
 841
 842     // =============================================================================
 843     // XMLBasicImporter
 844     // =============================================================================
 845
 846     XMLBasicImporter::XMLBasicImporter( const Reference< XComponentContext >& rxContext )
 847         :XMLBasicImporterBase( rxContext, sal_False )
 848     {
 849     }
 850
 851     // -----------------------------------------------------------------------------
 852
 853     XMLBasicImporter::~XMLBasicImporter()
 854     {
 855     }
 856
 857     // -----------------------------------------------------------------------------
 858     // XServiceInfo
 859     // -----------------------------------------------------------------------------
 860
 861     ::rtl::OUString XMLBasicImporter::getImplementationName(  ) throw (RuntimeException)
 862     {
 863         return getImplementationName_XMLBasicImporter();
 864     }
 865
 866     // -----------------------------------------------------------------------------
 867
 868     Sequence< ::rtl::OUString > XMLBasicImporter::getSupportedServiceNames(  ) throw (RuntimeException)
 869     {
 870         return getSupportedServiceNames_XMLBasicImporter();
 871     }
 872
 873
 874     // =============================================================================
 875     // XMLOasisBasicImporter
 876     // =============================================================================
 877
 878     XMLOasisBasicImporter::XMLOasisBasicImporter( const Reference< XComponentContext >& rxContext )
 879         :XMLBasicImporterBase( rxContext, sal_True )
 880     {
 881     }
 882
 883     // -----------------------------------------------------------------------------
 884
 885     XMLOasisBasicImporter::~XMLOasisBasicImporter()
 886     {
 887     }
 888
 889     // -----------------------------------------------------------------------------
 890     // XServiceInfo
 891     // -----------------------------------------------------------------------------
 892
 893     ::rtl::OUString XMLOasisBasicImporter::getImplementationName(  ) throw (RuntimeException)
 894     {
 895         return getImplementationName_XMLOasisBasicImporter();
 896     }
 897
 898     // -----------------------------------------------------------------------------
 899
 900     Sequence< ::rtl::OUString > XMLOasisBasicImporter::getSupportedServiceNames(  ) throw (RuntimeException)
 901     {
 902         return getSupportedServiceNames_XMLOasisBasicImporter();
 903     }
 904
 905
 906     // =============================================================================
 907     // component operations
 908     // =============================================================================
 909
 910     Reference< XInterface > SAL_CALL create_XMLBasicImporter(
 911         Reference< XComponentContext > const & xContext )
 912         SAL_THROW(())
 913     {
 914         return static_cast< lang::XTypeProvider * >( new XMLBasicImporter( xContext ) );
 915     }
 916
 917     // -----------------------------------------------------------------------------
 918
 919     Reference< XInterface > SAL_CALL create_XMLOasisBasicImporter(
 920         Reference< XComponentContext > const & xContext )
 921         SAL_THROW(())
 922     {
 923         return static_cast< lang::XTypeProvider * >( new XMLOasisBasicImporter( xContext ) );
 924     }
 925
 926     // -----------------------------------------------------------------------------
 927
 928 //.........................................................................
 929 }   // namespace xmlscript
 930 //.........................................................................
 931
 932 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */