config root man

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_CONDVAR_H_)) {
    eval 'sub _SYS_CONDVAR_H_ () {1;}' unless defined(&_SYS_CONDVAR_H_);
    unless(defined(&LOCORE)) {
	require 'sys/queue.ph';
	if(defined(&_KERNEL)) {
	    eval 'sub cv_wait {
	        my($cvp, $lock) = @_;
    		eval q( &_cv_wait(($cvp), ($lock)-> &lock_object));
	    }' unless defined(&cv_wait);
	    eval 'sub cv_wait_unlock {
	        my($cvp, $lock) = @_;
    		eval q( &_cv_wait_unlock(($cvp), ($lock)-> &lock_object));
	    }' unless defined(&cv_wait_unlock);
	    eval 'sub cv_wait_sig {
	        my($cvp, $lock) = @_;
    		eval q( &_cv_wait_sig(($cvp), ($lock)-> &lock_object));
	    }' unless defined(&cv_wait_sig);
	    eval 'sub cv_timedwait {
	        my($cvp, $lock, $timo) = @_;
    		eval q( &_cv_timedwait(($cvp), ($lock)-> &lock_object, ($timo)));
	    }' unless defined(&cv_timedwait);
	    eval 'sub cv_timedwait_sig {
	        my($cvp, $lock, $timo) = @_;
    		eval q( &_cv_timedwait_sig(($cvp), ($lock)-> &lock_object, ($timo)));
	    }' unless defined(&cv_timedwait_sig);
	    eval 'sub cv_broadcast {
	        my($cvp) = @_;
    		eval q( &cv_broadcastpri($cvp, 0));
	    }' unless defined(&cv_broadcast);
	    eval 'sub cv_wmesg {
	        my($cvp) = @_;
    		eval q((($cvp)-> &cv_description));
	    }' unless defined(&cv_wmesg);
	}
    }
}
1;