Current File : //usr/local/apps/perl/lib/site_perl/5.30.0/x86_64-linux/term_entry.ph

require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&NCURSES_TERM_ENTRY_H_incl)) {
    eval 'sub NCURSES_TERM_ENTRY_H_incl () {1;}' unless defined(&NCURSES_TERM_ENTRY_H_incl);
    if(defined(&__cplusplus)) {
    }
    require 'term.ph';
    eval 'sub MAX_USES () {32;}' unless defined(&MAX_USES);
    eval 'sub MAX_CROSSLINKS () {16;}' unless defined(&MAX_CROSSLINKS);
    if((defined(&NCURSES_XNAMES) ? &NCURSES_XNAMES : undef)) {
	eval 'sub NUM_BOOLEANS {
	    my($tp) = @_;
    	    eval q(($tp)-> &num_Booleans);
	}' unless defined(&NUM_BOOLEANS);
	eval 'sub NUM_NUMBERS {
	    my($tp) = @_;
    	    eval q(($tp)-> &num_Numbers);
	}' unless defined(&NUM_NUMBERS);
	eval 'sub NUM_STRINGS {
	    my($tp) = @_;
    	    eval q(($tp)-> &num_Strings);
	}' unless defined(&NUM_STRINGS);
	eval 'sub EXT_NAMES {
	    my($tp,$i,$limit,$index,$table) = @_;
    	    eval q(($i >= $limit) ?  ($tp->{ext_Names[$index]}) : $table->[$i]);
	}' unless defined(&EXT_NAMES);
    } else {
	eval 'sub NUM_BOOLEANS {
	    my($tp) = @_;
    	    eval q( &BOOLCOUNT);
	}' unless defined(&NUM_BOOLEANS);
	eval 'sub NUM_NUMBERS {
	    my($tp) = @_;
    	    eval q( &NUMCOUNT);
	}' unless defined(&NUM_NUMBERS);
	eval 'sub NUM_STRINGS {
	    my($tp) = @_;
    	    eval q( &STRCOUNT);
	}' unless defined(&NUM_STRINGS);
	eval 'sub EXT_NAMES {
	    my($tp,$i,$limit,$index,$table) = @_;
    	    eval q($table->[$i]);
	}' unless defined(&EXT_NAMES);
    }
    eval 'sub NUM_EXT_NAMES {
        my($tp) = @_;
	    eval q((($tp)-> &ext_Booleans + ($tp)-> &ext_Numbers + ($tp)-> &ext_Strings));
    }' unless defined(&NUM_EXT_NAMES);
    eval 'sub for_each_boolean {
        my($n,$tp) = @_;
	    eval q( &for($n = 0; $n <  &NUM_BOOLEANS($tp); $n++));
    }' unless defined(&for_each_boolean);
    eval 'sub for_each_number {
        my($n,$tp) = @_;
	    eval q( &for($n = 0; $n <  &NUM_NUMBERS($tp); $n++));
    }' unless defined(&for_each_number);
    eval 'sub for_each_string {
        my($n,$tp) = @_;
	    eval q( &for($n = 0; $n <  &NUM_STRINGS($tp); $n++));
    }' unless defined(&for_each_string);
    eval 'sub ExtBoolname {
        my($tp,$i,$names) = @_;
	    eval q( &EXT_NAMES($tp, $i,  &BOOLCOUNT, ($i - ( ($tp->{num_Booleans}) -  ($tp->{ext_Booleans}))), $names));
    }' unless defined(&ExtBoolname);
    eval 'sub ExtNumname {
        my($tp,$i,$names) = @_;
	    eval q( &EXT_NAMES($tp, $i,  &NUMCOUNT, ($i - ( ($tp->{num_Numbers}) -  ($tp->{ext_Numbers}))) +  ($tp->{ext_Booleans}), $names));
    }' unless defined(&ExtNumname);
    eval 'sub ExtStrname {
        my($tp,$i,$names) = @_;
	    eval q( &EXT_NAMES($tp, $i,  &STRCOUNT, ($i - ( ($tp->{num_Strings}) -  ($tp->{ext_Strings}))) + ( ($tp->{ext_Numbers}) +  ($tp->{ext_Booleans})), $names));
    }' unless defined(&ExtStrname);
    eval 'sub for_entry_list {
        my($qp) = @_;
	    eval q( &for ($qp =  &_nc_head; $qp; $qp =  ($qp->{next})));
    }' unless defined(&for_entry_list);
    eval 'sub MAX_LINE () {132;}' unless defined(&MAX_LINE);
    eval 'sub NULLHOOK () {( &bool(*)( &ENTRY *))0;}' unless defined(&NULLHOOK);
    eval 'sub WANTED {
        my($s) = @_;
	    eval q((($s) ==  &ABSENT_STRING));
    }' unless defined(&WANTED);
    eval 'sub PRESENT {
        my($s) = @_;
	    eval q(((($s) !=  &ABSENT_STRING)  && (($s) !=  &CANCELLED_STRING)));
    }' unless defined(&PRESENT);
    eval 'sub ANDMISSING {
        my($p,$q) = @_;
	    eval q({ &if ( &PRESENT($p)  && ! &PRESENT($q))  &_nc_warning($p \\" but no \\" $q);});
    }' unless defined(&ANDMISSING);
    eval 'sub PAIRED {
        my($p,$q) = @_;
	    eval q({  &if ( &PRESENT($q)  && ! &PRESENT($p))  &_nc_warning($q \\" but no \\" $p);  &if ( &PRESENT($p)  && ! &PRESENT($q))  &_nc_warning($p \\" but no \\" $q); });
    }' unless defined(&PAIRED);
    if((defined(&NCURSES_XNAMES) ? &NCURSES_XNAMES : undef)) {
    }
    if(defined(&__cplusplus)) {
    }
}
1;