config root man

Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/

FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/bufobj.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_BUFOBJ_H_)) {
    eval 'sub _SYS_BUFOBJ_H_ () {1;}' unless defined(&_SYS_BUFOBJ_H_);
    if(defined( &_KERNEL) || defined( &_KVM_VNODE)) {
	require 'sys/queue.ph';
	require 'sys/_lock.ph';
	require 'sys/_mutex.ph';
	eval 'sub BO_STRATEGY {
	    my($bo, $bp) = @_;
    	    eval q((($bo)-> ($bo_ops->{bop_strategy})(($bo), ($bp))));
	}' unless defined(&BO_STRATEGY);
	eval 'sub BO_SYNC {
	    my($bo, $w) = @_;
    	    eval q((($bo)-> ($bo_ops->{bop_sync})(($bo), ($w))));
	}' unless defined(&BO_SYNC);
	eval 'sub BO_WRITE {
	    my($bo, $bp) = @_;
    	    eval q((($bo)-> ($bo_ops->{bop_write})(($bp))));
	}' unless defined(&BO_WRITE);
	eval 'sub BO_BDFLUSH {
	    my($bo, $bp) = @_;
    	    eval q((($bo)-> ($bo_ops->{bop_bdflush})(($bo), ($bp))));
	}' unless defined(&BO_BDFLUSH);
	eval 'sub BO_ONWORKLST () {(1<< 0);}' unless defined(&BO_ONWORKLST);
	eval 'sub BO_WWAIT () {(1<< 1);}' unless defined(&BO_WWAIT);
	eval 'sub BO_NEEDSGIANT () {(1<< 2);}' unless defined(&BO_NEEDSGIANT);
	eval 'sub BO_MTX {
	    my($bo) = @_;
    	    eval q((($bo)-> &bo_mtx));
	}' unless defined(&BO_MTX);
	eval 'sub BO_LOCK {
	    my($bo) = @_;
    	    eval q( &mtx_lock( &BO_MTX(($bo))));
	}' unless defined(&BO_LOCK);
	eval 'sub BO_UNLOCK {
	    my($bo) = @_;
    	    eval q( &mtx_unlock( &BO_MTX(($bo))));
	}' unless defined(&BO_UNLOCK);
	eval 'sub ASSERT_BO_LOCKED {
	    my($bo) = @_;
    	    eval q( &mtx_assert( &BO_MTX(($bo)),  &MA_OWNED));
	}' unless defined(&ASSERT_BO_LOCKED);
	eval 'sub ASSERT_BO_UNLOCKED {
	    my($bo) = @_;
    	    eval q( &mtx_assert( &BO_MTX(($bo)),  &MA_NOTOWNED));
	}' unless defined(&ASSERT_BO_UNLOCKED);
    }
}
1;

Man Man