%PDF- %PDF-
Mini Shell

Mini Shell

Direktori : /usr/local/lib/perl5/site_perl/mach/5.32/sys/
Upload File :
Create Path :
Current File : //usr/local/lib/perl5/site_perl/mach/5.32/sys/tslog.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_TSLOG_H_)) {
    eval 'sub _TSLOG_H_ () {1;}' unless defined(&_TSLOG_H_);
    if(defined(&TSLOG)) {
	require 'sys/_types.ph';
	require 'sys/pcpu.ph';
    }
    eval 'sub TS_ENTER () {0;}' unless defined(&TS_ENTER);
    eval 'sub TS_EXIT () {1;}' unless defined(&TS_EXIT);
    eval 'sub TS_THREAD () {2;}' unless defined(&TS_THREAD);
    eval 'sub TS_EVENT () {3;}' unless defined(&TS_EVENT);
    eval 'sub TSENTER () {
        eval q( &TSRAW( &curthread,  &TS_ENTER,  &__func__,  &NULL));
    }' unless defined(&TSENTER);
    eval 'sub TSENTER2 {
        my($x) = @_;
	    eval q( &TSRAW( &curthread,  &TS_ENTER,  &__func__, $x));
    }' unless defined(&TSENTER2);
    eval 'sub TSEXIT () {
        eval q( &TSRAW( &curthread,  &TS_EXIT,  &__func__,  &NULL));
    }' unless defined(&TSEXIT);
    eval 'sub TSEXIT2 {
        my($x) = @_;
	    eval q( &TSRAW( &curthread,  &TS_EXIT,  &__func__, $x));
    }' unless defined(&TSEXIT2);
    eval 'sub TSTHREAD {
        my($td, $x) = @_;
	    eval q( &TSRAW($td,  &TS_THREAD, $x,  &NULL));
    }' unless defined(&TSTHREAD);
    eval 'sub TSEVENT {
        my($x) = @_;
	    eval q( &TSRAW( &curthread,  &TS_EVENT, $x,  &NULL));
    }' unless defined(&TSEVENT);
    eval 'sub TSEVENT2 {
        my($x, $y) = @_;
	    eval q( &TSRAW( &curthread,  &TS_EVENT, $x, $y));
    }' unless defined(&TSEVENT2);
    eval 'sub TSLINE () {
        eval q( &TSEVENT2( &__FILE__,  &__XSTRING( &__LINE__)));
    }' unless defined(&TSLINE);
    eval 'sub TSWAIT {
        my($x) = @_;
	    eval q( &TSEVENT2(\\"WAIT\\", $x););
    }' unless defined(&TSWAIT);
    eval 'sub TSUNWAIT {
        my($x) = @_;
	    eval q( &TSEVENT2(\\"UNWAIT\\", $x););
    }' unless defined(&TSUNWAIT);
    eval 'sub TSHOLD {
        my($x) = @_;
	    eval q( &TSEVENT2(\\"HOLD\\", $x););
    }' unless defined(&TSHOLD);
    eval 'sub TSRELEASE {
        my($x) = @_;
	    eval q( &TSEVENT2(\\"RELEASE\\", $x););
    }' unless defined(&TSRELEASE);
    if(defined(&TSLOG)) {
	eval 'sub TSRAW {
	    my($a, $b, $c, $d) = @_;
    	    eval q( &tslog($a, $b, $c, $d));
	}' unless defined(&TSRAW);
    } else {
	eval 'sub TSRAW {
	    my($a, $b, $c, $d) = @_;
    	    eval q();
	}' unless defined(&TSRAW);
    }
}
1;

Zerion Mini Shell 1.0