if (!defined &_NETISO_TP_TIMER_H_) {
    eval 'sub _NETISO_TP_TIMER_H_ {1;}';
    eval 'sub SET_DELACK {
        local($t) = @_;
        eval "{ ($t)-> &tp_flags |=  &TPF_DELACK;  &if (($t)-> &tp_fasttimeo == 0) { ($t)-> &tp_fasttimeo =  &tp_ftimeolist;  &tp_ftimeolist = ($t); } }";
    }';
    if (defined &ARGO_DEBUG) {
	eval 'sub TP_DEBUG_TIMERS {1;}';
    }
    if (!defined &TP_DEBUG_TIMERS) {
	eval 'sub tp_ctimeout {
	    local($tpcb, $which, $timo) = @_;
	    eval "(($tpcb)-> &tp_timer[$which] = ($timo))";
	}';
	eval 'sub tp_cuntimeout {
	    local($tpcb, $which) = @_;
	    eval "(($tpcb)-> &tp_timer[$which] = 0)";
	}';
	eval 'sub tp_etimeout { &tp_ctimeout;}';
	eval 'sub tp_euntimeout { &tp_cuntimeout;}';
	eval 'sub tp_ctimeout_MIN {
	    local($p, $w, $t) = @_;
	    eval "{  &if(($p)-> &tp_timer[$w] > ($t)) ($p)-> &tp_timer[$w] = ($t);}";
	}';
    }
}
1;