1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
|
/*************************************************************************
*
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* Copyright 2000, 2010 Oracle and/or its affiliates.
*
* OpenOffice.org - a multi-platform office productivity suite
*
* This file is part of OpenOffice.org.
*
* OpenOffice.org is free software: you can redistribute it and/or modify
* it under the terms of the GNU Lesser General Public License version 3
* only, as published by the Free Software Foundation.
*
* OpenOffice.org is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU Lesser General Public License version 3 for more details
* (a copy is included in the LICENSE file that accompanied this code).
*
* You should have received a copy of the GNU Lesser General Public License
* version 3 along with OpenOffice.org. If not, see
* <http://www.openoffice.org/license.html>
* for a copy of the LGPLv3 License.
*
************************************************************************/
#ifndef SC_LOTFORM_HXX
#define SC_LOTFORM_HXX
#include "formel.hxx"
#include <tools/string.hxx>
enum FUNC_TYPE
{
FT_Return = 0, // End Formula
FT_FuncFix0, // Funktion, 0 Parameter
FT_FuncFix1, // Funktion, 0 Parameter
FT_FuncFix2, // Funktion, 0 Parameter
FT_FuncFix3, // Funktion, 0 Parameter
FT_FuncFix4, // Funktion, 0 Parameter
FT_FuncVar, // ~, var. P.
FT_Neg, // Negierung
FT_Op, // Operator
FT_NotImpl, // nicht implementiert
FT_ConstFloat, // Double (8-Byte)
FT_Variable, // Single Ref
FT_Range, // Double Ref
FT_Braces, // Klammmern
FT_ConstInt, // Integer
FT_ConstString, // String
FT_NOP, // nichts
// zusaetzlich ab WK3
FT_Cref, // Cell Reference
FT_Rref, // Range Reference
FT_Nrref, // Named range reference
FT_Absnref, // Absolut named range
FT_Erref, // Err range reference
FT_Ecref, // Err cell reference
FT_Econstant, // Err constant
FT_Splfunc, // SPLfunction
FT_Const10Float,// Float (10-Byte)
FT_Snum // Const Short Num
// fuer 'Problemfaelle' beim Import
};
class LotusToSc : public LotusConverterBase
{
private:
CharSet eSrcChar;
TokenId nAddToken; // ')+1.0'
TokenId nSubToken; // ~
TokenId n0Token; // '0.0';
// ---------------------------------------------------------------
static FUNC_TYPE IndexToType( BYTE );
static DefTokenId IndexToToken( BYTE );
static FUNC_TYPE IndexToTypeWK123( BYTE );
static DefTokenId IndexToTokenWK123( BYTE );
void DoFunc( DefTokenId eOc, BYTE nAnz, const sal_Char* pExtName );
void LotusRelToScRel( UINT16 nCol, UINT16 nRow,
ScSingleRefData& rSRD );
BOOL bWK3; // alternative Codeumsetzung statt fuer < WK1
BOOL bWK123; // alternative for 123
// -------------------------------------------------------------------
void ReadSRD( ScSingleRefData& rSRD, BYTE nFlags );
inline void ReadCRD( ScComplexRefData& rCRD, BYTE nFlags );
void IncToken( TokenId &rParam );
// ACHTUNG: hier wird die aktuelle Token-Kette im Pool
// mit '(<rParam>)+1' fortgeschrieben und mit
// Store() abgeschlossen!
void DecToken( TokenId& rParam );
// ACHTUNG: ~
void NegToken( TokenId& rParam );
// ACHTUNG: wie ~, nur wird '-(<rParam>)' gebildet
public:
LotusToSc( SvStream& aStr, CharSet eSrc, BOOL b );
virtual ConvErr Convert( const ScTokenArray*& rpErg, INT32& nRest,
const FORMULA_TYPE eFT = FT_CellFormula );
void Reset( const ScAddress& rEingPos );
inline void SetWK3( void );
private:
using LotusConverterBase::Reset;
};
inline void LotusToSc::ReadCRD( ScComplexRefData& rCRD, BYTE nRelBit )
{
// erster Teil
ReadSRD( rCRD.Ref1, nRelBit );
// zweiter Teil
ReadSRD( rCRD.Ref2, nRelBit >> 3 );
}
inline void LotusToSc::SetWK3( void )
{
bWK3 = TRUE;
}
#endif
|