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/menu.ph

require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&ETI_MENU)) {
    eval 'sub ETI_MENU () {1;}' unless defined(&ETI_MENU);
    if(defined(&AMIGA)) {
	eval 'sub TEXT () { &TEXT_ncurses;}' unless defined(&TEXT);
    }
    require 'curses.ph';
    require 'eti.ph';
    if(defined(&__cplusplus)) {
    }
    eval 'sub O_ONEVALUE () {(0x1);}' unless defined(&O_ONEVALUE);
    eval 'sub O_SHOWDESC () {(0x2);}' unless defined(&O_SHOWDESC);
    eval 'sub O_ROWMAJOR () {(0x4);}' unless defined(&O_ROWMAJOR);
    eval 'sub O_IGNORECASE () {(0x8);}' unless defined(&O_IGNORECASE);
    eval 'sub O_SHOWMATCH () {(0x10);}' unless defined(&O_SHOWMATCH);
    eval 'sub O_NONCYCLIC () {(0x20);}' unless defined(&O_NONCYCLIC);
    eval 'sub O_SELECTABLE () {(0x1);}' unless defined(&O_SELECTABLE);
    eval 'sub REQ_LEFT_ITEM () {( &KEY_MAX + 1);}' unless defined(&REQ_LEFT_ITEM);
    eval 'sub REQ_RIGHT_ITEM () {( &KEY_MAX + 2);}' unless defined(&REQ_RIGHT_ITEM);
    eval 'sub REQ_UP_ITEM () {( &KEY_MAX + 3);}' unless defined(&REQ_UP_ITEM);
    eval 'sub REQ_DOWN_ITEM () {( &KEY_MAX + 4);}' unless defined(&REQ_DOWN_ITEM);
    eval 'sub REQ_SCR_ULINE () {( &KEY_MAX + 5);}' unless defined(&REQ_SCR_ULINE);
    eval 'sub REQ_SCR_DLINE () {( &KEY_MAX + 6);}' unless defined(&REQ_SCR_DLINE);
    eval 'sub REQ_SCR_DPAGE () {( &KEY_MAX + 7);}' unless defined(&REQ_SCR_DPAGE);
    eval 'sub REQ_SCR_UPAGE () {( &KEY_MAX + 8);}' unless defined(&REQ_SCR_UPAGE);
    eval 'sub REQ_FIRST_ITEM () {( &KEY_MAX + 9);}' unless defined(&REQ_FIRST_ITEM);
    eval 'sub REQ_LAST_ITEM () {( &KEY_MAX + 10);}' unless defined(&REQ_LAST_ITEM);
    eval 'sub REQ_NEXT_ITEM () {( &KEY_MAX + 11);}' unless defined(&REQ_NEXT_ITEM);
    eval 'sub REQ_PREV_ITEM () {( &KEY_MAX + 12);}' unless defined(&REQ_PREV_ITEM);
    eval 'sub REQ_TOGGLE_ITEM () {( &KEY_MAX + 13);}' unless defined(&REQ_TOGGLE_ITEM);
    eval 'sub REQ_CLEAR_PATTERN () {( &KEY_MAX + 14);}' unless defined(&REQ_CLEAR_PATTERN);
    eval 'sub REQ_BACK_PATTERN () {( &KEY_MAX + 15);}' unless defined(&REQ_BACK_PATTERN);
    eval 'sub REQ_NEXT_MATCH () {( &KEY_MAX + 16);}' unless defined(&REQ_NEXT_MATCH);
    eval 'sub REQ_PREV_MATCH () {( &KEY_MAX + 17);}' unless defined(&REQ_PREV_MATCH);
    eval 'sub MIN_MENU_COMMAND () {( &KEY_MAX + 1);}' unless defined(&MIN_MENU_COMMAND);
    eval 'sub MAX_MENU_COMMAND () {( &KEY_MAX + 17);}' unless defined(&MAX_MENU_COMMAND);
    if(defined( &MAX_COMMAND)) {
	if(((defined(&MAX_MENU_COMMAND) ? &MAX_MENU_COMMAND : undef) > (defined(&MAX_COMMAND) ? &MAX_COMMAND : undef))) {
	    die("Something\ is\ wrong\ \-\-\ MAX_MENU_COMMAND\ is\ greater\ than\ MAX_COMMAND");
	}
 elsif(((defined(&MAX_COMMAND) ? &MAX_COMMAND : undef) != ((defined(&KEY_MAX) ? &KEY_MAX : undef) + 128))) {
	    die("Something\ is\ wrong\ \-\-\ MAX_COMMAND\ is\ already\ inconsistently\ defined\.");
	}
    } else {
	eval 'sub MAX_COMMAND () {( &KEY_MAX + 128);}' unless defined(&MAX_COMMAND);
    }
    if(defined(&__cplusplus)) {
    }
}
1;

Man Man