epics/pcas
0
0
Fork 0
Code Issues Pull Requests Projects Wiki Activity

Added support for CONST_PI, CONST_D2R, and CONST_R2D

Browse Source
This commit is contained in:
Janet B. Anderson
1994-05-11 11:37:44 +00:00
parent 971dd6bcfc
commit 0a5455ac11
2 changed files with 40 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/libCom/calc/calcPerform.c
+20
View File
@@ -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);
src/libCom/calcPerform.c
+20
View File
@@ -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);