我在Elixir有一个控制台应用程序。我需要通过按键来解释用户的输入。例如,我需要将“q”视为结束会话的命令,而无需用户明确按⏎ a.k.a.“回车。”
IO.getn/2
令人惊讶地等待⏎被按下,缓冲输入(我几乎可以肯定,这个缓冲是由控制台本身完成的,但是man stty
没有提供任何帮助/标志来关闭缓冲。)
Mix.Utils
use the infinite loop隐藏用户输入(基本上每隔1ms将退格控制序列发送到控制台),IEx
代码包含对标准erlang io
的调用,只提供能够在 Tab 上设置回调(用于自动完成。)
我的猜测是我必须使用Port
,将其附加到:stdin
并生成一个进程来监听输入。不幸的是,我不得不尝试实现后者,因为我需要连接到当前运行的控制台,而不是为其他进程创建一个新端口(因为它是perfectly described here。)
我是否遗漏了一些关于我如何将Port
附加到当前流程:stdin
(在Port.list/0
中列出的顺便说一句),或者我应该如何构建整个3管道架构,将键入的内容重定向到:stdin
以及我的程序想要puts
到:stdout
的所有内容?
答案 0 :(得分:5)
您的程序无法获取密钥,因为在Linux上,终端默认位于cooked mode,它会缓冲所有按键,直到按下Return键。
您需要将终端切换到原始模式,该模式会在应用程序发生时立即将其发送给应用程序。没有跨平台可以做到这一点。
对于类似unix的系统,有ncurses,它有一个elixir绑定,你应该检查:https://github.com/jfreeze/ex_ncurses。它甚至有一个例子来做你想做的事。
答案 1 :(得分:4)
我能做的最简单的事情是基于this github repo。所以你需要以下内容:
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
无法访问。