require '_h2ph_pre.ph';

require 'dev/sun/kbd_tables.ph';
unless(defined(&KEY_CODE)) {
    sub KEY_CODE {
	local($c) = @_;
	eval q((($c) &  &KBD_KEYMASK));
    }
}
unless(defined(&KEY_UP)) {
    sub KEY_UP {
	local($c) = @_;
	eval q((($c) &  &KBD_UP));
    }
}
unless(defined(&KBMOD_CTRL_MASK)) {
    sub KBMOD_CTRL_MASK () {	((1<<  &KBMOD_CTRL_L) | (1<<  &KBMOD_CTRL_R));}
}
unless(defined(&KBMOD_SHIFT_MASK)) {
    sub KBMOD_SHIFT_MASK () {	((1<<  &KBMOD_SHIFT_L) | (1<<  &KBMOD_SHIFT_R));}
}
unless(defined(&KBMOD_META_MASK)) {
    sub KBMOD_META_MASK () {	((1<<  &KBMOD_META_L) | (1<<  &KBMOD_META_R));}
}
unless(defined(&KBMOD_ALT_MASK)) {
    sub KBMOD_ALT_MASK () {	((1<<  &KBMOD_ALT_L) | (1<<  &KBMOD_ALT_R));}
}
unless(defined(&KBD_EXPECT_IDCODE)) {
    sub KBD_EXPECT_IDCODE () {	1;}
}
unless(defined(&KBD_EXPECT_LAYOUT)) {
    sub KBD_EXPECT_LAYOUT () {	2;}
}
1;
