| 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/param.ph |
require '_h2ph_pre.ph';
no warnings 'redefine';
unless(defined(&_SYS_PARAM_H_)) {
eval 'sub _SYS_PARAM_H_ () {1;}' unless defined(&_SYS_PARAM_H_);
require 'sys/_null.ph';
eval 'sub BSD () {199506;}' unless defined(&BSD);
eval 'sub BSD4_3 () {1;}' unless defined(&BSD4_3);
eval 'sub BSD4_4 () {1;}' unless defined(&BSD4_4);
undef(&__FreeBSD_version) if defined(&__FreeBSD_version);
eval 'sub __FreeBSD_version () {901000;}' unless defined(&__FreeBSD_version);
undef(&__FreeBSD_kernel__) if defined(&__FreeBSD_kernel__);
eval 'sub __FreeBSD_kernel__ () {1;}' unless defined(&__FreeBSD_kernel__);
if(defined(&_KERNEL)) {
eval 'sub P_OSREL_SIGWAIT () {700000;}' unless defined(&P_OSREL_SIGWAIT);
eval 'sub P_OSREL_SIGSEGV () {700004;}' unless defined(&P_OSREL_SIGSEGV);
eval 'sub P_OSREL_MAP_ANON () {800104;}' unless defined(&P_OSREL_MAP_ANON);
}
unless(defined(&LOCORE)) {
require 'sys/types.ph';
}
require 'sys/syslimits.ph';
eval 'sub MAXCOMLEN () {19;}' unless defined(&MAXCOMLEN);
eval 'sub MAXINTERP () { &PATH_MAX;}' unless defined(&MAXINTERP);
eval 'sub MAXLOGNAME () {17;}' unless defined(&MAXLOGNAME);
eval 'sub MAXUPRC () { &CHILD_MAX;}' unless defined(&MAXUPRC);
eval 'sub NCARGS () { &ARG_MAX;}' unless defined(&NCARGS);
eval 'sub NGROUPS () {( &NGROUPS_MAX+1);}' unless defined(&NGROUPS);
eval 'sub NOFILE () { &OPEN_MAX;}' unless defined(&NOFILE);
eval 'sub NOGROUP () {65535;}' unless defined(&NOGROUP);
eval 'sub MAXHOSTNAMELEN () {256;}' unless defined(&MAXHOSTNAMELEN);
eval 'sub SPECNAMELEN () {63;}' unless defined(&SPECNAMELEN);
if(defined(&_KERNEL)) {
require 'sys/cdefs.ph';
require 'sys/errno.ph';
unless(defined(&LOCORE)) {
require 'sys/time.ph';
require 'sys/priority.ph';
}
unless(defined(&FALSE)) {
eval 'sub FALSE () {0;}' unless defined(&FALSE);
}
unless(defined(&TRUE)) {
eval 'sub TRUE () {1;}' unless defined(&TRUE);
}
}
unless(defined(&_KERNEL)) {
require 'sys/signal.ph';
}
require 'machine/param.ph';
unless(defined(&_KERNEL)) {
require 'sys/limits.ph';
}
unless(defined(&DEV_BSHIFT)) {
eval 'sub DEV_BSHIFT () {9;}' unless defined(&DEV_BSHIFT);
}
eval 'sub DEV_BSIZE () {(1<< &DEV_BSHIFT);}' unless defined(&DEV_BSIZE);
unless(defined(&BLKDEV_IOSIZE)) {
eval 'sub BLKDEV_IOSIZE () { &PAGE_SIZE;}' unless defined(&BLKDEV_IOSIZE);
}
unless(defined(&DFLTPHYS)) {
eval 'sub DFLTPHYS () {(64* 1024);}' unless defined(&DFLTPHYS);
}
unless(defined(&MAXPHYS)) {
eval 'sub MAXPHYS () {(128* 1024);}' unless defined(&MAXPHYS);
}
unless(defined(&MAXDUMPPGS)) {
eval 'sub MAXDUMPPGS () {( &DFLTPHYS/ &PAGE_SIZE);}' unless defined(&MAXDUMPPGS);
}
unless(defined(&MSIZE)) {
eval 'sub MSIZE () {256;}' unless defined(&MSIZE);
}
unless(defined(&MCLSHIFT)) {
eval 'sub MCLSHIFT () {11;}' unless defined(&MCLSHIFT);
}
eval 'sub MCLBYTES () {(1<< &MCLSHIFT);}' unless defined(&MCLBYTES);
if((defined(&PAGE_SIZE) ? &PAGE_SIZE : undef) < 2048) {
eval 'sub MJUMPAGESIZE () { &MCLBYTES;}' unless defined(&MJUMPAGESIZE);
}
elsif((defined(&PAGE_SIZE) ? &PAGE_SIZE : undef) <= 8192) {
eval 'sub MJUMPAGESIZE () { &PAGE_SIZE;}' unless defined(&MJUMPAGESIZE);
} else {
eval 'sub MJUMPAGESIZE () {(8* 1024);}' unless defined(&MJUMPAGESIZE);
}
eval 'sub MJUM9BYTES () {(9* 1024);}' unless defined(&MJUM9BYTES);
eval 'sub MJUM16BYTES () {(16* 1024);}' unless defined(&MJUM16BYTES);
unless(defined(&ctob)) {
eval 'sub ctob {
my($x) = @_;
eval q((($x)<< &PAGE_SHIFT));
}' unless defined(&ctob);
}
unless(defined(&btoc)) {
eval 'sub btoc {
my($x) = @_;
eval q(((( &vm_offset_t)($x)+ &PAGE_MASK)>> &PAGE_SHIFT));
}' unless defined(&btoc);
}
unless(defined(&btodb)) {
eval 'sub btodb {
my($bytes) = @_;
eval q(($sizeof{$bytes} > $sizeof{\'long\'} ? ( &daddr_t)(($bytes) >> &DEV_BSHIFT) : ( &daddr_t)(($bytes) >> &DEV_BSHIFT)));
}' unless defined(&btodb);
}
unless(defined(&dbtob)) {
eval 'sub dbtob {
my($db) = @_;
eval q((( &off_t)($db) << &DEV_BSHIFT));
}' unless defined(&dbtob);
}
eval 'sub PRIMASK () {0xff;}' unless defined(&PRIMASK);
eval 'sub PCATCH () {0x100;}' unless defined(&PCATCH);
eval 'sub PDROP () {0x200;}' unless defined(&PDROP);
eval 'sub PBDRY () {0x400;}' unless defined(&PBDRY);
eval 'sub NZERO () {0;}' unless defined(&NZERO);
eval 'sub NBBY () {8;}' unless defined(&NBBY);
eval 'sub NBPW () {$sizeof{\'int\'};}' unless defined(&NBPW);
eval 'sub CMASK () {022;}' unless defined(&CMASK);
eval 'sub NODEV () {( &dev_t)(-1);}' unless defined(&NODEV);
eval 'sub MAXBSIZE () {65536;}' unless defined(&MAXBSIZE);
eval 'sub BKVASIZE () {16384;}' unless defined(&BKVASIZE);
eval 'sub BKVAMASK () {( &BKVASIZE-1);}' unless defined(&BKVAMASK);
eval 'sub MAXPATHLEN () { &PATH_MAX;}' unless defined(&MAXPATHLEN);
eval 'sub MAXSYMLINKS () {32;}' unless defined(&MAXSYMLINKS);
eval 'sub setbit {
my($a,$i) = @_;
eval q(((($a))[($i)/ &NBBY] |= 1<<(($i)% &NBBY)));
}' unless defined(&setbit);
eval 'sub clrbit {
my($a,$i) = @_;
eval q(((($a))[($i)/ &NBBY] &= ~(1<<(($i)% &NBBY))));
}' unless defined(&clrbit);
eval 'sub isset {
my($a,$i) = @_;
eval q(((( &const \'unsigned char\' *)($a))[($i)/ &NBBY] & (1<<(($i)% &NBBY))));
}' unless defined(&isset);
eval 'sub isclr {
my($a,$i) = @_;
eval q((((( &const \'unsigned char\' *)($a))[($i)/ &NBBY] & (1<<(($i)% &NBBY))) == 0));
}' unless defined(&isclr);
unless(defined(&howmany)) {
eval 'sub howmany {
my($x, $y) = @_;
eval q(((($x)+(($y)-1))/($y)));
}' unless defined(&howmany);
}
eval 'sub nitems {
my($x) = @_;
eval q(($sizeof{($x)} / $sizeof{($x)[0]}));
}' unless defined(&nitems);
eval 'sub rounddown {
my($x, $y) = @_;
eval q(((($x)/($y))*($y)));
}' unless defined(&rounddown);
eval 'sub roundup {
my($x, $y) = @_;
eval q((((($x)+(($y)-1))/($y))*($y)));
}' unless defined(&roundup);
eval 'sub roundup2 {
my($x, $y) = @_;
eval q(((($x)+(($y)-1))(~(($y)-1))));
}' unless defined(&roundup2);
eval 'sub powerof2 {
my($x) = @_;
eval q((((($x)-1)($x))==0));
}' unless defined(&powerof2);
eval 'sub MIN {
my($a,$b) = @_;
eval q(((($a)<($b))?($a):($b)));
}' unless defined(&MIN);
eval 'sub MAX {
my($a,$b) = @_;
eval q(((($a)>($b))?($a):($b)));
}' unless defined(&MAX);
if(defined(&_KERNEL)) {
unless(defined(&LOCORE)) {
unless(defined(&_BYTEORDER_PROTOTYPED)) {
eval 'sub _BYTEORDER_PROTOTYPED () {1;}' unless defined(&_BYTEORDER_PROTOTYPED);
}
}
unless(defined(&lint)) {
unless(defined(&_BYTEORDER_FUNC_DEFINED)) {
eval 'sub _BYTEORDER_FUNC_DEFINED () {1;}' unless defined(&_BYTEORDER_FUNC_DEFINED);
eval 'sub htonl {
my($x) = @_;
eval q( &__htonl($x));
}' unless defined(&htonl);
eval 'sub htons {
my($x) = @_;
eval q( &__htons($x));
}' unless defined(&htons);
eval 'sub ntohl {
my($x) = @_;
eval q( &__ntohl($x));
}' unless defined(&ntohl);
eval 'sub ntohs {
my($x) = @_;
eval q( &__ntohs($x));
}' unless defined(&ntohs);
}
}
}
eval 'sub FSHIFT () {11;}' unless defined(&FSHIFT);
eval 'sub FSCALE () {(1<< &FSHIFT);}' unless defined(&FSCALE);
eval 'sub dbtoc {
my($db) = @_;
eval q((($db + ( &ctodb(1) - 1)) >> ( &PAGE_SHIFT - &DEV_BSHIFT)));
}' unless defined(&dbtoc);
eval 'sub ctodb {
my($db) = @_;
eval q((($db) << ( &PAGE_SHIFT - &DEV_BSHIFT)));
}' unless defined(&ctodb);
eval 'sub member2struct {
my($s, $m, $x) = @_;
eval q((( &void *)(($x) - &offsetof(\'struct s\', $m))));
}' unless defined(&member2struct);
eval 'sub __PAST_END {
my($array, $offset) = @_;
eval q(((( &__typeof__(*($array)) *)($array))[$offset]));
}' unless defined(&__PAST_END);
}
1;