brmlab/hackerbase
4
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

Add io wrapper handling UTF-8 BOM.

Browse source
This commit is contained in:
Dominik Pantůček 2023-04-08 20:35:41 +02:00
parent 6b8bffdd41
commit d72cde9c04
5 changed files with 80 additions and 9 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/csv-simple.scm
View file

@ -36,11 +36,11 @@
(import scheme
(chicken base)
(chicken keyword)
(chicken io)
(chicken irregex)
(chicken condition)
testing
progress)
progress
util-io)
;; Curry version of line parser with configurable cell separator and
;; string delimiter. Returns a list of lists of strings.
@ -110,7 +110,7 @@
(lambda (ex)
(ret #f))
(lambda ()
(let ((lines (read-lines (open-input-file fn))))
(let ((lines (read-lines/no-bom (open-input-file fn))))
(apply csv-parse-lines lines args)))))))
;; Splits CSV into header and body based on the first empty row.