sc/source/filter/html/htmlimp.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 <scitems.hxx>
  21 #include <osl/diagnose.h>
  22 #include <unotools/charclass.hxx>
  23
  24 #include <editeng/lrspitem.hxx>
  25 #include <editeng/paperinf.hxx>
  26 #include <editeng/sizeitem.hxx>
  27 #include <editeng/ulspitem.hxx>
  28 #include <editeng/boxitem.hxx>
  29 #include <vcl/svapp.hxx>
  30 #include <o3tl/string_view.hxx>
  31
  32 #include <htmlimp.hxx>
  33 #include <htmlpars.hxx>
  34 #include <filter.hxx>
  35 #include <global.hxx>
  36 #include <document.hxx>
  37 #include <editutil.hxx>
  38 #include <stlpool.hxx>
  39 #include <stlsheet.hxx>
  40 #include <refdata.hxx>
  41 #include <rangenam.hxx>
  42 #include <attrib.hxx>
  43 #include <ftools.hxx>
  44 #include <tokenarray.hxx>
  45
  46 ErrCode ScFormatFilterPluginImpl::ScImportHTML( SvStream &rStream, const OUString& rBaseURL, ScDocument *pDoc,
  47         ScRange& rRange, double nOutputFactor, bool bCalcWidthHeight, SvNumberFormatter* pFormatter,
  48         bool bConvertDate, bool bConvertScientific )
  49 {
  50     ScHTMLImport aImp( pDoc, rBaseURL, rRange, bCalcWidthHeight );
  51     ErrCode nErr = aImp.Read( rStream, rBaseURL );
  52     ScRange aR = aImp.GetRange();
  53     rRange.aEnd = aR.aEnd;
  54     aImp.WriteToDocument( true, nOutputFactor, pFormatter, bConvertDate, bConvertScientific );
  55     return nErr;
  56 }
  57
  58 std::unique_ptr<ScEEAbsImport> ScFormatFilterPluginImpl::CreateHTMLImport( ScDocument* pDocP, const OUString& rBaseURL, const ScRange& rRange )
  59 {
  60     return std::make_unique<ScHTMLImport>( pDocP, rBaseURL, rRange, true/*bCalcWidthHeight*/ );
  61 }
  62
  63 ScHTMLImport::ScHTMLImport( ScDocument* pDocP, const OUString& rBaseURL, const ScRange& rRange, bool bCalcWidthHeight ) :
  64     ScEEImport( pDocP, rRange )
  65 {
  66     Size aPageSize;
  67     OutputDevice* pDefaultDev = Application::GetDefaultDevice();
  68     const OUString aPageStyle = mpDoc->GetPageStyle( rRange.aStart.Tab() );
  69     ScStyleSheet* pStyleSheet = static_cast<ScStyleSheet*>(mpDoc->
  70         GetStyleSheetPool()->Find( aPageStyle, SfxStyleFamily::Page ));
  71     if ( pStyleSheet )
  72     {
  73         const SfxItemSet& rSet = pStyleSheet->GetItemSet();
  74         const SvxLRSpaceItem* pLRItem = &rSet.Get( ATTR_LRSPACE );
  75         tools::Long nLeftMargin = pLRItem->ResolveLeft({});
  76         tools::Long nRightMargin = pLRItem->ResolveRight({});
  77         const SvxULSpaceItem* pULItem = &rSet.Get( ATTR_ULSPACE );
  78         tools::Long nTopMargin    = pULItem->GetUpper();
  79         tools::Long nBottomMargin = pULItem->GetLower();
  80         aPageSize = rSet.Get(ATTR_PAGE_SIZE).GetSize();
  81         if ( !aPageSize.Width() || !aPageSize.Height() )
  82         {
  83             OSL_FAIL("PageSize Null ?!?!?");
  84             aPageSize = SvxPaperInfo::GetPaperSize( PAPER_A4 );
  85         }
  86         aPageSize.AdjustWidth( -(nLeftMargin + nRightMargin) );
  87         aPageSize.AdjustHeight( -(nTopMargin + nBottomMargin) );
  88         aPageSize = pDefaultDev->LogicToPixel( aPageSize, MapMode( MapUnit::MapTwip ) );
  89     }
  90     else
  91     {
  92         OSL_FAIL("no StyleSheet?!?");
  93         aPageSize = pDefaultDev->LogicToPixel(
  94             SvxPaperInfo::GetPaperSize( PAPER_A4 ), MapMode( MapUnit::MapTwip ) );
  95     }
  96     if( bCalcWidthHeight )
  97         mpParser.reset( new ScHTMLLayoutParser( mpEngine.get(), rBaseURL, aPageSize, pDocP ));
  98     else
  99         mpParser.reset( new ScHTMLQueryParser( mpEngine.get(), pDocP ));
 100 }
 101
 102 void ScHTMLImport::InsertRangeName( ScDocument& rDoc, const OUString& rName, const ScRange& rRange )
 103 {
 104     ScComplexRefData aRefData;
 105     aRefData.InitRange( rRange );
 106     aRefData.Ref1.SetFlag3D( true );
 107     aRefData.Ref2.SetFlag3D( aRefData.Ref2.Tab() != aRefData.Ref1.Tab() );
 108     ScTokenArray aTokArray(rDoc);
 109     aTokArray.AddDoubleReference( aRefData );
 110     ScRangeData* pRangeData = new ScRangeData( rDoc, rName, aTokArray );
 111     rDoc.GetRangeName()->insert( pRangeData );
 112 }
 113
 114 void ScHTMLImport::WriteToDocument(
 115     bool bSizeColsRows, double nOutputFactor, SvNumberFormatter* pFormatter, bool bConvertDate,
 116     bool bConvertScientific )
 117 {
 118     ScEEImport::WriteToDocument( bSizeColsRows, nOutputFactor, pFormatter, bConvertDate, bConvertScientific );
 119
 120     const ScHTMLParser* pParser = static_cast<ScHTMLParser*>(mpParser.get());
 121     const ScHTMLTable* pGlobTable = pParser->GetGlobalTable();
 122     if( !pGlobTable )
 123         return;
 124
 125     // set cell borders for HTML table cells
 126     pGlobTable->ApplyCellBorders( mpDoc, maRange.aStart );
 127
 128     // correct cell borders for merged cells
 129     for ( size_t i = 0, n = pParser->ListSize(); i < n; ++i )
 130     {
 131         const ScEEParseEntry* pEntry = pParser->ListEntry( i );
 132         if( (pEntry->nColOverlap > 1) || (pEntry->nRowOverlap > 1) )
 133         {
 134             SCTAB nTab = maRange.aStart.Tab();
 135             const ScMergeAttr* pItem = mpDoc->GetAttr( pEntry->nCol, pEntry->nRow, nTab, ATTR_MERGE );
 136             if( pItem->IsMerged() )
 137             {
 138                 SCCOL nColMerge = pItem->GetColMerge();
 139                 SCROW nRowMerge = pItem->GetRowMerge();
 140
 141                 const SvxBoxItem* pToItem = mpDoc->GetAttr( pEntry->nCol, pEntry->nRow, nTab, ATTR_BORDER );
 142                 SvxBoxItem aNewItem( *pToItem );
 143                 if( nColMerge > 1 )
 144                 {
 145                     const SvxBoxItem* pFromItem =
 146                         mpDoc->GetAttr( pEntry->nCol + nColMerge - 1, pEntry->nRow, nTab, ATTR_BORDER );
 147                     aNewItem.SetLine( pFromItem->GetLine( SvxBoxItemLine::RIGHT ), SvxBoxItemLine::RIGHT );
 148                 }
 149                 if( nRowMerge > 1 )
 150                 {
 151                     const SvxBoxItem* pFromItem =
 152                         mpDoc->GetAttr( pEntry->nCol, pEntry->nRow + nRowMerge - 1, nTab, ATTR_BORDER );
 153                     aNewItem.SetLine( pFromItem->GetLine( SvxBoxItemLine::BOTTOM ), SvxBoxItemLine::BOTTOM );
 154                 }
 155                 mpDoc->ApplyAttr( pEntry->nCol, pEntry->nRow, nTab, aNewItem );
 156             }
 157         }
 158     }
 159
 160     // create ranges for HTML tables
 161      // 1 - entire document
 162     ScRange aNewRange( maRange.aStart );
 163     aNewRange.aEnd.IncCol( static_cast<SCCOL>(pGlobTable->GetDocSize( tdCol )) - 1 );
 164     aNewRange.aEnd.IncRow( pGlobTable->GetDocSize( tdRow ) - 1 );
 165     InsertRangeName( *mpDoc, ScfTools::GetHTMLDocName(), aNewRange );
 166
 167     // 2 - all tables
 168     InsertRangeName( *mpDoc, ScfTools::GetHTMLTablesName(), ScRange( maRange.aStart ) );
 169
 170     // 3 - single tables
 171     SCCOL nColDiff = maRange.aStart.Col();
 172     SCROW nRowDiff = maRange.aStart.Row();
 173     SCTAB nTabDiff = maRange.aStart.Tab();
 174
 175     ScHTMLTable* pTable = nullptr;
 176     ScHTMLTableId nTableId = SC_HTML_GLOBAL_TABLE;
 177     ScRange aErrorRange( ScAddress::UNINITIALIZED );
 178     while( (pTable = pGlobTable->FindNestedTable( ++nTableId )) != nullptr )
 179     {
 180         pTable->GetDocRange( aNewRange );
 181         if (!aNewRange.Move( nColDiff, nRowDiff, nTabDiff, aErrorRange, *mpDoc ))
 182         {
 183             assert(!"can't move");
 184         }
 185         // insert table number as name
 186         OUStringBuffer aName(ScfTools::GetNameFromHTMLIndex(nTableId));
 187         // insert table id as name
 188         if (!pTable->GetTableName().isEmpty())
 189             aName.append(" - " + pTable->GetTableName());
 190         // insert table caption as name
 191         if (!pTable->GetTableCaption().isEmpty())
 192             aName.append(" - " + pTable->GetTableCaption());
 193         const OUString sName(aName.makeStringAndClear());
 194         if (!mpDoc->GetRangeName()->findByUpperName(ScGlobal::getCharClass().uppercase(sName)))
 195             InsertRangeName(*mpDoc, sName, aNewRange);
 196     }
 197 }
 198
 199 OUString ScFormatFilterPluginImpl::GetHTMLRangeNameList( ScDocument& rDoc, const OUString& rOrigName )
 200 {
 201     return ScHTMLImport::GetHTMLRangeNameList( rDoc, rOrigName );
 202 }
 203
 204 OUString ScHTMLImport::GetHTMLRangeNameList( const ScDocument& rDoc, std::u16string_view rOrigName )
 205 {
 206     if (rOrigName.empty())
 207         return OUString();
 208
 209     OUString aNewName;
 210     ScRangeName* pRangeNames = rDoc.GetRangeName();
 211     ScRangeList aRangeList;
 212     sal_Int32 nStringIx = 0;
 213     do
 214     {
 215         OUString aToken( o3tl::getToken(rOrigName, 0, ';', nStringIx ) );
 216         if( pRangeNames && ScfTools::IsHTMLTablesName( aToken ) )
 217         {   // build list with all HTML tables
 218             sal_uLong nIndex = 1;
 219             for(;;)
 220             {
 221                 aToken = ScfTools::GetNameFromHTMLIndex( nIndex++ );
 222                 const ScRangeData* pRangeData = pRangeNames->findByUpperName(ScGlobal::getCharClass().uppercase(aToken));
 223                 if (!pRangeData)
 224                     break;
 225                 ScRange aRange;
 226                 if( pRangeData->IsReference( aRange ) && !aRangeList.Contains( aRange ) )
 227                 {
 228                     aNewName = ScGlobal::addToken(aNewName, aToken, ';');
 229                     aRangeList.push_back( aRange );
 230                 }
 231             }
 232         }
 233         else
 234             aNewName = ScGlobal::addToken(aNewName, aToken, ';');
 235     }
 236     while (nStringIx>0);
 237     return aNewName;
 238 }
 239
 240 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */