3rdparty: Add my old scripts to convert linux console keymap
I wrote that for the initial Bépo keymap. Change-Id: Ib1d54a3326724741615fb5ead6fd5f98701ad782
This commit is contained in:
François Revol
+11
@@ -0,0 +1,11 @@
|
||||
#!/bin/sh
|
||||
|
||||
|
||||
tgzbase='fr-dvorak-bepo-keymaps-1.0rc2'
|
||||
tgzname="$tgzbase.tgz"
|
||||
tgzurl="http://download.tuxfamily.org/dvorak/keymaps/$tgzname"
|
||||
|
||||
#wget "$tgzurl"
|
||||
tar zxvf "$tgzname"
|
||||
./parse_linux_keymap.sh "$tgzbase"/fr-dvorak-bepo-utf8.map > bepo.keymap
|
||||
keymap -o 'French (Bépo)' -c bepo.keymap
|
||||
+1567
File diff suppressed because it is too large
Load Diff
+479
@@ -0,0 +1,479 @@
|
||||
#!/bin/sh
|
||||
|
||||
# path to a keysymdef.h
|
||||
KEYSYM_PATHS=(/usr/include/X11/ /zeta/apps/X11R6.4/include/X11/ ./)
|
||||
KEYSYMDEF=keysymdef.h
|
||||
|
||||
# maps Linux (X11) keycodes to BeOS keycodes
|
||||
L2B=(
|
||||
0x00 0x00 0x12 0x13 0x14 0x15 0x16 0x17
|
||||
0x18 0x19 0x1a 0x1b 0x1c 0x1d 0x00 0x00
|
||||
#16
|
||||
0x27 0x28 0x29 0x2a 0x2b 0x2c 0x2d 0x2e
|
||||
0x2f 0x30 0x31 0x32 0x00 0x00 0x3c 0x3d
|
||||
#32
|
||||
0x3e 0x3f 0x40 0x41 0x42 0x43 0x44 0x45
|
||||
0x46 0x11 0x00 0x33 0x4c 0x4d 0x4e 0x4f
|
||||
#48
|
||||
0x50 0x51 0x52 0x53 0x54 0x55 0x00 0x00
|
||||
0x00 0x5e 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
#64
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
#72
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
#80
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x69 0x00
|
||||
#88
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
#96
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
0x00 0x00 0x00 0x00 0x00 0x00 0x00 0x00
|
||||
#128
|
||||
)
|
||||
|
||||
stop () {
|
||||
echo "$@"
|
||||
exit 1
|
||||
}
|
||||
|
||||
warn () {
|
||||
echo "warning: " "$@" >&2
|
||||
}
|
||||
|
||||
remap_key_l2b () {
|
||||
echo "$((${L2B[$1]}))"
|
||||
}
|
||||
|
||||
unicode_to_utf8 () {
|
||||
uni="${1}"
|
||||
if [ "${uni:0:2}" = "U+" ]; then
|
||||
uni="${uni:2}"
|
||||
fi
|
||||
if [ "${uni:0:2}" = "0x" ]; then
|
||||
uni="${uni:2}"
|
||||
fi
|
||||
if [ "${#uni}" = "3" ]; then
|
||||
uni="0${uni}"
|
||||
fi
|
||||
case "$uni" in
|
||||
[0-9a-fA-F][0-9a-fA-F][0-9a-fA-F][0-9a-fA-F])
|
||||
#utf8="$(echo -en "\x${uni:0:2}\x${uni:2}" | iconv -f UCS-2BE -t UTF-8 | od -A n -t x1 | sed 's/ /\\\x/g')"
|
||||
utf8="$(echo -en "\x${uni:0:2}\x${uni:2}" | iconv -f UCS-2BE -t UTF-8 | od -A n -t x1 | sed 's/ //g')"
|
||||
#utf8="$uni"
|
||||
if [ -z "$uni" ]; then
|
||||
warn "empty utf-8 for '$uni'"
|
||||
fi
|
||||
;;
|
||||
*)
|
||||
warn "unhandled unicode '$uni'"
|
||||
utf8="00"
|
||||
;;
|
||||
esac
|
||||
echo "0x$utf8"
|
||||
}
|
||||
|
||||
broken_unicode_to_utf8 () {
|
||||
uni="${1}"
|
||||
if [ "${lk:0:2}" = "U+" ]; then
|
||||
uni="${lk:2}"
|
||||
fi
|
||||
case "$uni" in
|
||||
[0-7][0-9a-f])
|
||||
utf8="$uni"
|
||||
;;
|
||||
00[0-7][0-9a-f])
|
||||
utf8="${uni:2:2}"
|
||||
;;
|
||||
# 01[0-7][0-9a-f])
|
||||
# utf8="c5$(printf '' $((0x80${uni:2:2})))"
|
||||
# ;;
|
||||
20[8-9a-f][0-9a-f])
|
||||
utf8="e282${uni:2:2}"
|
||||
;;
|
||||
*)
|
||||
warn "unhandled unicode '$uni'"
|
||||
utf8="00"
|
||||
;;
|
||||
esac
|
||||
echo "0x$utf8"
|
||||
}
|
||||
|
||||
convert_keyval () {
|
||||
lk="$1"
|
||||
if [ "${lk:0:1}" = "+" ]; then
|
||||
warn "unhandled +"
|
||||
lk="${lk:1}"
|
||||
fi
|
||||
warn "lk: $lk"
|
||||
case "$lk" in
|
||||
[0-9a-zA-Z])
|
||||
echo "'$lk'"
|
||||
;;
|
||||
U+*)
|
||||
echo "$(unicode_to_utf8 $lk)"
|
||||
;;
|
||||
space)
|
||||
echo "' '"
|
||||
;;
|
||||
underscore)
|
||||
echo "'_'"
|
||||
;;
|
||||
'')
|
||||
echo "''"
|
||||
;;
|
||||
*)
|
||||
keysymhex="$(grep "XK_$lk[ ]" "$keysymdef" | awk '{print $3}')"
|
||||
warn "found: '$keysymhex'"
|
||||
if [ -n "$keysymhex" ]; then
|
||||
echo "$(unicode_to_utf8 $keysymhex)"
|
||||
return
|
||||
fi
|
||||
case "$lk" in
|
||||
one)
|
||||
echo "'1'";;
|
||||
two)
|
||||
echo "'2'";;
|
||||
three)
|
||||
echo "'3'";;
|
||||
four)
|
||||
echo "'4'";;
|
||||
five)
|
||||
echo "'5'";;
|
||||
six)
|
||||
echo "'6'";;
|
||||
seven)
|
||||
echo "'7'";;
|
||||
eight)
|
||||
echo "'8'";;
|
||||
nine)
|
||||
echo "'9'";;
|
||||
zero)
|
||||
echo "'0'";;
|
||||
*)
|
||||
warn "unknown: '$lk'"
|
||||
;;
|
||||
esac
|
||||
echo "''"
|
||||
;;
|
||||
esac
|
||||
}
|
||||
|
||||
parse_lkeymap () {
|
||||
while read line; do
|
||||
if [ "${line:0:1}" = "#" ]; then
|
||||
continue
|
||||
fi
|
||||
keyspec="${line%=*}"
|
||||
keyvals="${line#*=}"
|
||||
if [ "${keyspec}" = "${keyvals}" ]; then
|
||||
#warn "skipping $line"
|
||||
continue
|
||||
fi
|
||||
mods=0
|
||||
for k in $keyspec; do
|
||||
#echo -n "-$k-"
|
||||
case "$k" in
|
||||
Shift|shift)
|
||||
mods=$((mods | 0x1))
|
||||
;;
|
||||
Control|control)
|
||||
mods=$((mods | 0x4))
|
||||
;;
|
||||
Alt|alt)
|
||||
mods=$((mods | 0x2))
|
||||
#warn "unhandled modifier"
|
||||
;;
|
||||
AltGr|altgr)
|
||||
mods=$((mods | 0x40))
|
||||
;;
|
||||
plain)
|
||||
mods=0
|
||||
continue;;
|
||||
keycode)
|
||||
continue;;
|
||||
*)
|
||||
case "${k:0:1}" in
|
||||
[0-9]*)
|
||||
keycode="${k/[^0-9]}"
|
||||
;;
|
||||
*)
|
||||
stop "unknown: $k"
|
||||
;;
|
||||
esac
|
||||
;;
|
||||
esac
|
||||
done
|
||||
if [ $((mods & 0x2)) -gt 0 ]; then
|
||||
#echo "skipping Alt line: $line"
|
||||
continue
|
||||
fi
|
||||
hkeycode="$(remap_key_l2b "$keycode")"
|
||||
#echo "$hkeycode"
|
||||
# handle values
|
||||
kv=($keyvals)
|
||||
hkv=('' '' '' '')
|
||||
if [ -z "${kv[1]}" ]; then
|
||||
case "${kv[0]}" in
|
||||
[a-z])
|
||||
#echo "plop-${kv[0]}-"
|
||||
kv[1]="$(echo "${kv[0]}" | tr '[a-z]' '[A-Z]')"
|
||||
#echo "-${#kv[@]}-"
|
||||
;;
|
||||
*)
|
||||
;;
|
||||
esac
|
||||
fi
|
||||
for n in $(seq 0 3); do
|
||||
#if [ -z "${kv[$n]}" ]; then
|
||||
# continue;
|
||||
#fi
|
||||
hkv[$n]="$(convert_keyval "${kv[$n]}")"
|
||||
if [ "${hkv[$n]}" = "" ]; then
|
||||
hkv[$n]="''"
|
||||
fi
|
||||
done
|
||||
#echo "-$mods-"
|
||||
case "$mods" in
|
||||
0)
|
||||
eval "hkmap_${hkeycode}[0]=\"${hkv[0]}\"" # n
|
||||
eval "hkmap_${hkeycode}[1]=\"${hkv[1]}\"" # s
|
||||
#eval "hkmap_${hkeycode}[2]=\"${hkv[2]}\"" # c
|
||||
eval "hkmap_${hkeycode}[3]=\"${hkv[2]}\"" # o
|
||||
eval "hkmap_${hkeycode}[4]=\"${hkv[3]}\"" # os
|
||||
eval "hkmap_${hkeycode}[5]=\"${hkv[1]}\"" # C
|
||||
eval "hkmap_${hkeycode}[6]=\"${hkv[0]}\"" # Cs
|
||||
eval "hkmap_${hkeycode}[7]=\"${hkv[2]}\"" # Co
|
||||
eval "hkmap_${hkeycode}[8]=\"${hkv[3]}\"" # Cos
|
||||
;;
|
||||
64) #Option(AltGr)
|
||||
eval "hkmap_${hkeycode}[3]=\"${hkv[0]}\""
|
||||
;;
|
||||
65) #Shift+Option(AltGr)
|
||||
eval "hkmap_${hkeycode}[4]=\"${hkv[0]}\""
|
||||
;;
|
||||
*)
|
||||
warn "unhandled modifiers $mods"
|
||||
;;
|
||||
esac
|
||||
#for i in $(seq 0 3); do
|
||||
# if [ -z "${kv[$i]}" ]; then
|
||||
# break
|
||||
# fi
|
||||
#
|
||||
# #echo "[$i]='${kv[$i]}'"
|
||||
#done
|
||||
#echo ":$keycode:"
|
||||
#echo "$keyspec===$keyvals"
|
||||
done
|
||||
gen_hkeymap
|
||||
}
|
||||
|
||||
prefill_hkeymap () {
|
||||
for n in $(seq 0 127); do
|
||||
val="''"
|
||||
val2=""
|
||||
case $n in
|
||||
1)
|
||||
val="0x1b";;
|
||||
[2-9]|1[0-6])
|
||||
val="0x10";;
|
||||
$((0x1e)))
|
||||
val="0x08";;
|
||||
$((0x1f)))
|
||||
val="0x05";;
|
||||
$((0x20)))
|
||||
val="0x01";;
|
||||
$((0x21)))
|
||||
val="0x0b";;
|
||||
$((0x23)))
|
||||
val="'/'";;
|
||||
$((0x24)))
|
||||
val="'*'";;
|
||||
$((0x25)))
|
||||
val="'-'";;
|
||||
$((0x26)))
|
||||
val="0x09";;
|
||||
$((0x34)))
|
||||
val="0x7f";;
|
||||
$((0x35)))
|
||||
val="0x04";;
|
||||
$((0x36)))
|
||||
val="0x0c";;
|
||||
$((0x37)))
|
||||
val="0x01";val2="'7'";;
|
||||
$((0x38)))
|
||||
val="0x1e";val2="'8'";;
|
||||
$((0x39)))
|
||||
val="0x0b";val2="'9'";;
|
||||
$((0x3a)))
|
||||
val="'+'";;
|
||||
$((0x47)))
|
||||
val="0x0a";;
|
||||
$((0x48)))
|
||||
val="0x1c";val2="'4'";;
|
||||
$((0x49)))
|
||||
val="''";val2="'5'";;
|
||||
$((0x4a)))
|
||||
val="0x1d";val2="'6'";;
|
||||
$((0x57)))
|
||||
val="0x1e";;
|
||||
$((0x58)))
|
||||
val="0x01";val2="'1'";;
|
||||
$((0x59)))
|
||||
val="0x1e";val2="'2'";;
|
||||
$((0x5a)))
|
||||
val="0x0b";val2="'3'";;
|
||||
$((0x5b)))
|
||||
val="0x0a";;
|
||||
$((0x61)))
|
||||
val="0x1c";;
|
||||
$((0x62)))
|
||||
val="0x1f";;
|
||||
$((0x63)))
|
||||
val="0x1d";;
|
||||
$((0x64)))
|
||||
val="0x05";val2="'0'";;
|
||||
$((0x65)))
|
||||
val="0x7f";val2="'.'";;
|
||||
# $((0x66)))
|
||||
# val="''";;
|
||||
*)
|
||||
;;
|
||||
esac
|
||||
if [ -z "$val2" ]; then
|
||||
val2="$val"
|
||||
fi
|
||||
eval "hkmap_$n=(\"$val\" \"$val2\" \"$val\" \"$val\" \"$val2\" \"$val\" \"$val2\" \"$val\" \"$val2\")"
|
||||
|
||||
#eval v="(\${hkmap_$n[*]})"
|
||||
#echo "${v[7]}"
|
||||
done
|
||||
}
|
||||
|
||||
|
||||
gen_hkeymap () {
|
||||
echo "#!/bin/keymap -l
|
||||
Version = 3
|
||||
CapsLock = 0x3b
|
||||
ScrollLock = 0x0f
|
||||
NumLock = 0x22
|
||||
LShift = 0x4b
|
||||
RShift = 0x56
|
||||
LCommand = 0x5d
|
||||
RCommand = 0x00
|
||||
LControl = 0x5c
|
||||
RControl = 0x60
|
||||
LOption = 0x66
|
||||
ROption = 0x5f
|
||||
Menu = 0x68
|
||||
#
|
||||
# Lock settings
|
||||
# To set NumLock, do the following:
|
||||
# LockSettings = NumLock
|
||||
#
|
||||
# To set everything, do the following:
|
||||
# LockSettings = CapsLock NumLock ScrollLock
|
||||
#
|
||||
LockSettings =
|
||||
|
||||
# Legend:
|
||||
# n = Normal
|
||||
# s = Shift
|
||||
# c = Control
|
||||
# C = CapsLock
|
||||
# o = Option
|
||||
# Key n s c o os C Cs Co Cos
|
||||
"
|
||||
|
||||
for n in $(seq 0 127); do
|
||||
printf "Key 0x%02x = " $n
|
||||
eval v="(\${hkmap_$n[*]})"
|
||||
for n in $(seq 0 8); do
|
||||
printf "%-10s" "${v[$n]}"
|
||||
done
|
||||
echo ""
|
||||
done
|
||||
|
||||
echo "
|
||||
Acute ' ' = 0xc2b4
|
||||
Acute 'A' = 0xc381
|
||||
Acute 'E' = 0xc389
|
||||
Acute 'I' = 0xc38d
|
||||
Acute 'O' = 0xc393
|
||||
Acute 'U' = 0xc39a
|
||||
Acute 'Y' = 0xc39d
|
||||
Acute 'a' = 0xc3a1
|
||||
Acute 'e' = 0xc3a9
|
||||
Acute 'i' = 0xc3ad
|
||||
Acute 'o' = 0xc3b3
|
||||
Acute 'u' = 0xc3ba
|
||||
Acute 'y' = 0xc3bd
|
||||
AcuteTab = Option Option-Shift CapsLock-Option CapsLock-Option-Shift
|
||||
Grave ' ' = '\`'
|
||||
Grave 'A' = 0xc380
|
||||
Grave 'E' = 0xc388
|
||||
Grave 'I' = 0xc38c
|
||||
Grave 'O' = 0xc392
|
||||
Grave 'U' = 0xc399
|
||||
Grave 'a' = 0xc3a0
|
||||
Grave 'e' = 0xc3a8
|
||||
Grave 'i' = 0xc3ac
|
||||
Grave 'o' = 0xc3b2
|
||||
Grave 'u' = 0xc3b9
|
||||
GraveTab = Option Option-Shift CapsLock-Option CapsLock-Option-Shift
|
||||
Circumflex ' ' = '^'
|
||||
Circumflex 'A' = 0xc382
|
||||
Circumflex 'E' = 0xc38a
|
||||
Circumflex 'I' = 0xc38e
|
||||
Circumflex 'O' = 0xc394
|
||||
Circumflex 'U' = 0xc39b
|
||||
Circumflex 'a' = 0xc3a2
|
||||
Circumflex 'e' = 0xc3aa
|
||||
Circumflex 'i' = 0xc3ae
|
||||
Circumflex 'o' = 0xc3b4
|
||||
Circumflex 'u' = 0xc3bb
|
||||
CircumflexTab = Normal Shift CapsLock CapsLock-Shift
|
||||
Diaeresis ' ' = 0xc2a8
|
||||
Diaeresis 'A' = 0xc384
|
||||
Diaeresis 'E' = 0xc38b
|
||||
Diaeresis 'I' = 0xc38f
|
||||
Diaeresis 'O' = 0xc396
|
||||
Diaeresis 'U' = 0xc39c
|
||||
Diaeresis 'Y' = 0xc5b8
|
||||
Diaeresis 'a' = 0xc3a4
|
||||
Diaeresis 'e' = 0xc3ab
|
||||
Diaeresis 'i' = 0xc3af
|
||||
Diaeresis 'o' = 0xc3b6
|
||||
Diaeresis 'u' = 0xc3bc
|
||||
Diaeresis 'y' = 0xc3bf
|
||||
DiaeresisTab = Normal Shift CapsLock CapsLock-Shift
|
||||
Tilde ' ' = '~'
|
||||
Tilde 'A' = 0xc383
|
||||
Tilde 'O' = 0xc395
|
||||
Tilde 'N' = 0xc391
|
||||
Tilde 'a' = 0xc3a3
|
||||
Tilde 'o' = 0xc3b5
|
||||
Tilde 'n' = 0xc3b1
|
||||
TildeTab = Option Option-Shift CapsLock-Option CapsLock-Option-Shift
|
||||
"
|
||||
|
||||
}
|
||||
|
||||
# find keysymdef.h
|
||||
for d in "${KEYSYM_PATHS[@]}"; do
|
||||
if [ -e "$d$KEYSYMDEF" ]; then
|
||||
keysymdef="$d$KEYSYMDEF"
|
||||
break;
|
||||
fi
|
||||
done
|
||||
|
||||
if [ -z "$keysymdef" ]; then
|
||||
stop "Cannot find a keysymdef.h"
|
||||
fi
|
||||
|
||||
|
||||
prefill_hkeymap
|
||||
|
||||
parse_lkeymap < "$1"
|
||||
Reference in New Issue
Block a user