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 |
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;