/************************************************************************* * * $RCSfile: imexp.cxx,v $ * * $Revision: 1.16 $ * * last change: $Author: rt $ $Date: 2003-04-23 16:54:52 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses * * - GNU Lesser General Public License Version 2.1 * - Sun Industry Standards Source License Version 1.1 * * Sun Microsystems Inc., October, 2000 * * GNU Lesser General Public License Version 2.1 * ============================================= * Copyright 2000 by Sun Microsystems, Inc. * 901 San Antonio Road, Palo Alto, CA 94303, USA * * This library is free software; you can redistribute it and/or * modify it under the terms of the GNU Lesser General Public * License version 2.1, as published by the Free Software Foundation. * * This library 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 for more details. * * You should have received a copy of the GNU Lesser General Public * License along with this library; if not, write to the Free Software * Foundation, Inc., 59 Temple Place, Suite 330, Boston, * MA 02111-1307 USA * * * Sun Industry Standards Source License Version 1.1 * ================================================= * The contents of this file are subject to the Sun Industry Standards * Source License Version 1.1 (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.openoffice.org/license.html. * * Software provided under this License is provided on an "AS IS" basis, * WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING, * WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS, * MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING. * See the License for the specific provisions governing your rights and * obligations concerning the Software. * * The Initial Developer of the Original Code is: Sun Microsystems, Inc. * * Copyright: 2000 by Sun Microsystems, Inc. * * All Rights Reserved. * * Contributor(s): _______________________________________ * * ************************************************************************/ #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include #include using namespace ::rtl; using namespace ::cppu; using namespace ::com::sun::star; using namespace ::com::sun::star::uno; static void reg( Reference< registry::XImplementationRegistration > const & xReg, char const * lib, bool upd = false ) { OUStringBuffer buf( 32 ); #ifndef SAL_W32 buf.appendAsciiL( RTL_CONSTASCII_STRINGPARAM("lib") ); #endif buf.appendAscii( lib ); if (upd) { buf.append( (sal_Int32)SUPD ); #ifdef SAL_W32 buf.appendAscii( "mi" ); #else #ifdef SOLARIS buf.appendAscii( "ss" ); #else buf.appendAscii( "li" ); #endif #endif } #ifndef SAL_W32 buf.appendAscii( ".so" ); #endif xReg->registerImplementation( OUString::createFromAscii( "com.sun.star.loader.SharedLibrary" ), buf.makeStringAndClear(), Reference< registry::XSimpleRegistry >() ); } Reference< XComponentContext > createInitialComponentContext() { Reference< XComponentContext > xContext; try { ::rtl::OUString localRegistry = OUString::createFromAscii( "xmlscript.rdb" ); //"::comphelper::getPathToUserRegistry(); ::rtl::OUString systemRegistry = ::comphelper::getPathToSystemRegistry(); Reference< registry::XSimpleRegistry > xLocalRegistry( ::cppu::createSimpleRegistry() ); Reference< registry::XSimpleRegistry > xSystemRegistry( ::cppu::createSimpleRegistry() ); if ( xLocalRegistry.is() && (localRegistry.getLength() > 0) ) { try { xLocalRegistry->open( localRegistry, sal_False, sal_True); } catch ( registry::InvalidRegistryException& ) { } if ( !xLocalRegistry->isValid() ) xLocalRegistry->open(localRegistry, sal_True, sal_True); } if ( xSystemRegistry.is() && (systemRegistry.getLength() > 0) ) xSystemRegistry->open( systemRegistry, sal_True, sal_False); if ( (xLocalRegistry.is() && xLocalRegistry->isValid()) && (xSystemRegistry.is() && xSystemRegistry->isValid()) ) { Reference < registry::XSimpleRegistry > xReg( ::cppu::createNestedRegistry() ); Sequence< Any > seqAnys(2); seqAnys[0] <<= xLocalRegistry ; seqAnys[1] <<= xSystemRegistry ; Reference< lang::XInitialization > xInit( xReg, UNO_QUERY ); xInit->initialize( seqAnys ); xContext = ::cppu::bootstrap_InitialComponentContext( xReg ); } else { throw Exception( OUString( RTL_CONSTASCII_USTRINGPARAM("no registry!") ), Reference< XInterface >() ); } Reference< XInterface > x( xContext->getServiceManager()->createInstanceWithContext( OUString::createFromAscii( "com.sun.star.xml.sax.Parser" ), xContext ) ); if (! x.is()) // register only once { Reference < registry::XImplementationRegistration > xReg( xContext->getServiceManager()->createInstanceWithContext( OUString::createFromAscii( "com.sun.star.registry.ImplementationRegistration" ), xContext ), UNO_QUERY ); xReg->registerImplementation( OUString::createFromAscii("com.sun.star.loader.SharedLibrary"), OUString::createFromAscii("sax.uno" SAL_DLLEXTENSION), Reference< registry::XSimpleRegistry >() ); reg( xReg, "sax" ); reg( xReg, "tk", true ); reg( xReg, "svt", true ); reg( xReg, "i18n", true ); } } catch( Exception& rExc ) { OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) ); OSL_ENSURE( 0, aStr.getStr() ); } return xContext; } // ----------------------------------------------------------------------- Reference< container::XNameContainer > importFile( char const * fname, Reference< XComponentContext > const & xContext ) { // create the input stream FILE *f = ::fopen( fname, "rb" ); if (f) { ::fseek( f, 0 ,SEEK_END ); int nLength = ::ftell( f ); ::fseek( f, 0, SEEK_SET ); ByteSequence bytes( nLength ); ::fread( bytes.getArray(), nLength, 1, f ); ::fclose( f ); Reference< container::XNameContainer > xModel( xContext->getServiceManager()->createInstanceWithContext( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ), xContext ), UNO_QUERY ); ::xmlscript::importDialogModel( ::xmlscript::createInputStream( bytes ), xModel, xContext ); return xModel; } else { throw Exception( OUString( RTL_CONSTASCII_USTRINGPARAM("### Cannot read file!") ), Reference< XInterface >() ); } } void exportToFile( char const * fname, Reference< container::XNameContainer > const & xModel, Reference< XComponentContext > const & xContext ) { Reference< io::XInputStreamProvider > xProvider( ::xmlscript::exportDialogModel( xModel, xContext ) ); Reference< io::XInputStream > xStream( xProvider->createInputStream() ); Sequence< sal_Int8 > bytes; sal_Int32 nRead = xStream->readBytes( bytes, xStream->available() ); for (;;) { Sequence< sal_Int8 > readBytes; nRead = xStream->readBytes( readBytes, 1024 ); if (! nRead) break; OSL_ASSERT( readBytes.getLength() >= nRead ); sal_Int32 nPos = bytes.getLength(); bytes.realloc( nPos + nRead ); ::rtl_copyMemory( bytes.getArray() + nPos, readBytes.getConstArray(), (sal_uInt32)nRead ); } FILE * f = ::fopen( fname, "w" ); ::fwrite( bytes.getConstArray(), 1, bytes.getLength(), f ); ::fflush( f ); ::fclose( f ); } class MyApp : public Application { public: void Main(); }; MyApp aMyApp; // ----------------------------------------------------------------------- void MyApp::Main() { if (GetCommandLineParamCount() < 1) { OSL_ENSURE( 0, "usage: imexp inputfile [outputfile]\n" ); return; } Reference< XComponentContext > xContext( createInitialComponentContext() ); Reference< lang::XMultiServiceFactory > xMSF( xContext->getServiceManager(), UNO_QUERY ); try { ::comphelper::setProcessServiceFactory( xMSF ); Reference< awt::XToolkit> xToolkit( xMSF->createInstance( OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), UNO_QUERY ); // import dialogs OString aParam1( OUStringToOString( OUString( GetCommandLineParam( 0 ) ), RTL_TEXTENCODING_ASCII_US ) ); Reference< container::XNameContainer > xModel( importFile( aParam1.getStr(), xContext ) ); OSL_ASSERT( xModel.is() ); Reference< awt::XControl > xDlg( xMSF->createInstance( OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), UNO_QUERY ); xDlg->setModel( Reference< awt::XControlModel >::query( xModel ) ); xDlg->createPeer( xToolkit, 0 ); Reference< awt::XDialog > xD( xDlg, UNO_QUERY ); xD->execute(); if (GetCommandLineParamCount() == 2) { // write modified dialogs OString aParam2( OUStringToOString( OUString( GetCommandLineParam( 1 ) ), RTL_TEXTENCODING_ASCII_US ) ); exportToFile( aParam2.getStr(), xModel, xContext ); } } catch (xml::sax::SAXException & rExc) { OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) ); uno::Exception exc; if (rExc.WrappedException >>= exc) { aStr += OString( " >>> " ); aStr += OUStringToOString( exc.Message, RTL_TEXTENCODING_ASCII_US ); } OSL_ENSURE( 0, aStr.getStr() ); } catch (uno::Exception & rExc) { OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) ); OSL_ENSURE( 0, aStr.getStr() ); } Reference< lang::XComponent > xComp( xContext, UNO_QUERY ); if (xComp.is()) { xComp->dispose(); } }