Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/printf.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_PRINTF_H)) {
    eval 'sub _PRINTF_H () {1;}' unless defined(&_PRINTF_H);
    require 'features.ph';
    eval 'sub __need_FILE () {1;}' unless defined(&__need_FILE);
    require 'stdio.ph';
    eval 'sub __need_size_t () {1;}' unless defined(&__need_size_t);
    eval 'sub __need_wchar_t () {1;}' unless defined(&__need_wchar_t);
    require 'stddef.ph';
    require 'stdarg.ph';
    eval("sub PA_INT () { 0; }") unless defined(&PA_INT);
    eval("sub PA_CHAR () { 1; }") unless defined(&PA_CHAR);
    eval("sub PA_WCHAR () { 2; }") unless defined(&PA_WCHAR);
    eval("sub PA_STRING () { 3; }") unless defined(&PA_STRING);
    eval("sub PA_WSTRING () { 4; }") unless defined(&PA_WSTRING);
    eval("sub PA_POINTER () { 5; }") unless defined(&PA_POINTER);
    eval("sub PA_FLOAT () { 6; }") unless defined(&PA_FLOAT);
    eval("sub PA_DOUBLE () { 7; }") unless defined(&PA_DOUBLE);
    eval("sub PA_LAST () { 8; }") unless defined(&PA_LAST);
    eval 'sub PA_FLAG_MASK () {0xff00;}' unless defined(&PA_FLAG_MASK);
    eval 'sub PA_FLAG_LONG_LONG () {(1<< 8);}' unless defined(&PA_FLAG_LONG_LONG);
    eval 'sub PA_FLAG_LONG_DOUBLE () { &PA_FLAG_LONG_LONG;}' unless defined(&PA_FLAG_LONG_DOUBLE);
    eval 'sub PA_FLAG_LONG () {(1<< 9);}' unless defined(&PA_FLAG_LONG);
    eval 'sub PA_FLAG_SHORT () {(1<< 10);}' unless defined(&PA_FLAG_SHORT);
    eval 'sub PA_FLAG_PTR () {(1<< 11);}' unless defined(&PA_FLAG_PTR);
    if(defined(&__LDBL_COMPAT)) {
	require 'bits/printf-ldbl.ph';
    }
}
1;