config root man

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_SYS_TASKQUEUE_H_)) {
    eval 'sub _SYS_TASKQUEUE_H_ () {1;}' unless defined(&_SYS_TASKQUEUE_H_);
    unless(defined(&_KERNEL)) {
	die("no user-servicable parts inside");
    }
    require 'sys/queue.ph';
    require 'sys/_task.ph';
    require 'sys/_callout.ph';
    eval 'sub TASK_INITIALIZER {
        my($priority, $func, $context) = @_;
	    eval q({ . &ta_pending = 0, . &ta_priority = ($priority), . &ta_func = ($func), . &ta_context = ($context) });
    }' unless defined(&TASK_INITIALIZER);
    eval 'sub TASK_INIT {
        my($task, $priority, $func, $context) = @_;
	    eval q( &do { ($task)-> &ta_pending = 0; ($task)-> &ta_priority = ($priority); ($task)-> &ta_func = ($func); ($task)-> &ta_context = ($context); }  &while (0));
    }' unless defined(&TASK_INIT);
    eval 'sub TIMEOUT_TASK_INIT {
        my($queue, $timeout_task, $priority, $func, $context) = @_;
	    eval q( &_timeout_task_init($queue, $timeout_task, $priority, $func, $context););
    }' unless defined(&TIMEOUT_TASK_INIT);
    eval 'sub TASKQUEUE_DECLARE {
        my($name) = @_;
	    eval q( &extern \'struct taskqueue\' * &taskqueue_$name);
    }' unless defined(&TASKQUEUE_DECLARE);
    eval 'sub TASKQUEUE_DEFINE {
        my($name, $enqueue, $context, $init) = @_;
	    eval q(\'struct taskqueue\' * &taskqueue_$name;  &static  &void  &taskqueue_define_$name( &void * &arg) {  &taskqueue_$name =  &taskqueue_create($name,  &M_WAITOK, ($enqueue), ($context)); $init; }  &SYSINIT( &taskqueue_$name,  &SI_SUB_CONFIGURE,  &SI_ORDER_SECOND,  &taskqueue_define_$name,  &NULL); \'struct __hack\');
    }' unless defined(&TASKQUEUE_DEFINE);
    eval 'sub TASKQUEUE_DEFINE_THREAD {
        my($name) = @_;
	    eval q( &TASKQUEUE_DEFINE($name,  &taskqueue_thread_enqueue,  &taskqueue_$name,  &taskqueue_start_threads( &taskqueue_$name, 1,  &PWAIT, \\"%s taskq\\", $name)));
    }' unless defined(&TASKQUEUE_DEFINE_THREAD);
    eval 'sub TASKQUEUE_FAST_DEFINE {
        my($name, $enqueue, $context, $init) = @_;
	    eval q(\'struct taskqueue\' * &taskqueue_$name;  &static  &void  &taskqueue_define_$name( &void * &arg) {  &taskqueue_$name =  &taskqueue_create_fast($name,  &M_WAITOK, ($enqueue), ($context)); $init; }  &SYSINIT( &taskqueue_$name,  &SI_SUB_CONFIGURE,  &SI_ORDER_SECOND,  &taskqueue_define_$name,  &NULL); \'struct __hack\');
    }' unless defined(&TASKQUEUE_FAST_DEFINE);
    eval 'sub TASKQUEUE_FAST_DEFINE_THREAD {
        my($name) = @_;
	    eval q( &TASKQUEUE_FAST_DEFINE($name,  &taskqueue_thread_enqueue,  &taskqueue_$name,  &taskqueue_start_threads( &taskqueue_$name 1,  &PWAIT, \\"%s taskq\\", $name)));
    }' unless defined(&TASKQUEUE_FAST_DEFINE_THREAD);
}
1;