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/dlg_keys.ph |
require '_h2ph_pre.ph'; no warnings 'redefine'; unless(defined(&DLG_KEYS_H_included)) { eval 'sub DLG_KEYS_H_included () {1;}' unless defined(&DLG_KEYS_H_included); require 'dialog.ph'; if(defined(&USE_WIDE_CURSES)) { require 'wctype.ph'; eval 'sub dlg_toupper { my($ch) = @_; eval q( &towupper(( &wint_t)$ch)); }' unless defined(&dlg_toupper); eval 'sub dlg_isupper { my($ch) = @_; eval q( &iswupper(( &wint_t)$ch)); }' unless defined(&dlg_isupper); } else { eval 'sub dlg_toupper { my($ch) = @_; eval q( &toupper($ch)); }' unless defined(&dlg_toupper); eval 'sub dlg_isupper { my($ch) = @_; eval q(( &isalpha($ch) && &isupper($ch))); }' unless defined(&dlg_isupper); } if(defined(&__cplusplus)) { } eval 'sub DLG_KEYS_DATA { my($dialog, $curses) = @_; eval q({ $curses >= &KEY_MIN, $curses, $dialog }); }' unless defined(&DLG_KEYS_DATA); eval 'sub END_KEYS_BINDING () {{ -1, 0, 0};}' unless defined(&END_KEYS_BINDING); eval("sub DLGK_MIN () { KEY_MAX+1; }") unless defined(&DLGK_MIN); eval("sub DLGK_OK () { 1; }") unless defined(&DLGK_OK); eval("sub DLGK_CANCEL () { 2; }") unless defined(&DLGK_CANCEL); eval("sub DLGK_EXTRA () { 3; }") unless defined(&DLGK_EXTRA); eval("sub DLGK_HELP () { 4; }") unless defined(&DLGK_HELP); eval("sub DLGK_ESC () { 5; }") unless defined(&DLGK_ESC); eval("sub DLGK_PAGE_FIRST () { 6; }") unless defined(&DLGK_PAGE_FIRST); eval("sub DLGK_PAGE_LAST () { 7; }") unless defined(&DLGK_PAGE_LAST); eval("sub DLGK_PAGE_NEXT () { 8; }") unless defined(&DLGK_PAGE_NEXT); eval("sub DLGK_PAGE_PREV () { 9; }") unless defined(&DLGK_PAGE_PREV); eval("sub DLGK_ITEM_FIRST () { 10; }") unless defined(&DLGK_ITEM_FIRST); eval("sub DLGK_ITEM_LAST () { 11; }") unless defined(&DLGK_ITEM_LAST); eval("sub DLGK_ITEM_NEXT () { 12; }") unless defined(&DLGK_ITEM_NEXT); eval("sub DLGK_ITEM_PREV () { 13; }") unless defined(&DLGK_ITEM_PREV); eval("sub DLGK_FIELD_FIRST () { 14; }") unless defined(&DLGK_FIELD_FIRST); eval("sub DLGK_FIELD_LAST () { 15; }") unless defined(&DLGK_FIELD_LAST); eval("sub DLGK_FIELD_NEXT () { 16; }") unless defined(&DLGK_FIELD_NEXT); eval("sub DLGK_FIELD_PREV () { 17; }") unless defined(&DLGK_FIELD_PREV); eval("sub DLGK_GRID_UP () { 18; }") unless defined(&DLGK_GRID_UP); eval("sub DLGK_GRID_DOWN () { 19; }") unless defined(&DLGK_GRID_DOWN); eval("sub DLGK_GRID_LEFT () { 20; }") unless defined(&DLGK_GRID_LEFT); eval("sub DLGK_GRID_RIGHT () { 21; }") unless defined(&DLGK_GRID_RIGHT); eval("sub DLGK_DELETE_LEFT () { 22; }") unless defined(&DLGK_DELETE_LEFT); eval("sub DLGK_DELETE_RIGHT () { 23; }") unless defined(&DLGK_DELETE_RIGHT); eval("sub DLGK_DELETE_ALL () { 24; }") unless defined(&DLGK_DELETE_ALL); eval("sub DLGK_ENTER () { 25; }") unless defined(&DLGK_ENTER); eval("sub DLGK_BEGIN () { 26; }") unless defined(&DLGK_BEGIN); eval("sub DLGK_FINAL () { 27; }") unless defined(&DLGK_FINAL); eval("sub DLGK_SELECT () { 28; }") unless defined(&DLGK_SELECT); eval("sub DLGK_HELPFILE () { 29; }") unless defined(&DLGK_HELPFILE); eval("sub DLGK_TRACE () { 30; }") unless defined(&DLGK_TRACE); eval 'sub is_DLGK_MOUSE { my($code) = @_; eval q((($code) >= &M_EVENT)); }' unless defined(&is_DLGK_MOUSE); eval 'sub DLGK_MOUSE { my($code) = @_; eval q((($code) + &M_EVENT)); }' unless defined(&DLGK_MOUSE); eval 'sub HELPKEY_BINDINGS () { &DLG_KEYS_DATA( &DLGK_HELPFILE, &CHR_HELP ), &DLG_KEYS_DATA( &DLGK_HELPFILE, &KEY_F(1) ), &DLG_KEYS_DATA( &DLGK_HELPFILE, &KEY_HELP );}' unless defined(&HELPKEY_BINDINGS); eval 'sub ENTERKEY_BINDINGS () { &DLG_KEYS_DATA( &DLGK_ENTER, ord(\'\\n\' ), DLG_KEYS_DATA( DLGK_ENTER, \'\\r\') ), &DLG_KEYS_DATA( &DLGK_ENTER, &KEY_ENTER );}' unless defined(&ENTERKEY_BINDINGS); eval 'sub INPUTSTR_BINDINGS () { &DLG_KEYS_DATA( &DLGK_BEGIN, &KEY_HOME ), &DLG_KEYS_DATA( &DLGK_DELETE_ALL, &CHR_KILL ), &DLG_KEYS_DATA( &DLGK_DELETE_LEFT, &CHR_BACKSPACE ), &DLG_KEYS_DATA( &DLGK_DELETE_LEFT, &KEY_BACKSPACE ), &DLG_KEYS_DATA( &DLGK_DELETE_RIGHT, &CHR_DELETE ), &DLG_KEYS_DATA( &DLGK_DELETE_RIGHT, &KEY_DC ), &DLG_KEYS_DATA( &DLGK_FINAL, &KEY_END ), &DLG_KEYS_DATA( &DLGK_GRID_LEFT, &KEY_LEFT ), &DLG_KEYS_DATA( &DLGK_GRID_RIGHT, &KEY_RIGHT );}' unless defined(&INPUTSTR_BINDINGS); eval 'sub SCROLLKEY_BINDINGS () { &DLG_KEYS_DATA( &DLGK_GRID_DOWN, ord(\'J\' ), DLG_KEYS_DATA( DLGK_GRID_DOWN, \'j\' ), DLG_KEYS_DATA( DLGK_GRID_DOWN, KEY_DOWN ), DLG_KEYS_DATA( DLGK_GRID_UP, \'K\' ), DLG_KEYS_DATA( DLGK_GRID_UP, \'k\' ), DLG_KEYS_DATA( DLGK_GRID_UP, KEY_UP ), DLG_KEYS_DATA( DLGK_PAGE_FIRST, \'g\' ), DLG_KEYS_DATA( DLGK_PAGE_FIRST, KEY_HOME ), DLG_KEYS_DATA( DLGK_PAGE_LAST, \'G\' ), DLG_KEYS_DATA( DLGK_PAGE_LAST, KEY_END ), DLG_KEYS_DATA( DLGK_PAGE_NEXT, \'F\' ), DLG_KEYS_DATA( DLGK_PAGE_NEXT, \'f\' ), DLG_KEYS_DATA( DLGK_PAGE_NEXT, KEY_NPAGE ), DLG_KEYS_DATA( DLGK_PAGE_PREV, \'B\' ), DLG_KEYS_DATA( DLGK_PAGE_PREV, \'b\') ), &DLG_KEYS_DATA( &DLGK_PAGE_PREV, &KEY_PPAGE );}' unless defined(&SCROLLKEY_BINDINGS); if(defined(&HAVE_RC_FILE)) { } if(defined(&__cplusplus)) { } } 1;