require '_h2ph_pre.ph';

no warnings qw(redefine misc);

unless(defined(&_UNCTRL_H_)) {
    eval 'sub _UNCTRL_H_ () {1;}' unless defined(&_UNCTRL_H_);
    require 'sys/cdefs.ph';
    if(defined(&HAVE_WCHAR)) {
	require 'wchar.ph';
	require 'curses.ph';
    }
    if(defined(&HAVE_WCHAR)) {
    }
    eval 'sub unctrl {
        my($c) = @_;
	    eval q( $__unctrl[($c) & 0xff]);
    }' unless defined(&unctrl);
    eval 'sub unctrllen {
        my($c) = @_;
	    eval q( $__unctrllen[($c) & 0xff]);
    }' unless defined(&unctrllen);
    if(defined(&HAVE_WCHAR)) {
	eval 'sub wunctrl {
	    my($wc) = @_;
    	    eval q( $__wunctrl[(($wc)-> $vals[ 0]) & 0xff]);
	}' unless defined(&wunctrl);
    }
}
1;
