Changeset 15693 for trunk/psLib/src/math/psUnaryOp.c

Timestamp:

Nov 26, 2007, 4:28:07 PM (18 years ago)

Author:

Paul Price

Message:

Case-insensitive matching.

File:

• trunk/psLib/src/math/psUnaryOp.c (modified) (2 diffs)

trunk/psLib/src/math/psUnaryOp.c

@@ -31 +31 @@
  *  @author Robert DeSonia, MHPCC
  *
- *  @version $Revision: 1.14 $ $Name: not supported by cvs2svn $
- *  @date $Date: 2007-03-14 00:39:50 $
+ *  @version $Revision: 1.15 $ $Name: not supported by cvs2svn $
+ *  @date $Date: 2007-11-27 02:28:07 $
  *
  *  Copyright 2004-2005 Maui High Performance Computing Center, University of Hawaii
@@ -166 +166 @@
 // FLT_EPSILON are done so to align results with a 64 bit computing architecture
 #define UNARY_OP(DIM,OUT,IN,OP) \
-if(!strncmp(OP, "abs", 3)) { \
+if(!strncasecmp(OP, "abs", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,fabs((double)*i1)); \
-} else if(!strncmp(OP, "sqrt", 4)) { \
+} else if(!strncasecmp(OP, "sqrt", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,sqrt((double)*i1)); \
-} else if(!strncmp(OP, "exp", 3)) { \
+} else if(!strncasecmp(OP, "exp", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,exp((double)*i1)); \
-} else if(!strncmp(OP, "ln", 2)) { \
+} else if(!strncasecmp(OP, "ln", 2)) { \
     UNARY_TYPE(DIM,OUT,IN,log((double)*i1)); \
-} else if(!strncmp(OP, "ten", 3)) { \
+} else if(!strncasecmp(OP, "ten", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,pow(10.0,(double)*i1)); \
-} else if(!strncmp(OP, "log", 3)) { \
+} else if(!strncasecmp(OP, "log", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,log10((double)*i1)); \
-} else if(!strncmp(OP, "sin", 3)) { \
+} else if(!strncasecmp(OP, "sin", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,sin((double)*i1)); \
-} else if(!strncmp(OP, "dsin", 4)) { \
+} else if(!strncasecmp(OP, "dsin", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,sin((double)*i1*D2R)); \
-} else if(!strncmp(OP, "cos", 3)) { \
+} else if(!strncasecmp(OP, "cos", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,cos((double)*i1)); \
-} else if(!strncmp(OP, "dcos", 4)) { \
+} else if(!strncasecmp(OP, "dcos", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,cos((double)*i1*D2R)); \
-} else if(!strncmp(OP, "tan", 3)) { \
+} else if(!strncasecmp(OP, "tan", 3)) { \
     UNARY_TYPE(DIM,OUT,IN,tan((double)*i1)); \
-} else if(!strncmp(OP, "dtan", 4)) { \
+} else if(!strncasecmp(OP, "dtan", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,tan((double)*i1*D2R)); \
-} else if(!strncmp(OP, "asin", 4)) { \
+} else if(!strncasecmp(OP, "asin", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,asin((double)*i1)); \
-} else if(!strncmp(OP, "dasin", 5)) { \
+} else if(!strncasecmp(OP, "dasin", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,(R2D*asin((double)*i1))); \
-} else if(!strncmp(OP, "acos", 4)) { \
+} else if(!strncasecmp(OP, "acos", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,acos((double)*i1)); \
-} else if(!strncmp(OP, "dacos", 5)) { \
+} else if(!strncasecmp(OP, "dacos", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,R2D*acos((double)*i1)); \
-} else if(!strncmp(OP, "atan", 4)) { \
+} else if(!strncasecmp(OP, "atan", 4)) { \
     UNARY_TYPE(DIM,OUT,IN,atan((double)*i1)); \
-} else if(!strncmp(OP, "datan", 5)) { \
+} else if(!strncasecmp(OP, "datan", 5)) { \
     UNARY_TYPE(DIM,OUT,IN,R2D*atan((double)*i1)); \
 } else { \