config root man

Current Path : /usr/local/lib/perl5/site_perl/5.8.9/mach/

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
Upload File :
Current File : //usr/local/lib/perl5/site_perl/5.8.9/mach/wchar.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&_WCHAR_H_)) {
    eval 'sub _WCHAR_H_ () {1;}' unless defined(&_WCHAR_H_);
    require 'sys/cdefs.ph';
    require 'sys/_null.ph';
    require 'sys/_types.ph';
    require 'machine/_limits.ph';
    require '_ctype.ph';
    unless(defined(&_MBSTATE_T_DECLARED)) {
	eval 'sub _MBSTATE_T_DECLARED () {1;}' unless defined(&_MBSTATE_T_DECLARED);
    }
    unless(defined(&_SIZE_T_DECLARED)) {
	eval 'sub _SIZE_T_DECLARED () {1;}' unless defined(&_SIZE_T_DECLARED);
    }
    unless(defined(&__cplusplus)) {
	unless(defined(&_WCHAR_T_DECLARED)) {
	    eval 'sub _WCHAR_T_DECLARED () {1;}' unless defined(&_WCHAR_T_DECLARED);
	}
    }
    unless(defined(&_WINT_T_DECLARED)) {
	eval 'sub _WINT_T_DECLARED () {1;}' unless defined(&_WINT_T_DECLARED);
    }
    unless(defined(&WCHAR_MIN)) {
	eval 'sub WCHAR_MIN () { &__INT_MIN;}' unless defined(&WCHAR_MIN);
	eval 'sub WCHAR_MAX () { &__INT_MAX;}' unless defined(&WCHAR_MAX);
    }
    unless(defined(&WEOF)) {
	eval 'sub WEOF () {(( &wint_t)-1);}' unless defined(&WEOF);
    }
    unless(defined(&_STDFILE_DECLARED)) {
	eval 'sub _STDFILE_DECLARED () {1;}' unless defined(&_STDFILE_DECLARED);
    }
    unless(defined(&_STDSTREAM_DECLARED)) {
	eval 'sub _STDSTREAM_DECLARED () {1;}' unless defined(&_STDSTREAM_DECLARED);
    }
    eval 'sub getwc {
        my($fp) = @_;
	    eval q( &fgetwc($fp));
    }' unless defined(&getwc);
    eval 'sub getwchar () {
        eval q( &fgetwc( &__stdinp));
    }' unless defined(&getwchar);
    eval 'sub putwc {
        my($wc, $fp) = @_;
	    eval q( &fputwc($wc, $fp));
    }' unless defined(&putwc);
    eval 'sub putwchar {
        my($wc) = @_;
	    eval q( &fputwc($wc,  &__stdoutp));
    }' unless defined(&putwchar);
    if((defined(&__ISO_C_VISIBLE) ? &__ISO_C_VISIBLE : undef) >= 1999) {
	if(defined(&__LONG_LONG_SUPPORTED)) {
	}
    }
    if((defined(&__XSI_VISIBLE) ? &__XSI_VISIBLE : undef)) {
	eval 'sub wcwidth {
	    my($_c) = @_;
    	    eval q( &__wcwidth($_c));
	}' unless defined(&wcwidth);
    }
    if((defined(&__POSIX_VISIBLE) ? &__POSIX_VISIBLE : undef) >= 200809|| (defined(&__BSD_VISIBLE) ? &__BSD_VISIBLE : undef)) {
    }
    if((defined(&__BSD_VISIBLE) ? &__BSD_VISIBLE : undef)) {
    }
    if((defined(&__POSIX_VISIBLE) ? &__POSIX_VISIBLE : undef) >= 200809|| defined( &_XLOCALE_H_)) {
	require 'xlocale/_wchar.ph';
    }
}
1;

Man Man