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/file.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&_SYS_FILE_H_)) { eval 'sub _SYS_FILE_H_ () {1;}' unless defined(&_SYS_FILE_H_); unless(defined(&_KERNEL)) { require 'sys/types.ph'; require 'sys/fcntl.ph'; require 'sys/unistd.ph'; } else { require 'sys/queue.ph'; require 'sys/refcount.ph'; require 'sys/_lock.ph'; require 'sys/_mutex.ph'; } eval 'sub DTYPE_VNODE () {1;}' unless defined(&DTYPE_VNODE); eval 'sub DTYPE_SOCKET () {2;}' unless defined(&DTYPE_SOCKET); eval 'sub DTYPE_PIPE () {3;}' unless defined(&DTYPE_PIPE); eval 'sub DTYPE_FIFO () {4;}' unless defined(&DTYPE_FIFO); eval 'sub DTYPE_KQUEUE () {5;}' unless defined(&DTYPE_KQUEUE); eval 'sub DTYPE_CRYPTO () {6;}' unless defined(&DTYPE_CRYPTO); eval 'sub DTYPE_MQUEUE () {7;}' unless defined(&DTYPE_MQUEUE); eval 'sub DTYPE_SHM () {8;}' unless defined(&DTYPE_SHM); eval 'sub DTYPE_SEM () {9;}' unless defined(&DTYPE_SEM); eval 'sub DTYPE_PTS () {10;}' unless defined(&DTYPE_PTS); eval 'sub DTYPE_DEV () {11;}' unless defined(&DTYPE_DEV); eval 'sub DTYPE_CAPABILITY () {12;}' unless defined(&DTYPE_CAPABILITY); eval 'sub DTYPE_PROCDESC () {13;}' unless defined(&DTYPE_PROCDESC); if(defined(&_KERNEL)) { eval 'sub FOF_OFFSET () {1;}' unless defined(&FOF_OFFSET); eval 'sub DFLAG_PASSABLE () {0x1;}' unless defined(&DFLAG_PASSABLE); eval 'sub DFLAG_SEEKABLE () {0x2;}' unless defined(&DFLAG_SEEKABLE); } if(defined( &_KERNEL) || defined( &_WANT_FILE)) { eval 'sub f_cdevpriv () { ($f_vnun->{fvn_cdevpriv});}' unless defined(&f_cdevpriv); eval 'sub f_advice () { ($f_vnun->{fvn_advice});}' unless defined(&f_advice); eval 'sub FOFFSET_LOCKED () {0x1;}' unless defined(&FOFFSET_LOCKED); eval 'sub FOFFSET_LOCK_WAITING () {0x2;}' unless defined(&FOFFSET_LOCK_WAITING); } if(defined(&_KERNEL)) { if(defined(&MALLOC_DECLARE)) { } eval 'sub _fnoop { my($void) = @_; eval q({ (0); }); }' unless defined(&_fnoop); eval 'sub fhold { my($fp) = @_; eval q(( &refcount_acquire(($fp)-> &f_count))); }' unless defined(&fhold); eval 'sub fdrop { my($fp, $td) = @_; eval q(( &refcount_release(($fp)-> &f_count) ? &_fdrop(($fp), ($td)) : &_fnoop())); }' unless defined(&fdrop); eval 'sub fo_read { my($fp,$uio,$active_cred,$flags,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_read}))($fp, $uio, $active_cred, $flags, $td)); }); }' unless defined(&fo_read); eval 'sub fo_write { my($fp,$uio,$active_cred,$flags,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_write}))($fp, $uio, $active_cred, $flags, $td)); }); }' unless defined(&fo_write); eval 'sub fo_truncate { my($fp,$length,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_truncate}))($fp, $length, $active_cred, $td)); }); }' unless defined(&fo_truncate); eval 'sub fo_ioctl { my($fp,$com,$data,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_ioctl}))($fp, $com, $data, $active_cred, $td)); }); }' unless defined(&fo_ioctl); eval 'sub fo_poll { my($fp,$events,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_poll}))($fp, $events, $active_cred, $td)); }); }' unless defined(&fo_poll); eval 'sub fo_stat { my($fp,$sb,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_stat}))($fp, $sb, $active_cred, $td)); }); }' unless defined(&fo_stat); eval 'sub fo_close { my($fp,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_close}))($fp, $td)); }); }' unless defined(&fo_close); eval 'sub fo_kqfilter { my($fp,$kn) = @_; eval q({ ((* ($fp->{f_ops}->{fo_kqfilter}))($fp, $kn)); }); }' unless defined(&fo_kqfilter); eval 'sub fo_chmod { my($fp,$mode,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_chmod}))($fp, $mode, $active_cred, $td)); }); }' unless defined(&fo_chmod); eval 'sub fo_chown { my($fp,$uid,$gid,$active_cred,$td) = @_; eval q({ ((* ($fp->{f_ops}->{fo_chown}))($fp, $uid, $gid, $active_cred, $td)); }); }' unless defined(&fo_chown); } } 1;