sw/source/filter/html/htmlbas.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: htmlbas.cxx,v $
  10  * $Revision: 1.16 $
  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_sw.hxx"
  33
  34
  35 #include <hintids.hxx>
  36
  37 #include <sfx2/sfx.hrc>
  38
  39 #define _SVSTDARR_STRINGSSORTDTOR
  40 #include <svtools/svstdarr.hxx>
  41 #include <basic/sbx.hxx>
  42 #include <basic/basmgr.hxx>
  43 #include <basic/sbmod.hxx>
  44 #include <sfx2/evntconf.hxx>
  45 #include <sfx2/app.hxx>
  46 #include <svtools/htmlout.hxx>
  47 #include <svtools/htmltokn.h>
  48 #include <svtools/htmlkywd.hxx>
  49
  50
  51 #include <fmtornt.hxx>
  52 #include <fmtfld.hxx>
  53
  54 #include "doc.hxx"
  55 #include "docsh.hxx"
  56 #include "docufld.hxx"
  57 #include "wrthtml.hxx"
  58 #include "swhtml.hxx"
  59
  60
  61 using namespace ::com::sun::star;
  62 using namespace ::com::sun::star::uno;
  63 using namespace ::com::sun::star::container;
  64
  65
  66 static HTMLOutEvent __FAR_DATA aBodyEventTable[] =
  67 {
  68     { OOO_STRING_SVTOOLS_HTML_O_SDonload,               OOO_STRING_SVTOOLS_HTML_O_onload,               SFX_EVENT_OPENDOC       },
  69     { OOO_STRING_SVTOOLS_HTML_O_SDonunload,     OOO_STRING_SVTOOLS_HTML_O_onunload,     SFX_EVENT_PREPARECLOSEDOC       },
  70     { OOO_STRING_SVTOOLS_HTML_O_SDonfocus,      OOO_STRING_SVTOOLS_HTML_O_onfocus,      SFX_EVENT_ACTIVATEDOC   },
  71     { OOO_STRING_SVTOOLS_HTML_O_SDonblur,               OOO_STRING_SVTOOLS_HTML_O_onblur,               SFX_EVENT_DEACTIVATEDOC },
  72     { 0,                                        0,                                      0                                       }
  73 };
  74
  75
  76 void SwHTMLParser::NewScript()
  77 {
  78     ParseScriptOptions( aScriptType, sBaseURL, eScriptLang, aScriptURL,
  79                         aBasicLib, aBasicModule );
  80
  81     if( aScriptURL.Len() )
  82     {
  83         // Den Inhalt des Script-Tags ignorieren
  84         bIgnoreRawData = TRUE;
  85     }
  86 }
  87
  88 void SwHTMLParser::EndScript()
  89 {
  90     BOOL bInsIntoBasic = FALSE,
  91          bInsSrcIntoFld = FALSE;
  92
  93     switch( eScriptLang )
  94     {
  95     case HTML_SL_STARBASIC:
  96         bInsIntoBasic = TRUE;
  97         break;
  98     default:
  99         bInsSrcIntoFld = TRUE;
 100         break;
 101     }
 102
 103     bIgnoreRawData = FALSE;
 104     aScriptSource.ConvertLineEnd();
 105
 106 //  MIB 23.5.97: SGML-Kommentare brauchen nicht mehr entfernt zu werden,
 107 //      weil JS das jetzt selber kann.
 108 //      RemoveSGMLComment( aScriptSource, TRUE );
 109
 110     // Ausser StarBasic und unbenutzem JavaScript jedes Script oder den
 111     // Modulnamen in einem Feld merken merken
 112     if( bInsSrcIntoFld && !bIgnoreHTMLComments )
 113     {
 114         SwScriptFieldType *pType =
 115             (SwScriptFieldType*)pDoc->GetSysFldType( RES_SCRIPTFLD );
 116
 117         SwScriptField aFld( pType, aScriptType,
 118                             aScriptURL.Len() ? aScriptURL : aScriptSource,
 119                             aScriptURL.Len()!=0 );
 120         InsertAttr( SwFmtFld( aFld ) );
 121     }
 122
 123     SwDocShell *pDocSh = pDoc->GetDocShell();
 124     if( aScriptSource.Len() && pDocSh &&
 125         bInsIntoBasic && IsNewDoc() )
 126     {
 127     // Fuer JavaScript und StarBasic noch ein Basic-Modul anlegen
 128         // Das Basic entfernt natuerlich weiterhin keine SGML-Kommentare
 129         RemoveSGMLComment( aScriptSource, TRUE );
 130
 131         // get library name
 132         ::rtl::OUString aLibName;
 133         if( aBasicLib.Len() )
 134             aLibName = aBasicLib;
 135         else
 136             aLibName = ::rtl::OUString::createFromAscii( "Standard" );
 137
 138         // get module library container
 139         Reference< script::XLibraryContainer > xModLibContainer( pDocSh->GetBasicContainer(), UNO_QUERY );
 140
 141         if ( xModLibContainer.is() )
 142         {
 143             Reference< container::XNameContainer > xModLib;
 144             if ( xModLibContainer->hasByName( aLibName ) )
 145             {
 146                 // get module library
 147                 Any aElement = xModLibContainer->getByName( aLibName );
 148                 aElement >>= xModLib;
 149             }
 150             else
 151             {
 152                 // create module library
 153                 xModLib = xModLibContainer->createLibrary( aLibName );
 154             }
 155
 156             if ( xModLib.is() )
 157             {
 158                 if( !aBasicModule.Len() )
 159                 {
 160                     // create module name
 161                     BOOL bFound = TRUE;
 162                     while( bFound )
 163                     {
 164                         aBasicModule.AssignAscii( "Modul" );
 165                         aBasicModule += String::CreateFromInt32( (sal_Int32)(++nSBModuleCnt) );
 166                         bFound = xModLib->hasByName( ::rtl::OUString( aBasicModule ) );
 167                     }
 168                 }
 169
 170                 // create module
 171                 ::rtl::OUString aModName( aBasicModule );
 172                 if ( !xModLib->hasByName( aModName ) )
 173                 {
 174                     Any aElement;
 175                     aElement <<= ::rtl::OUString( aScriptSource );
 176                     xModLib->insertByName( aModName , aElement );
 177                 }
 178             }
 179         }
 180
 181         // get dialog library container
 182         Reference< script::XLibraryContainer > xDlgLibContainer( pDocSh->GetDialogContainer(), UNO_QUERY );
 183
 184         if ( xDlgLibContainer.is() )
 185         {
 186             if ( !xDlgLibContainer->hasByName( aLibName ) )
 187             {
 188                 // create dialog library
 189                 xDlgLibContainer->createLibrary( aLibName );
 190             }
 191         }
 192     }
 193
 194     aScriptSource.Erase();
 195     aScriptType.Erase();
 196     aScriptURL.Erase();
 197
 198     aBasicLib.Erase();
 199     aBasicModule.Erase();
 200 }
 201
 202 void SwHTMLParser::AddScriptSource()
 203 {
 204     // Hier merken wir und nur ein par Strings
 205     if( aToken.Len() > 2 &&
 206         (HTML_SL_STARBASIC==eScriptLang && aToken.GetChar( 0 ) == '\'') )
 207     {
 208         xub_StrLen nPos = STRING_NOTFOUND;
 209         if( !aBasicLib.Len() )
 210         {
 211             nPos = aToken.SearchAscii( OOO_STRING_SVTOOLS_HTML_SB_library );
 212             if( nPos != STRING_NOTFOUND )
 213             {
 214                 aBasicLib =
 215                     aToken.Copy( nPos + sizeof(OOO_STRING_SVTOOLS_HTML_SB_library) - 1 );
 216                 aBasicLib.EraseLeadingChars().EraseTrailingChars();
 217             }
 218         }
 219
 220         if( !aBasicModule.Len() && nPos==STRING_NOTFOUND )
 221         {
 222             nPos = aToken.SearchAscii( OOO_STRING_SVTOOLS_HTML_SB_module );
 223             if( nPos != STRING_NOTFOUND )
 224             {
 225                 aBasicModule =
 226                     aToken.Copy( nPos + sizeof(OOO_STRING_SVTOOLS_HTML_SB_module) - 1 );
 227                 aBasicModule.EraseLeadingChars().EraseTrailingChars();
 228             }
 229         }
 230
 231         if( nPos==STRING_NOTFOUND )
 232         {
 233             if( aScriptSource.Len() )
 234                 aScriptSource += '\n';
 235             (aScriptSource += aToken);
 236         }
 237     }
 238     else if( aScriptSource.Len() || aToken.Len() )
 239     {
 240         // Leerzeilen am Anfang werden ignoriert
 241         if( aScriptSource.Len() )
 242         {
 243             aScriptSource += '\n';
 244         }
 245         else
 246         {
 247             // Wir stehen hinter dem CR/LF der Zeile davor
 248             nScriptStartLineNr = GetLineNr() - 1;
 249         }
 250         aScriptSource += aToken;
 251     }
 252 }
 253
 254 void SwHTMLParser::InsertBasicDocEvent( USHORT nEvent, const String& rName,
 255                                         ScriptType eScrType,
 256                                         const String& rScrType )
 257 {
 258     ASSERT( rName.Len(), "InsertBasicDocEvent() ohne Macro gerufen" );
 259     if( !rName.Len() )
 260         return;
 261
 262     SwDocShell *pDocSh = pDoc->GetDocShell();
 263     ASSERT( pDocSh, "Wo ist die DocShell?" );
 264     if( !pDocSh )
 265         return;
 266
 267     String sEvent( rName );
 268     sEvent.ConvertLineEnd();
 269     String sScriptType;
 270     if( EXTENDED_STYPE == eScrType )
 271         sScriptType = rScrType;
 272
 273     SfxEventConfiguration* pECfg = SFX_APP()->GetEventConfig();
 274     pECfg->ConfigureEvent( nEvent, SvxMacro( sEvent, sScriptType, eScrType ),
 275                            pDocSh );
 276 }
 277
 278 void SwHTMLWriter::OutBasic()
 279 {
 280     if( !bCfgStarBasic )
 281         return;
 282
 283     SFX_APP()->EnterBasicCall();
 284
 285     BasicManager *pBasicMan = pDoc->GetDocShell()->GetBasicManager();
 286     ASSERT( pBasicMan, "Wo ist der Basic-Manager?" );
 287     //JP 17.07.96: Bug 29538 - nur das DocumentBasic schreiben
 288     if( !pBasicMan || pBasicMan == SFX_APP()->GetBasicManager() )
 289     {
 290         SFX_APP()->LeaveBasicCall();
 291         return;
 292     }
 293
 294     // und jetzt alle StarBasic-Module und alle unbenutzen JavaSrript-Module
 295     // ausgeben
 296     for( USHORT i=0; i<pBasicMan->GetLibCount(); i++ )
 297     {
 298         StarBASIC *pBasic = pBasicMan->GetLib( i  );
 299         const String& rLibName = pBasic->GetName();
 300
 301         SbxArray *pModules = pBasic->GetModules();
 302         for( USHORT j=0; j<pModules->Count(); j++ )
 303         {
 304             const SbModule *pModule = PTR_CAST( SbModule, pModules->Get(j) );
 305             ASSERT( pModule, "Wo ist das Modul?" );
 306
 307             String sLang(
 308                     String::CreateFromAscii( SVX_MACRO_LANGUAGE_STARBASIC ) );
 309             ScriptType eType = STARBASIC;
 310
 311             if( 0==i && 0==j )
 312             {
 313                 OutNewLine();
 314                 ByteString sOut( '<' );
 315                 sOut.Append( OOO_STRING_SVTOOLS_HTML_meta );
 316                 sOut.Append( ' ' );
 317                 sOut.Append( OOO_STRING_SVTOOLS_HTML_O_httpequiv );
 318                   sOut.Append( "=\"" );
 319                 sOut.Append( OOO_STRING_SVTOOLS_HTML_META_content_script_type );
 320                 sOut.Append( "\" " );
 321                 sOut.Append( OOO_STRING_SVTOOLS_HTML_O_content );
 322                 sOut.Append( "=\"text/x-" );
 323                 Strm() << sOut.GetBuffer();
 324                 // Entities aren't welcome here
 325                 ByteString sLang8( sLang, eDestEnc );
 326                 Strm() << sLang8.GetBuffer() << "\">";
 327             }
 328
 329             const String& rModName = pModule->GetName();
 330             Strm() << SwHTMLWriter::sNewLine;   // nicht einruecken!
 331             HTMLOutFuncs::OutScript( Strm(), GetBaseURL(), pModule->GetSource(),
 332                                      sLang, eType, aEmptyStr,
 333                                      &rLibName, &rModName,
 334                                      eDestEnc, &aNonConvertableCharacters );
 335         }
 336     }
 337
 338     SFX_APP()->LeaveBasicCall();
 339 }
 340
 341
 342 void SwHTMLWriter::OutBasicBodyEvents()
 343 {
 344     SwDocShell *pDocSh = pDoc->GetDocShell();
 345     if( !pDocSh )
 346         return;
 347
 348     SfxEventConfiguration* pECfg = SFX_APP()->GetEventConfig();
 349     ASSERT( pECfg, "Wo ist die Event-Konfiguration?" );
 350     if( !pECfg )
 351         return;
 352
 353     SvxMacroTableDtor *pMacTable = pECfg->GetDocEventTable( pDocSh );
 354     if( pMacTable && pMacTable->Count() )
 355         HTMLOutFuncs::Out_Events( Strm(), *pMacTable, aBodyEventTable,
 356                                   bCfgStarBasic, eDestEnc, &aNonConvertableCharacters );
 357 }
 358
 359