wfdbf.c

ecg wave detection program for unix / linux

long strecg_(char *string)
{
    return (strecg(fcstring(string)));
}

long setecgstr_(long int *code, char *string)
{
    return (setecgstr((int)(*code), fcstring(string)));
}

long annstr_(long int *code, char *string)
{
    strcpy(string, annstr((int)(*code)));
    cfstring(string);
    return (0L);
}

long strann_(char *string)
{
    return (strann(fcstring(string)));
}

long setannstr_(long int *code, char *string)
{
    return (setannstr((int)(*code), fcstring(string)));
}

long anndesc_(long int *code, char *string)
{
    strcpy(string, anndesc((int)(*code)));
    cfstring(string);
    return (0L);
}

long setanndesc_(long int *code, char *string)
{
    return (setanndesc((int)(*code), fcstring(string)));
}

long iannclose_(long int *annotator)
{
    iannclose((WFDB_Annotator)(*annotator));
    return (0L);
}

long oannclose_(long int *annotator)
{
    oannclose((WFDB_Annotator)(*annotator));
    return (0L);
}

long timstr_(long int *time, char *string)
{
    strcpy(string, timstr((WFDB_Time)(*time)));
    cfstring(string);
    return (0L);
}

long mstimstr_(long int *time, char *string)
{
    strcpy(string, mstimstr((WFDB_Time)(*time)));
    cfstring(string);
    return (0L);
}

long strtim_(char *string)
{
    return (strtim(fcstring(string)));
}

long datstr_(long int *date, char *string)
{
    strcpy(string, datstr((WFDB_Date)(*date)));
    cfstring(string);
    return (0L);
}

long strdat_(char *string)
{
    return (strdat(fcstring(string)));
}

long adumuv_(long int *signal, long int *ampl)
{
    return (adumuv((WFDB_Signal)(*signal), (WFDB_Sample)(*ampl)));
}

long muvadu_(long int *signal, long int *microvolts)
{
    return (muvadu((WFDB_Signal)(*signal), (int)(*microvolts)));
}

double aduphys_(long int *signal, long int *ampl)
{
    return (aduphys((WFDB_Signal)(*signal), (WFDB_Sample)(*ampl)));
}

long physadu_(long int *signal, double *v)
{
    return (physadu((WFDB_Signal)(*signal), *v));
}

long sample_(long int *signal, long int *t)
{
    return (sample((WFDB_Signal)(*signal), (WFDB_Time)(*t)));
}

long sample_valid_(long int *dummy)
{
    return (sample_valid());
}

long calopen_(char *calibration_filename)
{
    return (calopen(fcstring(calibration_filename)));
}

long getcal_(char *description, char *units, double *low, double *high, double *scale, long int *caltype)
{
    if (getcal(fcstring(description), fcstring(units), &cinfo) == 0) {
	*low = cinfo.low;
	*high = cinfo.high;
	*scale = cinfo.scale;
	*caltype = cinfo.caltype;
	return (0L);
    }
    else
	return (-1L);
}

long putcal_(char *description, char *units, double *low, double *high, double *scale, long int *caltype)
{
    cinfo.sigtype = fcstring(description);
    cinfo.units = fcstring(units);
    cinfo.low = *low;
    cinfo.high = *high;
    cinfo.scale = *scale;
    cinfo.caltype = *caltype;
    return (putcal(&cinfo));
}

long newcal_(char *calibration_filename)
{
    return (newcal(fcstring(calibration_filename)));
}

long flushcal_(long int *dummy)
{
    flushcal();
    return (0L);
}

long getinfo_(char *record, char *string)
{
    strcpy(string, getinfo(fcstring(record)));
    cfstring(string);
    return (0L);
}

long putinfo_(char *string)
{
    return (putinfo(fcstring(string)));
}

long newheader_(char *record)
{
    return (newheader(fcstring(record)));
}

/* Before using setheader_, use setsiginfo to set the contents of the signal
   information structures. */
