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:01:17 +01:00
parent c6cf128a1f
commit 21403e6ca9
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)