xmlscript/test/imexp.cxx

   1 /*************************************************************************
   2  *
   3  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   4  *
   5  * Copyright 2008 by Sun Microsystems, Inc.
   6  *
   7  * OpenOffice.org - a multi-platform office productivity suite
   8  *
   9  * $RCSfile: imexp.cxx,v $
  10  * $Revision: 1.20 $
  11  *
  12  * This file is part of OpenOffice.org.
  13  *
  14  * OpenOffice.org is free software: you can redistribute it and/or modify
  15  * it under the terms of the GNU Lesser General Public License version 3
  16  * only, as published by the Free Software Foundation.
  17  *
  18  * OpenOffice.org is distributed in the hope that it will be useful,
  19  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  20  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  21  * GNU Lesser General Public License version 3 for more details
  22  * (a copy is included in the LICENSE file that accompanied this code).
  23  *
  24  * You should have received a copy of the GNU Lesser General Public License
  25  * version 3 along with OpenOffice.org.  If not, see
  26  * <http://www.openoffice.org/license.html>
  27  * for a copy of the LGPLv3 License.
  28  *
  29  ************************************************************************/
  30
  31 // MARKER(update_precomp.py): autogen include statement, do not remove
  32 #include "precompiled_xmlscript.hxx"
  33
  34 #include <stdio.h>
  35 #include <rtl/memory.h>
  36 #include "osl/file.h"
  37
  38 #include <rtl/ustrbuf.hxx>
  39
  40 #include <xmlscript/xmldlg_imexp.hxx>
  41 #include <xmlscript/xml_helper.hxx>
  42
  43 #include <cppuhelper/servicefactory.hxx>
  44 #include <cppuhelper/bootstrap.hxx>
  45 #include <cppuhelper/implbase2.hxx>
  46
  47 #include <comphelper/processfactory.hxx>
  48 #include <comphelper/regpathhelper.hxx>
  49
  50 #include <tools/debug.hxx>
  51 #include <vcl/svapp.hxx>
  52
  53 #include <com/sun/star/io/XActiveDataSource.hpp>
  54
  55 #include <com/sun/star/lang/XComponent.hpp>
  56 #include <com/sun/star/lang/XInitialization.hpp>
  57 #include <com/sun/star/lang/XMultiServiceFactory.hpp>
  58
  59 #include <com/sun/star/registry/XSimpleRegistry.hpp>
  60 #include <com/sun/star/registry/XImplementationRegistration.hpp>
  61 #include <com/sun/star/uno/XComponentContext.hpp>
  62
  63 #include <com/sun/star/awt/XToolkit.hpp>
  64 #include <com/sun/star/awt/XControlModel.hpp>
  65 #include <com/sun/star/awt/XControl.hpp>
  66 #include <com/sun/star/awt/XDialog.hpp>
  67
  68 #include <com/sun/star/container/XNameContainer.hpp>
  69
  70
  71 using namespace ::rtl;
  72 using namespace ::cppu;
  73 using namespace ::com::sun::star;
  74 using namespace ::com::sun::star::uno;
  75
  76
  77
  78
  79 Reference< XComponentContext > createInitialComponentContext(
  80     OUString const & inst_dir )
  81 {
  82     Reference< XComponentContext > xContext;
  83
  84     try
  85     {
  86         OUString file_url;
  87         oslFileError rc = osl_getFileURLFromSystemPath(
  88             inst_dir.pData, &file_url.pData );
  89         OSL_ASSERT( osl_File_E_None == rc );
  90
  91         ::rtl::OUString unorc = file_url + OUString(
  92             RTL_CONSTASCII_USTRINGPARAM("/program/" SAL_CONFIGFILE("uno")) );
  93
  94         return defaultBootstrap_InitialComponentContext( unorc );
  95     }
  96
  97     catch( Exception& rExc )
  98     {
  99         OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) );
 100         OSL_ENSURE( 0, aStr.getStr() );
 101     }
 102
 103     return xContext;
 104 }
 105
 106
 107 // -----------------------------------------------------------------------
 108
 109 Reference< container::XNameContainer > importFile(
 110     char const * fname,
 111     Reference< XComponentContext > const & xContext )
 112 {
 113     // create the input stream
 114     FILE *f = ::fopen( fname, "rb" );
 115     if (f)
 116     {
 117         ::fseek( f, 0 ,SEEK_END );
 118         int nLength = ::ftell( f );
 119         ::fseek( f, 0, SEEK_SET );
 120
 121         ByteSequence bytes( nLength );
 122         ::fread( bytes.getArray(), nLength, 1, f );
 123         ::fclose( f );
 124
 125         Reference< container::XNameContainer > xModel( xContext->getServiceManager()->createInstanceWithContext(
 126             OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialogModel" ) ), xContext ), UNO_QUERY );
 127         ::xmlscript::importDialogModel( ::xmlscript::createInputStream( bytes ), xModel, xContext );
 128
 129         return xModel;
 130     }
 131     else
 132     {
 133         throw Exception( OUString( RTL_CONSTASCII_USTRINGPARAM("### Cannot read file!") ),
 134                          Reference< XInterface >() );
 135     }
 136 }
 137
 138 void exportToFile(
 139     char const * fname,
 140     Reference< container::XNameContainer > const & xModel,
 141     Reference< XComponentContext > const & xContext )
 142 {
 143     Reference< io::XInputStreamProvider > xProvider( ::xmlscript::exportDialogModel( xModel, xContext ) );
 144     Reference< io::XInputStream > xStream( xProvider->createInputStream() );
 145
 146     Sequence< sal_Int8 > bytes;
 147     sal_Int32 nRead = xStream->readBytes( bytes, xStream->available() );
 148     for (;;)
 149     {
 150         Sequence< sal_Int8 > readBytes;
 151         nRead = xStream->readBytes( readBytes, 1024 );
 152         if (! nRead)
 153             break;
 154         OSL_ASSERT( readBytes.getLength() >= nRead );
 155
 156         sal_Int32 nPos = bytes.getLength();
 157         bytes.realloc( nPos + nRead );
 158         ::rtl_copyMemory( bytes.getArray() + nPos, readBytes.getConstArray(), (sal_uInt32)nRead );
 159     }
 160
 161     FILE * f = ::fopen( fname, "w" );
 162     ::fwrite( bytes.getConstArray(), 1, bytes.getLength(), f );
 163     ::fflush( f );
 164     ::fclose( f );
 165 }
 166
 167
 168
 169 class MyApp : public Application
 170 {
 171 public:
 172     void Main();
 173 };
 174
 175 MyApp aMyApp;
 176
 177 // -----------------------------------------------------------------------
 178
 179 void MyApp::Main()
 180 {
 181     if (GetCommandLineParamCount() < 2)
 182     {
 183         OSL_ENSURE( 0, "usage: imexp inst_dir inputfile [outputfile]\n" );
 184         return;
 185     }
 186
 187     Reference< XComponentContext > xContext(
 188         createInitialComponentContext( OUString( GetCommandLineParam( 0 ) ) ) );
 189     Reference< lang::XMultiServiceFactory > xMSF(
 190         xContext->getServiceManager(), UNO_QUERY );
 191
 192     try
 193     {
 194         ::comphelper::setProcessServiceFactory( xMSF );
 195
 196         Reference< awt::XToolkit> xToolkit( xMSF->createInstance(
 197             OUString( RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.ExtToolkit" ) ) ), UNO_QUERY );
 198
 199         // import dialogs
 200         OString aParam1( OUStringToOString(
 201                              OUString( GetCommandLineParam( 1 ) ),
 202                              RTL_TEXTENCODING_ASCII_US ) );
 203         Reference< container::XNameContainer > xModel(
 204             importFile( aParam1.getStr(), xContext ) );
 205         OSL_ASSERT( xModel.is() );
 206
 207         Reference< awt::XControl > xDlg( xMSF->createInstance(
 208             OUString(RTL_CONSTASCII_USTRINGPARAM( "com.sun.star.awt.UnoControlDialog" ) ) ), UNO_QUERY );
 209         xDlg->setModel( Reference< awt::XControlModel >::query( xModel ) );
 210         xDlg->createPeer( xToolkit, 0 );
 211         Reference< awt::XDialog > xD( xDlg, UNO_QUERY );
 212         xD->execute();
 213
 214         if (GetCommandLineParamCount() == 3)
 215         {
 216             // write modified dialogs
 217             OString aParam2( OUStringToOString(
 218                                  OUString( GetCommandLineParam( 2 ) ), RTL_TEXTENCODING_ASCII_US ) );
 219             exportToFile( aParam2.getStr(), xModel, xContext );
 220         }
 221     }
 222     catch (xml::sax::SAXException & rExc)
 223     {
 224         OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) );
 225         uno::Exception exc;
 226         if (rExc.WrappedException >>= exc)
 227         {
 228             aStr += OString( " >>> " );
 229             aStr += OUStringToOString( exc.Message, RTL_TEXTENCODING_ASCII_US );
 230         }
 231         OSL_ENSURE( 0, aStr.getStr() );
 232     }
 233     catch (uno::Exception & rExc)
 234     {
 235         OString aStr( OUStringToOString( rExc.Message, RTL_TEXTENCODING_ASCII_US ) );
 236         OSL_ENSURE( 0, aStr.getStr() );
 237     }
 238
 239     Reference< lang::XComponent > xComp( xContext, UNO_QUERY );
 240     if (xComp.is())
 241     {
 242         xComp->dispose();
 243     }
 244 }
 245