Gotthard class implemented

git-svn-id: file:///afs/psi.ch/project/sls_det_software/svn/slsDetectorSoftware@34 951219d9-93cf-4727-9268-0efd64621fa3

slsDetectorSoftware/usersFunctions/usersFunctions.c

@@ -2,6 +2,142 @@
 #include <math.h>
 #include <stdio.h>
 
+
+#ifdef EPICS
+
+#include <cadef.h>
+#include <epicsEvent.h>
+
+static double timeout = 3.0; 
+
+/* connect to a PV */
+int connect_channel(const char *name,  chid *ch_id) {
+    int status = ECA_NORMAL; 
+    status = ca_create_channel(name, NULL, NULL, CA_PRIORITY_DEFAULT, ch_id);
+    if (status != ECA_NORMAL)
+        return status; 
+
+    status = ca_pend_io(timeout); 
+    return status; 
+}
+
+/* disconnect to a PV */
+int disconnect_channel(chid ch_id)
+{
+    ca_clear_channel(ch_id); 
+    ca_flush_io(); 
+}
+
+int caget(chid ch_id,  double *value) {
+
+    int status = ECA_NORMAL; 
+
+    status = ca_get(DBR_DOUBLE, ch_id, value); 
+    if (status  !=  ECA_NORMAL) {
+        return status; 
+    }
+
+    status = ca_pend_io(timeout); 
+    if (status  !=  ECA_NORMAL) {
+        return status; 
+    }
+
+    return status; 
+}
+
+int caputq(chid ch_id,  double value) {
+  // does not wait!
+    int status = ECA_NORMAL; 
+
+    status = ca_put(DBR_DOUBLE, ch_id, &value); 
+    if (status  !=  ECA_NORMAL)
+        return status; 
+
+    status = ca_pend_io(timeout); 
+    if (status  !=  ECA_NORMAL) {
+        return status; 
+    }
+
+    return status; 
+}
+
+void put_callback(struct event_handler_args args)
+{
+    epicsEventId eid = (epicsEventId)args.usr; 
+    epicsEventSignal(eid); 
+}
+
+int caput(chid ch_id,  double value) {
+
+  // waits!
+    int status = ECA_NORMAL; 
+    epicsEventId eid = epicsEventCreate(epicsEventEmpty); 
+
+    status = ca_put_callback(DBR_DOUBLE, 
+            ch_id, 
+            &value, 
+            put_callback,
+            eid); 
+    status = ca_pend_io(timeout); 
+    if (status  != ECA_NORMAL) 
+        return status; 
+
+    if (epicsEventWait(eid) != epicsEventWaitOK) 
+        status = ECA_TIMEOUT; 
+
+    return status; 
+}
+
+/* int main(int argc,  char *argv[]) { */
+/*     double value = 256; */
+/*     /\* channel name *\/ */
+/*     const char *name = "ARIDI-PCT:CURRENT";  */
+/*     /\* channel id *\/ */
+/*     chid ch_id;  */
+/*     /\* status code *\/ */
+/*     int status;  */
+
+/*     /\* init channel access context before any caget/put *\/ */
+/*     ca_context_create(ca_enable_preemptive_callback); */
+ 
+/*     /\* open the channel by name and return ch_id *\/ */
+/*     status = connect_channel(name,  &ch_id); */
+/*     if (status  ==  ECA_NORMAL) */
+/*         printf("channel connected %s\n",  name);  */
+/*     else { */
+/*         printf(ca_message(status));  */
+/*         return -1;  */
+/*     } */
+/*     /\* caput and wait until done *\/ */
+/*     if ((status = caput(ch_id, value)) == ECA_NORMAL) */
+/*         printf("caput: success\n"); */
+/*     else */
+/*         printf(ca_message(status));  */
+    
+/*     /\* caget *\/ */
+/*     if (caget(ch_id, &value) == ECA_NORMAL) */
+/*         printf("caget: %f\n",  value);  */
+/*     else */
+/*         printf(ca_message(status));  */
+   
+/*     /\* close channel connect *\/ */
+/*     disconnect_channel(ch_id);  */
+
+/*     /\* delete channel access context before program exits *\/ */
+/*     ca_context_destroy();  */
+/* } */
+
+
+
+#endif
+
+
+
+
+
+
+
+
 float pos;
 float i0=0;
 

slsDetectorSoftware/usersFunctions/usersFunctions.h

@@ -9,11 +9,27 @@ Functions depending on the experimental setup should be defined here
 #define PI 3.14159265358979323846
 
 
+#ifdef EPICS
+#include <cadef.h>
+#include <epicsEvent.h>
+#endif
+
 
 #ifdef __cplusplus
 extern "C" {
 #endif
 
+#ifdef EPICS
+  int connect_channel(const char *name,  chid *ch_id);
+  int disconnect_channel(chid ch_id);
+  int caget(chid ch_id,  double *value);
+  int caputq(chid ch_id,  double value);
+  void put_callback(struct event_handler_args args);
+  int caput(chid ch_id,  double value);
+  
+#endif
+
+
   float angle(int ichan, float encoder, float totalOffset, float conv_r, float center, float offset, float tilt, int direction);
   float get_position();
   int go_to_position(float p);