%PDF-
%PDF-
Mini Shell
Mini Shell
require '_h2ph_pre.ph';
no warnings qw(redefine misc);
unless(defined(&_SYS_LIBKERN_H_)) {
eval 'sub _SYS_LIBKERN_H_ () {1;}' unless defined(&_SYS_LIBKERN_H_);
require 'sys/cdefs.ph';
require 'sys/types.ph';
if(defined(&_KERNEL)) {
require 'sys/systm.ph';
}
unless(defined(&LIBKERN_INLINE)) {
eval 'sub LIBKERN_INLINE () { &static &__inline;}' unless defined(&LIBKERN_INLINE);
eval 'sub LIBKERN_BODY () {1;}' unless defined(&LIBKERN_BODY);
}
eval 'sub LIBKERN_LEN_BCD2BIN () {154;}' unless defined(&LIBKERN_LEN_BCD2BIN);
eval 'sub LIBKERN_LEN_BIN2BCD () {100;}' unless defined(&LIBKERN_LEN_BIN2BCD);
eval 'sub LIBKERN_LEN_HEX2ASCII () {36;}' unless defined(&LIBKERN_LEN_HEX2ASCII);
eval 'sub bcd2bin {
my($bcd) = @_;
eval q({ &KASSERT($bcd >= 0 && $bcd < &LIBKERN_LEN_BCD2BIN, (\\"invalid bcd %d\\", $bcd)); ( $bcd2bin_data[$bcd]); });
}' unless defined(&bcd2bin);
eval 'sub bin2bcd {
my($bin) = @_;
eval q({ &KASSERT($bin >= 0 && $bin < &LIBKERN_LEN_BIN2BCD, (\\"invalid bin %d\\", $bin)); ( $bin2bcd_data[$bin]); });
}' unless defined(&bin2bcd);
eval 'sub hex2ascii {
my($hex) = @_;
eval q({ &KASSERT($hex >= 0 && $hex < &LIBKERN_LEN_HEX2ASCII, (\\"invalid hex %d\\", $hex)); ( $hex2ascii_data[$hex]); });
}' unless defined(&hex2ascii);
eval 'sub validbcd {
my($bcd) = @_;
eval q({ ($bcd == 0|| ($bcd > 0 && $bcd <= 0x99 && $bcd2bin_data[$bcd] != 0)); });
}' unless defined(&validbcd);
eval 'sub ummax {
my($a,$b) = @_;
eval q({ ($a > $b ? $a : $b); });
}' unless defined(&ummax);
eval 'sub ummin {
my($a,$b) = @_;
eval q({ ($a < $b ? $a : $b); });
}' unless defined(&ummin);
}
unless(defined(&HAVE_INLINE_FFS)) {
}
unless(defined(&HAVE_INLINE_FFSL)) {
}
unless(defined(&HAVE_INLINE_FFSLL)) {
}
unless(defined(&HAVE_INLINE_FLS)) {
}
unless(defined(&HAVE_INLINE_FLSL)) {
}
unless(defined(&HAVE_INLINE_FLSLL)) {
}
unless(defined(&bitcount64)) {
sub bitcount64 {
my($x) = @_;
eval q( &__bitcount64(( &uint64_t)($x)));
}
}
unless(defined(&bitcount32)) {
sub bitcount32 {
my($x) = @_;
eval q( &__bitcount32(( &uint32_t)($x)));
}
}
unless(defined(&bitcount16)) {
sub bitcount16 {
my($x) = @_;
eval q( &__bitcount16(( &uint16_t)($x)));
}
}
unless(defined(&bitcountl)) {
sub bitcountl {
my($x) = @_;
eval q( &__bitcountl(($x)));
}
}
unless(defined(&bitcount)) {
sub bitcount {
my($x) = @_;
eval q( &__bitcount(($x)));
}
}
if(defined(&KCSAN)) {
eval 'sub strcpy {
my($d, $s) = @_;
eval q( &kcsan_strcpy(($d), ($s)));
}' unless defined(&strcpy);
eval 'sub strcmp {
my($s1, $s2) = @_;
eval q( &kcsan_strcmp(($s1), ($s2)));
}' unless defined(&strcmp);
eval 'sub strlen {
my($s) = @_;
eval q( &kcsan_strlen(($s)));
}' unless defined(&strlen);
}
unless(defined(&index)) {
sub index {
my($p,$ch) = @_;
eval q({ ( &strchr($p, $ch)); });
}
}
unless(defined(&rindex)) {
sub rindex {
my($p,$ch) = @_;
eval q({ ( &strrchr($p, $ch)); });
}
}
eval 'sub FNM_NOMATCH () {1;}' unless defined(&FNM_NOMATCH);
eval 'sub FNM_NOESCAPE () {0x1;}' unless defined(&FNM_NOESCAPE);
eval 'sub FNM_PATHNAME () {0x2;}' unless defined(&FNM_PATHNAME);
eval 'sub FNM_PERIOD () {0x4;}' unless defined(&FNM_PERIOD);
eval 'sub FNM_LEADING_DIR () {0x8;}' unless defined(&FNM_LEADING_DIR);
eval 'sub FNM_CASEFOLD () {0x10;}' unless defined(&FNM_CASEFOLD);
eval 'sub FNM_IGNORECASE () { &FNM_CASEFOLD;}' unless defined(&FNM_IGNORECASE);
eval 'sub FNM_FILE_NAME () { &FNM_PATHNAME;}' unless defined(&FNM_FILE_NAME);
}
1;
Zerion Mini Shell 1.0