Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/sys/ |
FreeBSD hs32.drive.ne.jp 9.1-RELEASE FreeBSD 9.1-RELEASE #1: Wed Jan 14 12:18:08 JST 2015 root@hs32.drive.ne.jp:/sys/amd64/compile/hs32 amd64 |
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/sys/event.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_EVENT_H_)) { eval 'sub _SYS_EVENT_H_ () {1;}' unless defined(&_SYS_EVENT_H_); require 'sys/queue.ph'; eval 'sub EVFILT_READ () {(-1);}' unless defined(&EVFILT_READ); eval 'sub EVFILT_WRITE () {(-2);}' unless defined(&EVFILT_WRITE); eval 'sub EVFILT_AIO () {(-3);}' unless defined(&EVFILT_AIO); eval 'sub EVFILT_VNODE () {(-4);}' unless defined(&EVFILT_VNODE); eval 'sub EVFILT_PROC () {(-5);}' unless defined(&EVFILT_PROC); eval 'sub EVFILT_SIGNAL () {(-6);}' unless defined(&EVFILT_SIGNAL); eval 'sub EVFILT_TIMER () {(-7);}' unless defined(&EVFILT_TIMER); eval 'sub EVFILT_FS () {(-9);}' unless defined(&EVFILT_FS); eval 'sub EVFILT_LIO () {(-10);}' unless defined(&EVFILT_LIO); eval 'sub EVFILT_USER () {(-11);}' unless defined(&EVFILT_USER); eval 'sub EVFILT_SYSCOUNT () {11;}' unless defined(&EVFILT_SYSCOUNT); eval 'sub EV_SET { my($kevp_, $a, $b, $c, $d, $e, $f) = @_; eval q( &do { \'struct kevent\' * &kevp = ($kevp_); ( &kevp)-> &ident = ($a); ( &kevp)-> &filter = ($b); ( &kevp)-> &flags = ($c); ( &kevp)-> &fflags = ($d); ( &kevp)-> &data = ($e); ( &kevp)-> &udata = ($f); } &while(0)); }' unless defined(&EV_SET); eval 'sub EV_ADD () {0x1;}' unless defined(&EV_ADD); eval 'sub EV_DELETE () {0x2;}' unless defined(&EV_DELETE); eval 'sub EV_ENABLE () {0x4;}' unless defined(&EV_ENABLE); eval 'sub EV_DISABLE () {0x8;}' unless defined(&EV_DISABLE); eval 'sub EV_ONESHOT () {0x10;}' unless defined(&EV_ONESHOT); eval 'sub EV_CLEAR () {0x20;}' unless defined(&EV_CLEAR); eval 'sub EV_RECEIPT () {0x40;}' unless defined(&EV_RECEIPT); eval 'sub EV_DISPATCH () {0x80;}' unless defined(&EV_DISPATCH); eval 'sub EV_SYSFLAGS () {0xf000;}' unless defined(&EV_SYSFLAGS); eval 'sub EV_FLAG1 () {0x2000;}' unless defined(&EV_FLAG1); eval 'sub EV_EOF () {0x8000;}' unless defined(&EV_EOF); eval 'sub EV_ERROR () {0x4000;}' unless defined(&EV_ERROR); eval 'sub NOTE_FFNOP () {0x;}' unless defined(&NOTE_FFNOP); eval 'sub NOTE_FFAND () {0x40000000;}' unless defined(&NOTE_FFAND); eval 'sub NOTE_FFOR () {0x80000000;}' unless defined(&NOTE_FFOR); eval 'sub NOTE_FFCOPY () {0xc0000000;}' unless defined(&NOTE_FFCOPY); eval 'sub NOTE_FFCTRLMASK () {0xc0000000;}' unless defined(&NOTE_FFCTRLMASK); eval 'sub NOTE_FFLAGSMASK () {0xffffff;}' unless defined(&NOTE_FFLAGSMASK); eval 'sub NOTE_TRIGGER () {0x1000000;}' unless defined(&NOTE_TRIGGER); eval 'sub NOTE_LOWAT () {0x1;}' unless defined(&NOTE_LOWAT); eval 'sub NOTE_DELETE () {0x1;}' unless defined(&NOTE_DELETE); eval 'sub NOTE_WRITE () {0x2;}' unless defined(&NOTE_WRITE); eval 'sub NOTE_EXTEND () {0x4;}' unless defined(&NOTE_EXTEND); eval 'sub NOTE_ATTRIB () {0x8;}' unless defined(&NOTE_ATTRIB); eval 'sub NOTE_LINK () {0x10;}' unless defined(&NOTE_LINK); eval 'sub NOTE_RENAME () {0x20;}' unless defined(&NOTE_RENAME); eval 'sub NOTE_REVOKE () {0x40;}' unless defined(&NOTE_REVOKE); eval 'sub NOTE_EXIT () {0x80000000;}' unless defined(&NOTE_EXIT); eval 'sub NOTE_FORK () {0x40000000;}' unless defined(&NOTE_FORK); eval 'sub NOTE_EXEC () {0x20000000;}' unless defined(&NOTE_EXEC); eval 'sub NOTE_PCTRLMASK () {0xf0000000;}' unless defined(&NOTE_PCTRLMASK); eval 'sub NOTE_PDATAMASK () {0xfffff;}' unless defined(&NOTE_PDATAMASK); eval 'sub NOTE_TRACK () {0x1;}' unless defined(&NOTE_TRACK); eval 'sub NOTE_TRACKERR () {0x2;}' unless defined(&NOTE_TRACKERR); eval 'sub NOTE_CHILD () {0x4;}' unless defined(&NOTE_CHILD); if(defined(&_KERNEL)) { if(defined(&MALLOC_DECLARE)) { } eval 'sub KNF_LISTLOCKED () {0x1;}' unless defined(&KNF_LISTLOCKED); eval 'sub KNF_NOKQLOCK () {0x2;}' unless defined(&KNF_NOKQLOCK); eval 'sub KNOTE { my($list, $hist, $flags) = @_; eval q( &knote($list, $hist, $flags)); }' unless defined(&KNOTE); eval 'sub KNOTE_LOCKED { my($list, $hint) = @_; eval q( &knote($list, $hint, &KNF_LISTLOCKED)); }' unless defined(&KNOTE_LOCKED); eval 'sub KNOTE_UNLOCKED { my($list, $hint) = @_; eval q( &knote($list, $hint, 0)); }' unless defined(&KNOTE_UNLOCKED); eval 'sub KNLIST_EMPTY { my($list) = @_; eval q( &SLIST_EMPTY(($list)-> &kl_list)); }' unless defined(&KNLIST_EMPTY); eval 'sub NOTE_SIGNAL () {0x8000000;}' unless defined(&NOTE_SIGNAL); eval 'sub EVENT_REGISTER () {1;}' unless defined(&EVENT_REGISTER); eval 'sub EVENT_PROCESS () {2;}' unless defined(&EVENT_PROCESS); eval 'sub KN_ACTIVE () {0x1;}' unless defined(&KN_ACTIVE); eval 'sub KN_QUEUED () {0x2;}' unless defined(&KN_QUEUED); eval 'sub KN_DISABLED () {0x4;}' unless defined(&KN_DISABLED); eval 'sub KN_DETACHED () {0x8;}' unless defined(&KN_DETACHED); eval 'sub KN_INFLUX () {0x10;}' unless defined(&KN_INFLUX); eval 'sub KN_MARKER () {0x20;}' unless defined(&KN_MARKER); eval 'sub KN_KQUEUE () {0x40;}' unless defined(&KN_KQUEUE); eval 'sub KN_HASKQLOCK () {0x80;}' unless defined(&KN_HASKQLOCK); eval 'sub kn_id () { ($kn_kevent->{ident});}' unless defined(&kn_id); eval 'sub kn_filter () { ($kn_kevent->{filter});}' unless defined(&kn_filter); eval 'sub kn_flags () { ($kn_kevent->{flags});}' unless defined(&kn_flags); eval 'sub kn_fflags () { ($kn_kevent->{fflags});}' unless defined(&kn_fflags); eval 'sub kn_data () { ($kn_kevent->{data});}' unless defined(&kn_data); eval 'sub kn_fp () { ($kn_ptr->{p_fp});}' unless defined(&kn_fp); eval 'sub knlist_clear { my($knl, $islocked) = @_; eval q( &knlist_cleardel(($knl), &NULL, ($islocked), 0)); }' unless defined(&knlist_clear); eval 'sub knlist_delete { my($knl, $td, $islocked) = @_; eval q( &knlist_cleardel(($knl), ($td), ($islocked), 1)); }' unless defined(&knlist_delete); } else { require 'sys/cdefs.ph'; } } 1;