13 lines
230 B
Erlang
Executable File
13 lines
230 B
Erlang
Executable File
#!/usr/bin/env escript
|
|
|
|
%% script for keycode mapping
|
|
|
|
main([]) ->
|
|
ok = shell:start_interactive({noshell, raw}),
|
|
dum([]).
|
|
|
|
dum(Q) ->
|
|
io:format("~tw\r\n", [Q]),
|
|
NewChar = io:get_chars("", 1),
|
|
dum(Q ++ NewChar).
|