require '_h2ph_pre.ph';

no warnings 'redefine';

unless(defined(&KC)) {
    sub KC {
	my($n) = @_;
	eval q( &KS_KEYCODE($n));
    }
}
unless(defined(&KBD_MAP)) {
    sub KBD_MAP {
	my($name, $base, $map) = @_;
	eval q({ $name, $base, $sizeof{$map}/$sizeof{ &keysym_t}, $map });
    }
}
undef(&KBD_MAP) if defined(&KBD_MAP);
undef(&KC) if defined(&KC);
1;
