sc/source/filter/lotus/lotread.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 <document.hxx>
  21 #include <docoptio.hxx>
  22
  23 #include <scdll.hxx>
  24 #include <scerrors.hxx>
  25 #include <root.hxx>
  26 #include "lotfilter.hxx"
  27 #include <lotimpop.hxx>
  28 #include <lotattr.hxx>
  29 #include <fprogressbar.hxx>
  30
  31 #include <sal/log.hxx>
  32
  33 ErrCode ImportLotus::parse()
  34 {
  35     enum STATE
  36     {
  37         S_START,        // analyse first BOF
  38         S_WK3,          // in WK3-Section
  39         S_WK4,
  40         S_FM3,
  41         S_END           // Import finished
  42     };
  43
  44     sal_uInt16          nOp;
  45     sal_uInt16          nSubType;
  46     sal_uInt16          nRecLen;
  47     sal_uInt32          nNextRec = 0;
  48     ErrCode        eRet = ERRCODE_NONE;
  49 //  ScFormulaCell   *pLastFormCell;
  50
  51     STATE               eCurrent = S_START;
  52
  53     nTab = 0;
  54     nExtTab = -2;
  55
  56     pIn->Seek( nNextRec );
  57
  58     // start progressbar
  59     ScfStreamProgressBar aPrgrsBar( *pIn, pD->GetDocumentShell() );
  60     LotusContext &rContext = aConv.getContext();
  61     while( eCurrent != S_END )
  62     {
  63         pIn->ReadUInt16( nOp ).ReadUInt16( nRecLen );
  64
  65         if (!pIn->good() || nNextRec > SAL_MAX_UINT32 - nRecLen - 4)
  66         {
  67             eRet = SCERR_IMPORT_FORMAT;
  68             eCurrent = S_END;
  69             if (!pIn->good())
  70                 break;  // while
  71         }
  72
  73         nNextRec += nRecLen + 4;
  74
  75         switch( eCurrent )
  76         {
  77
  78             case S_START:                                           // S_START
  79             if( nOp )
  80             {
  81                 eRet = SCERR_IMPORT_UNKNOWN_WK;
  82                 eCurrent = S_END;
  83             }
  84             else
  85             {
  86                 if( nRecLen > 2 )
  87                 {
  88                     Bof();
  89                     switch (rContext.pLotusRoot->eFirstType)
  90                     {
  91                         case Lotus123Typ::WK3: eCurrent = S_WK3; break;
  92                         case Lotus123Typ::WK4: eCurrent = S_WK4; break;
  93                         default:
  94                         eRet = SCERR_IMPORT_UNKNOWN_WK;
  95                         eCurrent = S_END;
  96                     }
  97                 }
  98                 else
  99                 {
 100                     eCurrent = S_END;                   // TODO: add here something for <= WK1!
 101                     eRet = ErrCode(0xFFFFFFFF);
 102                 }
 103             }
 104             break;
 105
 106             case S_WK3:                                 // S_WK3
 107             case S_WK4:                                 // S_WK4
 108             switch( nOp )
 109             {
 110                 case 0x0001:                            // EOF
 111                 eCurrent = S_FM3;
 112                 nTab++;
 113                 break;
 114
 115                 case 0x0002:                            // PASSWORD
 116                 eRet = SCERR_IMPORT_FILEPASSWD;
 117                 eCurrent = S_END;
 118                 break;
 119
 120                 case 0x0007:                            // COLUMNWIDTH
 121                 Columnwidth( nRecLen );
 122                 break;
 123
 124                 case 0x0008:                            // HIDDENCOLUMN
 125                 Hiddencolumn( nRecLen );
 126                 break;
 127
 128                 case 0x0009:                            // USERRANGE
 129                 Userrange();
 130                 break;
 131
 132                 case 0x0013:                            // FORMAT
 133
 134                 break;
 135                 case 0x0014:                            // ERRCELL
 136                 Errcell();
 137                 break;
 138
 139                 case 0x0015:                            // NACELL
 140                 Nacell();
 141                 break;
 142
 143                 case 0x0016:                            // LABELCELL
 144                 Labelcell();
 145                 break;
 146
 147                 case 0x0017:                            // NUMBERCELL
 148                 Numbercell();
 149                 break;
 150
 151                 case 0x0018:                            // SMALLNUMCELL
 152                 Smallnumcell();
 153                 break;
 154
 155                 case 0x0019:                            // FORMULACELL
 156                 Formulacell( nRecLen );
 157                 break;
 158
 159                 case 0x001b:                            // extended attributes
 160                 if (nRecLen > 2)
 161                 {
 162                     Read( nSubType );
 163                     nRecLen -= 2;
 164                     switch( nSubType )
 165                     {
 166                         case 2007:                      // ROW PRESENTATION
 167                             RowPresentation( nRecLen );
 168                             break;
 169
 170                         case 14000:                     // NAMED SHEET
 171                             NamedSheet();
 172                             break;
 173                     }
 174                 }
 175                 else
 176                 {
 177                     eRet = SCERR_IMPORT_FORMAT;
 178                     eCurrent = S_END;
 179                 }
 180             }
 181
 182             break;
 183
 184             case S_FM3:                                 // S_FM3
 185             break;
 186
 187             case S_END:                                 // S_END
 188             break;
 189         }
 190
 191         SAL_WARN_IF( nNextRec < pIn->Tell(), "sc.filter",
 192             "*ImportLotus::Read(): Read too much..." );
 193
 194         pIn->Seek( nNextRec );
 195         aPrgrsBar.Progress();
 196     }
 197
 198     // TODO: eliminate stupid names
 199     SCTAB       nTabs = pD->GetTableCount();
 200     SCTAB       nCnt;
 201     OUString aTabName;
 202     OUString aBaseName;
 203     if( nTabs != 0 )
 204     {
 205         if( nTabs > 1 )
 206         {
 207             pD->GetName( 0, aBaseName );
 208             aBaseName = aBaseName.copy(0, aBaseName.getLength()-1);
 209         }
 210         for( nCnt = 1 ; nCnt < nTabs ; nCnt++ )
 211         {
 212             SAL_WARN_IF( !pD->HasTable( nCnt ), "sc.filter",
 213                 "-ImportLotus::Read(): Where is my table?!" );
 214             pD->GetName( nCnt, aTabName );
 215             if( aTabName == "temp" )
 216             {
 217                 aTabName = aBaseName;
 218                 pD->CreateValidTabName( aTabName );
 219                 pD->RenameTab( nCnt, aTabName );
 220             }
 221         }
 222     }
 223
 224     return eRet;
 225 }
 226
 227 ErrCode ImportLotus::Read()
 228 {
 229     ErrCode eRet = parse();
 230     pD->CalcAfterLoad();
 231     return eRet;
 232 }
 233
 234 ErrCode ImportLotus::Read(SvStream& rIn)
 235 {
 236     pIn = &rIn;
 237
 238     bool            bRead = true;
 239     sal_uInt16          nOp;
 240     sal_uInt16          nRecLen;
 241     sal_uInt32          nNextRec = 0;
 242     ErrCode             eRet = ERRCODE_NONE;
 243
 244     nTab = 0;
 245     nExtTab = -1;
 246
 247     pIn->Seek( nNextRec );
 248
 249     // start progressbar
 250     ScfStreamProgressBar aPrgrsBar( *pIn, pD->GetDocumentShell() );
 251     LotusContext &rContext = aConv.getContext();
 252     while( bRead )
 253     {
 254         pIn->ReadUInt16( nOp ).ReadUInt16( nRecLen );
 255
 256         if (!pIn->good() || nNextRec > SAL_MAX_UINT32 - nRecLen - 4)
 257             bRead = false;
 258         else
 259         {
 260             nNextRec += nRecLen + 4;
 261
 262             switch( nOp )
 263             {
 264                 case 0x0000:                            // BOF
 265                 if( nRecLen != 26 || !BofFm3() )
 266                 {
 267                     bRead = false;
 268                     eRet = SCERR_IMPORT_FORMAT;
 269                 }
 270                 break;
 271
 272                 case 0x0001:                            // EOF
 273                     bRead = false;
 274                     SAL_WARN_IF( nTab != 0, "sc.filter",
 275                         "-ImportLotus::Read( SvStream& ): EOF twice!" );
 276                     nTab++;
 277                 break;
 278
 279                 case 174:                               // FONT_FACE
 280                     Font_Face();
 281                 break;
 282
 283                 case 176:                               // FONT_TYPE
 284                     Font_Type();
 285                 break;
 286
 287                 case 177:                               // FONT_YSIZE
 288                     Font_Ysize();
 289                 break;
 290
 291                 case 195:
 292                     if( nExtTab >= 0 )
 293                         rContext.pLotusRoot->maAttrTable.Apply(rContext.pLotusRoot, static_cast<SCTAB>(nExtTab));
 294                     nExtTab++;
 295                     break;
 296                 case 197:
 297                     Row_( nRecLen );
 298                 break;
 299             }
 300
 301             SAL_WARN_IF( nNextRec < pIn->Tell(), "sc.filter",
 302                 "*ImportLotus::Read(): Read too much..." );
 303             pIn->Seek( nNextRec );
 304             aPrgrsBar.Progress();
 305         }
 306     }
 307
 308     rContext.pLotusRoot->maAttrTable.Apply(rContext.pLotusRoot, static_cast<SCTAB>(nExtTab));
 309
 310     return eRet;
 311 }
 312
 313 extern "C" SAL_DLLPUBLIC_EXPORT bool TestImportWKS(SvStream& rStream)
 314 {
 315     ScDLL::Init();
 316     ScDocument aDocument;
 317     ScDocOptions aDocOpt = aDocument.GetDocOptions();
 318     aDocOpt.SetLookUpColRowNames(false);
 319     aDocument.SetDocOptions(aDocOpt);
 320     aDocument.MakeTable(0);
 321     aDocument.EnableExecuteLink(false);
 322     aDocument.SetInsertingFromOtherDoc(true);
 323
 324     LotusContext aContext;
 325     ImportLotus aLotusImport(aContext, rStream, &aDocument, RTL_TEXTENCODING_ASCII_US);
 326
 327     ErrCode eRet = aLotusImport.parse();
 328     if (eRet == ErrCode(0xFFFFFFFF))
 329     {
 330         rStream.Seek(0);
 331         eRet = ScImportLotus123old(aContext, rStream, &aDocument, RTL_TEXTENCODING_ASCII_US);
 332     }
 333
 334     return eRet == ERRCODE_NONE;
 335 }
 336
 337 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */