if (!defined &_NETISO_TP_STAT_H_) {
    eval 'sub _NETISO_TP_STAT_H_ {1;}';
    eval 'sub NRTT_CATEGORIES {4;}';
    eval 'sub TP_PM_MAX {0xa;}';
    eval 'sub IncStat {
        local($x) = @_;
        eval " &tp_stat.$x++";
    }';
    if (defined &TP_PERF_MEAS) {
	eval 'sub PStat {
	    local($Tpcb, $X) = @_;
	    eval "($Tpcb)-> &tp_p_meas->$X";
	}';
	eval 'sub IncPStat {
	    local($Tpcb, $X) = @_;
	    eval " &if(($Tpcb)-> &tp_perf_on) ($Tpcb)-> &tp_p_meas->$X++";
	}';
	eval 'sub IFPERF {
	    local($tpcb) = @_;
	    eval " &if ($tpcb-> &tp_perf_on && $tpcb-> &tp_p_meas) {";
	}';
	eval 'sub ENDPERF {};}';
    }
    else {
	eval 'sub PStat {
	    local($tpcb, $x) = @_;
	    eval " &PStat_Junk";
	}';
	eval 'sub IncPStat {
	    local($tpcb, $x) = @_;
	    eval "";
	}';
	eval 'sub tpmeas {
	    local($a,$b,$c,$d,$e,$f) = @_;
	    eval "0";
	}';
	eval 'sub IFPERF {
	    local($x) = @_;
	    eval " &if (0) {";
	}';
	eval 'sub ENDPERF {};}';
    }
}
1;