Add log10 subcommand

auriocus · Jun 28, 2014 · e296916 · e296916
1 parent 55f75da
commit e296916
Show file tree

Hide file tree

Showing 2 changed files with 11 additions and 0 deletions.
diff --git a/generic/vectcl.c b/generic/vectcl.c
@@ -229,6 +229,7 @@ static const EnsembleMap implementationMap[] = {
 	{"tan", NumArrayTanCmd, NULL},
 	{"exp", NumArrayExpCmd, NULL},
 	{"log", NumArrayLogCmd, NULL},
+	{"log10", NumArrayLog10Cmd, NULL},
 	{"sqrt", NumArraySqrtCmd, NULL},
 	{"sinh", NumArraySinhCmd, NULL},
 	{"cosh", NumArrayCoshCmd, NULL},
@@ -2340,6 +2341,15 @@ static inline double fsign(double x) {
 #define CPLXOP *result = NumArray_ComplexLog(op);
 #include "uniop.h"
 
+#define CMD NumArrayLog10Cmd
+#define INTRES double
+#define DBLRES double
+#define INTOP DBLOP
+#define DBLOP *result = log10(op);
+#define CPLXRES NumArray_Complex
+#define CPLXOP *result = NumArray_ComplexLog(op);
+#include "uniop.h"
+
 #define CMD NumArraySqrtCmd
 #define INTRES double
 #define DBLRES double

diff --git a/generic/vectclInt.h b/generic/vectclInt.h
@@ -131,6 +131,7 @@ SUBCOMMAND(NumArrayCosCmd);
 SUBCOMMAND(NumArrayTanCmd);
 SUBCOMMAND(NumArrayExpCmd);
 SUBCOMMAND(NumArrayLogCmd);
+SUBCOMMAND(NumArrayLog10Cmd);
 SUBCOMMAND(NumArraySqrtCmd);
 SUBCOMMAND(NumArraySinhCmd);
 SUBCOMMAND(NumArrayCoshCmd);