You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
267 lines
7.9 KiB
267 lines
7.9 KiB
15 years ago
|
/* This file is part of the KDE project
|
||
|
Copyright (C) 1998-2002 The KSpread Team
|
||
|
www.koffice.org/kspread
|
||
|
Copyright (C) 2005 Tomas Mecir <mecirt@gmail.com>
|
||
|
|
||
|
This library is free software; you can redistribute it and/or
|
||
|
modify it under the terms of the GNU Library General Public
|
||
|
License as published by the Free Software Foundation; either
|
||
|
version 2 of the License.
|
||
|
|
||
|
This library 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
|
||
|
Library General Public License for more details.
|
||
|
|
||
|
You should have received a copy of the GNU Library General Public License
|
||
|
along with this library; see the file COPYING.LIB. If not, write to
|
||
|
the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
||
|
* Boston, MA 02110-1301, USA.
|
||
|
*/
|
||
|
|
||
|
// built-in conversion functions
|
||
|
|
||
|
#include "functions.h"
|
||
|
#include "valuecalc.h"
|
||
|
#include "valueconverter.h"
|
||
|
|
||
|
using namespace KSpread;
|
||
|
|
||
|
// prototypes
|
||
|
Value func_arabic (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_carx (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_cary (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_decsex (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_polr (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_pola (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_roman (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_sexdec (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_AsciiToChar (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_CharToAscii (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_inttobool (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_booltoint (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
Value func_ToString (valVector args, ValueCalc *calc, FuncExtra *);
|
||
|
|
||
|
// registers all conversion functions
|
||
|
void RegisterConversionFunctions()
|
||
|
{
|
||
|
FunctionRepository* repo = FunctionRepository::self();
|
||
|
Function *f;
|
||
|
|
||
|
f = new Function ("ARABIC", func_arabic);
|
||
|
repo->add (f);
|
||
|
f = new Function ("CARX", func_carx);
|
||
|
f->setParamCount (2);
|
||
|
repo->add (f);
|
||
|
f = new Function ("CARY", func_cary);
|
||
|
f->setParamCount (2);
|
||
|
repo->add (f);
|
||
|
f = new Function ("DECSEX", func_decsex);
|
||
|
repo->add (f);
|
||
|
f = new Function ("POLR", func_polr);
|
||
|
f->setParamCount (2);
|
||
|
repo->add (f);
|
||
|
f = new Function ("POLA", func_pola);
|
||
|
f->setParamCount (2);
|
||
|
repo->add (f);
|
||
|
f = new Function ("ROMAN", func_roman);
|
||
|
repo->add (f);
|
||
|
f = new Function ("SEXDEC", func_sexdec);
|
||
|
f->setParamCount (1, 3);
|
||
|
repo->add (f);
|
||
|
f = new Function ("ASCIITOCHAR", func_AsciiToChar);
|
||
|
f->setParamCount (1, -1);
|
||
|
f->setAcceptArray ();
|
||
|
repo->add (f);
|
||
|
f = new Function ("CHARTOASCII", func_CharToAscii);
|
||
|
repo->add (f);
|
||
|
f = new Function ("BOOL2INT", func_booltoint);
|
||
|
repo->add (f);
|
||
|
f = new Function ("INT2BOOL", func_inttobool);
|
||
|
repo->add (f);
|
||
|
f = new Function ("BOOL2STRING", func_ToString);
|
||
|
repo->add (f);
|
||
|
f = new Function ("NUM2STRING", func_ToString);
|
||
|
repo->add (f);
|
||
|
f = new Function ("STRING", func_ToString);
|
||
|
repo->add (f);
|
||
|
}
|
||
|
|
||
|
// Function: POLR
|
||
|
Value func_polr (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
// sqrt (a^2 + b^2)
|
||
|
Value a = args[0];
|
||
|
Value b = args[1];
|
||
|
Value res = calc->sqrt (calc->add (calc->sqr (a), calc->sqr (b)));
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
// Function: POLA
|
||
|
Value func_pola (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
// acos (a / polr(a,b))
|
||
|
Value polr = func_polr (args, calc, 0);
|
||
|
if (calc->isZero (polr))
|
||
|
return Value::errorDIV0();
|
||
|
Value res = calc->acos (calc->div (args[0], polr));
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
// Function: CARX
|
||
|
Value func_carx (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
// a * cos(b)
|
||
|
Value res = calc->mul (args[0], calc->cos (args[1]));
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
// Function: CARY
|
||
|
Value func_cary (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
// a * sin(b)
|
||
|
Value res = calc->mul (args[0], calc->sin (args[1]));
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
// Function: DECSEX
|
||
|
Value func_decsex (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
// original function was very compicated, but I see no reason for that,
|
||
|
// when it can be done as simply as this ...
|
||
|
// maybe it was due to all the infrastructure not being ready back then
|
||
|
return calc->conv()->asTime (calc->div (args[0], 24));
|
||
|
}
|
||
|
|
||
|
// Function: SEXDEC
|
||
|
Value func_sexdec (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
if (args.count() == 1)
|
||
|
{
|
||
|
// convert given value to number
|
||
|
Value time = calc->conv()->asTime (args[0]);
|
||
|
return calc->mul (calc->conv()->asFloat (time), 24);
|
||
|
}
|
||
|
|
||
|
// convert h/m/s to number of hours
|
||
|
Value h = args[0];
|
||
|
Value m = args[1];
|
||
|
|
||
|
Value res = calc->add (h, calc->div (m, 60));
|
||
|
if (args.count() == 3) {
|
||
|
Value s = args[2];
|
||
|
res = calc->add (res, calc->div (s, 3600));
|
||
|
}
|
||
|
return res;
|
||
|
}
|
||
|
|
||
|
// Function: ROMAN
|
||
|
Value func_roman (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
14 years ago
|
const TQCString RNUnits[] = {"", "I", "II", "III", "IV", "V", "VI", "VII", "VIII", "IX"};
|
||
|
const TQCString RNTens[] = {"", "X", "XX", "XXX", "XL", "L", "LX", "LXX", "LXXX", "XC"};
|
||
|
const TQCString RNHundreds[] = {"", "C", "CC", "CCC", "CD", "D", "DC", "DCC", "DCCC", "CM"};
|
||
|
const TQCString RNThousands[] = {"", "M", "MM", "MMM"};
|
||
15 years ago
|
|
||
|
// precision loss is not a problem here, as we only use the 0-3999 range
|
||
|
long value = calc->conv()->asInteger (args[0]).asInteger ();
|
||
|
if ((value < 0) || (value > 3999))
|
||
|
return Value::errorNA();
|
||
14 years ago
|
TQString result;
|
||
13 years ago
|
result = TQString::fromLatin1 (RNThousands[(value / 1000)] +
|
||
15 years ago
|
RNHundreds[(value / 100) % 10] +
|
||
|
RNTens[(value / 10 ) % 10] +
|
||
|
RNUnits[(value) % 10]);
|
||
|
return Value (result);
|
||
|
}
|
||
|
|
||
|
// convert single roman character to decimal
|
||
|
// return < 0 if invalid
|
||
14 years ago
|
int func_arabic_helper (TQChar c)
|
||
15 years ago
|
{
|
||
13 years ago
|
switch (c.upper().unicode())
|
||
15 years ago
|
{
|
||
|
case 'M': return 1000;
|
||
|
case 'D': return 500;
|
||
|
case 'C': return 100;
|
||
|
case 'L': return 50;
|
||
|
case 'X': return 10;
|
||
|
case 'V': return 5;
|
||
|
case 'I': return 1;
|
||
|
}
|
||
|
return -1;
|
||
|
}
|
||
|
|
||
|
// Function: ARABIC
|
||
|
Value func_arabic (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
14 years ago
|
TQString roman = calc->conv()->asString (args[0]).asString();
|
||
15 years ago
|
if( roman.isEmpty() ) return Value::errorVALUE();
|
||
|
|
||
|
int val = 0, lastd = 0, d = 0;
|
||
|
|
||
|
for (unsigned i = 0; i < roman.length(); i++) {
|
||
|
d = func_arabic_helper( roman[i] );
|
||
|
if( d < 0 ) return Value::errorVALUE();
|
||
|
|
||
|
if( lastd < d ) val -= lastd;
|
||
|
else val += lastd;
|
||
|
lastd = d;
|
||
|
}
|
||
|
if( lastd < d ) val -= lastd;
|
||
|
else val += lastd;
|
||
|
|
||
|
return Value (val);
|
||
|
}
|
||
|
|
||
|
// helper for AsciiToChar
|
||
14 years ago
|
void func_a2c_helper (ValueCalc *calc, TQString &s, Value val)
|
||
15 years ago
|
{
|
||
|
if (val.isArray()) {
|
||
|
for (unsigned int row = 0; row < val.rows(); ++row)
|
||
|
for (unsigned int col = 0; col < val.columns(); ++col)
|
||
|
func_a2c_helper (calc, s, val.element (col, row));
|
||
|
} else {
|
||
|
int v = calc->conv()->asInteger (val).asInteger();
|
||
|
if (v == 0) return;
|
||
14 years ago
|
TQChar c (v);
|
||
15 years ago
|
s = s + c;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
// Function: AsciiToChar
|
||
|
Value func_AsciiToChar (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
14 years ago
|
TQString str;
|
||
15 years ago
|
for (unsigned int i = 0; i < args.count(); i++)
|
||
|
func_a2c_helper (calc, str, args[i]);
|
||
|
return Value (str);
|
||
|
}
|
||
|
|
||
|
// Function: CharToAscii
|
||
|
Value func_CharToAscii (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
14 years ago
|
TQString val = calc->conv()->asString (args[0]).asString ();
|
||
15 years ago
|
if (val.length() == 1)
|
||
14 years ago
|
return Value (TQString (val[0]));
|
||
15 years ago
|
return Value::errorVALUE();
|
||
|
}
|
||
|
|
||
|
// Function: inttobool
|
||
|
Value func_inttobool (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
return calc->conv()->asBoolean (args[0]);
|
||
|
}
|
||
|
|
||
|
// Function: booltoint
|
||
|
Value func_booltoint (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
return calc->conv()->asInteger (args[0]);
|
||
|
}
|
||
|
|
||
|
// Function: BoolToString, NumberToString, String
|
||
|
Value func_ToString (valVector args, ValueCalc *calc, FuncExtra *)
|
||
|
{
|
||
|
return calc->conv()->asString (args[0]);
|
||
|
}
|