require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&todr_gettime)) {
    sub todr_gettime {
	my($ct, $t) = @_;
	eval q(((*($ct)-> &todr_gettime)($ct, $t)));
    }
}
unless(defined(&todr_settime)) {
    sub todr_settime {
	my($ct, $t) = @_;
	eval q(((*($ct)-> &todr_settime)($ct, $t)));
    }
}
unless(defined(&todr_getcal)) {
    sub todr_getcal {
	my($ct, $vp) = @_;
	eval q(((*($ct)-> &todr_gettime)($ct, $vp)));
    }
}
unless(defined(&todr_setcal)) {
    sub todr_setcal {
	my($ct, $v) = @_;
	eval q(((*($ct)-> &todr_settime)($ct, $v)));
    }
}
unless(defined(&todr_wenable)) {
    sub todr_wenable {
	my($ct, $v) = @_;
	eval q( &if (($ct)-> &todr_setwen) ((*($ct)-> &todr_setwen)($ct, $v)));
    }
}
1;
