From 88bc7874f05b27ddd7209a3d21a1a5ed968ced31 Mon Sep 17 00:00:00 2001
From: rlar <rlar>
Date: Fri, 12 Sep 2014 19:06:43 +0200
Subject: [PATCH] numparm, introduce `log10'

---
 src/frontend/numparam/xpressn.c | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/frontend/numparam/xpressn.c b/src/frontend/numparam/xpressn.c
index ae17bc198..bf9fe5840 100644
--- a/src/frontend/numparam/xpressn.c
+++ b/src/frontend/numparam/xpressn.c
@@ -83,13 +83,13 @@ limit(double nominal_val, double abs_variation)
 
 
 static const char *fmathS =     /* all math functions */
-    "SQR SQRT SIN COS EXP LN ARCTAN ABS POW PWR MAX MIN INT LOG SINH COSH"
+    "SQR SQRT SIN COS EXP LN ARCTAN ABS POW PWR MAX MIN INT LOG LOG10 SINH COSH"
     " TANH TERNARY_FCN AGAUSS SGN GAUSS UNIF AUNIF LIMIT CEIL FLOOR"
     " ASIN ACOS ATAN ASINH ACOSH ATANH TAN NINT";
 
 
 enum {
-    XFU_SQR = 1, XFU_SQRT, XFU_SIN, XFU_COS, XFU_EXP, XFU_LN, XFU_ARCTAN, XFU_ABS, XFU_POW, XFU_PWR, XFU_MAX, XFU_MIN, XFU_INT, XFU_LOG, XFU_SINH, XFU_COSH,
+    XFU_SQR = 1, XFU_SQRT, XFU_SIN, XFU_COS, XFU_EXP, XFU_LN, XFU_ARCTAN, XFU_ABS, XFU_POW, XFU_PWR, XFU_MAX, XFU_MIN, XFU_INT, XFU_LOG, XFU_LOG10, XFU_SINH, XFU_COSH,
     XFU_TANH, XFU_TERNARY_FCN, XFU_AGAUSS, XFU_SGN, XFU_GAUSS, XFU_UNIF, XFU_AUNIF, XFU_LIMIT, XFU_CEIL, XFU_FLOOR,
     XFU_ASIN, XFU_ACOS, XFU_ATAN, XFU_ASINH, XFU_ACOSH, XFU_ATANH, XFU_TAN, XFU_NINT
 };
@@ -151,6 +151,9 @@ mathfunction(int f, double z, double x)
     case XFU_LOG:
         y = log(x);
         break;
+    case XFU_LOG10:
+        y = log10(x);
+        break;
     case XFU_SINH:
         y = sinh(x);
         break;