add casr

src/iocsh/Makefile

@@ -7,6 +7,7 @@ include $(TOP)/configure/CONFIG
 INC += ioccrf.h
 INC += dbTestRegister.h
 INC += dbCaTestRegister.h
+INC += caTestRegister.h
 INC += dbAccessRegister.h
 INC += ioccrfRegister.h
 
@@ -21,6 +22,7 @@ INC += ioccrfRegister.h
 LIBSRCS += ioccrf.c
 LIBSRCS += dbTestRegister
 LIBSRCS += dbCaTestRegister
+LIBSRCS += caTestRegister
 LIBSRCS += dbAccessRegister
 LIBSRCS += ioccrfRegister
 

src/iocsh/caTestRegister.c

@@ -0,0 +1,33 @@
+/* caTestRegister.c */
+/* Author:  Marty Kraimer Date: 01MAY2000 */
+
+/********************COPYRIGHT NOTIFICATION**********************************
+This software was developed under a United States Government license
+described on the COPYRIGHT_UniversityOfChicago file included as part
+of this distribution.
+****************************************************************************/
+#include <stddef.h>
+#include <string.h>
+#include <stdlib.h>
+#include <stdio.h>
+#include <ctype.h>
+
+#include "ioccrf.h"
+#include "rsrv.h"
+#define epicsExportSharedSymbols
+#include "caTestRegister.h"
+
+/* casr */
+ioccrfArg casrArg0 = { "level",ioccrfArgInt,0};
+ioccrfArg *casrArgs[1] = {&casrArg0};
+ioccrfFuncDef casrFuncDef = {"casr",1,casrArgs};
+void casrCallFunc(ioccrfArg **args)
+{
+    casr(*(int *)args[0]->value);
+}
+
+
+void epicsShareAPI caTestRegister(void)
+{
+    ioccrfRegister(&casrFuncDef,casrCallFunc);
+}

src/iocsh/caTestRegister.h

@@ -0,0 +1,25 @@
+/* caTestRegister.h */
+/* Author:  Marty Kraimer Date: 27APR2000 */
+
+/********************COPYRIGHT NOTIFICATION**********************************
+This software was developed under a United States Government license
+described on the COPYRIGHT_UniversityOfChicago file included as part
+of this distribution.
+****************************************************************************/
+
+#ifndef INCcaTestRegisterH
+#define INCcaTestRegisterH
+
+#include "shareLib.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+epicsShareFunc void epicsShareAPI caTestRegister(void);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /*INCcaTestRegisterH*/

src/iocsh/dbCaTestRegister.c

@@ -1,4 +1,4 @@
-/* dbCaTestRegister.h */
+/* dbCaTestRegister.c */
 /* Author:  Marty Kraimer Date: 01MAY2000 */
 
 /********************COPYRIGHT NOTIFICATION**********************************
@@ -24,7 +24,7 @@ ioccrfArg *dbcarArgs[2] = {&dbcarArg0,&dbcarArg1};
 ioccrfFuncDef dbcarFuncDef = {"dbcar",2,dbcarArgs};
 void dbcarCallFunc(ioccrfArg **args)
 {
-    dbcar((char *)args[0]->value,*(char *)args[1]->value);
+    dbcar((char *)args[0]->value,*(int *)args[1]->value);
 }
 
 

src/iocsh/dbTestRegister.c

@@ -1,4 +1,4 @@
-/* dbTestRegister.h */
+/* dbTestRegister.c */
 /* Author:  Marty Kraimer Date: 26APR2000 */
 
 /********************COPYRIGHT NOTIFICATION**********************************