獲取控制檯用戶輸入鍵入的字符char按鍵

Question

我在Elixir中有一個控制檯應用程序。我需要通過按鍵解釋用戶的輸入。舉例來說，我需要把「Q」作爲命令結束會話，無需用戶明確地按⏎又名「回車」。

IO.getn/2出奇等待⏎被擠壓，緩衝的輸入（我幾乎可以肯定，這個緩衝由控制檯本身完成，但是man stty不提供任何幫助/標誌關閉緩衝。）

Mix.Utilsuse the infinite loop隱藏用戶輸入（基本上是發送退格鍵控制序列安慰每1ms，）IEx代碼將調用標準erlang的io，即提供了設置的回調上標籤唯一的能力（對於自動完成。）

我的猜測是我必須使用Port，將其連接到:stdin和產卵的過程聽輸入。不幸的是，我堅持試圖實現後者，因爲我需要附加到當前正在運行的控制檯，而不是創建一個新的端口到其他進程（因爲它是perfectly described here。）

我是否缺少明顯的東西我是一個Port附加到當前進程的:stdin（在Port.list/0 BTW上市）或者我應該已經建立了全3管道架構重定向什麼類型以:stdin並不管我的程序要puts到:stdout？

Answer 1

你的程序沒有得到密鑰，因爲在Linux上，終端默認爲cooked mode，它將緩存所有的按鍵，直到按下Return鍵。

您需要將終端切換到原始模式，該模式會在發生按鍵後立即嚮應用程序發送按鍵。沒有跨平臺來做到這一點。

對於類Unix系統，有ncurses，它有一個靈藥綁定，你應該檢查出來：https://github.com/jfreeze/ex_ncurses。它甚至有一個例子來做你想做的事。

Answer 2

我可以做的最簡單的事情是基於this github回購。所以，你需要以下條件：

reader.c

#include "erl_driver.h" 
#include <stdio.h> 

typedef struct { 
    ErlDrvPort drv_port; 
} state; 

static ErlDrvData start(ErlDrvPort port, char *command) { 
    state *st = (state *)driver_alloc(sizeof(state)); 
    st->drv_port = port; 
    set_port_control_flags(port, PORT_CONTROL_FLAG_BINARY); 
    driver_select(st->drv_port, (ErlDrvEvent)(size_t)fileno(stdin), DO_READ, 1); 
    return (ErlDrvData)st; 
} 

static void stop(ErlDrvData drvstate) { 
    state *st = (state *)drvstate; 
    driver_select(st->drv_port, (ErlDrvEvent)(size_t)fileno(stdin), DO_READ, 0); 
    driver_free(drvstate); 
} 

static void do_getch(ErlDrvData drvstate, ErlDrvEvent event) { 
    state *st = (state *)drvstate; 
    char* buf = malloc(1); 
    buf[0] = getchar(); 
    driver_output(st->drv_port, buf, 1); 
} 

ErlDrvEntry driver_entry = { 
    NULL, 
    start, 
    stop, 
    NULL, 
    do_getch, 
    NULL, 
    "reader", 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    NULL, 
    ERL_DRV_EXTENDED_MARKER, 
    ERL_DRV_EXTENDED_MAJOR_VERSION, 
    ERL_DRV_EXTENDED_MINOR_VERSION 
}; 

DRIVER_INIT(reader) { 
    return &driver_entry; 
} 

與gcc -o reader.so -fpic -shared reader.c編譯。 然後，你需要在reader.erl

-module(reader). 
-behaviour(gen_server). 
-export([start/0, init/1, terminate/2, read/0, handle_cast/2, code_change/3, handle_call/3, handle_info/2, getch/0]). 
-record(state, {port, caller}). 

start() -> 
    gen_server:start_link({local, ?MODULE}, ?MODULE, no_args, []). 

getch() -> 
    gen_server:call(?MODULE, getch, infinity). 

handle_call(getch, From, #state{caller = undefined} = State) -> 
    {noreply, State#state{caller = From}}; 
handle_call(getch, _From, State) -> 
    {reply, -1, State}. 

handle_info({_Port, {data, _Binary}}, #state{ caller = undefined } = State) -> 
    {noreply, State}; 
handle_info({_Port, {data, Binary}}, State) -> 
    gen_server:reply(State#state.caller, binary_to_list(Binary)), 
    {noreply, State#state{ caller = undefined }}. 

init(no_args) -> 
    case erl_ddll:load(".","reader") of 
    ok -> 
     Port = erlang:open_port({spawn, "reader"}, [binary]), 
     {ok, #state{port = Port}}; 
    {error, ErrorCode} -> 
     exit({driver_error, erl_ddll:format_error(ErrorCode)}) 
    end. 


handle_cast(stop, State) ->  
    {stop, normal, State}; 
handle_cast(_, State) ->  
    {noreply, State}. 

code_change(_, State, _) -> 
    {noreply, State}. 

terminate(_Reason, State) -> 
    erlang:port_close(State#state.port), 
    erl_ddll:unload("reader"). 

read() -> 
    C = getch(), 
    case C of 
    "q" -> 
     gen_server:cast(?MODULE, stop); 
    _ -> 
     io:fwrite("Input received~n",[]), 
     read() 
    end. 

與erlc reader.erl編譯。

然後在IEX :reader.start(); :reader.read()它會發出警告，stdin已被劫持，併爲每一個按鍵你輸入收到。唯一的問題是，當您按q服務器終止，但stdin不可訪問。