long setheader_(char *record, long int *nsig)
{
    return (setheader(fcstring(record), sinfo, (unsigned int)(*nsig)));
}

/* No wrapper is provided for setmsheader. */

long wfdbgetskew_(long int *s)
{
    return (wfdbgetskew((WFDB_Signal)(*s)));
}

long wfdbsetiskew_(long int *s, long int *skew)
{
    wfdbsetiskew((WFDB_Signal)(*s), (int)(*skew));
    return (0L);
}

long wfdbsetskew_(long int *s, long int *skew)
{
    wfdbsetskew((WFDB_Signal)(*s), (int)(*skew));
    return (0L);
}

long wfdbgetstart_(long int *s)
{
    return (wfdbgetstart((WFDB_Signal)(*s)));
}

long wfdbsetstart_(long int *s, long int *bytes)
{
    wfdbsetstart((WFDB_Signal)(*s), *bytes);
    return (0L);
}

long wfdbquit_(long int *dummy)
{
    wfdbquit();
    return (0L);
}

double sampfreq_(char *record)
{
    return (sampfreq(fcstring(record)));
}

long setsampfreq_(double *frequency)
{
    return (setsampfreq((WFDB_Frequency)(*frequency)));
}

double getcfreq_(long int *dummy)
{
    return (getcfreq());
}

long setcfreq_(double *frequency)
{
    setcfreq((WFDB_Frequency)(*frequency));
    return (0L);
}

double getbasecount_(long int *dummy)
{
    return (getbasecount());
}

long setbasecount_(double *count)
{
    setbasecount(*count);
    return (0L);
}

long setbasetime_(char *string)
{
    return (setbasetime(fcstring(string)));
}

long wfdbquiet_(long int *dummy)
{
    wfdbquiet();
    return (0L);
}

long wfdbverbose_(long int *dummy)
{
    wfdbverbose();
    return (0L);
}

long wfdberror_(char *string)
{
    strcpy(string, wfdberror());
    cfstring(string);
    return (0L);
}

long setwfdb_(char *string)
{
    setwfdb(fcstring(string));
    return (0L);
}

long getwfdb_(char *string)
{
    strcpy(string, getwfdb());
    cfstring(string);
    return (0L);
}

long setibsize_(long int *input_buffer_size)
{
    return (setibsize((int)(*input_buffer_size)));
}

long setobsize_(long int *output_buffer_size)
{
    return (setobsize((int)(*output_buffer_size)));
}

long wfdbfile_(char *file_type, char *record, char *pathname)
{
    strcpy(pathname, wfdbfile(fcstring(file_type), fcstring(record)));
    cfstring(pathname);
    return (0L);
}

long wfdbflush_(long int *dummy)
{
    wfdbflush();
    return (0L);
}

/* The functions below can be used in place of the macros defined in
   <wfdb/ecgmap.h>. */

long isann_(long int *anntyp)
{   
    return ((long)(isann(*anntyp)));
}

long isqrs_(long int *anntyp)
{   
    return ((long)(isqrs(*anntyp)));
}

long setisqrs_(long int *anntyp, long int *value)
{   
    setisqrs(*anntyp, *value);
    return (0L);
}

long map1_(long int *anntyp)
{   
    return ((long)(map1(*anntyp)));
}

long setmap1_(long int *anntyp, long int *value)
{   
    setmap1(*anntyp, *value);
    return (0L);
}

long map2_(long int *anntyp)
{   
    return ((long)(map1(*anntyp)));
}

long setmap2_(long int *anntyp, long int *value)
{   
    setmap1(*anntyp, *value);
    return (0L);
}

long ammap_(long int *anntyp)
{   
    return ((long)(ammap(*anntyp)));
}

long mamap_(long int *anntyp, long int *subtyp)
{   
    return ((long)(mamap(*anntyp, *subtyp)));
}

long annpos_(long int *anntyp)
{   
    return ((long)(annpos(*anntyp)));
}

long setannpos_(long int *anntyp, long int *value)
{   
    setannpos(*anntyp, *value);
    return (0L);
}