Files
epics-base/src/ca/evtime.c
1994-03-30 11:35:24 +00:00

89 lines
1.4 KiB
C
Raw Blame History

This file contains invisible Unicode characters
This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.
#include <cadef.h>
#include <dbDefs.h>
void event_handler(struct event_handler_args args);
int main(int argc, char **argv);
int evtime(char *pname);
static unsigned iteration_count;
static unsigned last_time;
static double rate;
#ifndef vxWorks
main(int argc, char **argv)
{
char *pname;
if(argc == 2){
pname = argv[1];
evtime(pname);
}
else{
printf("usage: %s <channel name>", argv[0]);
}
}
#endif
/*
* evtime()
*/
int evtime(char *pname)
{
chid chan;
int status;
status = ca_search(pname, &chan);
SEVCHK(status, NULL);
status = ca_pend_io(10.0);
if(status != ECA_NORMAL){
printf("%s not found\n", pname);
return OK;
}
rate = sysClkRateGet();
status = ca_add_event(
DBR_FLOAT,
chan,
event_handler,
NULL,
NULL);
SEVCHK(status, __FILE__);
status = ca_pend_event(0.0);
SEVCHK(status, NULL);
}
/*
* event_handler()
*
*/
void event_handler(struct event_handler_args args)
{
unsigned current_time;
# define COUNT 0x8000
double interval;
double delay;
if(iteration_count%COUNT == 0){
current_time = tickGet();
if(last_time != 0){
interval = current_time - last_time;
delay = interval/(rate*COUNT);
printf("Delay = %f sec for 1 event\n",
delay,
COUNT);
}
last_time = current_time;
}
iteration_count++;
}