require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&_SYS_KTRACE_H_)) { eval 'sub _SYS_KTRACE_H_ () {1;}' unless defined(&_SYS_KTRACE_H_); eval 'sub KTROP_SET () {0;}' unless defined(&KTROP_SET); eval 'sub KTROP_CLEAR () {1;}' unless defined(&KTROP_CLEAR); eval 'sub KTROP_CLEARFILE () {2;}' unless defined(&KTROP_CLEARFILE); eval 'sub KTROP { my($o) = @_; eval q((($o)&3)); }' unless defined(&KTROP); eval 'sub KTRFLAG_DESCEND () {4;}' unless defined(&KTRFLAG_DESCEND); eval 'sub KTRCHECK { my($td, $type) = @_; eval q((($td)-> ($td_proc->{p_traceflag}) & (1<< $type))); }' unless defined(&KTRCHECK); eval 'sub KTRPOINT { my($td, $type) = @_; eval q(( &KTRCHECK(($td), ($type)) && !(($td)-> &td_pflags & &TDP_INKTRACE))); }' unless defined(&KTRPOINT); eval 'sub KTRCHECKDRAIN { my($td) = @_; eval q((!( &STAILQ_EMPTY(($td)-> ($td_proc->{p_ktr}))))); }' unless defined(&KTRCHECKDRAIN); eval 'sub KTRUSERRET { my($td) = @_; eval q( &do { &if ( &KTRCHECKDRAIN($td)) &ktruserret($td); } &while (0)); }' unless defined(&KTRUSERRET); eval 'sub KTR_SYSCALL () {1;}' unless defined(&KTR_SYSCALL); eval 'sub KTR_SYSRET () {2;}' unless defined(&KTR_SYSRET); eval 'sub KTR_NAMEI () {3;}' unless defined(&KTR_NAMEI); eval 'sub KTR_GENIO () {4;}' unless defined(&KTR_GENIO); eval 'sub KTR_PSIG () {5;}' unless defined(&KTR_PSIG); eval 'sub KTR_CSW () {6;}' unless defined(&KTR_CSW); eval 'sub KTR_USER_MAXLEN () {2048;}' unless defined(&KTR_USER_MAXLEN); eval 'sub KTR_USER () {7;}' unless defined(&KTR_USER); eval 'sub KTR_STRUCT () {8;}' unless defined(&KTR_STRUCT); eval 'sub KTR_SYSCTL () {9;}' unless defined(&KTR_SYSCTL); eval 'sub KTR_PROCCTOR () {10;}' unless defined(&KTR_PROCCTOR); eval 'sub KTR_PROCDTOR () {11;}' unless defined(&KTR_PROCDTOR); eval 'sub KTR_FAULT () {13;}' unless defined(&KTR_FAULT); eval 'sub KTR_FAULTEND () {14;}' unless defined(&KTR_FAULTEND); eval 'sub KTR_DROP () {0x8000;}' unless defined(&KTR_DROP); eval 'sub KTRFAC_MASK () {0xffffff;}' unless defined(&KTRFAC_MASK); eval 'sub KTRFAC_SYSCALL () {(1<< &KTR_SYSCALL);}' unless defined(&KTRFAC_SYSCALL); eval 'sub KTRFAC_SYSRET () {(1<< &KTR_SYSRET);}' unless defined(&KTRFAC_SYSRET); eval 'sub KTRFAC_NAMEI () {(1<< &KTR_NAMEI);}' unless defined(&KTRFAC_NAMEI); eval 'sub KTRFAC_GENIO () {(1<< &KTR_GENIO);}' unless defined(&KTRFAC_GENIO); eval 'sub KTRFAC_PSIG () {(1<< &KTR_PSIG);}' unless defined(&KTRFAC_PSIG); eval 'sub KTRFAC_CSW () {(1<< &KTR_CSW);}' unless defined(&KTRFAC_CSW); eval 'sub KTRFAC_USER () {(1<< &KTR_USER);}' unless defined(&KTRFAC_USER); eval 'sub KTRFAC_STRUCT () {(1<< &KTR_STRUCT);}' unless defined(&KTRFAC_STRUCT); eval 'sub KTRFAC_SYSCTL () {(1<< &KTR_SYSCTL);}' unless defined(&KTRFAC_SYSCTL); eval 'sub KTRFAC_PROCCTOR () {(1<< &KTR_PROCCTOR);}' unless defined(&KTRFAC_PROCCTOR); eval 'sub KTRFAC_PROCDTOR () {(1<< &KTR_PROCDTOR);}' unless defined(&KTRFAC_PROCDTOR); eval 'sub KTRFAC_FAULT () {(1<< &KTR_FAULT);}' unless defined(&KTRFAC_FAULT); eval 'sub KTRFAC_FAULTEND () {(1<< &KTR_FAULTEND);}' unless defined(&KTRFAC_FAULTEND); eval 'sub KTRFAC_ROOT () {0x80000000;}' unless defined(&KTRFAC_ROOT); eval 'sub KTRFAC_INHERIT () {0x40000000;}' unless defined(&KTRFAC_INHERIT); eval 'sub KTRFAC_DROP () {0x20000000;}' unless defined(&KTRFAC_DROP); if(defined(&_KERNEL)) { eval 'sub ktrsockaddr { my($s) = @_; eval q( &ktrstruct(\\"sockaddr\\", ($s), (($s))-> &sa_len)); }' unless defined(&ktrsockaddr); eval 'sub ktrstat { my($s) = @_; eval q( &ktrstruct(\\"stat\\", ($s), $sizeof{\'struct stat\'})); }' unless defined(&ktrstat); } else { require 'sys/cdefs.ph'; } } 1;