require '_h2ph_pre.ph';

no warnings 'redefine';

require 'sys/sensors.ph';
unless(defined(&CISS_BIO)) {
    sub CISS_BIO () {	0x1;}
}
unless(defined(&CISS_LOCK)) {
    sub CISS_LOCK {
	my($sc) = @_;
	eval q( &splbio());
    }
}
unless(defined(&CISS_UNLOCK)) {
    sub CISS_UNLOCK {
	my($sc, $lock) = @_;
	eval q( &splx($lock));
    }
}
unless(defined(&CISS_LOCK_SCRATCH)) {
    sub CISS_LOCK_SCRATCH {
	my($sc) = @_;
	eval q( &splbio());
    }
}
unless(defined(&CISS_UNLOCK_SCRATCH)) {
    sub CISS_UNLOCK_SCRATCH {
	my($sc, $lock) = @_;
	eval q( &splx($lock));
    }
}
1;
