hans/simple-ini
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support '.' in sections and fields

Browse Source
This commit is contained in:
Hans Dijkema
2026-03-12 11:06:12 +01:00
parent 21403e6ca9
commit 6a4005c1d8
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
main.rkt
View File

@@ -84,8 +84,8 @@
(define (file->ini file*) (define (file->ini file*)
(let* ((file (get-ini-file file*)) (let* ((file (get-ini-file file*))
(lines (if (file-exists? file) (file->lines file) '())) (lines (if (file-exists? file) (file->lines file) '()))
(re-section #px"^\\[([a-zA-Z0-9_-.]+)\\]$") (re-section #px"^\\[([a-zA-Z0-9_.-]+)\\]$")
(re-keyval #px"^([a-zA-Z0-9_-.]+)[=](.*)$") (re-keyval #px"^([a-zA-Z0-9_.-]+)[=](.*)$")
(re-comment #px"^[;](.*)$")) (re-comment #px"^[;](.*)$"))
(letrec ((f (lambda (sections section lines) (letrec ((f (lambda (sections section lines)
(if (null? lines) (if (null? lines)