//
#include <stdio.h>
#include <ra.h>
int main(int argc, char *argv[])
{
ra_handle ra;
value_handle vh;
meas_handle meas;
eval_handle eval;
long l, num;
/* initialize libRASCH */
ra = ra_lib_init();
if (ra == NULL)
{
printf("error initializing libRASCH\n");
return -1;
}
/* open measurement */
meas = ra_meas_open(ra, argv[1], 0);
if (meas == NULL)
{
printf("can't open measurement %s\n", argv[1]);
return -1;
}
/* get default evaluation */
eval = ra_eval_get_def(meas);
if (eval == NULL)
{
printf("no evaluation in measurement %s\n", argv[1]);
return -1;
}
/* get some infos about evaluation */
vh = ra_value_malloc();
if (ra_info_get(eval, RA_INFO_EVAL_NAME_C, vh) == 0)
printf("evaluation %s ", ra_value_get_string(vh));
if (ra_info_get(eval, RA_INFO_EVAL_ADD_TS_C, vh) == 0)
printf("was added at %s ", ra_value_get_string(vh));
if (ra_info_get(eval, RA_INFO_EVAL_PROG_C, vh) == 0)
printf("using the program %s", ra_value_get_string(vh));
printf("\n\n");
/* list event-properties */
num = 0;
if (ra_info_get(eval, RA_INFO_EVAL_PROP_NUM_L, vh) == 0)
num = ra_value_get_long(vh);
for (l = 0; l < num; l++)
{
prop_handle evprop;
evset_handle evset;
evprop = ra_prop_get_by_num(eval, l);
evset = ra_evset_get_by_prop(evprop);
if ((evprop == NULL) || (evset == NULL))
continue;
if (ra_info_get(evprop, RA_INFO_EVPROP_NAME_C, vh) == 0)
printf("event-property %s ",
ra_value_get_string(vh));
if (ra_info_get(evprop, RA_INFO_EVPROP_NAME_C, vh) == 0)
printf("(%s) ", ra_value_get_string(vh));
if (ra_info_get(evset, RA_INFO_EVSET_NAME_C, vh) == 0)
printf("belongs to event-set %s ",
ra_value_get_string(vh));
if (ra_info_get(evset, RA_INFO_EVSET_EV_NUM_L, vh) == 0)
printf("and contains %d events",
ra_value_get_long(vh));
printf("\n");
}
/* close */
ra_value_free(vh);
ra_meas_close(meas);
ra_lib_close(ra);
return 0;
} /* main() */
//
evaluation original was added at 27.05.2005 09:28:53 using
the program handle_eval
event-property qrs-pos (qrs-pos) belongs to event-set heartbeat
and contains 74 events
event-property qrs-class (qrs-class) belongs to event-set
heartbeat and contains 74 events
event-property qrs-temporal (qrs-temporal) belongs to event-set
heartbeat and contains 74 events
event-property rri (rri) belongs to event-set heartbeat and
contains 74 events
event-property rri-class (rri-class) belongs to event-set
heartbeat and contains 74 events
event-property rri-refvalue (rri-refvalue) belongs to event-set
heartbeat and contains 74 events
event-property rri-num-refvalue (rri-num-refvalue) belongs to
event-set heartbeat and contains 74 events
#
use strict;
use RASCH;
# initialize libRASCH
my $ra = new RASCH or die "error initializing libRASCH\n";
# open measurement
my $meas = $ra->open_meas($ARGV[0], 0) or
die "can't open measurement $ARGV[0]\n";
# get default evaluation
my $eval = $meas->get_default_eval() or
die "no evaluation in measurement\n";
# get some general infos
my $v = $eval->get_info(info => 'eval_name');
my $eval_name = $v->value();
$v = $eval->get_info(info => 'eval_add_timestamp');
my $eval_add_ts = $v->value();
$v = $eval->get_info(info => 'eval_program');
my $eval_prg = $v->value();
print "evaluation $eval_name was added at $eval_add_ts" .
" using the program $eval_prg\n\n";
# !!!!! eval handling will be changed in the next version !!!!!
# list event-properties
#my $evprops = $eval->get_props_all();
#for (@$evprops)
#{
# my $prop = $eval->get_prop_by_name($_);
# my ($name) = $prop->get_info(info => 'eval_prop_name');
# my ($desc) = $prop->get_info(info => 'eval_prop_desc');
#
# my $evset = $prop->get_evset();
# my ($evset_name) = $evset->get_info(info => 'eval_set_name');
# my ($n_ev) = $evset->get_info(info => 'eval_set_num_events');
#
# print "event-property $name ($desc) belongs to event-set" .
# " $evset_name and contains $n_ev events\n";
#}
exit 0;
#
evaluation original was added at 27.05.2005 09:28:53 using
the program perl
#
import sys
from RASCH import *
# initialize libRASCH
ra = RASCH()
if not ra:
print "can't initialize libRASCH"
sys.exit()
# open measurement
meas = ra.open_meas(sys.argv[1], 0)
if not meas:
print "can't open measurement", sys.argv[1]
sys.exit()
# get default evaluation
eva = meas.get_def_eval()
if not eva:
print "no evaluation in measurement"
sys.exit()
# get some general infos
[eval_name, n, d] = eva.get_info(info='eval_name')
[eval_add_ts, n, d] = eva.get_info(info='eval_add_timestamp')
[eval_prg, n, d] = eva.get_info(info='eval_program')
print "evaluation", eval_name, "was added at", eval_add_ts, "using the program", eval_prg, "\n"
# list event-properties
evprops = eva.get_evprops()
for elem in evprops:
prop = eva.get_evprop_by_name(elem)
[name, n, d] = prop.get_info(info='eval_prop_name')
[desc, n, d] = prop.get_info(info='eval_prop_desc')
evset = prop.get_evset()
[evset_name, n, d] = evset.get_info(info='eval_set_name')
[num_events, n, d] = evset.get_info(info='eval_set_num_events')
print "event-property", name, "("+desc+") belongs to event-set", evset_name, "and contains", num_events, "events";
#
evaluation original was added at 27.05.2005 09:28:53 using
the program python
event-property qrs-pos (position of fiducial point of
QRS-complex in sampleunits) belongs to event-set heartbeat
and contains 74 events
event-property qrs-class (classification of QRS complex)
belongs to event-set heartbeat and contains 74 events
event-property qrs-temporal (temporal setting of beat) belongs
to event-set heartbeat and contains 74 events
event-property rri (RR interval) belongs to event-set heartbeat
and contains 74 events
event-property rri-class (classification of RR interval)
belongs to event-set heartbeat and contains 74 events
event-property rri-refvalue (reference rri representing the
current heart-rate) belongs to event-set heartbeat and contains
74 events
event-property rri-num-refvalue (number of rri's used for
calculation of reference value) belongs to event-set heartbeat
and contains 74 events
