Server : Apache System : Linux server.lienzindia.com 4.18.0-348.7.1.el8_5.x86_64 #1 SMP Wed Dec 22 13:25:12 UTC 2021 x86_64 User : plutus ( 1007) PHP Version : 7.4.33 Disable Function : NONE Directory : /usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/ |
Upload File : |
require '_h2ph_pre.ph'; no warnings qw(redefine misc); unless(defined(&__TIC_H)) { eval 'sub __TIC_H () {1;}' unless defined(&__TIC_H); if(defined(&__cplusplus)) { } require 'curses.ph'; eval 'sub MAGIC () {0432;}' unless defined(&MAGIC); undef(&BYTE) if defined(&BYTE); eval 'sub BYTE { my($p,$n) = @_; eval q((($p)[$n])); }' unless defined(&BYTE); eval 'sub IS_NEG1 { my($p) = @_; eval q((( &BYTE($p,0) == 0377) && ( &BYTE($p,1) == 0377))); }' unless defined(&IS_NEG1); eval 'sub IS_NEG2 { my($p) = @_; eval q((( &BYTE($p,0) == 0376) && ( &BYTE($p,1) == 0377))); }' unless defined(&IS_NEG2); eval 'sub LOW_MSB { my($p) = @_; eval q(( &BYTE($p,0) + 256* &BYTE($p,1))); }' unless defined(&LOW_MSB); eval 'sub IS_TIC_MAGIC { my($p) = @_; eval q(( &LOW_MSB($p) == &MAGIC)); }' unless defined(&IS_TIC_MAGIC); eval 'sub MAX_NAME_SIZE () {512;}' unless defined(&MAX_NAME_SIZE); eval 'sub MAX_ENTRY_SIZE () {4096;}' unless defined(&MAX_ENTRY_SIZE); if((defined(&HAVE_LONG_FILE_NAMES) ? &HAVE_LONG_FILE_NAMES : undef)) { eval 'sub MAX_ALIAS () {32;}' unless defined(&MAX_ALIAS); } else { eval 'sub MAX_ALIAS () {14;}' unless defined(&MAX_ALIAS); } eval 'sub PRIVATE_INFO () {"%s/.terminfo";}' unless defined(&PRIVATE_INFO); eval 'sub MAX_DEBUG_LEVEL () {15;}' unless defined(&MAX_DEBUG_LEVEL); eval 'sub DEBUG_LEVEL { my($n) = @_; eval q((($n) << &TRACE_SHIFT)); }' unless defined(&DEBUG_LEVEL); eval 'sub set_trace_level { my($n) = @_; eval q( &_nc_tracing &= &DEBUG_LEVEL( &MAX_DEBUG_LEVEL), &_nc_tracing |= &DEBUG_LEVEL($n)); }' unless defined(&set_trace_level); if(defined(&TRACE)) { eval 'sub DEBUG { my($n, $a) = @_; eval q( &if ( &_nc_tracing >= &DEBUG_LEVEL($n)) &_tracef $a); }' unless defined(&DEBUG); } else { eval 'sub DEBUG { my($n, $a) = @_; eval q(); }' unless defined(&DEBUG); } eval 'sub BOOLEAN () {0;}' unless defined(&BOOLEAN); eval 'sub NUMBER () {1;}' unless defined(&NUMBER); eval 'sub STRING () {2;}' unless defined(&STRING); eval 'sub CANCEL () {3;}' unless defined(&CANCEL); eval 'sub NAMES () {4;}' unless defined(&NAMES); eval 'sub UNDEF () {5;}' unless defined(&UNDEF); eval 'sub NO_PUSHBACK () {-1;}' unless defined(&NO_PUSHBACK); if((defined(&BROKEN_LINKER) ? &BROKEN_LINKER : undef)) { eval 'sub _nc_tinfo_fkeys () { &_nc_tinfo_fkeysf();}' unless defined(&_nc_tinfo_fkeys); } else { } eval 'sub NOTFOUND () {( 0);}' unless defined(&NOTFOUND); eval 'sub ABSENT_BOOLEAN () {(-1);}' unless defined(&ABSENT_BOOLEAN); eval 'sub ABSENT_NUMERIC () {(-1);}' unless defined(&ABSENT_NUMERIC); eval 'sub ABSENT_STRING () {0;}' unless defined(&ABSENT_STRING); eval 'sub CANCELLED_BOOLEAN () {(-2);}' unless defined(&CANCELLED_BOOLEAN); eval 'sub CANCELLED_NUMERIC () {(-2);}' unless defined(&CANCELLED_NUMERIC); eval 'sub CANCELLED_STRING () {(-1);}' unless defined(&CANCELLED_STRING); eval 'sub VALID_BOOLEAN { my($s) = @_; eval q((($s) <= 1)); }' unless defined(&VALID_BOOLEAN); eval 'sub VALID_NUMERIC { my($s) = @_; eval q((($s) >= 0)); }' unless defined(&VALID_NUMERIC); eval 'sub VALID_STRING { my($s) = @_; eval q((($s) != &CANCELLED_STRING && ($s) != &ABSENT_STRING)); }' unless defined(&VALID_STRING); eval 'sub MAX_TERMCAP_LENGTH () {1023;}' unless defined(&MAX_TERMCAP_LENGTH); eval 'sub MAX_TERMINFO_LENGTH () {4096;}' unless defined(&MAX_TERMINFO_LENGTH); unless(defined(&TERMINFO)) { eval 'sub TERMINFO () {"/usr/share/terminfo";}' unless defined(&TERMINFO); } eval 'sub SYN_TERMINFO () {0;}' unless defined(&SYN_TERMINFO); eval 'sub SYN_TERMCAP () {1;}' unless defined(&SYN_TERMCAP); eval 'sub NUM_PARM () {9;}' unless defined(&NUM_PARM); eval("sub dbdTIC () { 0; }") unless defined(&dbdTIC); eval("sub dbdLAST () { 1; }") unless defined(&dbdLAST); if(defined(&__cplusplus)) { } } 1;