Чтение и распознавание клавиш

В программе 58 показано, как можно читать и распознавать любые кла-

виши. Здесь используется то обстоятельство, что клавиши, порождающие по

два кода ASCII всегда порождают первым код 0, если их нажимать без однов-

ременного нажатия клавиши Shift, Alt или Ctrl.

Эта программа определяет предикат readkey, который возвращает логи-

ческое имя нажатой клавиши. Логическое имя легче использовать, чем после-

довательность чисел. Предикаты key_code и key_code2 определяют соответст-

вие логических имен кодам ASCII.

/* Program CH18EX08.PRO */

domains

key = cr; esc; break; tab; btab; del; bdel; ins; end; home;

fkey(integer); up_arrow; down_arrow; left_arrow; right_arrow;

char(CHAR); other

predicates

readkey(key)

key_code(key, char, integer)

key_code2(key, integer)

/*

goal

clearwindow,

write("Тест клавиатуры. Нажмите клавишу!"),

readkey(Key), nl,

write("The ", Key, "- клавиша была нажата").

*/

clauses

readkey(Key) :-

readchar(T), char_int(T, Val), key_code(Key, T, Val).

key_code(Key, _, 0) :-

readchar(T),

char_int(T, Val),

key_code2(Key, Val),!.

key_code(break, _, 3) :- !. key_code(bdel, _, 8) :- !.

key_code(tab, _, 10) :- !. key_code(cr, _, 13) :- !.

key_code(esc, _, 27) :- !. key_code(char(T), T, _).

key_code2(btab, 15) :- !. key_code2(home, 71) :- !.

key_code2(up_arrow, 72) :- !. key_code2(left_arrow, 75):- !.

key_code2(right_arrow,77):- !. key_code2(end, 79) :- !.

key_code2(down_arrow,80) :- !. key_code2(ins, 82) :- !.

key_code2(del, 83) :- !.

key_code2(fkey(N), V) :-

V>58, V<70, N=V-58, !.

key_code2(other,_).