example-ewgi

-spec(read_input_string/2 :: (integer(), ewgi_context()) -> string()).

read_input_string(Size, Ctx) when is_integer(Size) ->
    R = read_input(Ctx),
    Iol = R(read_input_string_cb([]), Size),
    Bin = iolist_to_binary(Iol),
    binary_to_list(Bin).

read_input_string_cb(Acc) ->
    F = fun(eof) ->
                lists:reverse(Acc);
           ({data, B}) ->
                read_input_string_cb([B|Acc])
        end,
    F.