Added old abandoned KDE3 version of koffice

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/koffice@1077364 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

1 files changed, 194 insertions, 0 deletions

diff --git a/kspread/kspread_functions_trig.cc b/kspread/kspread_functions_trig.cc
new file mode 100644
index 00000000..f79d7f81
--- /dev/null
+++ b/kspread/kspread_functions_trig.cc
@@ -0,0 +1,194 @@
+/* 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 trigonometric functions
+
+#include "functions.h"
+#include "valuecalc.h"
+
+using namespace KSpread;
+
+// prototypes (sort alphabetically)
+Value func_acos (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_acosh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_acot (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_asinh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_asin (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_atan (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_atan2 (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_atanh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_cos (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_cosh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_degrees (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_radians (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_sin (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_sinh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_tan (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_tanh (valVector args, ValueCalc *calc, FuncExtra *);
+Value func_pi (valVector args, ValueCalc *calc, FuncExtra *);
+
+// registers all trigonometric functions
+void RegisterTrigFunctions()
+{
+  FunctionRepository* repo = FunctionRepository::self();
+  Function *f;
+
+  f = new Function ("ACOS",   func_acos);
+  repo->add (f);
+  f = new Function ("ACOSH",  func_acosh);
+  repo->add (f);
+  f = new Function ("ACOT",   func_acot);
+  repo->add (f);
+  f = new Function ("ASIN",   func_asin);
+  repo->add (f);
+  f = new Function ("ASINH",  func_asinh);
+  repo->add (f);
+  f = new Function ("ATAN",   func_atan);
+  repo->add (f);
+  f = new Function ("ATAN2",  func_atan2);
+  f->setParamCount (2);
+  repo->add (f);
+  f = new Function ("ATANH",  func_atanh);
+  repo->add (f);
+  f = new Function ("COS",    func_cos);
+  repo->add (f);
+  f = new Function ("COSH",   func_cosh);
+  repo->add (f);
+  f = new Function ("DEGREES",func_degrees);
+  repo->add (f);
+  f = new Function ("RADIANS",func_radians);
+  repo->add (f);
+  f = new Function ("SIN",    func_sin);
+  repo->add (f);
+  f = new Function ("SINH",   func_sinh);
+  repo->add (f);
+  f = new Function ("TAN",    func_tan);
+  repo->add (f);
+  f = new Function ("TANH",   func_tanh);
+  repo->add (f);
+  f = new Function ("PI",     func_pi);
+  f->setParamCount (0);
+  repo->add (f);
+}
+
+// Function: sin
+Value func_sin (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->sin (args[0]);
+}
+
+// Function: cos
+Value func_cos (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->cos (args[0]);
+}
+
+// Function: tan
+Value func_tan (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->tg (args[0]);
+}
+
+// Function: atan
+Value func_atan (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->atg (args[0]);
+}
+
+// Function: asin
+Value func_asin (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->asin (args[0]);
+}
+
+// Function: acos
+Value func_acos (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->acos (args[0]);
+}
+
+Value func_acot (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  // PI/2 - atg (val)
+  return calc->sub (calc->div (calc->pi(), 2), calc->atg (args[0]));
+}
+
+// Function: asinh
+Value func_asinh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->asinh (args[0]);
+}
+
+// Function: acosh
+Value func_acosh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->acosh (args[0]);
+}
+
+// Function: atanh
+Value func_atanh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->atgh (args[0]);
+}
+
+// Function: tanh
+Value func_tanh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->tgh (args[0]);
+}
+
+// Function: sinh
+Value func_sinh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->sinh (args[0]);
+}
+
+// Function: cosh
+Value func_cosh (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->cosh (args[0]);
+}
+
+// Function: DEGREES
+Value func_degrees (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  // val * 180 / pi
+  return calc->div (calc->mul (args[0], 180.0), calc->pi());
+}
+
+// Function: RADIANS
+Value func_radians (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  // val * pi / 180
+  return calc->mul (calc->div (args[0], 180.0), calc->pi());
+}
+
+// Function: PI
+Value func_pi (valVector, ValueCalc *calc, FuncExtra *)
+{
+  return calc->pi();
+}
+
+// Function: atan2
+Value func_atan2 (valVector args, ValueCalc *calc, FuncExtra *)
+{
+  return calc->atan2 (args[1], args[0]);
+}