mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2024-11-24 17:27:18 +00:00
Code Issues 1 Releases Wiki Activity

file/linex now only acceps a file, not a path name

Browse Source
This commit is contained in:
Ico Doornekamp 2023-05-26 17:50:26 +02:00
parent 64e3cdeb2b
commit 09345ec786
2 changed files with 9 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
src/boot/boot.janet
View File

@ -1749,18 +1749,13 @@
(printf (dyn *pretty-format* "%q") x)
(flush))
(defn file/lines
"Return an iterator over the lines of a file"
[file-or-path &opt mode]
(default mode :r)
(if (bytes? file-or-path)
(coro
(with [f (file/open file-or-path mode)]
(while (def line (file/read f :line))
(yield line))))
(coro
(while (def line (file/read file-or-path :line))
(yield line)))))
"Return an iterator over the lines of a file."
[file]
(coro
(while (def line (file/read file :line))
(yield line))))
###
###

5
test/suite0009.janet
View File

@ -110,8 +110,9 @@
(defer (:close outstream)
(:write outstream buf1))
(var buf2 "")
(each line (file/lines "unique.txt")
(set buf2 (string buf2 line)))
(with [f (file/open "unique.txt" :r)]
(each line (file/lines f)
(set buf2 (string buf2 line))))
(assert (= buf1 buf2) "file/lines iterator")
(os/rm "unique.txt"))