epics_ca.h File Reference

Go to the source code of this file.

Functions
INT	epics_ca (INT cmd,...)

Function Documentation

INT epics_ca	(	INT	cmd,
			...
	)

Definition at line 3134 of file epics_ca.c.

                           {
   va_list argptr;
   HNDLE hKey;
   INT channel, status;
   DWORD flags;
   float value, *pvalue;
   CA_INFO *info;
   char *label;

   va_start(argptr, cmd);
   status = FE_SUCCESS;

#ifdef MIDEBUG2
   cm_msg(MLOG,"","++epics_ca(CMD=%d)",cmd);
#endif
   if (cmd == CMD_INIT) {
     void *pinfo;

     hKey    = va_arg(argptr, HNDLE);
     pinfo   = va_arg(argptr, void *);
     channel = va_arg(argptr, INT);
     flags   = va_arg(argptr, DWORD);
     status  = epics_ca_init(hKey, pinfo, channel);
     if (pinfo) {
       info = *(CA_INFO **) pinfo;
       if (info) info->flags = flags;
     }
   } else {
     info = va_arg(argptr, void *);

     /* only execute command if enabled */
     if (!info || info->cmd_disabled) {
       ss_sleep(100);
#ifdef MIDEBUG2
       cm_msg(MLOG,"","ss_sleep(100)");
#endif
       status = FE_ERR_DISABLED;
     } else {
       switch (cmd) {
         case CMD_INIT:
            break;

         case CMD_EXIT:
            status = epics_ca_exit(info);
            break;

         case CMD_SET:
            channel = va_arg(argptr, INT);
            value = (float) va_arg(argptr, double);
            status = epics_ca_set(info, channel, value, TRUE, FALSE);
            break;

         case CMD_SET_ALL:
            channel = va_arg(argptr, INT);
            value = (float) va_arg(argptr, double);
            status = epics_ca_set_all(info, channel, value);
            break;

         case CMD_SET_LABEL:
            channel = va_arg(argptr, INT);
            label = va_arg(argptr, char *);
            //status = epics_ca_set_label(info, channel, label);
            status = FE_SUCCESS;
            break;

         case CMD_GET:
            channel = va_arg(argptr, INT);
            pvalue = va_arg(argptr, float *);
            status = epics_ca_get(info, channel, pvalue);
            break;

         case CMD_GET_DEMAND:
            channel = va_arg(argptr, INT);
            pvalue = va_arg(argptr, float *);
            status = epics_ca_get_demand(info, channel, pvalue);
            break;

         case CMD_GET_ALL:
            channel = va_arg(argptr, INT);
            pvalue = va_arg(argptr, float *);
            status = epics_ca_get_all(info, channel, pvalue);
            break;

         case CMD_GET_DEFAULT_NAME:
            channel = va_arg(argptr, INT);
            label = va_arg(argptr, char *);
            status = epics_ca_get_default_name(info, channel, label);
            break;

         case CMD_GET_DEFAULT_THRESHOLD:
            channel = va_arg(argptr, INT);
            pvalue = va_arg(argptr, float *);
            status = epics_ca_get_default_threshold(info, channel, pvalue);
            break;

         default:
#ifdef MIDEBUG
   cm_msg(MLOG,"","**epics_ca(CMD=%d) is not handled",cmd);
#endif
            break;
       }
     }
   }

   va_end(argptr);

#ifdef MIDEBUG2
   cm_msg(MLOG,"","--epics_ca()");
#endif
   return status;
}