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/module.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_MODULE_H_)) {
    eval 'sub _SYS_MODULE_H_ () {1;}' unless defined(&_SYS_MODULE_H_);
    eval 'sub MDT_DEPEND () {1;}' unless defined(&MDT_DEPEND);
    eval 'sub MDT_MODULE () {2;}' unless defined(&MDT_MODULE);
    eval 'sub MDT_VERSION () {3;}' unless defined(&MDT_VERSION);
    eval 'sub MDT_STRUCT_VERSION () {1;}' unless defined(&MDT_STRUCT_VERSION);
    eval 'sub MDT_SETNAME () {"modmetadata_set";}' unless defined(&MDT_SETNAME);
    eval("sub MOD_LOAD () { 0; }") unless defined(&MOD_LOAD);
    eval("sub MOD_UNLOAD () { 1; }") unless defined(&MOD_UNLOAD);
    eval("sub MOD_SHUTDOWN () { 2; }") unless defined(&MOD_SHUTDOWN);
    eval("sub MOD_QUIESCE () { 3; }") unless defined(&MOD_QUIESCE);
    if(defined(&_KERNEL)) {
	require 'sys/linker_set.ph';
	eval 'sub MODULE_METADATA {
	    my($uniquifier, $type, $data, $cval) = @_;
    	    eval q( &static \'struct mod_metadata\'  &_mod_metadata$uniquifier = {  &MDT_STRUCT_VERSION, $type, $data, $cval };  &DATA_SET( &modmetadata_set,  &_mod_metadata$uniquifier));
	}' unless defined(&MODULE_METADATA);
	eval 'sub MODULE_DEPEND {
	    my($module, $mdepend, $vmin, $vpref, $vmax) = @_;
    	    eval q( &static \'struct mod_depend\'  &_$module &_depend_on_$mdepend = { $vmin, $vpref, $vmax };  &MODULE_METADATA( &_md_$module &_on_$mdepend,  &MDT_DEPEND, & &_$module &_depend_on_$mdepend, $mdepend));
	}' unless defined(&MODULE_DEPEND);
	eval 'sub MODULE_KERNEL_MAXVER () {( &roundup( &__FreeBSD_version, 100000) - 1);}' unless defined(&MODULE_KERNEL_MAXVER);
	eval 'sub DECLARE_MODULE_WITH_MAXVER {
	    my($name, $data, $sub, $order, $maxver) = @_;
    	    eval q( &MODULE_DEPEND($name,  &kernel,  &__FreeBSD_version,  &__FreeBSD_version, $maxver);  &MODULE_METADATA( &_md_$name,  &MDT_MODULE, $data, $name);  &SYSINIT($name &module, $sub, $order,  &module_register_init, $data); \'struct __hack\');
	}' unless defined(&DECLARE_MODULE_WITH_MAXVER);
	eval 'sub DECLARE_MODULE {
	    my($name, $data, $sub, $order) = @_;
    	    eval q( &DECLARE_MODULE_WITH_MAXVER($name, $data, $sub, $order,  &MODULE_KERNEL_MAXVER));
	}' unless defined(&DECLARE_MODULE);
	eval 'sub DECLARE_MODULE_TIED {
	    my($name, $data, $sub, $order) = @_;
    	    eval q( &DECLARE_MODULE_WITH_MAXVER($name, $data, $sub, $order,  &__FreeBSD_version));
	}' unless defined(&DECLARE_MODULE_TIED);
	eval 'sub MODULE_VERSION {
	    my($module, $version) = @_;
    	    eval q( &static \'struct mod_version\'  &_$module &_version = { $version };  &MODULE_METADATA( &_$module &_version,  &MDT_VERSION, & &_$module &_version, $module));
	}' unless defined(&MODULE_VERSION);
	eval 'sub MOD_XLOCK () { &sx_xlock( &modules_sx);}' unless defined(&MOD_XLOCK);
	eval 'sub MOD_SLOCK () { &sx_slock( &modules_sx);}' unless defined(&MOD_SLOCK);
	eval 'sub MOD_XUNLOCK () { &sx_xunlock( &modules_sx);}' unless defined(&MOD_XUNLOCK);
	eval 'sub MOD_SUNLOCK () { &sx_sunlock( &modules_sx);}' unless defined(&MOD_SUNLOCK);
	eval 'sub MOD_LOCK_ASSERT () { &sx_assert( &modules_sx,  &SX_LOCKED);}' unless defined(&MOD_LOCK_ASSERT);
	eval 'sub MOD_XLOCK_ASSERT () { &sx_assert( &modules_sx,  &SX_XLOCKED);}' unless defined(&MOD_XLOCK_ASSERT);
	if(defined(&MOD_DEBUG)) {
	    eval 'sub MOD_DEBUG_REFS () {1;}' unless defined(&MOD_DEBUG_REFS);
	    eval 'sub MOD_DPF {
	        my($cat, $args) = @_;
    		eval q( &do {  &if ( &mod_debug &  &MOD_DEBUG_$cat)  &printf($args); }  &while (0));
	    }' unless defined(&MOD_DPF);
	} else {
	    eval 'sub MOD_DPF {
	        my($cat, $args) = @_;
    		eval q();
	    }' unless defined(&MOD_DPF);
	}
    }
    eval 'sub MAXMODNAME () {32;}' unless defined(&MAXMODNAME);
    unless(defined(&_KERNEL)) {
	require 'sys/cdefs.ph';
    }
}
1;

Man Man