From a6d58bb6052ac8cb01805a48c4ad2f129126116f Mon Sep 17 00:00:00 2001 From: tpearson Date: Wed, 24 Feb 2010 02:13:59 +0000 Subject: Added KDE3 version of kvirc git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/applications/kvirc@1095341 283d02a7-25f6-0310-bc7c-ecb5cbfe19da --- src/modules/math/Makefile.am | 18 ++ src/modules/math/libkvimath.cpp | 475 ++++++++++++++++++++++++++++++++++++++++ 2 files changed, 493 insertions(+) create mode 100644 src/modules/math/Makefile.am create mode 100644 src/modules/math/libkvimath.cpp (limited to 'src/modules/math') diff --git a/src/modules/math/Makefile.am b/src/modules/math/Makefile.am new file mode 100644 index 00000000..001bef24 --- /dev/null +++ b/src/modules/math/Makefile.am @@ -0,0 +1,18 @@ +############################################################################### +# KVirc IRC client Makemath - 10.03.2000 Szymon Stefanek +############################################################################### + +AM_CPPFLAGS = -I$(SS_TOPSRCDIR)/src/kvilib/include/ -I$(SS_TOPSRCDIR)/src/kvirc/include/ \ +$(SS_INCDIRS) $(SS_CPPFLAGS) -DGLOBAL_KVIRC_DIR=\"$(globalkvircdir)\" + +pluglib_LTLIBRARIES = libkvimath.la + +libkvimath_la_LDFLAGS = -module -avoid-version $(SS_LDFLAGS) $(SS_LIBDIRS) + +libkvimath_la_SOURCES = libkvimath.cpp +libkvimath_la_LIBADD = $(SS_LIBLINK) ../../kvilib/build/libkvilib.la + +# noinst_HEADERS= + +%.moc: %.h + $(SS_QT_MOC) $< -o $@ diff --git a/src/modules/math/libkvimath.cpp b/src/modules/math/libkvimath.cpp new file mode 100644 index 00000000..63a29787 --- /dev/null +++ b/src/modules/math/libkvimath.cpp @@ -0,0 +1,475 @@ +//============================================================================= +// +// File : libkvimath.cpp +// Creation date : Sat Jan 13 14:00:12 2006 GMT by Szymon Stefanek +// +// This math is part of the KVirc irc client distribution +// Copyright (C) 2006 Szymon Stefanek (pragma at kvirc dot net) +// +// This program is FREE software. You can redistribute it and/or +// modify it under the terms of the GNU General Public License +// as published by the Free Software Foundation; either version 2 +// of the License, or (at your opinion) any later version. +// +// This program 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 General Public License for more details. +// +// You should have received a copy of the GNU General Public License +// along with this program. If not, write to the Free Software Foundation, +// Inc. ,51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. +// +//============================================================================= + +#include "kvi_settings.h" +#include "kvi_module.h" +#include "kvi_string.h" + +#include + +// Workaround for lost isnan and isinf definitions after +// inclusion of iostream.h on some MacOS X systems +#ifdef Q_OS_MACX + #ifndef isnan + extern "C" int isnan (double); + #endif + #ifndef isinf + extern "C" int isinf (double); + #endif +#endif + +#define MATH_KVS_1PARAM_FUNCTION(__fncname,__paramname,__mathcallname) \ +static bool __fncname(KviKvsModuleFunctionCall * c) \ +{ \ + kvs_real_t dReal; \ + KVSM_PARAMETERS_BEGIN(c) \ + KVSM_PARAMETER(__paramname,KVS_PT_REAL,0,dReal) \ + KVSM_PARAMETERS_END(c) \ + c->returnValue()->setReal(__mathcallname(dReal)); \ + return true; \ +} + +#ifdef COMPILE_ON_WINDOWS +// dobbiamo testare meglio, i risultati. +static double cbrt(double x) +{ + if (x > 0.0) return pow(x, 1.0/3.0); + else return -pow(-x, 1.0/3.0); +} + +static int isinf (double d) { + int expon = 0; + double val = frexp (d, &expon); + if (expon == 1025) { + if (val == 0.5) return 1; + else if (val == -0.5) return -1; + else return 0; + } else { + return 0; + } +} +static int isnan (double d) { + int expon = 0; + double val = frexp (d, &expon); + if (expon == 1025) { + if (val == 0.5) return 0; + else if (val == -0.5) return 0; + else return 1; + } else { + return 0; + } +} +#endif +/* + @doc: math.sin + @type: + function + @title: + $math.sin + @short: + Returns the sinus of the specified angle in radiants + @syntax: + $math.sin() + @description: + Returns the sinus of the specified angle in radiants +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_sin,"angle",sin) + +/* + @doc: math.cos + @type: + function + @title: + $math.cos + @short: + Returns the cosinus of the specified angle in radiants + @syntax: + $math.cos() + @description: + Returns the cosinus of the specified angle in radiants +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_cos,"angle",cos) + +/* + @doc: math.tan + @type: + function + @title: + $math.tan + @short: + Returns the tangent of the specified angle in radiants + @syntax: + $math.tan() + @description: + Returns the tangent of the specified angle in radiants +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_tan,"angle",tan) + +/* + @doc: math.asin + @type: + function + @title: + $math.asin + @short: + Returns the angle in radiants that has the specified sinus value. + @syntax: + $math.asin() + @description: + Returns the angle in radiants that has the specified sinus value. +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_asin,"sinus",asin) + +/* + @doc: math.acos + @type: + function + @title: + $math.acos + @short: + Returns the angle in radiants that has the specified cosinus value. + @syntax: + $math.acos() + @description: + Returns the angle in radiants that has the specified cosinus value. +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_acos,"cosinus",acos) + + +/* + @doc: math.atan + @type: + function + @title: + $math.atan + @short: + Returns the angle in radiants that has the specified tangent value. + @syntax: + $math.atan() + @description: + Returns the angle in radiants that has the specified tangent value. +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_atan,"tangent",atan) + +/* + @doc: math.sqrt + @type: + function + @title: + $math.sqrt + @short: + Returns the square root of a number + @syntax: + $math.sqrt() + @description: + Returns the square root of the specified number +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_sqrt,"number",sqrt) + +/* + @doc: math.cbrt + @type: + function + @title: + $math.cbrt + @short: + Returns the cube root of a number + @syntax: + $math.cbrt() + @description: + Returns the cube root of the specified number +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_cbrt,"number",cbrt) + +/* + @doc: math.abs + @type: + function + @title: + $math.abs + @short: + Returns the absolute value of a number + @syntax: + $math.abs() + @description: + Returns the absolute value of the specified number +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_abs,"number",fabs) + +/* + @doc: math.floor + @type: + function + @title: + $math.floor + @short: + Rounds down to the nearest integer + @syntax: + $math.floor() + @description: + Rounds down number to the nearest integer +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_floor,"number",floor) + +/* + @doc: math.ceil + @type: + function + @title: + $math.ceil + @short: + Rounds up to the nearest integer + @syntax: + $math.ceil() + @description: + Rounds up number to the nearest integer +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_ceil,"number",ceil) + +/* + @doc: math.exp + @type: + function + @title: + $math.exp + @short: + Returns the exponential of the specified number + @syntax: + $math.exp() + @description: + Returns the exponential of the specified number +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_exp,"number",exp) + +/* + @doc: math.log + @type: + function + @title: + $math.log + @short: + Returns the natural logarithm of the specified number + @syntax: + $math.log() + @description: + Returns the natural (base e) logarithm of the specified number +*/ + +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_log,"number",log) + + +/* + @doc: math.log10 + @type: + function + @title: + $math.log10 + @short: + Returns the base 10 logarithm of the specified number + @syntax: + $math.log10() + @description: + Returns the base 10 logarithm of the specified number +*/ +MATH_KVS_1PARAM_FUNCTION(math_kvs_fnc_log10,"number",log10) + +/* + @doc: math.isnan + @type: + function + @title: + $math.isnan + @short: + Checks if the value is not a number + @syntax: + $math.isnan() + @description: + Checks if the specified value is a valid number + or NaN (Not a Number). NaN is returned by several + math functions when the result would be undefined. +*/ +static bool math_kvs_fnc_isnan(KviKvsModuleFunctionCall * c) +{ + kvs_real_t dReal; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("value",KVS_PT_REAL,0,dReal) + KVSM_PARAMETERS_END(c) + c->returnValue()->setBoolean(isnan(dReal)); + return true; +} + +/* + @doc: math.isinf + @type: + function + @title: + $math.isinf + @short: + Checks if the value is the infinity + @syntax: + $math.isinf() + @description: + Checks if the specified value is the infinity. +*/ +#ifdef COMPILE_ON_WINDOWS +static bool math_kvs_fnc_isinf(KviKvsModuleFunctionCall * c) +{ + kvs_real_t dReal; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("value",KVS_PT_REAL,0,dReal) + KVSM_PARAMETERS_END(c) + c->returnValue()->setBoolean(sinf(dReal)); + return true; +} +#else +static bool math_kvs_fnc_isinf(KviKvsModuleFunctionCall * c) +{ + kvs_real_t dReal; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("value",KVS_PT_REAL,0,dReal) + KVSM_PARAMETERS_END(c) + c->returnValue()->setBoolean(isinf(dReal)); + return true; +} +#endif //COMPILE_ON_WINDOWS +/* + @doc: math.pow + @type: + function + @title: + $math.pow + @short: + Returns a to the power of b + @syntax: + $math.pow(,) + @description: + Returns a to the power of b +*/ +static bool math_kvs_fnc_pow(KviKvsModuleFunctionCall * c) +{ + kvs_real_t dA,dB; + KVSM_PARAMETERS_BEGIN(c) + KVSM_PARAMETER("a",KVS_PT_REAL,0,dA) + KVSM_PARAMETER("b",KVS_PT_REAL,0,dB) + KVSM_PARAMETERS_END(c) + c->returnValue()->setReal(pow(dA,dB)); + return true; +} + +/* + @doc: math.pi + @type: + function + @title: + $math.pi + @short: + Returns the value of pi + @syntax: + $math.pi() + @description: + Returns the value of pi +*/ +#ifdef COMPILE_ON_WINDOWS +static bool math_kvs_fnc_pi(KviKvsModuleFunctionCall * c) +{ + c->returnValue()->setReal(3.141592653589793238462643383279502884197169399375); + return true; +} +#else +static bool math_kvs_fnc_pi(KviKvsModuleFunctionCall * c) +{ + c->returnValue()->setReal(M_PI); + return true; +} +#endif +/* + @doc: math.e + @type: + function + @title: + $math.e + @short: + Returns the value of e + @syntax: + $math.e() + @description: + Returns the value of the euler constant e +*/ + + +#ifdef COMPILE_ON_WINDOWS +static bool math_kvs_fnc_e(KviKvsModuleFunctionCall * c) +{ + c->returnValue()->setReal(1.56903485); + return true; +} +#else +static bool math_kvs_fnc_e(KviKvsModuleFunctionCall * c) +{ + c->returnValue()->setReal(M_E); + return true; +} +#endif +static bool math_module_init(KviModule * m) +{ + KVSM_REGISTER_FUNCTION(m,"sin",math_kvs_fnc_sin); + KVSM_REGISTER_FUNCTION(m,"cos",math_kvs_fnc_cos); + KVSM_REGISTER_FUNCTION(m,"tan",math_kvs_fnc_tan); + KVSM_REGISTER_FUNCTION(m,"asin",math_kvs_fnc_asin); + KVSM_REGISTER_FUNCTION(m,"acos",math_kvs_fnc_acos); + KVSM_REGISTER_FUNCTION(m,"atan",math_kvs_fnc_atan); + KVSM_REGISTER_FUNCTION(m,"sqrt",math_kvs_fnc_sqrt); + KVSM_REGISTER_FUNCTION(m,"cbrt",math_kvs_fnc_cbrt); + KVSM_REGISTER_FUNCTION(m,"abs",math_kvs_fnc_abs); + KVSM_REGISTER_FUNCTION(m,"floor",math_kvs_fnc_floor); + KVSM_REGISTER_FUNCTION(m,"ceil",math_kvs_fnc_ceil); + KVSM_REGISTER_FUNCTION(m,"pow",math_kvs_fnc_pow); + KVSM_REGISTER_FUNCTION(m,"exp",math_kvs_fnc_exp); + KVSM_REGISTER_FUNCTION(m,"log",math_kvs_fnc_log); + KVSM_REGISTER_FUNCTION(m,"log10",math_kvs_fnc_log10); + KVSM_REGISTER_FUNCTION(m,"pi",math_kvs_fnc_pi); + KVSM_REGISTER_FUNCTION(m,"e",math_kvs_fnc_e); + KVSM_REGISTER_FUNCTION(m,"isnan",math_kvs_fnc_isnan); + KVSM_REGISTER_FUNCTION(m,"isinf",math_kvs_fnc_isinf); + return true; +} + + +static bool math_module_cleanup(KviModule *m) +{ + return true; +} + +KVIRC_MODULE( + "Math", // module name + "1.0.0", // module version + "Copyright (C) 2006 Szymon Stefanek (pragma at kvirc dot net),"\ + "Tonino Imbesi (grifisx at barmes dot org)," \ + "Alessandro Carbone (noldor at barmes dot org)", + "Mathematical function module", + math_module_init, + 0, + 0, + math_module_cleanup +) -- cgit v1.2.1