Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/sched.ph |
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_SCHED_H)) {
eval 'sub _SCHED_H () {1;}' unless defined(&_SCHED_H);
require 'features.ph';
require 'bits/types.ph';
eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
require 'stddef.ph';
eval 'sub __need_time_t () {1;}' unless defined(&__need_time_t);
eval 'sub __need_timespec () {1;}' unless defined(&__need_timespec);
require 'time.ph';
unless(defined(&__pid_t_defined)) {
eval 'sub __pid_t_defined () {1;}' unless defined(&__pid_t_defined);
}
require 'bits/sched.ph';
eval 'sub sched_priority () { &__sched_priority;}' unless defined(&sched_priority);
if(defined(&__USE_GNU)) {
eval 'sub CPU_SETSIZE () { &__CPU_SETSIZE;}' unless defined(&CPU_SETSIZE);
eval 'sub CPU_SET {
my($cpu, $cpusetp) = @_;
eval q( &__CPU_SET_S ($cpu, $sizeof{ &cpu_set_t}, $cpusetp));
}' unless defined(&CPU_SET);
eval 'sub CPU_CLR {
my($cpu, $cpusetp) = @_;
eval q( &__CPU_CLR_S ($cpu, $sizeof{ &cpu_set_t}, $cpusetp));
}' unless defined(&CPU_CLR);
eval 'sub CPU_ISSET {
my($cpu, $cpusetp) = @_;
eval q( &__CPU_ISSET_S ($cpu, $sizeof{ &cpu_set_t}, $cpusetp));
}' unless defined(&CPU_ISSET);
eval 'sub CPU_ZERO {
my($cpusetp) = @_;
eval q( &__CPU_ZERO_S ($sizeof{ &cpu_set_t}, $cpusetp));
}' unless defined(&CPU_ZERO);
eval 'sub CPU_COUNT {
my($cpusetp) = @_;
eval q( &__CPU_COUNT_S ($sizeof{ &cpu_set_t}, $cpusetp));
}' unless defined(&CPU_COUNT);
eval 'sub CPU_SET_S {
my($cpu, $setsize, $cpusetp) = @_;
eval q( &__CPU_SET_S ($cpu, $setsize, $cpusetp));
}' unless defined(&CPU_SET_S);
eval 'sub CPU_CLR_S {
my($cpu, $setsize, $cpusetp) = @_;
eval q( &__CPU_CLR_S ($cpu, $setsize, $cpusetp));
}' unless defined(&CPU_CLR_S);
eval 'sub CPU_ISSET_S {
my($cpu, $setsize, $cpusetp) = @_;
eval q( &__CPU_ISSET_S ($cpu, $setsize, $cpusetp));
}' unless defined(&CPU_ISSET_S);
eval 'sub CPU_ZERO_S {
my($setsize, $cpusetp) = @_;
eval q( &__CPU_ZERO_S ($setsize, $cpusetp));
}' unless defined(&CPU_ZERO_S);
eval 'sub CPU_COUNT_S {
my($setsize, $cpusetp) = @_;
eval q( &__CPU_COUNT_S ($setsize, $cpusetp));
}' unless defined(&CPU_COUNT_S);
eval 'sub CPU_EQUAL {
my($cpusetp1, $cpusetp2) = @_;
eval q( &__CPU_EQUAL_S ($sizeof{ &cpu_set_t}, $cpusetp1, $cpusetp2));
}' unless defined(&CPU_EQUAL);
eval 'sub CPU_EQUAL_S {
my($setsize, $cpusetp1, $cpusetp2) = @_;
eval q( &__CPU_EQUAL_S ($setsize, $cpusetp1, $cpusetp2));
}' unless defined(&CPU_EQUAL_S);
eval 'sub CPU_AND {
my($destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($sizeof{ &cpu_set_t}, $destset, $srcset1, $srcset2, ));
}' unless defined(&CPU_AND);
eval 'sub CPU_OR {
my($destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($sizeof{ &cpu_set_t}, $destset, $srcset1, $srcset2, |));
}' unless defined(&CPU_OR);
eval 'sub CPU_XOR {
my($destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($sizeof{ &cpu_set_t}, $destset, $srcset1, $srcset2, ^));
}' unless defined(&CPU_XOR);
eval 'sub CPU_AND_S {
my($setsize, $destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($setsize, $destset, $srcset1, $srcset2, ));
}' unless defined(&CPU_AND_S);
eval 'sub CPU_OR_S {
my($setsize, $destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($setsize, $destset, $srcset1, $srcset2, |));
}' unless defined(&CPU_OR_S);
eval 'sub CPU_XOR_S {
my($setsize, $destset, $srcset1, $srcset2) = @_;
eval q( &__CPU_OP_S ($setsize, $destset, $srcset1, $srcset2, ^));
}' unless defined(&CPU_XOR_S);
eval 'sub CPU_ALLOC_SIZE {
my($count) = @_;
eval q( &__CPU_ALLOC_SIZE ($count));
}' unless defined(&CPU_ALLOC_SIZE);
eval 'sub CPU_ALLOC {
my($count) = @_;
eval q( &__CPU_ALLOC ($count));
}' unless defined(&CPU_ALLOC);
eval 'sub CPU_FREE {
my($cpuset) = @_;
eval q( &__CPU_FREE ($cpuset));
}' unless defined(&CPU_FREE);
}
}
1;