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