Add readuntil() convenience function

Author: nalimilan

src/StringEncodings.jl

@@ -2,7 +2,7 @@
 
 module StringEncodings
 import Base: close, eachline, eof, flush, isreadable, iswritable,
-             open, read, readline, readlines, show, write
+             open, read, readline, readlines, readuntil, show, write
 import Base.Libc: errno, strerror, E2BIG, EINVAL, EILSEQ
 import Compat: read
 
@@ -398,6 +398,15 @@ Methods to read text in character encoding `enc`.
 readlines(s::IO, enc::Encoding) = readlines(StringDecoder(s, enc))
 readlines(filename::AbstractString, enc::Encoding) = open(io->readlines(io, enc), filename)
 
+"""
+    readuntil(stream::IO, enc::Encoding, delim)
+    readuntil(filename::AbstractString, enc::Encoding, delim)
+
+Methods to read text in character encoding `enc`.
+"""
+readuntil(s::IO, enc::Encoding, delim) = readuntil(StringDecoder(s, enc), delim)
+readuntil(filename::AbstractString, enc::Encoding, delim) = open(io->readuntil(io, enc, delim), filename)
+
 """
     eachline(stream::IO, enc::Encoding)
     eachline(filename::AbstractString, enc::Encoding)

test/runtests.jl

@@ -143,12 +143,20 @@ mktemp() do path, io
     @test readstring(path, enc"ISO-2022-JP") == s
     @test open(io->readstring(io, enc"ISO-2022-JP"), path) == s
     @test open(readstring, path, enc"ISO-2022-JP") == s
+
+    @test readuntil(path, enc"ISO-2022-JP", '\0') == "a string \0"
+    @test open(io->readuntil(io, enc"ISO-2022-JP", '\0'), path) == "a string \0"
+    @test readuntil(path, enc"ISO-2022-JP", "チャ") == "a string \0チャ"
+    @test open(io->readuntil(io, enc"ISO-2022-JP", "チャ"), path) == "a string \0チャ"
+
     @test readline(path, enc"ISO-2022-JP") == string(split(s, '\n')[1], '\n')
     @test open(readline, path, enc"ISO-2022-JP") == string(split(s, '\n')[1], '\n')
     a = readlines(path, enc"ISO-2022-JP")
     b = open(readlines, path, enc"ISO-2022-JP")
+
     c = collect(eachline(path, enc"ISO-2022-JP"))
     d = open(io->collect(eachline(io, enc"ISO-2022-JP")), path)
+
     @test a[1] == b[1] == c[1] == d[1] == string(split(s, '\n')[1], '\n')
     @test a[2] == b[2] == c[2] == d[2] == split(s, '\n')[2]