xref: /aoo41x/main/sc/source/filter/lotus/lotread.cxx (revision 3ee7c2db)
1 /**************************************************************
2  *
3  * Licensed to the Apache Software Foundation (ASF) under one
4  * or more contributor license agreements.  See the NOTICE file
5  * distributed with this work for additional information
6  * regarding copyright ownership.  The ASF licenses this file
7  * to you under the Apache License, Version 2.0 (the
8  * "License"); you may not use this file except in compliance
9  * with the License.  You may obtain a copy of the License at
10  *
11  *   http://www.apache.org/licenses/LICENSE-2.0
12  *
13  * Unless required by applicable law or agreed to in writing,
14  * software distributed under the License is distributed on an
15  * "AS IS" BASIS, WITHOUT WARRANTIES OR CONDITIONS OF ANY
16  * KIND, either express or implied.  See the License for the
17  * specific language governing permissions and limitations
18  * under the License.
19  *
20  *************************************************************/
21 
22 
23 
24 // MARKER(update_precomp.py): autogen include statement, do not remove
25 #include "precompiled_sc.hxx"
26 
27 
28 
29 //------------------------------------------------------------------------
30 
31 #include "document.hxx"
32 
33 #include "scerrors.hxx"
34 #include "root.hxx"
35 #include "lotimpop.hxx"
36 #include "lotattr.hxx"
37 #include "fprogressbar.hxx"
38 
39 
40 class ScFormulaCell;
41 
42 
Read()43 FltError ImportLotus::Read()
44 {
45 	enum STATE
46 	{
47 		S_START,		// analyse first BOF
48 		S_WK1,			// in WK1-Stream
49 		S_WK3,			// in WK3-Section
50 		S_WK4,			// ...
51 		S_FM3,			// ...
52 		S_END			// Import finished
53 	};
54 
55 	sal_uInt16			nOp;
56 	sal_uInt16			nSubType;
57 	sal_uInt16			nRecLen;
58 	sal_uInt32			nNextRec = 0UL;
59 	FltError		eRet = eERR_OK;
60 //	ScFormulaCell	*pLastFormCell;
61 
62 	STATE			eAkt = S_START;
63 
64 	nTab = 0;
65 	nExtTab = -2;
66 
67 	pIn->Seek( nNextRec );
68 
69 	// Progressbar starten
70     ScfStreamProgressBar aPrgrsBar( *pIn, pD->GetDocumentShell() );
71 
72 	while( eAkt != S_END )
73 	{
74 		*pIn >> nOp >> nRecLen;
75 
76 		if( pIn->IsEof() || nNextRec > SAL_MAX_UINT32 - nRecLen - 4 )
77 			eAkt = S_END;
78 
79 		nNextRec += nRecLen + 4;
80 
81 		switch( eAkt )
82 		{
83 			// -----------------------------------------------------------
84 			case S_START:											// S_START
85 			if( nOp )
86 			{
87 				eRet = SCERR_IMPORT_UNKNOWN_WK;
88 				eAkt = S_END;
89 			}
90 			else
91 			{
92 				if( nRecLen > 2 )
93 				{
94 					Bof();
95 					switch( pLotusRoot->eFirstType )
96 					{
97 						case Lotus_WK1:	eAkt = S_WK1; break;
98 						case Lotus_WK3:	eAkt = S_WK3; break;
99 						case Lotus_WK4:	eAkt = S_WK4; break;
100 						case Lotus_FM3: eAkt = S_FM3; break;
101 						default:
102 						eRet = SCERR_IMPORT_UNKNOWN_WK;
103 						eAkt = S_END;
104 					}
105 				}
106 				else
107 				{
108 					eAkt = S_END;	// hier kommt wat fuer <= WK1 hinne!
109 					eRet = 0xFFFFFFFF;
110 				}
111 			}
112 			break;
113 			// -----------------------------------------------------------
114 			case S_WK1:												// S_WK1
115 			break;
116 			// -----------------------------------------------------------
117 			case S_WK3:												// S_WK3
118 			case S_WK4:												// S_WK4
119 			switch( nOp )
120 			{
121 				case 0x0001:							// EOF
122 				eAkt = S_FM3;
123 				nTab++;
124 				break;
125 
126 				case 0x0002:							// PASSWORD
127 				eRet = eERR_FILEPASSWD;
128 				eAkt = S_END;
129 				break;
130 
131 				case 0x0007:							// COLUMNWIDTH
132 				Columnwidth( nRecLen );
133 				break;
134 
135 				case 0x0008:							// HIDDENCOLUMN
136 				Hiddencolumn( nRecLen );
137 				break;
138 
139 				case 0x0009:							// USERRANGE
140 				Userrange();
141 				break;
142 
143 				case 0x0013:							// FORMAT
144 
145 				break;
146 				case 0x0014:							// ERRCELL
147 				Errcell();
148 				break;
149 
150 				case 0x0015:							// NACELL
151 				Nacell();
152 				break;
153 
154 				case 0x0016:							// LABELCELL
155 				Labelcell();
156 				break;
157 
158 				case 0x0017:							// NUMBERCELL
159 				Numbercell();
160 				break;
161 
162 				case 0x0018:							// SMALLNUMCELL
163 				Smallnumcell();
164 				break;
165 
166 				case 0x0019:							// FORMULACELL
167 				Formulacell( nRecLen );
168 				break;
169 
170 				case 0x001b:							// extended attributes
171                 if (nRecLen > 2)
172                 {
173                     Read( nSubType );
174                     nRecLen -= 2;
175                     switch( nSubType )
176                     {
177                         case 2007:                      // ROW PRESENTATION
178                             RowPresentation( nRecLen );
179                             break;
180 
181                         case 14000:                     // NAMED SHEET
182                             NamedSheet();
183                             break;
184                     }
185                 }
186                 else
187                 {
188                     eRet = eERR_FORMAT;
189                     eAkt = S_END;
190                 }
191 			}
192 
193 			break;
194 			// -----------------------------------------------------------
195 			case S_FM3:												// S_FM3
196 			break;
197 			// -----------------------------------------------------------
198 			case S_END:												// S_END
199 			break;
200 		}
201 
202 		DBG_ASSERT( nNextRec >= pIn->Tell(),
203 			"*ImportLotus::Read(): Etwas zu gierig..." );
204 
205 		pIn->Seek( nNextRec );
206 		aPrgrsBar.Progress();
207 	}
208 
209 	// duemmliche Namen eliminieren
210 	SCTAB		nTabs = pD->GetTableCount();
211 	SCTAB		nCnt;
212 	String		aTabName;
213 	String		aBaseName;
214 	String		aRef( RTL_CONSTASCII_USTRINGPARAM( "temp" ) );
215 	if( nTabs != 0 )
216 	{
217 		if( nTabs > 1 )
218 		{
219 			pD->GetName( 0, aBaseName );
220 			aBaseName.Erase( aBaseName.Len() - 1 );
221 		}
222 		for( nCnt = 1 ; nCnt < nTabs ; nCnt++ )
223 		{
224 			DBG_ASSERT( pD->HasTable( nCnt ),
225 				"-ImportLotus::Read(): Wo ist meine Tabelle?!" );
226 			pD->GetName( nCnt, aTabName );
227 			if( aTabName == aRef )
228 			{
229 				aTabName = aBaseName;
230 				pD->CreateValidTabName( aTabName );
231 				pD->RenameTab( nCnt, aTabName );
232 			}
233 		}
234 	}
235 
236 	pD->CalcAfterLoad();
237 
238 	return eRet;
239 }
240 
241 
Read(SvStream & rIn)242 FltError ImportLotus::Read( SvStream& rIn )
243 {
244 	pIn = &rIn;
245 
246 	sal_Bool			bRead = sal_True;
247 	sal_uInt16			nOp;
248 	sal_uInt16			nRecLen;
249 	sal_uInt32			nNextRec = 0UL;
250 	FltError		eRet = eERR_OK;
251 
252 	nTab = 0;
253 	nExtTab = -1;
254 
255 	pIn->Seek( nNextRec );
256 
257 	// Progressbar starten
258     ScfStreamProgressBar aPrgrsBar( *pIn, pD->GetDocumentShell() );
259 
260 	while( bRead )
261 	{
262 		*pIn >> nOp >> nRecLen;
263 
264 		if( pIn->IsEof() || nNextRec > SAL_MAX_UINT32 - nRecLen - 4 )
265 			bRead = sal_False;
266 		else
267 		{
268 			nNextRec += nRecLen + 4;
269 
270 			switch( nOp )
271 			{
272 				case 0x0000:							// BOF
273 				if( nRecLen != 26 || !BofFm3() )
274 				{
275 					bRead = sal_False;
276 					eRet = eERR_FORMAT;
277 				}
278 				break;
279 
280 				case 0x0001:							// EOF
281 					bRead = sal_False;
282 					DBG_ASSERT( nTab == 0,
283 						"-ImportLotus::Read( SvStream& ): Zweimal EOF nicht erlaubt" );
284 					nTab++;
285 				break;
286 
287 				case 174:								// FONT_FACE
288 					Font_Face();
289 				break;
290 
291 				case 176:								// FONT_TYPE
292 					Font_Type();
293 				break;
294 
295 				case 177:								// FONT_YSIZE
296 					Font_Ysize();
297 				break;
298 
299 				case 195:
300 					if( nExtTab >= 0 )
301 						pLotusRoot->pAttrTable->Apply( ( SCTAB ) nExtTab );
302 					nExtTab++;
303 					break;
304 				case 197:
305 					_Row( nRecLen );
306 				break;
307 			}
308 
309 			DBG_ASSERT( nNextRec >= pIn->Tell(),
310 				"*ImportLotus::Read(): Etwas zu gierig..." );
311 			pIn->Seek( nNextRec );
312 			aPrgrsBar.Progress();
313 		}
314 	}
315 
316 	pLotusRoot->pAttrTable->Apply( ( SCTAB ) nExtTab );
317 
318 	return eRet;
319 }
320 
321 
322 
323