From 0a5455ac1123339445dbb753bff91d9b2d18ab29 Mon Sep 17 00:00:00 2001 From: "Janet B. Anderson" Date: Wed, 11 May 1994 11:37:44 +0000 Subject: [PATCH] Added support for CONST_PI, CONST_D2R, and CONST_R2D --- src/libCom/calc/calcPerform.c | 20 ++++++++++++++++++++ src/libCom/calcPerform.c | 20 ++++++++++++++++++++ 2 files changed, 40 insertions(+) diff --git a/src/libCom/calc/calcPerform.c b/src/libCom/calc/calcPerform.c index 347f46855..27cd3830f 100644 --- a/src/libCom/calc/calcPerform.c +++ b/src/libCom/calc/calcPerform.c @@ -67,6 +67,7 @@ * .31 08-21-92 jba ANSI c changes * .32 12-11-92 mrk Removed include for stdioLib.h * .33 08-04-93 mgb Removed V5/V4 and EPICS_V2 conditionals + * .34 05-11-94 jba Added support for CONST_PI, CONST_D2R, and CONST_R2D > */ @@ -113,6 +114,10 @@ static double random(); #define TRUE_COND 1 #define FALSE_COND 2 +#ifndef PI +#define PI 3.141592654 +#endif + long calcPerform(parg,presult,post) double *parg; double *presult; @@ -199,6 +204,21 @@ char *post; *pstacktop = parg[11]; break; + case CONST_PI: + ++pstacktop; + *pstacktop = PI; + break; + + case CONST_D2R: + ++pstacktop; + *pstacktop = PI/180.; + break; + + case CONST_R2D: + ++pstacktop; + *pstacktop = 180./PI; + break; + case ADD: --pstacktop; *pstacktop = *pstacktop + *(pstacktop+1); diff --git a/src/libCom/calcPerform.c b/src/libCom/calcPerform.c index 347f46855..27cd3830f 100644 --- a/src/libCom/calcPerform.c +++ b/src/libCom/calcPerform.c @@ -67,6 +67,7 @@ * .31 08-21-92 jba ANSI c changes * .32 12-11-92 mrk Removed include for stdioLib.h * .33 08-04-93 mgb Removed V5/V4 and EPICS_V2 conditionals + * .34 05-11-94 jba Added support for CONST_PI, CONST_D2R, and CONST_R2D > */ @@ -113,6 +114,10 @@ static double random(); #define TRUE_COND 1 #define FALSE_COND 2 +#ifndef PI +#define PI 3.141592654 +#endif + long calcPerform(parg,presult,post) double *parg; double *presult; @@ -199,6 +204,21 @@ char *post; *pstacktop = parg[11]; break; + case CONST_PI: + ++pstacktop; + *pstacktop = PI; + break; + + case CONST_D2R: + ++pstacktop; + *pstacktop = PI/180.; + break; + + case CONST_R2D: + ++pstacktop; + *pstacktop = 180./PI; + break; + case ADD: --pstacktop; *pstacktop = *pstacktop + *(pstacktop+1);